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