PDL :: Image2D. PDL :: Image2D ist ein Perl-Modul, das verschiedene 2D-Bildverarbeitungsfunktionen enthält.
Jetzt downloaden

PDL :: Image2D. Ranking & Zusammenfassung

PDL :: Image2D. Stichworte

Bild Perl-Modul 2d. Bildverarbeitung 2D-Bildfunktionen

PDL :: Image2D. Beschreibung

PDL :: Image2D ist ein Perl-Modul, das verschiedene 2D-Bildverarbeitungsfunktionen enthält. PDL :: Image2D ein Perl-Modul, die functions.For großer Kern verschieden 2D-Bildverarbeitung enthält, eine FFT-Routine, wie fftconvolve () in PDL :: FFT, wird schneller sein. $ new = conv2d $ alt, $ kernel, {Optionen} $ geglätteten = conv2d $ image, diejenigen (3,3), {Boundary => Reflect} Boundary - festlegen, welche Werte für das Bild angenommen, wenn Kernel seine Kante kreuzt: = > Standard - periodische Randbedingungen (dh umschlingen Achse) => Reflect - reflektiert an boundary => Kürzen - truncate bei boundaryEOD BadDoc => 'im Gegensatz zu den FFT-Routinen zu verarbeiten conv2d schlechte Werte ist in der Lage', HandleBad => 1, Pars => a (m, n); kern (p, q); b (m, n); 'OtherPars => 'int opt;', PMCode =>' sub PDL :: conv2d {my $ opt; $ Opt = pop @_ wenn ref ($ _ ) eq 'HASH'; Die 'Verbrauch: conv2d (a (m, n), Kern (p, q), b (m, n), {Optionen})', wenn $ _ # 2; my ($ a, $ kern) = @_; my $ c = $ # _ == 2? $ _ : $ a-> nullcreate; ! PDL :: _ conv2d_int ($ a, $ kern, $ C, (($ opt definiert besteht $$ opt {Boundary})) 0: (($$ opt {Boundary} eq "Reflektieren") + 2 * ($ $ opt {Boundary} eq "Kürzen"))); return $ c; }, Code => init_vars ({vars => 'PDL_Double tmp;'}). init_map ( "i"). init_map ( "j"). 'Threadloop% {for (j = 0; JJ2) * $ kern (p => i1, q => j1); } / * Für: i1 * /} / * if: j2> = 0 * /} / * für: j1 * / $ b (m => i, n => j) = tmp; } / * Für: i * /} / * für: j * /}% freier (mapj + 1-q_size); frei (MAPI + 1-p_size);, BadCode => init_vars ({VAr => 'PDL_Double tmp; int-Flag;'}). init_map ( "i"). init_map ( "j"). threadloop% {for (j = 0; JJ2)) $ isgood (kern (p => i1, q => j1))) {tmp + = $ a (m => i2, n => j2) * $ kern ( p => i1, q => j1); flag = 1; } / * Wenn: gut * /} / * wenn: i2> = 0 * /} / * für: i1 * /} / * wenn: j2> = 0 * /} / * für: j1 * / if (flag) {$ b (m => i, n => j) = tmp; } Else {$ SETBAD (b (m => i, n => j)); }} / * Für: i * /} / * für: j * /}% freier (mapj + 1-q_size); kostenlos (mapi + 1-p_size);, Anforderungen: · Perl-Anforderungen: · Perl.

PDL :: Image2D. Zugehörige Software