systemSolverDemo.frink

View or download systemSolverDemo.frink in plain text format


// Demonstration of solving system of equations.
use systemSolver2.frink

symbolicMode[true]

// These equations define an ellipse.
c = new System[[x^2/a^2 + y^2/b^2 === 1,
                e === sqrt[(a^2-b^2)/a^2],
                area===pi a b],
               ["pi"]]

println[join["\n",c.solveAll[]]]

println["\nPlugging in numbers:"]
values = [["area", 1 foot^2], ["a", 1 inch]]
println["b=" + (eval[c.solveForValues["b", values]] -> "in")]
println["e=" + eval[c.solveForValues["e", values]]]


View or download systemSolverDemo.frink in plain text format


This is a program written in the programming language Frink.
For more information, view the Frink Documentation or see More Sample Frink Programs.

Alan Eliasen was born 17590 days, 6 hours, 56 minutes ago.