Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Schwingende Membran
| Uploader: |  Volta |
| Datum/Zeit: | 07.06.2008 22:04:34 |
'=========================================================================
' Schwingende Membran
' MEMBRAN.BAS
' Autor: Lothar Schirm
' Letzte Ueberarbeitung 11.03.08
'=========================================================================
#Include "3D-GRAPH.BAS"
Dim As Single pi, dx, dy, dt, t, x(50), y(50), z(50, 50)
Dim As Integer p, q, i, j
'SCREEN 0
Screen 12
Color 7, 1
Cls
Print "Programm MEMBRAN zeichnet die Schwingungen einer quadratischen "
Print "Membran mit der Kantenlaenge 1:"
Print
Print "z = sin(p * pi * x ) * sin(q * pi * y) * sin(2 * pi * f * t)."
Print "pi = 3.141593, p und q ganze Zahlen."
Locate 29, 1: Print "Weiter: Beliebige Taste!"
Sleep
Color 0, 15
Cls
Window(-0.5, -0.8) - (1.2, 0.5)
pi = 3.141593
dx = 0.02
dy = 0.02
dt = 0.1
Do
Locate 1, 1:Print "Gib fuer p und q ganze Zahlen ein (p = 0 zum Beenden):"
Input "p = ", p
If p = 0 Then End
Input "q = ", q
t = 0
Do
ScreenLock
Cls
Locate 29, 1: Print "Beenden: Beliebige Taste!"
t = t + dt
For i = 0 To 50
x(i) = i * dx
For j = 0 To 50
y(j) = j * dy
z(i, j) = 0.05 * Sin(p * pi * x(i)) * Sin(q * pi * y(j)) * Sin(t)
Next j
Next i
xyzGraphik(x(), y(), z(), 50, 50, -20, 20, 4, 0)
ScreenUnlock
For i = 1 To 5 '~dt Zeitverzögerung
ScreenSync
Next
Loop Until InKey <> ""
Loop