|
(Other) /*
File: form.bc
Usage: bc form.bc
( In UNIX shell, e.g. bash on Cygwin )
*/
define a(x){ return( 321*x^2 + 216*x + 36 ); }
define b(x){ return( sqrt(a(x)) ); }
define n(z){ auto a, x; x=3; a = 215*z+12*b(z)+72 ;
a; b(a); return(v(a)); }
define v(z){ auto a, b, x, y, i, j, k, l;
a = z; b = ( a + b(a) )/2;
a = -a; x=3; y = 1-a*x;
i=a*x+y; j=b+x^2*y; k=b*x+y; l=a+x^2*y;
-a; b; i; j; k; l; i^3+j^3; k^3+l^3;
return ( -a ); }
z=144; v(z) ; z=n(z); z=n(z); z=n(z); /* ... etc. */
|