/** Sample program to demonstrate doing symbolic math. Depending on what
transformations are loaded below, this can solve equations, perform
derivatives, etc.
For example, try:
solve[x^2 + 2x - 3 === y, x]
or
D[x sin[x], x]
The real magic happens in the "transformExpression" call which transforms
an expression using the symbolic transformation rules currently loaded.
*/
use allTransforms.frink
showApproximations[false]
symbolicMode[true]
while (text = input["Enter expression: "] )
{
expr = parseToExpression[text]
res = transformExpression[expr]
println[]
println[res]
println[]
println[eval[res]]
}