pq-Formel (quadratische Gleichungen)

Aufgabe:

Eine Liste quadratischer Gleichungen soll nach der pq-Formel gelöst werden. Wir machen das hier nur als Programmieraufgabe.

Code:

ratprint:off$
Gleichung:[ \
x^2+x-6=0, \
-4*x^2-8*x+60=0, \
-1.5*x^2-7.5*x-9=0 \
]$
norm(X):=expand(X/coeff(lhs(X),x^2))$
Normgleichung:map(norm,lhs(Gleichung))$
Loesung(X):=block( \
p:coeff(lhs(X),x), \
q:ev(lhs(X),x=0), \
x1:-p/2+sqrt((p/2)^2-q), \
x2:-p/2-sqrt((p/2)^2-q), \
display([x1,x2]) \
)$
map(Loesung,Normgleichung)$