Perl og kvadratrot funksjoner

Perl, eller Practical Extraction and Report Language, er en datamaskin skriptspråk optimalisert for operasjoner på store mengder mønstrede data. Imidlertid kan Perl også håndtere de fleste normale matematiske beregninger, for eksempel kvadratroten. Ved å bruke eksterne pakker, kan Perl kvadratroten funksjon operere på alle formater av numeriske data tilgjengelig i Perl.

Root Square

Perl grunnpakken inneholder flere grunnleggende matematiske funksjoner, inkludert kvadratroten. Perl sqrt () -funksjonen tar kvadratroten av et tall gitt som argument. Hvis argumentet ikke er inkludert, sqrt () -funksjonen opererer på $ _ variabelen.

$ Resultat = sqrt ($ some_number);
print $ resultat;

komplekse tall

Som standard vil ta en kvadratroten av et negativt tall returnere en feil i Perl. Men hvis du har inkludert "Math :: Complex" pakken, alle matematiske operasjoner kan utføres på komplekse tall. Pakker er inkludert i Perl filer ved hjelp av bruk kommandoen.

bruke Math :: Complex;
$ My_root = sqrt (-144); #returns 12i
print $ my_root;

andre Roots

En rot tilsvarer et tall opphøyd i en brøk eksponent. For å ta et annet enn en kvadratrot i Perl rot, bruke den eksponentielle operatør "**" med en brøk eksponent. For eksempel, for å ta kubikkroten av et tall, bruker du følgende kode.

$ Cube_root = $ my_num ** (1/3);
print $ cube_root;

Eksempel Program

For å få fullt kjøre et prøveprogram i Perl å ta kvadrat eller annet rot, utføre følgende program.

! / Usr / bin / local / perl

$ My_num = 64;
$ My_root = 3;

printf 'Kvadratroten av% 1% d er% 2% f \ n.', $ my_num, sqrt ($ my_num);
printf '% 1% d roten av% 2% d er% 3% f \ n.', $ my_root, $ my_num, ($ my_num ** (1 / $ my_root));