Helgon mein Bester;
Deal ist Deal! Danke!
Wenn Du Zeit hasst und natürlich Lust
,
das ist für Dich (Brauche jetzt alles im Java), das was ich bei Dow Jones Pascal text gepostet.
Und noch eine Aufgabe :autsch:
program Feder_Masse ;
USES CRT;
var Mass, Acc, V, F : real ;
dt, Feder, H, Vmax, t : real ;
n , k , q, ueber : integer ;
Datei : text ;
BEGIN
CLRSCR;
H := 2.0 ; // 2 Meter
Feder := 400.0 ; // 400 N/Meter
Mass := 4.0 ; // 4 kg
Vmax := 6.264 ; // mit Taschenrechner
// m*g*h=0.5*m*v*v
V := 0.0 ;
dt := 0.01 ; // 0.01 Sekunden
k := 0 ; // Teiler f¸r Ausgabe
q := 0 ; // Testzahl f¸r Ende
ueber := 1 ; // ¸ber der Feder = 1
n := 0 ; // Anzahl der Durchl‰ufe
Assign(Datei,'E:/Fed_Mas.txt') ;
REWRITE(Datei);
// Verluste = 80%
// SQRT(0.8) = 0.8944
// 2*Pi*f = Wurzel(D/m)
// Dauer an Feder = 0,31415 s
// 31 Wurzel von 0.8944 = 0.9964
REPEAT
inc(n) ;
IF ( H > 0.0 ) AND ( ueber = 1 ) THEN BEGIN
// Gewicht in der Luft
V := V - 9.81 * dt ;
H := H + V * dt ;
ueber := 1 ;
q := 0 ;
END;
IF H <= 0.0 THEN BEGIN // auf der Feder
F := Mass * 9.81 + H * Feder ; // H ist negativ
V := V - (F/Mass)*dt ;
V := V * 0.9972 ; // kontinuierlicher V Verlust
H := H + V * dt;
ueber := 0 ;
inc(q);
END;
IF ( ueber = 0 ) AND ( H > 0.0 ) THEN BEGIN
// Feder wird nach oben verlassen
Vmax := Vmax * 0.8944 ; // = Wurzel 0.8
V := Vmax ;
ueber := 1 ;
WRITELN(n:6, ' Vmax = ', Vmax:8:2,' q= ',q);
END;
inc(k);
IF k >= 9 THEN BEGIN
k := 0 ;
t := n ;
t := t * dt ;
WRITELN(Datei,t:8:4,' ; ', H:8:4) ;
END;
UNTIL q > 100 ; // liegt nur noch auf der Feder
CLOSE(Datei);
READLN();
END.
Selbst Aufgabe kling so:
Ein Gewicht von m=1kg fällt zum Zeitpunkt t=0, mit einer Anfangsgeschwindigkeit=0. Nach einer Fallhöhe von 1m trifft es auf eine Feder von D=100N/m . Jedes Mal, wenn das Gewicht die Feder verlässt, hat es nur noch 80% der Energie, die es zuvor beim Berühren hatte. Zeichnen Sie die Höhe des Gewichtes als f(t) , bis sich das Gewicht nicht mehr von der Feder löst.
Wie gesagt Prof. will java , kein Pascal.( LEIDER)
