ZXTape!èUniverse ¼¼$è¾ÿû:õ"Model Universe" ïî"First body:"'" mass? ";m1'" velocity? ";v1'" angle? ";a1'" x coord? ";x1'" y coord? ";y1'"Second body:"'" mass? ";m2'" velocity? ";v2'" angle? ";a2'" x coord? ";x2'" y coord? ";y2'"Gravitational constant? ";g #û (Òõ­23;"M1=";m1'­23;"v1=";v1'­23;"A1=";a1'­23;"x1=";x1'­23;"y1=";y1''­23;"M2=";m2'­23;"v2=";v2'­23;"A2=";a2'­23;"x2=";x2'­23;"y2=";y2''­24;"G=";g 2Tñdt=0.1}LÌÌÌ:ña1=a1*§/180´:ña2=a2*§/180´:ñx1=x1+10 :ñx2=x2+10 <Øx1,y1,2:Øx2,y2,2 Fñv1x=v1*³a1:ñv2x=v2*³a2 Pñv1y=v1*²a1:ñv2y=v2*²a2 n.ñfg=g*m1*m2/((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)) x!úx2=x1Ëñphi=§/2:ì140Œ ‚ñphi=·½((y2-y1)/(x2-x1)) Œ ñf1x=fg*³phi*¼(x2-x1):ñf2x=-f1x – ñf1y=fg*²phi*¼(y2-y1):ñf2y=-f1y  ña1x=f1x/m1:ña2x=f2x/m2 ª<ñs1x=v1x*dt+a1x*dt*dt/2:ñs2x=v2x*dt+a2x*dt*dt/2 ´ ñv1x=v1x+a1x*dt:ñv2x=v2x+a2x*dt ¾ña1y=f1y/m1:ña2y=f2y/m2 È<ñs1y=v1y*dt+a1y*dt*dt/2:ñs2y=v2y*dt+a2y*dt*dt/2 Ò ñv1y=v1y+a1y*dt:ñv2y=v2y+a2y*dt 6 öx1,y1:üs1x,s1y:öx2,y2:üs2x,s2y @ñx1=x1+s1x:ñx2=x2+s2x Jñy1=y1+s1y:ñy2=y2+s2y T ì100d É