例 4 ステップを1つのセッション内で順に実行します。各ステップはエンジンで実行済みで、以下の出力は実際に生成されたものです。
eqn = x ^ 2 + 2a x + 1 == 0;出力なし - このステップは次のステップの準備をします。
sol = Solve[eqn, x]{{x -> (-2*a - 2*Sqrt[-1 + a^2])/2}, {x -> (-2*a + 2*Sqrt[-1 + a^2])/2}}forPlot = x /. sol{(-2*a - 2*Sqrt[-1 + a^2])/2, (-2*a + 2*Sqrt[-1 + a^2])/2}Plot[forPlot, {a, -5, 5}]-Graphics-