Basic256 Programme Stehende Welle
Quellcode
Basiswissen
Das untenstehende Programm kann direkt in Basic256 ausgeführt werden.
Quellcode
#Stehende Welle
#
# Gunter Heim, 2016
#
# Unten im Bild grün werden einzelne Sinuswellen dargestellt. Oben rot im Bild wird deren Summe angezeigt. Man erkennt in der roten Summe Punkte, die sich niemals bewegen. Das sind die Knoten der stehenden Welle. In der Textausgabe wird die Zeit seit Beginn der Simulation dargestellt (keine genauen Sekunden).
#
cls
clg
graphsize 640,150
fastgraphics
omega=1
fi=0
# Bildbreite entspricht 2Pi:
k=1/640*2*pi
# Stauchung auf x-Achse um Faktor 4:
k=k*4
t=0
while t<100
clg
cls
print t
for x=0 to 640
# Die dunkelgrünen Einzelwellen unten im Bild
u=0*cos(k*1.0*x - omega*t + fi)
v=0*cos(k*1.1*x - omega*t + fi)
w=10*cos(k*0.5*x - omega*t + fi)
y=10*cos(k*1.9*x - omega*t + fi)
z=10*cos(k*3.0*x + omega*t + fi)
color darkgreen
plot x,u+100
plot x,v+100
plot x,w+100
plot x,y+100
plot x,z+100
# Die Summe der Einzelwellen, im Bild oben rot
color red
plot x,(u+v+w+y+z)*(u+v+w+y+z)/5
next x
t=t+0.1
refresh
end while
end