PDL:: De module van Perl van Ops bevat fundamentele wiskundige exploitanten.

Deze die module verstrekt de functies door PDL worden gebruikt de fundamentele wiskundige exploitanten (+ -/* enz.) te overbelasten en functioneert (zonde sqrt enz.)

Het omvat ook de functie log10, die een perlfunctie zou moeten zijn zodat wij het kunnen overbelasten!

De vermenigvuldiging van de matrijs (exploitant x) wordt behandeld door de module PDL:: Primitief.

$doc
$c = $name $a, $b, 0; # expliciete vraag met het slepen van 0
$c = $a $op $b; # overbelastte vraag
$a->inplace->$name ($b, 0); # wijzig $a inplace

Het kan aan het werk worden gemaakt inplace met de syntaxis $a->inplace. Deze functie wordt gebruikt om de binaire exploitant te overbelasten $optxt. Merk op dat wanneer het roepen van deze functie uitdrukkelijk u een derde argument moet leveren dat over het algemeen nul zou moeten zijn (zie eerste voorbeeld). Deze beperking zou moeten weggaan voortaan versies. EOD} # sub: biop ()

#simple binaire mijn functies subbifunc {($name, $func, $swap, $doc, %extra) = @_; mijn $funcov = ref$func eq SERIE? $func-> [1]: $func; mijn $isop=0; als ($funcov =~ s/^op//) {$isop = 1; } mijn $funcovp = protect_chars $funcov; $func = $func-> [0] als ref $func eq OPSTELT; als ($swap) {$extra {HdrCode}. = << EOH; pdl *tmp; als (ruilmiddel) {tmp = a; a = B; B = tmp; } EOH} mijn $ovcall; # is dit één dat als functie of exploitant moet worden gebruikt? als ($isop) {$ovcall = „$c = $a $funcov $b; # overbelast gebruik“; } anders {$ovcall = „$c = $funcov $a, $b; # overbelast gebruik“; } pp_def ($name, HandleBad => 1, NoBadifNaN => 1, Pari => a (); B (); [o] c (); , Het ruilmiddel van OtherPars => int., Inplace => [a], # snel en vuile te krijgen oplossing - >inplace doe zijn baanCode => „$c () = $func ($a (), $b ()); “, BadCode => als ($ISBAD (()) || $ISBAD (B ()) ) $SETBAD (c ()); anders. „n $c () = $func ($a (), $b ()); n“, CopyBadStatusCode => als ($BADFLAGCACHE ()) {als (een == c && $ISPDLSTATEGOOD (a)) {PDL->propagate_badflag (c, 1); /* hebben inplace op EN badflag */} $SETPDLSTATEBAD (c) heeft veranderd; }, %extra, Doc. => << „EOD“); =for ref

$doc
$c = $a->$name ($b, 0); # expliciete functievraag
$ovcall
$a->inplace->$name ($b, 0); # wijzig $a inplace

Het kan aan het werk worden gemaakt inplace met de syntaxis $a->inplace. Deze functie wordt gebruikt om de binaire functie te overbelasten $funcovp. Merk op dat wanneer het roepen van deze functie uitdrukkelijk u een derde argument moet leveren dat over het algemeen nul zou moeten zijn (zie eerste voorbeeld). Deze beperking zou moeten weggaan voortaan versies. EOD} # sub: bifunc ()

# eenvoudige unary functies en exploitanten sub mijn ufunc {($name, $func, $doc, %extra) = @_; mijn $funcov = ref$func eq SERIE? $func-> [1]: $func; mijn $funcovp = protect_chars $funcov; $func = $func-> [0] als ref $func eq OPSTELT;
# handvatuitzonderingen

mijn $badcode = $ISBAD (());
als (bestaat $extra {Uitzondering}) {
# $badcode. = „ || $extra {Uitzondering}“;
# druk „Waarschuwing: genegeerde uitzondering voor $namen“;
schrap $exists {Uitzondering};
}

# moet niet me over propogation van badflag ongerust maken wanneer
# inplace sinds slechts ingevoerd piddle is a, vandaar zijn badflag
# niet zal veranderen
# TENZIJ een uitzondering… voorkomt
pp_def ($name,
Pari => a (); [o] B (),
HandleBad => 1,
NoBadifNaN => 1,
Inplace => 1,
Code =>
„$b () = $func ($a ()); “,
BadCode =>
als (. $badcode. )
$SETBAD (B ());
anders. „n $b () = $func ($a ()); n“,
%extra,
Doc. => << „EOD“);
=for ref
$doc
$b = $funcov $a;
$a->inplace->$name; # wijzig $a inplace

Het kan aan het werk worden gemaakt inplace met de syntaxis $a->inplace. Deze functie wordt gebruikt om de unary exploitant $funcovp/de functie te overbelasten. EOD} # sub: ufunc ()
######################################################################
# hier sluiten wij sommige onwettige verrichtingen op -- zie de de optie # nota van de Uitzondering, voor ufunc () s, werken de controles niet te goed # want het niet ondertekende geheel (d.w.z. < 0) # # XXX behoeften denkend over # typt - moet in de sectie van de Code integreren eveneens (zo # is 12/pdl (2.4.0.3) opgesloten en gemarkeerde slecht) # --> ingewikkeld # - misschien kon het gebruik typen % {%}? # # heeft ==> momenteel uit de uitzonderingscode becommentari downloaden