1000 SCREEN 1:CLS:KEY OFF :REM GRAFIKBILDSCHIRM 1010 CIRCLE( 0, 0),30,3,,,1 :REM STAB LINKS OBEN 1020 CIRCLE(200, 0),30,3,,,1 :REM STAB RECHTS OBEN 1030 CIRCLE( 0,200),30,3,,,1 :REM STAB LINKS UNTEN 1040 CIRCLE(200,200),30,3,,,1 :REM STAB RECHTS UNTEN 1050 PX=143 :REM STARTPOSITION X 1060 PY=157 :REM STARTPOSITION Y 1070 VX=.0037 :REM STARTGESCHWINDIGKEIT X 1080 VY=.0051 :REM STARTGESCHWINDIGKEIT Y 1090 U=ATN(1)/45 :REM UMRECHNUNGSFAKTOR GRAD ZU RAD 1100 FOR T=0 TO 5000 :REM ZEITSCHRITTE 1110 FOR W=0 TO 356 STEP 5 :REM PHASENWINKEL 1120 F=SIN(W*U)*.05 :REM FELDSTAERKE 1130 AX=0 :REM BESCHLEUNIGUNG X 1140 AY=0 :REM BESCHLEUNIGUNG Y 1150 SX=0 :REM STAB X LINKS 1160 SY=0 :REM STAB Y OBEN 1170 V= 1 :REM LADUNGSVORZEICHEN 1180 GOSUB 1390 :REM BESCHLEUNIGUNGSRECHNER 1190 SX=200 :REM STAB X RECHTS 1200 SY=200 :REM STAB Y UNTEN 1210 V= 1 :REM LADUNGSVORZEICHEN 1220 GOSUB 1390 :REM BESCHLEUNIGUNGSRECHNER 1230 SX=200 :REM STAB X RECHTS 1240 SY=0 :REM STAB Y OBEN 1250 V=-1 :REM LADUNGSVORZEICHEN 1260 GOSUB 1390 :REM BESCHLEUNIGUNGSRECHNER 1270 SX=0 :REM STAB X LINKS 1280 SY=200 :REM STAB Y UNTEN 1290 V=-1 :REM LADUNGSVORZEICHEN 1300 GOSUB 1390 :REM BESCHLEUNIGUNGSRECHNER 1310 VX=VX+AX :REM GESCHWINDIGKEIT X 1320 VY=VY+AY :REM GESCHWINDIGKEIT Y 1330 PX=PX+VX :REM POSITION X 1340 PY=PY+VY :REM POSITION Y 1350 PSET(PX,PY),3 :REM PUNKT ZEICHNEN 1360 NEXT W :REM NAECHSTER PHASENWINKEL 1370 NEXT T :REM NAECHSTER ZEITSCHRITT 1373 FOR T=0 TO 10000000 :REM WARTEZEIT 1376 NEXT T :REM NAECHSTER WARTEZEITSCHRITT 1380 SYSTEM :REM PROGRAMMENDE 1390 REM BESCHLEUNIGUNGSRECHNER 1400 DX=PX-SX :REM STABABSTAND X 1410 DY=PY-SY :REM STABABSTAND Y 1420 R=SQR(DX*DX+DY*DY) :REM DIAGONALABSTAND 1430 A=V*F/R :REM DIAGONALBESCHLEUNIGUNG 1440 AX=AX+A*DX/R :REM BESCHLEUNIGUNG X 1450 AY=AY+A*DY/R :REM BESCHLEUNIGUNG Y 1460 RETURN :REM UNTERPROGRAMMENDE