Visualize solutions to equations

ตัวอย่าง 4 ขั้นตอน รันตามลำดับในหนึ่งเซสชัน ทุกขั้นถูกรันกับเอนจินจริง และเอาต์พุตด้านล่างคือสิ่งที่มันให้

ขั้นที่ 1

eqn = x ^ 2 + 2a x + 1 == 0;

ไม่มีเอาต์พุต - ขั้นนี้ตั้งค่าบางอย่างไว้ให้ขั้นถัดไป

ขั้นที่ 2

sol = Solve[eqn, x]

เอาต์พุต

{{x -> (-2*a - 2*Sqrt[-1 + a^2])/2}, {x -> (-2*a + 2*Sqrt[-1 + a^2])/2}}

ขั้นที่ 3

forPlot = x /. sol

เอาต์พุต

{(-2*a - 2*Sqrt[-1 + a^2])/2, (-2*a + 2*Sqrt[-1 + a^2])/2}

ขั้นที่ 4

Plot[forPlot, {a, -5, 5}]

เอาต์พุต

-Graphics-

ฟังก์ชันที่ใช้