, UEBUNGSPROGRAMM "SCHWINGUNGEN"2N( 04.12.1986T2Z<yF AUTOR* DR.H.-J.LOEHRPZ:::::d8)"***********************"n8)"* *"x8)"* SCHWINGUNGEN *" 8)"* *":8)"***********************"@M 60::q:::"Bitte werte Eingeben!" :: "Ferderkonstante......(N/m)....k=";K K0 180: "Masse.................(kg)....m=";M M0 200 CKM:FU12Ǯ(C):::;" -Betrag der Rueckstellkraft F=";K;"N":e" -Eigenfrequenz des ungedaempften"" Systems fu=";(FU100.5)100;"Hz"::TU1FU:: "Reibungskonstante...(kg/s)...r=";B: ::"Erregerschwingung: Fa in N,fe in Hz":: + "Amplitude der auseren Kraft Fa=";FAW": "Frequenz der auseren Kraft fe=";FEb, 10:6RBM:DICRR4: DI0 360@OM(DI):TD2ǯOMJ DIC 360: FA0 FE0 410 T FA0 FE0 B0 350: 360#^:2)"Freie ungedaempfte Schwingung":TDTU::450Ah FA0 FE0 370: 410ir:2)"Freie gedaempfte Schwingung"| DI0 :"Schwingfall";:450 DI0 :"Kriechfall":TDTU:470:"Aperiodischer Grenzfall":TDTU:470 :"Erzwungene Schwingung"::"Erregerschwingung:"7 :"Frequenz fe=";FE;"Hz";t 3)"Amplitude Fa=";FA;"N":1030:*UP KOORDINATENSYSTEM*} 510 2)"f=";(1TD100.5)100;"Hz"; 4)"T=";(TD100.5)100;"s" 6,31,0,39::1030:***UP KOORDINATENSYSTEM*** ' ***BERECHNUNG DER MOMENTANWERTE***- D X1:D(TD.5)100b XXVD:***ELONGATION*** AFAM(2ǮFET)CXRV:***BESCHLEUNIGUNG*** VVAD:***GESCHWINDIGKEIT*** &TTD:***ZEIT*** 0E(68X)92:***ANPASSUNG ELONGATION AN ORDINATENACHSE***O :Z(T2TD232)48S232:***ANPASSUNG AN ABSZISSENACHSE***[ D Z,E,7 N T(S1)2TD 520:***DARSTELLUNG VON 2 PERIODEN*** XSS1:***NAECHSTES PERIODENPAAR*** b8,10,23,39 l "Grafik loeschen? Y/N";L$: L$"N" :5204 v7,31,0,39::1030:***UP KOORDINATENSYSTEM***>  520D i *******************************o   UP KOORDINATENSYSTEM   L48 290  L,92,7 L $(21,36);"t" ) S1 . Q24 170 8 48,Q,7 B Q L(10,5);"X" V7 `******************************= V UP "EINSCHWINGZEIT"i  8,10,23,39: "T=";(TFE)"*Te"  ***************************************= V UP "EINSCHWINGZEIT"i  8,10,23,39: "T=";(TFE)"*Te"