#!/usr/bin/perl -w $x = 3; $y = 0; do { $y = $x; $x = $x - (sin($x)/cos($x)); } until ($x == $y); print "$x\n"; ######################## ######################## $x = 2; $y = 0; do { $y = $x; $x = $x - ((log($x) - 1) * $x); } until ($x == $y); print "$x\n";
In reply to Deriving pi and e by fredopalus
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |