De wortels van een vierdegraadspolynoom worden berekend door deze
twee kwadratische polynomen op te lossen.
Een kwadratische vergelijking 2? + a;jz + ap = 0 wordt opgelost
volgens de formule
2
Als de discriminant d = (a;/2)? — ag > 0, zijn de wortels reéel; als
d < 0, zijn de wortels complex: u+iv = —(a;/2) + ivV—d.
Programma:
Programmaregels:
Beschrijving:
Fal LEL F
Definieert het begin van de routine voor de
Polynomiale Root Finder.
Faz IMFUT F
Vraagt om de graad van de polynoom en slaat
deze waarde op.
F@z STO 1
Gebruikt de graad als teller voor de lus.
Checksum en lengte: 699F 004,5
Isl LEBEL I
Start de routine die om invoer van waarden
vraagt.
I62 IMFUTCi»
Vraagt om een coéfficient.
Ina LSE 1
De invoerlus wordt afgeteld.
Ia4 GTO I
Herhaalt dit totdat het klaar is.
IS RCL F
Ige STO 1
Gebruikt de graad om routine te kiezen voor het
berekenen van een wortel.
187 GTOC1)
Start de routine voor het berekenen van een
wortel.
Checksum en lengte: CE86 010,5
H@1 LEL H
Evalueert polynomen volgens de methode van
Horner en voert met behulp van de wortel een
synthetische verlaging van de graad van de
polynoom uit.
HEZ RCL H
Has STO i
Gebruikt de waarde die naar de polynoom
verwijst, als index.
Had 1
Beginwaarde voor de methode van Horner.
Checksum en lengte: B85F 006,0
Wiskundige programma's
15-23