Frink Server Pages Highlighter

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
            "http://www.w3.org/TR/html4/strict.dtd">
<HTML LANG="en">
<HEAD>
  <TITLE>Frink Solver</TITLE>
  <META HTTP-EQUIV="Default-Style" CONTENT="Spaceship">
  <LINK REL="StyleSheet" HREF="/frinkdocs/spaceship.css"
        TYPE="text/css" TITLE="Spaceship">
  <LINK REL="Alternate StyleSheet" HREF="/frinkdocs/apeairy.css"
TYPE="text/css" TITLE="APE Airy">
  <LINK REL="Alternate StyleSheet" HREF="/frinkdocs/style.css" TYPE="text/css"
        TITLE="APE Classic">
  <LINK REL="Alternate StyleSheet" HREF="/frinkdocs/style2.css" TYPE="text/css"
        TITLE="Compact">
  <LINK REL="icon" HREF="/images/futureboyicon.png" TYPE="image/png">
</HEAD>

<%
    use ../derivatives.frink
    use ../solvingTransformations.frink
    use ../HTMLUtils.frink

    showApproximations[false]
    symbolicMode[true]

    equation = equation ? equation : "x^2 + 3x - 2 + 4y + 3y^2 = 3x - y + 10"
    eqStr = HTMLEncode[equation]
    solveFor = solveFor ? solveFor : "x"
    solveStr = HTMLEncode[solveFor]
    checked = w ? "CHECKED" : ""
%>

<BODY>
  <H1>Frink Solver</H1>
  <DIV CLASS="back">
   <FORM ACTION="solve.fsp" METHOD="GET">
    Equation: <INPUT TYPE="text" SIZE="40" NAME="equation" VALUE="$eqStr">
    Solve for: <INPUT TYPE="text" SIZE="3" NAME="solveFor" VALUE="$solveStr">
    <BR>
      <INPUT TYPE="CHECKBOX" NAME="w" $checked onChange="this.form.submit();">Show work
    <BR><INPUT TYPE="Submit" VALUE="Solve">
   </FORM>
  </DIV>

<%
    if (equation)
    {
        if (equation =~ %r/=/)
        {
           equation =~ %s/=/==/
           expr = parseToExpression["solve[$equation,$solveFor]"]
        } else
        {
    println["<P><I>No equals sign present.  Will not solve equation, but just evaluate the expression.</I></P>"]
           expr = parseToExpression[equation]
        }

        println["<P><B>Solution:</B></P><P CLASS=\"code\"><CODE>"]
        if (w)  // Show work?
        {
           res = transformExpressionTrace[expr]
           println[formatExpression[join["<BR><BR>",res]]]
        } else
        {
           res = transformExpression[expr]
           println[formatExpression["$res"]]
        }
     }
     println["</CODE></P>"]
%>

  <HR>
  <P>
   View source of <A HREF="highlight.fsp?fileName=solve.fsp">this FSP page</A> or the <A HREF="colorize.fsp?fileName=solvingTransformations.frink">transformation rules</A> that solve these equations.
  </P>
  <P>
   <I><A HREF="mailto:eliasen@mindspring.com">Alan Eliasen</A></I> was born
   <%= round[now[] - #1969-08-19 04:54 PM Mountain#, minute] -> ["days", "hours", "minutes"] %> ago.
  </P>

  <P>
   Back to <A HREF="/frinkdocs/fspdocs.html">Frink Server Pages
    documentation.</A>
  </P>
</BODY>
</HTML>

Frink Server Pages Highlighter - solve.fsp