Basic256 Programme Propagator
Quellcode
Basiswissen
Das untenstehende Programm kann direkt in Basic256 ausgeführt werden. Das Programm zeichnet unten im Bild eine frei wählbare Anzahl von zeitlich veränderlichen Sinuswellen. Je mehr Einzelwellen gewählt werden, desto eher entspricht die Summe einem lokalisierten Impuls, der als einzelner Berg oder als einzelnes Tal erkennbar ist.
Quellcode
# Basic256 Programme Propagator
#
# Gunter Heim, 2016
#
# Das Programm zeichnet unten im Bild eine frei wählbare Anzahl von zeitlich veränderlichen Sinuswellen. Im oberen Teil des Bildes wird der Summenwert der Einzelwellen dargestellt. Je mehr Einzelwellen gewählt werden, desto eher entspricht die Summe einem isolierten Impuls, der als einzelner Berg oder als einzelnes Tal erkennbar ist.
#
cls
clg
graphsize 640,150
fastgraphics
print "Wie viele Wellen?"
input anzahl
omega=1
# Bildbreite entspricht 2Pi:
k=1/640*2*pi
# Stauchung auf x-Achse um Faktor 4:
k=k*4
t=0
while t<1000
clg
cls
print t
for x=0 to 640
# Die dunkelgrünen Einzelwellen unten im Bild
dim y(100)
z=0
for counter=0 to anzahl
y[counter]=10*cos((k*(counter/10))*x - omega*counter/10*t)
z=z+y[counter]
next counter
color darkgreen
for counter = 0 to anzahl
plot x,y[counter]+100
next counter
# Die Summe der Einzelwellen, im Bild oben rot
color red
plot x,z/anzahl+30
next x
t=t+0.1
refresh
end while
end