Basic256 Programme Lorent-Transformation
Quellcode
Basiswissen
Das untenstehende Programm kann direkt in Basic256 ausgeführt werden.
Quellcode
# Lorentz-Transformation
#
# Programmiersprache: Basic256
# Autor: Gunter Heim
# Datum: Juli 2018
#
# Das Programm transformiert Raum- und Zeitkoordinaten zwischen zwei Koordinatensystemen.
# Das eine Koordinatensystem heißt K. In ihm ruhen wir als Beobachter.
# Das andere Koordinatensystem heißt K'. Es bewegt sich mit
# einer Geschwindigkeit von v relativ zu K
# und zwar parallel zur x-Achse.
# v darf auch negative Werte annehmen.
# Die Variablenbenennung und die Formeln lehnen sich an Albert Einsteins Büchlein
# Über die spezielle und allgemeine Relativitätstheorie aus dem Jahr 1917 an.
# Die Formeln sind so gestaltet, dass zum Zeitpunkt t=0 die Ursprünge ...
# beider Systeme K und K' an der selben Stelle gewesen sein müssen.
# In beiden Systemen muss dann auch die Zeit t=0 gewesen sein.
# Inititalisierungen
x= 0 # x-Raum-Koordinate im System K
y=0 # y-Raum-Koordinaten im System K
t=0 # Zeitkoordinate im System K
x_= 0 # x-Raum-Koordinate im System K'
y_=0 # y-Raum-Koordinaten im System K'
t_=0 # Zeitkoordinate im System K'
c=300000000 # Lichtgeschwindigkeit in m/s
Lorentzfaktor=1 # 1/Wurzel aus (1-v²/c²)
# Alle Ausgabebildschirme löschen
cls
clg
print "Sie sollen gleich die x-, y- und Zeitkoordinaten eines Punktereignisses in Ihrem Koordinatensystem angeben.";
print "Damit ist das Koordinatensystem gemeint, in dem Sie selbst ruhen."
print "Die Geschwindigkeit v des bewegten Koordinatensystems ..."
input "Geben Sie den Wert in Prozent von c ein: ", v
input "Bitte x-Koordinate in Ihrem System eingeben: ", x
input "Bitte y-Koordinaten in Ihrem System eingeben: ", y
input "Bitte Zeitpunkt t in Ihrem System eingeben: ", t
Lorentzfaktor=1/sqrt(1-(v*c/100)^2/c^2)
print "Die x-Koordinate im bewegten System K' ist: ";
print Lorentzfaktor*(x-v*t)
print "Die y-Koordinate im bewegten System K' ist: ";
print y
print "Der Zeitpunkt im bewegten System ist: ";
print Lorentzfaktor*(t-(v*c/100)/c^2)*x
end