Basic256 Programme quadratische Gleichungen genetisch
Quellcode
Basiswissen
Das untenstehende Programm kann direkt in Basic256 ausgeführt werden.
Quellcode
# Basic256 Programme quadratische Gleichungen genetisch
# Ein einfacher genetischer Algorithmus zum Lösen quadratischer Gleichungen
# Die quadratische Gleichung in AllgemeinerForm: y=axx-bx+c
a=4
b=-8
c=4
# Startvermutung über Nullstelle
xtop=20
for durchlauf=1 to 10000
# Drei geratene Lösungsversuche
x1=0.05-rand/10+xtop
x2=0.05-rand/10+xtop
x3=0.05-rand/10+xtop
# y-Werte ausrechnen
x=x1
y1=a*x*x+b*x+c
x=x2
y2=a*x*x+b*x+c
x=x3
y3=a*x*x+b*x+c
#A bsolute Fehler berechnen (Betrag)
f1=abs(y1)
f2=abs(y2)
f3=abs(y3)
# x-Wert mit kleinstem Fehler finden
if f1 < f2 and f1 < f3 then xtop=x1
if f2 < f1 and f2 < f3 then xtop=x2
if f3 < f1 and f3 < f2 then xtop=x3
print xtop;
print " ";
print a*xtop*xtop+b*xtop+c
next durchlauf
print xtop;
print " ";
print a*xtop*xtop+b*xtop+c
end