PDL :: image2d

PDL :: Image2D is een PERL-module die diverse 2D-beeldverwerkingsfuncties bevat.
Download nu

PDL :: image2d Rangschikking & Samenvatting

Advertentie

  • Rating:
  • Vergunning:
  • Perl Artistic License
  • Prijs:
  • FREE
  • Naam uitgever:
  • Karl Glazebrook
  • Uitgever website:
  • http://pdl.perl.org/

PDL :: image2d Tags


PDL :: image2d Beschrijving

PDL :: Image2D is een PERL-module met diverse 2D-beeldverwerkingsfuncties. PDL :: image2D is een PERL-module die diverse 2D-beeldverwerkingsfuncties bevat. Voor grote kernels, met behulp van een FFT-routine, zoals fftconvolve () in PDL :: FFT, zal sneller zijn. $ NIEUWE = CONV2D $ OUD, $ KERNEL, {OPTIONS} $ Gladed = Conv2D $ Image, One (3,3), {Boundary => Reflect} Grens - Bedieningselementen Welke waarden worden verondersteld voor de afbeelding wanneer de kernel zijn rand doorkruist: = > Standaard - Periodieke grensvoorwaarden (dwz wikkel rond Axis) => reflecteren - reflecteren op grens => afkappen - afkappen op grenaryeod Baddoc => 'In tegenstelling tot de FFT-routines kan Con Contr2D slechte waarden verwerken.', Stuurwerk => 1, Pars => 'A (M, N); Kern (p, q); b (m, n); ', anderepars =>' int opt; ', pmcode =>' sub pdl :: conv2d {my $ opt; $ OPT = POP @_ if Ref ($ _ ) EQ 'HASH'; Die 'Gebruik: Conv2D (A (M, N), Kern (P, Q), B (M, N), {options})' als $ # _ 2; mijn ($ A, $ KERN) = @_; Mijn $ C = $ # _ == 2? $ _ : $ a-> nullcreate; PDL :: _ conv2d_int ($ A, $ KERN, $ C, (! (Gedefinieerd $ OPT bestaat $$ Opt {grenary}))? 0: (($$ opt {grenzen} EQ "reflecteren") + 2 * ($ $ opt {grenzen} eq "afkappen")); retourneer $ C; } ', Code => Init_vars ({Vars =>' PDL_Double TMP; '}). init_map ("I"). init_map ("J"). 'Threaderloop% {voor (J = 0; JJ2) * $ KERN (P => I1, Q => J1); } / * voor: i1 * /} / * if: j2> = 0 * /} / * voor: j1 * / $ b (m => i, n => j) = TMP; } / * voor: i * /} / * voor: j * /%} gratis (MAPJ + 1-Q_SIZE); Gratis (MAPI + 1-P_SIZE); ', Badcode => Init_vars ({Vars =>' PDL_Double TMP; INT-vlag; '}). init_map ("I"). init_map ("J"). ' Threaderloop% {voor (J = 0; JJ2)) $ ISGOOD (KERN (P => I1, Q => J1)) {TMP + = $ A (M => I2, N => J2) * $ KERN ( p => i1, q => j1); vlag = 1; } / * if: goed * /} / * if: i2> = 0 * /} / * voor: i1 * /} / * if: j2> = 0 * /} / * voor: j1 * / if (vlag) {$ b (m => i, n => j) = tmp; } anders {$ SETBAD (B (M => I, N => J)); }} / * voor: i * /} / * voor: J * /%} Gratis (MAPJ + 1-Q_SIZE); Gratis (MAPI + 1-P_SIZE); ', Vereisten: · Perl-vereisten: · Perl


PDL :: image2d Gerelateerde software