Hmmm, da haben wir letzte Woche eine Klausur drüber geschrieben...
Ich würde aber - wenn schon mit s(t) - die Formel für die gedämpfte Schwingung mit e und dem Abklingkoeffizienten nehmen, also
s(t) = s[max] * sin(wt + A) * e^((ln p% / T) * t)
wobei
s[max] = der maximale Ausschlag,
w = Omega (siehe #21),
A = Alpha (Phasenverschiebung (z.B. Pendel rechts -> 0,5pi)) und
p% = die Prozentzahl von s nach einem T. In der Luft ist das z.B. 0,95. Kann ja auch der Nutzer eingeben
Das dürfte mit Delphi ganz gut zu realisieren sein. Aber dann braucht es einen Button "neu starten", wenn das Pendel stehen geblieben ist
Vorschlag, um für s(t) t zu bekommen: Beim Starten des Programms wird in eine Variable GetTickCount gespeichert, und dann wird für t der Wert (StartVariable - GetTickCount) / 1000) genommen.
Ach ja, die Formel für T gilt nur für kleine Auslenkungen. Also so weit, wie die Kugeln im Programm momentan ausgelenkt werden, würde es nicht funktionieren.
Hoffe, das war jetzt auch nicht zu... physikalisch?
Gruß,
ManuMF