Help for this page

Select Code to Download


  1. or download this
    use Math::Calculus::NewtonRaphson;

...
if( $exp->getError() ){ print "got error, ".$exp->getError()."\n"; exi
+t(1) }
my $result = $exp->newtonRaphson('x', 0);
print "result: ".$result."\n";
  2. or download this
    library(rSymPy)
x <- Var("x")
sympy("solve(3+3*x-x*x, x)")
  3. or download this
    [1] "[3/2 - 21**(1/2)/2, 3/2 + 21**(1/2)/2]"
  4. or download this
    use strict;
use warnings;
...
x <- Var('x')\n\
sympy('solve($sum_equ, x)')\n
";
  5. or download this
    perl equ.pl | R