Numerit[WIN32][1700][1703](@ qffffff)@j@fffffvq@?@ffffff9@?@ffffff9@ffffff)@ffffff)@         Times New RomanArialSymbol Courier New G S㥛a@S㥛P@y1x1y2x2>@>@>@>@>@>@ >@ >@ >@>@>@>@>@>@ >@ >@ >==>>??HeightDistance090200.010.010350500.010.01X @@0tX ffffff)@@0v2X ffffff)@@0phi2X ffffff)@@0v1X ffffff)@@0phi1X ffffff)@@0x1X ffffff)@@0x2ׇׇׇpׇׇׇpׇׇׇpׇׇׇpׇׇׇpׇׇׇp'ׇׇׇ{Bq=BB s!Velocity t!Angle !Distance9ׇׇׇABBpYellow Ball: 7 R & w O!' !( (ׇׇׇABB Blue Ball: G # w O!% !) ׇׇׇ  ׇׇׇ Time = ! ׇׇׇ ׇׇׇ  ׇׇׇ  q8ffffff)@j@fffffvq@?@ffffff9@?@ffffff9@ffffff)@ffffff)@         Times New RomanArialSymbol Courier New 5=` This sample program demonstrates a simulation of two bodies>` thrown in the air at a certain velocity and launching angle.1` The bodies fall down in a ballistic trajectory.&` -> Run and see results in the Report8` (each run generates new velocity and launching angle). randomize:v1 = round(45+rand(10)) ` initial velocity of first body;v2 = round(42+rand(10)) ` initial velocity of second body9phi1 = round(25+rand(10)) ` launching angle of first body:phi2 = round(40+rand(10)) ` launching angle of second body6x01 = 10 ` initial horizontal position of first body7x02 = 10 ` initial horizontal position of second body)y01 = .001 ` initial height of first body*y02 = .001 ` initial height of second body0a1 = -10 ` vertical acceleration of first body1a2 = -10 ` vertical acceleration of second body` velocity componentsv1x = v1*cos(phi1*pi/180)v1y = v1*sin(phi1*pi/180)v2x = v2*cos(phi2*pi/180)v2y = v2*sin(phi2*pi/180)y1 = y01y2 = y02` startt = 0while y1 > 0 or y2 > 0t2 = 0.5*t^2 if y1 > 0x1 = x01+v1x*ty1 = y01+v1y*t+a1*t2if y1 < 0 ` groundy1 = 0+x1 = x01-v1x/a1*(v1y+sqrt(v1y^2-2*a1*y01)) if y2 > 0x2 = x02+v2x*ty2 = y02+v2y*t+a2*t2if y2 < 0 ` groundy2 = 0+x2 = x02-v2x/a2*(v2y+sqrt(v2y^2-2*a2*y02))refresh ` update viewerswait .02 ` delayt += .1d:\num\num1.5\run\ v1 v2 phi1 phi2 x01x02y01y02a1a2v1xv1yv2xv2yy1 y2 t t2x1 x2   @  @  @  @     G G  B CB  B CB   B CB   B CB      X  Xb7   EB!  X7"  B@#  B@  B@$  Y7% &  C E B BA@BA)  X7*  B@+  B@ B@,  Y7- .  C E B BA@BA12 3 N6d 45F@10$@42E@259@40D@.001MbP?180f@00.5?2@.02{Gz?.1?