مثال 4 خطوات تُشغَّل بالترتيب في جلسة واحدة. كل خطوة نُفِّذت على المحرك والمخرج أدناه هو ما أنتجته.
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-