algebrite
Version:
Computer Algebra System in Coffeescript
60 lines (40 loc) • 621 B
text/coffeescript
test_abs = ->
run_test [
"abs(2)",
"2",
"abs(2.0)",
"2",
"abs(-2)",
"2",
"abs(-2.0)",
"2",
"abs(a)",
"abs(a)",
"abs(-a)",
"abs(a)",
"abs(2*a)",
"2*abs(a)",
"abs(-2*a)",
"2*abs(a)",
"abs(2.0*a)",
"2*abs(a)",
"abs(-2.0*a)",
"2*abs(a)",
"abs(a-b)+abs(b-a)",
"2*abs(a-b)",
"abs(3 + 4 i)",
"5",
"abs((2,3,4))",
"29^(1/2)",
"abs(a*b)",
"abs(a)*abs(b)",
"abs(a/b)",
"abs(a)/abs(b)",
"abs(1/a^b)",
"1/(abs(a^b))",
# Check that vector length is simplified
"P=(u*cos(v),u*sin(v),v)",
"",
"abs(cross(d(P,u),d(P,v)))",
"(1+u^2)^(1/2)",
]