Sharp PC-E500/E500S Technikersoftware

MOTION.213

Bewegungsgleichungen

MOTION.213 (1.038 Bytes)

10 ' MOTION.213 (Motion)
15 CLEAR
20 MERGE "G:DISP500.00$":MERGE "G:COMN.00$"
30 '
40 QMS$="        *  EQUATION OF MOTION  *"
100 DATA v=v,&D1,"+at, a=",&84,v/,&84,"t, s=v",&D1,t+1/2,&EA,at,&C3,@
110 DATA F=ma,@
120 DATA T=2,&B0,r/v=2,&B0,/,&B8,=1/f,@
130 DATA &B8,=2,&B0,/T=2,&B0,f=v/r,", F=mr",&B8,&C3,=mv,&C3,/r,@
140 DATA x=r,&EA,sin,&B8,"t, v=r",&B8,&EA,cos,&B8,"t, a=-",&B8,&C3,x,@
150 DATA F=-kx,@
160 DATA "a=F/m=-(k/m)x, T=2",&B0,&EB,(m/k),@
170 DATA "a=F/m=-(g/l)x, T=2",&B0,&EB,(l/g),@
180 DATA F=,&AC,N,@
190 DATA W=F,&EA,s,@
200 DATA T,&C3,/r,&C4,=Constant,@
210 DATA F=G,&EA,Mm/r,&C3,"                                    G=6.67259*10",&CB,&C2,&C2,[N,&EA,m,&C3,&EA,kg,&CB,&C3,],@
220 DATA I=mr,&C3,", E=1/2",&EA,I,&B8,&C3,@
230 DATA J=I,&B8,@
240 DATA mv,&D2,+MV,&D2,=mv,&D3,+MV,&D3,@
250 DATA Ep=mgh,@
260 DATA Up=-G,&EA,Mm/r,@
270 DATA Ek=1/2,&EA,mv,&C3,@
280 DATA Ek=1/2,&EA,mr,&C3,&B8,&C3,@
290 DATA Ee=1/2,&EA,kx,&C3,@
300 DATA E=mc,&C3,@
310 QMA=300:QMI=100:QMD=200:R6=QMI
320 GOSUB 10000

Generated by (c) Casio FX-850P/FX-880P Notepad 2.02

(c) by mani.becker@web.de - http://blog.manib.bplaced.net