16 lines
458 B
Text
16 lines
458 B
Text
fcn show(str,p)
|
|
{ println(str, is_zero(p) and "Zero" or "(%.3f, %.3f)".fmt(p.xplode())) }
|
|
|
|
fcn from_y(y){
|
|
y3:=y * y - C; // cube root of -6 --> -1.817
|
|
return(y3.abs().pow(1.0/3) * y3.sign, y)
|
|
}
|
|
|
|
a,b := from_y(1.0), from_y(2.0);
|
|
show("a = ", a);
|
|
show("b = ", b);
|
|
show("c = a + b = ", c := add(a, b));
|
|
show("d = -c = ", d := neg(c));
|
|
show("c + d = ", add(c, d));
|
|
show("a + b + d = ", add(a, add(b, d)));
|
|
show("a * 12345 = ", mul(a, 12345.0));
|