Perl , eller Practical Extraction and Report Language , är en dator skriptspråk optimerad för operationer på stora mängder mönstrade data. Däremot kan Perl hanterar också de flesta vanliga matematiska beräkningar , t.ex. kvadratrot . Genom att använda externa paket , kan Perl kvadratrotsfunktionen fungera på alla format av numeriska data som finns i Perl . Square Root
Perl baspaket innehåller flera grundläggande matematiska funktioner , inklusive kvadratrot . Den Perl sqrt ( ) funktionen tar kvadratroten av ett antal ges som argument . Om argumentet inte ingår , det sqrt ( ) funktionen fungerar på $ _ variabeln
$ result = sqrt ( $ some_number ) . Print $ result ,
komplexa tal
Som standard tar kvadratroten ur ett negativt tal returnerar ett fel i Perl . Men om du har inkluderat " Math :: Complex " paketet , kan alla matematiska operationer utföras på komplexa tal . Paket ingår i Perl filer med användningen kommandot
använda Math :: Complex , . $ My_root = sqrt ( -144 ) , # avkastning 12iprint $ my_root ,
Andra Roots
en rot är ekvivalent med ett tal upphöjt till en fraktionerad exponent. För att ta en rot annan än en kvadratrot i Perl, använda den exponentiella operatören "**" med en fraktionerad exponent. Till exempel , för att ta kuben roten av ett nummer , använd följande kod
$ cube_root = $ my_num ** ( 1/3 ) , . Print $ cube_root ,
Sample program
helt att köra ett exempelprogram i Perl för att ta kvadratiska eller annan rot , exekvera följande program .
# ! /usr /bin /local /perl
$ my_num = 64 ; $ my_root = 3 ;
printf ' Den kvadratroten av % 1 % d är % 2 % f \\ n ". , $ my_num , sqrt ( $ my_num ) , printf " . % 1 % d rot % 2 % d är % 3 % f \\ n " , $ my_root , $ my_num , ( $ my_num ** ( 1 /$ my_root ) ) , Addera
