(*^ ::[ Information = "This is a Mathematica Notebook file. It contains ASCII text, and can be transferred by email, ftp, or other text-file transfer utility. It should be read or edited using a copy of Mathematica or MathReader. If you received this as email, use your mail application or copy/paste to save everything from the line containing (*^ down to the line containing ^*) into a plain text file. On some systems you may have to give the file a name ending with ".ma" to allow Mathematica to recognize it as a Notebook. The line below identifies what version of Mathematica created this file, but it can be opened using any other version as well."; FrontEndVersion = "Macintosh Mathematica Notebook Front End Version 2.2"; MacintoshStandardFontEncoding; fontset = title, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L3, e8, 24, "Calculus"; fontset = subtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L2, e6, 18, "Calculus"; fontset = subsubtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L2, e6, 14, "Calculus"; fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, L2, a20, 14, "Calculus"; fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, L2, a15, 12, "Calculus"; fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, L2, a12, 12, "Calculus"; fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L2, 12, "Calculus"; fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, B65535, L2, 12, "Calculus"; fontset = input, noPageBreakInGroup, preserveAspect, groupLikeInput, M42, N23, bold, L2, 12, "Courier"; fontset = output, output, inactive, noPageBreakInGroup, preserveAspect, groupLikeOutput, M42, N23, L2, 12, "Courier"; fontset = message, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, R65535, L2, 12, "Courier"; fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L2, 12, "Courier"; fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L2, 12, "Courier"; fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w282, h287, L2, 12, "Courier"; fontset = name, inactive, nowordwrap, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, B65535, L2, 10, "Geneva"; fontset = header, inactive, noKeepOnOnePage, preserveAspect, M7, L2, 10, "Times"; fontset = leftheader, inactive, L2, 10, "Times"; fontset = footer, inactive, noKeepOnOnePage, preserveAspect, center, M7, L2, 12, "Times"; fontset = leftfooter, inactive, center, L2, 12, "Times"; fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L2, 10, "Geneva"; fontset = clipboard, inactive, noKeepOnOnePage, preserveAspect, M7, L2, 12, "New York"; fontset = completions, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, M7, L2, 12, "New York"; fontset = special1, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, M7, L2, 12, "New York"; fontset = special2, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, center, M7, L2, 12, "New York"; fontset = special3, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, right, M7, L2, 12, "New York"; fontset = special4, inactive, noKeepOnOnePage, preserveAspect, M7, bold, superscript, R21845, G21845, B21845, L2, 12, "C&M"; fontset = special5, inactive, noKeepOnOnePage, preserveAspect, M7, bold, superscript, R19708, G31200, B40959, L2, 12, "C&M"; paletteColors = 128; currentKernel; ] :[font = section; inactive; dontPreserveAspect] Name: Jim Hays :[font = section; inactive; dontPreserveAspect] Title: Trajectories - They're not what you think! ;[s] 2:0,0;40,1;68,-1; 2:1,31,22,Calculus,1,14,0,0,0;1,31,22,Calculus,3,14,0,0,0; :[font = section; inactive; noPageBreak; dontPreserveAspect] Description: This lesson is intended for a high school physics class demonstration/lab after the students have been exposed to projectile motion in the usual treatment. :[font = title; inactive; Cclosed; pageBreak; dontPreserveAspect; startGroup] Trajectories They are not what you think! ;[s] 2:0,0;13,1;42,-1; 2:1,47,32,Calculus,1,24,0,0,65535;1,32,22,Calculus,3,14,65535,0,0; :[font = text; inactive; dontPreserveAspect] Looking at the trajectile from the usual standpoint, we would ignore any air resistance, wind, etc. and consider that the trajectile travels along a parabolic path. Consider the situation below. The initial velocity of the object is 50 m/s. The acceleration due to gravity is -9.8 m/sŪ. The inital angle is 45 degrees. Enable the cells below to view the path of the object. :[font = input; locked; dontPreserveAspect; startGroup] Clear[fx,fy,st,x,y,v0,vx,vy,th,th2,fr,t,gr] st = 0.1 gr = -9.8 th = 45 Degree v0 = 50; :[font = output; output; inactive; preserveAspect] 0.1 ;[o] 0.1 :[font = output; output; inactive; preserveAspect] -9.800000000000000001 ;[o] -9.8 :[font = output; output; inactive; preserveAspect; endGroup] 45*Degree ;[o] 45 Degree :[font = input; locked; dontPreserveAspect; startGroup] vx = N[v0 Cos[th]] vy = N[v0 Sin[th]] fx[t_] = N[(vx ) t] fy[t_] = N[(vy )t + 1/2 gr t^2] tfinal = FindRoot[fy[t],{t,100}][[1,2]] Stuff = Table[{fx[t],fy[t]},{t,0,tfinal,st}] ListPlot[Stuff,AspectRatio -> Automatic,PlotStyle -> RGBColor[1,0,0]]; :[font = output; output; inactive; preserveAspect] 35.35533905932737622 ;[o] 35.3553 :[font = output; output; inactive; preserveAspect] 35.35533905932737622 ;[o] 35.3553 :[font = output; output; inactive; preserveAspect] 35.35533905932737622*t ;[o] 35.3553 t :[font = output; output; inactive; preserveAspect] 35.35533905932737622*t - 4.9*t^2 ;[o] 2 35.3553 t - 4.9 t :[font = output; output; inactive; preserveAspect] 7.21537531823007678 ;[o] 7.21538 :[font = output; output; inactive; preserveAspect] {{0, 0}, {3.535533905932737622, 3.486533905932737622}, {7.071067811865475244, 6.875067811865475244}, {10.60660171779821287, 10.16560171779821287}, {14.14213562373095049, 13.35813562373095049}, {17.67766952966368811, 16.45266952966368811}, {21.21320343559642573, 19.44920343559642573}, {24.74873734152916335, 22.34773734152916336}, {28.28427124746190098, 25.14827124746190098}, {31.8198051533946386, 27.8508051533946386}, {35.35533905932737622, 30.45533905932737622}, {38.89087296526011385, 32.96187296526011385}, {42.42640687119285147, 35.37040687119285147}, {45.96194077712558909, 37.68094077712558909}, {49.49747468305832671, 39.89347468305832672}, {53.03300858899106434, 42.00800858899106434}, {56.56854249492380196, 44.02454249492380196}, {60.10407640085653958, 45.94307640085653958}, {63.6396103067892772, 47.76361030678927721}, {67.17514421272201482, 49.48614421272201482}, {70.71067811865475244, 51.11067811865475245}, {74.24621202458749006, 52.63721202458749007}, {77.78174593052022768, 54.06574593052022769}, {81.3172798364529653, 55.39627983645296531}, {84.85281374238570292, 56.62881374238570293}, {88.38834764831844054, 57.76334764831844055}, {91.92388155425117816, 58.79988155425117818}, {95.45941546018391578, 59.7384154601839158}, {98.9949493661166534, 60.57894936611665342}, {102.530483272049391, 61.32148327204939104}, {106.0660171779821286, 61.96601717798212866}, {109.6015510839148663, 62.51255108391486628}, {113.1370849898476039, 62.9610849898476039}, {116.6726188957803415, 63.31161889578034153}, {120.2081528017130791, 63.56415280171307915}, {123.7436867076458167, 63.71868670764581677}, {127.2792206135785543, 63.7752206135785544}, {130.814754519511292, 63.73375451951129202}, {134.3502884254440296, 63.59428842544402964}, {137.8858223313767672, 63.35682233137676727}, {141.4213562373095048, 63.02135623730950489}, {144.9568901432422424, 62.58789014324224251}, {148.4924240491749801, 62.05642404917498014}, {152.0279579551077177, 61.42695795510771777}, {155.5634918610404553, 60.69949186104045539}, {159.0990257669731929, 59.87402576697319302}, {162.6345596729059306, 58.95055967290593064}, {166.1700935788386682, 57.92909357883866826}, {169.7056274847714058, 56.8096274847714059}, {173.2411613907041434, 55.59216139070414351}, {176.776695296636881, 54.27669529663688112}, {180.3122292025696187, 52.86322920256961876}, {183.8477631085023563, 51.35176310850235638}, {187.3832970144350939, 49.74229701443509402}, {190.9188309203678315, 48.03483092036783164}, {194.4543648263005691, 46.22936482630056926}, {197.9898987322333067, 44.3258987322333069}, {201.5254326381660444, 42.32443263816604452}, {205.060966544098782, 40.22496654409878215}, {208.5965004500315196, 38.02750045003151977}, {212.1320343559642572, 35.73203435596425739}, {215.6675682618969948, 33.33856826189699504}, {219.2031021678297324, 30.84710216782973265}, {222.73863607376247, 28.25763607376247029}, {226.2741699796952077, 25.57016997969520791}, {229.8097038856279453, 22.78470388562794553}, {233.3452377915606829, 19.90123779156068318}, {236.8807716974934205, 16.9197716974934208}, {240.4163056034261581, 13.84030560342615841}, {243.9518395093588958, 10.66283950935889605}, {247.4873734152916334, 7.387373415291633688}, {251.022907321224371, 4.0139073212243713}, {254.5584412271571086, 0.542441227157108935}} ;[o] {{0, 0}, {3.53553, 3.48653}, {7.07107, 6.87507}, {10.6066, 10.1656}, {14.1421, 13.3581}, {17.6777, 16.4527}, {21.2132, 19.4492}, {24.7487, 22.3477}, {28.2843, 25.1483}, {31.8198, 27.8508}, {35.3553, 30.4553}, {38.8909, 32.9619}, {42.4264, 35.3704}, {45.9619, 37.6809}, {49.4975, 39.8935}, {53.033, 42.008}, {56.5685, 44.0245}, {60.1041, 45.9431}, {63.6396, 47.7636}, {67.1751, 49.4861}, {70.7107, 51.1107}, {74.2462, 52.6372}, {77.7817, 54.0657}, {81.3173, 55.3963}, {84.8528, 56.6288}, {88.3883, 57.7633}, {91.9239, 58.7999}, {95.4594, 59.7384}, {98.9949, 60.5789}, {102.53, 61.3215}, {106.066, 61.966}, {109.602, 62.5126}, {113.137, 62.9611}, {116.673, 63.3116}, {120.208, 63.5642}, {123.744, 63.7187}, {127.279, 63.7752}, {130.815, 63.7338}, {134.35, 63.5943}, {137.886, 63.3568}, {141.421, 63.0214}, {144.957, 62.5879}, {148.492, 62.0564}, {152.028, 61.427}, {155.563, 60.6995}, {159.099, 59.874}, {162.635, 58.9506}, {166.17, 57.9291}, {169.706, 56.8096}, {173.241, 55.5922}, {176.777, 54.2767}, {180.312, 52.8632}, {183.848, 51.3518}, {187.383, 49.7423}, {190.919, 48.0348}, {194.454, 46.2294}, {197.99, 44.3259}, {201.525, 42.3244}, {205.061, 40.225}, {208.597, 38.0275}, {212.132, 35.732}, {215.668, 33.3386}, {219.203, 30.8471}, {222.739, 28.2576}, {226.274, 25.5702}, {229.81, 22.7847}, {233.345, 19.9012}, {236.881, 16.9198}, {240.416, 13.8403}, {243.952, 10.6628}, {247.487, 7.38737}, {251.023, 4.01391}, {254.558, 0.542441}} :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 0; pictureWidth = 371; pictureHeight = 93; endGroup] %! %%Creator: Mathematica %%AspectRatio: .25053 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.00374131 0.00596506 0.00374131 [ [(50)] .21087 .00597 0 2 Msboxa [(100)] .39794 .00597 0 2 Msboxa [(150)] .58501 .00597 0 2 Msboxa [(200)] .77207 .00597 0 2 Msboxa [(250)] .95914 .00597 0 2 Msboxa [(10)] .01131 .04338 1 0 Msboxa [(20)] .01131 .08079 1 0 Msboxa [(30)] .01131 .1182 1 0 Msboxa [(40)] .01131 .15562 1 0 Msboxa [(50)] .01131 .19303 1 0 Msboxa [(60)] .01131 .23044 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .25153 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p .002 w .21087 .00597 m .21087 .01222 L s P [(50)] .21087 .00597 0 2 Mshowa p .002 w .39794 .00597 m .39794 .01222 L s P [(100)] .39794 .00597 0 2 Mshowa p .002 w .58501 .00597 m .58501 .01222 L s P [(150)] .58501 .00597 0 2 Mshowa p .002 w .77207 .00597 m .77207 .01222 L s P [(200)] .77207 .00597 0 2 Mshowa p .002 w .95914 .00597 m .95914 .01222 L s P [(250)] .95914 .00597 0 2 Mshowa p .001 w .06122 .00597 m .06122 .00972 L s P p .001 w .09864 .00597 m .09864 .00972 L s P p .001 w .13605 .00597 m .13605 .00972 L s P p .001 w .17346 .00597 m .17346 .00972 L s P p .001 w .24829 .00597 m .24829 .00972 L s P p .001 w .2857 .00597 m .2857 .00972 L s P p .001 w .32311 .00597 m .32311 .00972 L s P p .001 w .36053 .00597 m .36053 .00972 L s P p .001 w .43535 .00597 m .43535 .00972 L s P p .001 w .47277 .00597 m .47277 .00972 L s P p .001 w .51018 .00597 m .51018 .00972 L s P p .001 w .54759 .00597 m .54759 .00972 L s P p .001 w .62242 .00597 m .62242 .00972 L s P p .001 w .65983 .00597 m .65983 .00972 L s P p .001 w .69724 .00597 m .69724 .00972 L s P p .001 w .73466 .00597 m .73466 .00972 L s P p .001 w .80948 .00597 m .80948 .00972 L s P p .001 w .8469 .00597 m .8469 .00972 L s P p .001 w .88431 .00597 m .88431 .00972 L s P p .001 w .92172 .00597 m .92172 .00972 L s P p .001 w .99655 .00597 m .99655 .00972 L s P p .002 w 0 .00597 m 1 .00597 L s P p .002 w .02381 .04338 m .03006 .04338 L s P [(10)] .01131 .04338 1 0 Mshowa p .002 w .02381 .08079 m .03006 .08079 L s P [(20)] .01131 .08079 1 0 Mshowa p .002 w .02381 .1182 m .03006 .1182 L s P [(30)] .01131 .1182 1 0 Mshowa p .002 w .02381 .15562 m .03006 .15562 L s P [(40)] .01131 .15562 1 0 Mshowa p .002 w .02381 .19303 m .03006 .19303 L s P [(50)] .01131 .19303 1 0 Mshowa p .002 w .02381 .23044 m .03006 .23044 L s P [(60)] .01131 .23044 1 0 Mshowa p .001 w .02381 .01345 m .02756 .01345 L s P p .001 w .02381 .02093 m .02756 .02093 L s P p .001 w .02381 .02841 m .02756 .02841 L s P p .001 w .02381 .0359 m .02756 .0359 L s P p .001 w .02381 .05086 m .02756 .05086 L s P p .001 w .02381 .05834 m .02756 .05834 L s P p .001 w .02381 .06583 m .02756 .06583 L s P p .001 w .02381 .07331 m .02756 .07331 L s P p .001 w .02381 .08827 m .02756 .08827 L s P p .001 w .02381 .09576 m .02756 .09576 L s P p .001 w .02381 .10324 m .02756 .10324 L s P p .001 w .02381 .11072 m .02756 .11072 L s P p .001 w .02381 .12569 m .02756 .12569 L s P p .001 w .02381 .13317 m .02756 .13317 L s P p .001 w .02381 .14065 m .02756 .14065 L s P p .001 w .02381 .14813 m .02756 .14813 L s P p .001 w .02381 .1631 m .02756 .1631 L s P p .001 w .02381 .17058 m .02756 .17058 L s P p .001 w .02381 .17807 m .02756 .17807 L s P p .001 w .02381 .18555 m .02756 .18555 L s P p .001 w .02381 .20051 m .02756 .20051 L s P p .001 w .02381 .208 m .02756 .208 L s P p .001 w .02381 .21548 m .02756 .21548 L s P p .001 w .02381 .22296 m .02756 .22296 L s P p .001 w .02381 .23793 m .02756 .23793 L s P p .001 w .02381 .24541 m .02756 .24541 L s P p .002 w .02381 0 m .02381 .25053 L s P P 0 0 m 1 0 L 1 .25053 L 0 .25053 L closepath clip newpath p 1 0 0 r p .008 w .02381 .00597 Mdot .03704 .01901 Mdot .05026 .03169 Mdot .06349 .044 Mdot .07672 .05594 Mdot .08995 .06752 Mdot .10317 .07873 Mdot .1164 .08957 Mdot .12963 .10005 Mdot .14286 .11016 Mdot .15608 .11991 Mdot .16931 .12929 Mdot .18254 .1383 Mdot .19577 .14694 Mdot .20899 .15522 Mdot .22222 .16313 Mdot .23545 .17067 Mdot .24868 .17785 Mdot .2619 .18466 Mdot .27513 .19111 Mdot .28836 .19719 Mdot .30159 .2029 Mdot .31481 .20824 Mdot .32804 .21322 Mdot .34127 .21783 Mdot .3545 .22208 Mdot .36772 .22595 Mdot .38095 .22946 Mdot .39418 .23261 Mdot .40741 .23539 Mdot .42063 .2378 Mdot .43386 .23984 Mdot .44709 .24152 Mdot .46032 .24283 Mdot .47354 .24378 Mdot .48677 .24436 Mdot .5 .24457 Mdot .51323 .24441 Mdot .52646 .24389 Mdot .53968 .243 Mdot .55291 .24175 Mdot .56614 .24013 Mdot .57937 .23814 Mdot .59259 .23578 Mdot .60582 .23306 Mdot .61905 .22997 Mdot .63228 .22652 Mdot .6455 .2227 Mdot .65873 .21851 Mdot .67196 .21395 Mdot .68519 .20903 Mdot .69841 .20374 Mdot .71164 .19809 Mdot .72487 .19207 Mdot .7381 .18568 Mdot .75132 .17892 Mdot .76455 .1718 Mdot .77778 .16431 Mdot .79101 .15646 Mdot .80423 .14824 Mdot .81746 .13965 Mdot .83069 .13069 Mdot .84392 .12137 Mdot .85714 .11169 Mdot .87037 .10163 Mdot .8836 .09121 Mdot .89683 .08042 Mdot .91005 .06927 Mdot .92328 .05775 Mdot .93651 .04586 Mdot .94974 .0336 Mdot .96296 .02098 Mdot .97619 .00799 Mdot P P % End of Graphics MathPictureEnd :[font = text; inactive; dontPreserveAspect; startGroup] How far down range did the object travel? :[font = text; inactive; dontPreserveAspect; endGroup] A little over 250m. :[font = text; inactive; dontPreserveAspect; startGroup] What was the maximum height of the object? :[font = text; inactive; dontPreserveAspect; endGroup] About 60m. :[font = text; inactive; dontPreserveAspect] This is the treatment that most high school (and early college) textbooks take. They ignore any air resistance and/or friction, etc. that might have an affect on the path of the object. However, if we think about the situation a little bit, we know that air resistance, friction, etc. will have an affect on the path. Let's look at this same situation again. This time, let's consider that the air resistance, etc. has the affect of slowing the object down by a factor of 0.01 each time period. (Constant decelleration....) This decelleration will not only affect the vertical component of the velocity vectors, but the horizontal components as well. :[font = text; inactive; dontPreserveAspect] Let's look at the path of a trajectile that has been launched with an initial velocity of v0, an angle of th, constant decelleration of fr, and acceleration due to gravity of gr. Enable the cell below now, please. ;[s] 9:0,0;90,1;92,0;106,1;108,0;136,1;138,0;175,1;177,0;215,-1; 2:5,27,19,Calculus,0,12,0,0,0;4,27,19,Calculus,0,12,65535,0,0; :[font = input; locked; dontPreserveAspect; startGroup] Clear[fx,fy,st,x,y,v0,vx,vy,th,th2,fr,t,gr] st = 0.1 gr = -9.8 th = 45 Degree v0 = 50 fr = 0.01; :[font = output; output; inactive; preserveAspect] 0.1 ;[o] 0.1 :[font = output; output; inactive; preserveAspect] -9.800000000000000001 ;[o] -9.8 :[font = output; output; inactive; preserveAspect] 45*Degree ;[o] 45 Degree :[font = output; output; inactive; preserveAspect; endGroup] 50 ;[o] 50 :[font = text; inactive; dontPreserveAspect] Now enable the cell below. This is the path that a trajectile that has an intial velocity of 50, and angle of 45 degrees, a coefficient of friction of 0.1, and an acceleration due to gravity of -9.8 would take. ;[s] 9:0,0;94,1;96,0;111,1;113,0;152,1;155,0;195,1;199,0;212,-1; 2:5,27,19,Calculus,0,12,0,0,0;4,27,19,Calculus,0,12,65535,0,0; :[font = input; dontPreserveAspect; startGroup] vx = N[v0 Cos[th]] vy = N[v0 Sin[th]] fx[t_] = N[(vx (1 - fr) ^ t) t] fy[t_] = N[(vy (1 - fr) ^ t) t + 1/2 gr t^2] tfinal = FindRoot[fy[t],{t,100}][[1,2]] Stuff = Table[{fx[t],fy[t]},{t,0,tfinal,st}] ListPlot[Stuff,AspectRatio -> Automatic,PlotStyle -> RGBColor[1,0,0]]; :[font = output; output; inactive; preserveAspect] 35.35533905932737622 ;[o] 35.3553 :[font = output; output; inactive; preserveAspect] 35.35533905932737622 ;[o] 35.3553 :[font = output; output; inactive; preserveAspect] 35.35533905932737622*0.99^t*t ;[o] t 35.3553 0.99 t :[font = output; output; inactive; preserveAspect] 35.35533905932737622*0.99^t*t - 4.9*t^2 ;[o] t 2 35.3553 0.99 t - 4.9 t :[font = output; output; inactive; preserveAspect] 6.742620259362732524 ;[o] 6.74262 :[font = output; output; inactive; preserveAspect] {{0, 0}, {3.531982360625237112, 3.482982360625237113}, {7.056868765893913276, 6.860868765893913276}, {10.57466990794233068, 10.13366990794233068}, {14.08539646458604768, 13.30139646458604769}, {17.58905909933786083, 16.36405909933786083}, {21.08566846142576515, 19.32166846142576515}, {24.57523518581089284, 22.17423518581089285}, {28.05776989320543033, 24.92176989320543033}, {31.53328319009051366, 27.56428319009051367}, {35.00178566873410246, 30.10178566873410246}, {38.46328790720883216, 32.53428790720883216}, {41.91780046940984486, 34.86180046940984486}, {45.36533390507259861, 37.08433390507259862}, {48.80589874979065523, 39.20189874979065523}, {52.23950552503344667, 41.21450552503344667}, {55.66616473816402, 43.12216473816402001}, {59.08588688245676095, 44.92488688245676095}, {62.49868243711509606, 46.62268243711509606}, {65.90456186728917357, 48.21556186728917356}, {69.30353562409352287, 49.70353562409352287}, {72.69561414462469278, 51.08661414462469279}, {76.08080785197886842, 52.36480785197886842}, {79.45912715526946694, 53.53812715526946695}, {82.83058244964471201, 54.60658244964471201}, {86.195184116305187, 55.570184116305187}, {89.55294252252136716, 56.42894252252136717}, {92.90386802165113057, 57.18286802165113058}, {96.2479709531572479, 57.83197095315724792}, {99.58526164262485119, 58.37626164262485121}, {102.9157504017788814, 58.81575040177888146}, {106.2394475285015153, 59.1504475285015153}, {109.5563633068495705, 59.38036330684957053}, {112.8665080070718906, 59.50550800707189066}, {116.1698918856267086, 59.5258918856267086}, {119.4665251851989891, 59.44152518519898918}, {122.756418134717751, 59.25241813471775101}, {126.0395809493733671, 58.95858094937336717}, {129.3160238306348452, 58.56002383063484526}, {132.5857569662670863, 58.05675696626708639}, {135.8487905303481235, 57.44879053034812355}, {139.1051346832863389, 56.73613468328633893}, {142.3547995718376606, 55.91879957183766072}, {145.5977953291227389, 54.99679532912273899}, {148.8341320746441007, 53.97013207464410079}, {152.0638199143032847, 52.83881991430328483}, {155.286868940417955, 51.60286894041795505}, {158.5032892317389938, 50.26228923173899393}, {161.7130908534675748, 48.81709085346757493}, {164.9162838572722143, 47.26728385727221441}, {168.1128782813058028, 45.61287828130580291}, {171.3028841502226158, 43.85388415022261594}, {174.486311475195304, 41.99031147519530417}, {177.663170253931863, 40.02217025393186316}, {180.8334704706925824, 37.9494704706925825}, {183.9972220963069745, 35.77222209630697466}, {187.1544350881906831, 33.49043508819068324}, {190.3051193903623707, 31.10411939036237083}, {193.4492849334605864, 28.61328493346058656}, {196.586941634760613, 26.01794163476061317}, {199.7180993981912937, 23.31809939819129389}, {202.8427681143518386, 20.5137681143518388}, {205.9609576605286108, 17.60495766052861101}, {209.0726779007118924, 14.59167790071189261}, {212.1779386856126299, 11.47393868561263018}, {215.2767498526791602, 8.251749852679160419}, {218.3691212261139148, 4.925121226113915118}, {221.4550626168901061, 1.494062616890106318}} ;[o] {{0, 0}, {3.53198, 3.48298}, {7.05687, 6.86087}, {10.5747, 10.1337}, {14.0854, 13.3014}, {17.5891, 16.3641}, {21.0857, 19.3217}, {24.5752, 22.1742}, {28.0578, 24.9218}, {31.5333, 27.5643}, {35.0018, 30.1018}, {38.4633, 32.5343}, {41.9178, 34.8618}, {45.3653, 37.0843}, {48.8059, 39.2019}, {52.2395, 41.2145}, {55.6662, 43.1222}, {59.0859, 44.9249}, {62.4987, 46.6227}, {65.9046, 48.2156}, {69.3035, 49.7035}, {72.6956, 51.0866}, {76.0808, 52.3648}, {79.4591, 53.5381}, {82.8306, 54.6066}, {86.1952, 55.5702}, {89.5529, 56.4289}, {92.9039, 57.1829}, {96.248, 57.832}, {99.5853, 58.3763}, {102.916, 58.8158}, {106.239, 59.1504}, {109.556, 59.3804}, {112.867, 59.5055}, {116.17, 59.5259}, {119.467, 59.4415}, {122.756, 59.2524}, {126.04, 58.9586}, {129.316, 58.56}, {132.586, 58.0568}, {135.849, 57.4488}, {139.105, 56.7361}, {142.355, 55.9188}, {145.598, 54.9968}, {148.834, 53.9701}, {152.064, 52.8388}, {155.287, 51.6029}, {158.503, 50.2623}, {161.713, 48.8171}, {164.916, 47.2673}, {168.113, 45.6129}, {171.303, 43.8539}, {174.486, 41.9903}, {177.663, 40.0222}, {180.833, 37.9495}, {183.997, 35.7722}, {187.154, 33.4904}, {190.305, 31.1041}, {193.449, 28.6133}, {196.587, 26.0179}, {199.718, 23.3181}, {202.843, 20.5138}, {205.961, 17.605}, {209.073, 14.5917}, {212.178, 11.4739}, {215.277, 8.25175}, {218.369, 4.92512}, {221.455, 1.49406}} :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 0; pictureWidth = 371; pictureHeight = 100; endGroup] %! %%Creator: Mathematica %%AspectRatio: .26879 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.00430056 0.00639987 0.00430056 [ [(50)] .23884 .0064 0 2 Msboxa [(100)] .45387 .0064 0 2 Msboxa [(150)] .66889 .0064 0 2 Msboxa [(200)] .88392 .0064 0 2 Msboxa [(10)] .01131 .04941 1 0 Msboxa [(20)] .01131 .09241 1 0 Msboxa [(30)] .01131 .13542 1 0 Msboxa [(40)] .01131 .17842 1 0 Msboxa [(50)] .01131 .22143 1 0 Msboxa [(60)] .01131 .26443 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .26979 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p .002 w .23884 .0064 m .23884 .01265 L s P [(50)] .23884 .0064 0 2 Mshowa p .002 w .45387 .0064 m .45387 .01265 L s P [(100)] .45387 .0064 0 2 Mshowa p .002 w .66889 .0064 m .66889 .01265 L s P [(150)] .66889 .0064 0 2 Mshowa p .002 w .88392 .0064 m .88392 .01265 L s P [(200)] .88392 .0064 0 2 Mshowa p .001 w .06682 .0064 m .06682 .01015 L s P p .001 w .10982 .0064 m .10982 .01015 L s P p .001 w .15283 .0064 m .15283 .01015 L s P p .001 w .19583 .0064 m .19583 .01015 L s P p .001 w .28184 .0064 m .28184 .01015 L s P p .001 w .32485 .0064 m .32485 .01015 L s P p .001 w .36785 .0064 m .36785 .01015 L s P p .001 w .41086 .0064 m .41086 .01015 L s P p .001 w .49687 .0064 m .49687 .01015 L s P p .001 w .53988 .0064 m .53988 .01015 L s P p .001 w .58288 .0064 m .58288 .01015 L s P p .001 w .62589 .0064 m .62589 .01015 L s P p .001 w .7119 .0064 m .7119 .01015 L s P p .001 w .7549 .0064 m .7549 .01015 L s P p .001 w .79791 .0064 m .79791 .01015 L s P p .001 w .84092 .0064 m .84092 .01015 L s P p .001 w .92693 .0064 m .92693 .01015 L s P p .001 w .96993 .0064 m .96993 .01015 L s P p .002 w 0 .0064 m 1 .0064 L s P p .002 w .02381 .04941 m .03006 .04941 L s P [(10)] .01131 .04941 1 0 Mshowa p .002 w .02381 .09241 m .03006 .09241 L s P [(20)] .01131 .09241 1 0 Mshowa p .002 w .02381 .13542 m .03006 .13542 L s P [(30)] .01131 .13542 1 0 Mshowa p .002 w .02381 .17842 m .03006 .17842 L s P [(40)] .01131 .17842 1 0 Mshowa p .002 w .02381 .22143 m .03006 .22143 L s P [(50)] .01131 .22143 1 0 Mshowa p .002 w .02381 .26443 m .03006 .26443 L s P [(60)] .01131 .26443 1 0 Mshowa p .001 w .02381 .015 m .02756 .015 L s P p .001 w .02381 .0236 m .02756 .0236 L s P p .001 w .02381 .0322 m .02756 .0322 L s P p .001 w .02381 .0408 m .02756 .0408 L s P p .001 w .02381 .05801 m .02756 .05801 L s P p .001 w .02381 .06661 m .02756 .06661 L s P p .001 w .02381 .07521 m .02756 .07521 L s P p .001 w .02381 .08381 m .02756 .08381 L s P p .001 w .02381 .10101 m .02756 .10101 L s P p .001 w .02381 .10961 m .02756 .10961 L s P p .001 w .02381 .11821 m .02756 .11821 L s P p .001 w .02381 .12682 m .02756 .12682 L s P p .001 w .02381 .14402 m .02756 .14402 L s P p .001 w .02381 .15262 m .02756 .15262 L s P p .001 w .02381 .16122 m .02756 .16122 L s P p .001 w .02381 .16982 m .02756 .16982 L s P p .001 w .02381 .18702 m .02756 .18702 L s P p .001 w .02381 .19562 m .02756 .19562 L s P p .001 w .02381 .20423 m .02756 .20423 L s P p .001 w .02381 .21283 m .02756 .21283 L s P p .001 w .02381 .23003 m .02756 .23003 L s P p .001 w .02381 .23863 m .02756 .23863 L s P p .001 w .02381 .24723 m .02756 .24723 L s P p .001 w .02381 .25583 m .02756 .25583 L s P p .002 w .02381 0 m .02381 .26879 L s P P 0 0 m 1 0 L 1 .26879 L 0 .26879 L closepath clip newpath p 1 0 0 r p .008 w .02381 .0064 Mdot .039 .02138 Mdot .05416 .03591 Mdot .06929 .04998 Mdot .08438 .0636 Mdot .09945 .07677 Mdot .11449 .08949 Mdot .1295 .10176 Mdot .14447 .11358 Mdot .15942 .12494 Mdot .17434 .13585 Mdot .18922 .14632 Mdot .20408 .15633 Mdot .21891 .16588 Mdot .2337 .17499 Mdot .24847 .18365 Mdot .26321 .19185 Mdot .27791 .1996 Mdot .29259 .2069 Mdot .30724 .21375 Mdot .32185 .22015 Mdot .33644 .2261 Mdot .351 .2316 Mdot .36553 .23664 Mdot .38003 .24124 Mdot .3945 .24538 Mdot .40894 .24908 Mdot .42335 .25232 Mdot .43773 .25511 Mdot .45208 .25745 Mdot .4664 .25934 Mdot .4807 .26078 Mdot .49496 .26177 Mdot .5092 .26231 Mdot .52341 .26239 Mdot .53758 .26203 Mdot .55173 .26122 Mdot .56585 .25995 Mdot .57994 .25824 Mdot .594 .25608 Mdot .60804 .25346 Mdot .62204 .2504 Mdot .63601 .24688 Mdot .64996 .24292 Mdot .66388 .2385 Mdot .67777 .23364 Mdot .69163 .22832 Mdot .70546 .22256 Mdot .71927 .21634 Mdot .73304 .20968 Mdot .74679 .20256 Mdot .76051 .195 Mdot .7742 .18698 Mdot .78786 .17852 Mdot .80149 .1696 Mdot .8151 .16024 Mdot .82868 .15043 Mdot .84223 .14017 Mdot .85575 .12945 Mdot .86924 .11829 Mdot .88271 .10668 Mdot .89615 .09462 Mdot .90956 .08211 Mdot .92294 .06915 Mdot .93629 .05574 Mdot .94962 .04189 Mdot .96292 .02758 Mdot .97619 .01283 Mdot P P % End of Graphics MathPictureEnd :[font = text; inactive; dontPreserveAspect; startGroup] Approximately how far does the projectile travel down range? :[font = text; inactive; dontPreserveAspect; endGroup] About 220 meters. :[font = text; inactive; dontPreserveAspect; startGroup] Approximately how high does the projectile go? :[font = text; inactive; dontPreserveAspect; endGroup] About 60 meters. :[font = text; inactive; dontPreserveAspect] Why does this object not go as far down range or as high as the object in the previous example? It has the same initial velocity vector. :[font = text; inactive; dontPreserveAspect] Now, change the values in the cell below to the following: v0 = 100 th = 45 Degree gr = -9.8 fr = 0.1 and enable the cell. ;[s] 3:0,0;59,1;101,0;123,-1; 2:2,27,19,Calculus,0,12,0,0,0;1,27,19,Calculus,0,12,65535,0,0; :[font = input; locked; dontPreserveAspect; startGroup] Clear[fx,fy,st,x,y,v0,vx,vy,th,th2,fr,t,gr] st = 0.1 gr = -9.8 th = 45 Degree v0 = 100 fr = 0.1; :[font = output; output; inactive; preserveAspect] 0.1 ;[o] 0.1 :[font = output; output; inactive; preserveAspect] -9.800000000000000001 ;[o] -9.8 :[font = output; output; inactive; preserveAspect] 45*Degree ;[o] 45 Degree :[font = output; output; inactive; preserveAspect; endGroup] 100 ;[o] 100 :[font = text; inactive; dontPreserveAspect] Now enable the cell below to see the path. :[font = input; locked; dontPreserveAspect; startGroup] vx = N[v0 Cos[th]] vy = N[v0 Sin[th]] fx[t_] = N[(vx (1 - fr) ^ t) t] fy[t_] = N[(vy (1 - fr) ^ t) t + 1/2 gr t^2] tfinal = FindRoot[fy[t],{t,100}][[1,2]] Stuff = Table[{fx[t],fy[t]},{t,0,tfinal,st}] ListPlot[Stuff,AspectRatio -> Automatic,PlotStyle -> RGBColor[1,0,0]]; :[font = output; output; inactive; preserveAspect] 70.71067811865475244 ;[o] 70.7107 :[font = output; output; inactive; preserveAspect] 70.71067811865475244 ;[o] 70.7107 :[font = output; output; inactive; preserveAspect] 70.71067811865475244*0.9^t*t ;[o] t 70.7107 0.9 t :[font = output; output; inactive; preserveAspect] 70.71067811865475244*0.9^t*t - 4.9*t^2 ;[o] t 2 70.7107 0.9 t - 4.9 t :[font = output; output; inactive; preserveAspect] 6.943438567686052734 ;[o] 6.94344 :[font = output; output; inactive; preserveAspect] {{0, 0}, {6.996957775922964614, 6.947957775922964614}, {13.84724893626299122, 13.65124893626299122}, {20.55317924341161958, 20.11217924341161958}, {27.11702223829337143, 26.33302223829337143}, {33.54101966249684544, 32.31601966249684545}, {39.82738187509671592, 38.06338187509671592}, {45.97828826423155211, 43.57728826423155212}, {51.9958876535015979, 48.85988765350159791}, {57.88229870324988299, 53.91329870324988299}, {63.6396103067892772, 58.7396103067892772}, {69.26988198163734967, 63.34088198163734968}, {74.77514425582015257, 67.71914425582015258}, {80.15739904930531639, 71.87639904930531639}, {85.41862005062412002, 75.81462005062412002}, {90.56075308874148271, 79.53575308874148272}, {95.5857165002321182, 83.04171650023211822}, {100.4954014918203925, 86.33440149182039248}, {105.2916724983407358, 89.41567249834073577}, {109.9763675361747777, 92.28736753617477769}, {114.551298552220699, 94.95129855222069896}, {119.0182517684496281, 97.40925176844962808}, {123.3789880221032517, 99.66298802210325173}, {127.6352431015861576, 101.7142431015861576}, {131.7887280781057851, 103.5647280781057852}, {135.841129633112224, 105.216129633112224}, {139.7941103815894729, 106.6701103815894729}, {143.6493091912491492, 107.9283091912491492}, {147.4083414976770301, 108.9923414976770301}, {151.0727996154821946, 109.8637996154821946}, {154.6442530454979436, 110.5442530454979436}, {158.1242487780830773, 111.0352487780830773}, {161.5143115925715295, 111.3383115925715295}, {164.8159443529177774, 111.4549443529177774}, {168.030628299584876, 111.3866282995848761}, {171.1598233377214023, 111.1348233377214023}, {174.2049683216730354, 110.7009683216730354}, {177.1674813358739507, 110.0864813358739507}, {180.0487599721626581, 109.2927599721626581}, {182.8501816035663803, 108.3211816035663804}, {185.5731036545975322, 107.1731036545975323}, {188.2188638681053403, 105.8498638681053404}, {190.7887805687251192, 104.3527805687251193}, {193.2841529229672117, 102.6831529229672117}, {195.7062611959870909, 100.842261195987091}, {198.0563670050776226, 98.83136700507762269}, {200.3357135699239907, 96.65171356992399077}, {202.5455259596613003, 94.30452595966130043}, {204.6870113367743902, 91.79101133677439037}, {206.7613591978789069, 89.11235919787890706}, {208.7697416114222237, 86.26974161142222387}, {210.71331345234232, 83.26431345234232015}, {212.5932126337222757, 80.09721263372227579}, {214.4105603354775813, 76.76956033547758143}, {216.166461230113014, 73.28246123011301416}, {217.8620037055853849, 69.63700370558538502}, {219.4982600853080245, 65.8342600853080247}, {221.0762868453324406, 61.87528684533244075}, {222.5971248287421494, 57.76112482874214958}, {224.0617994572932645, 53.49279945729326466}, {225.4713209403360017, 49.07132094033600186}, {226.8266844810508504, 44.49768448105085059}, {228.1288704800327497, 39.77287048003274987}, {229.3788447362562049, 34.89784473625620513}, {230.5775586454538816, 29.87355864545388186}, {231.7259493959408184, 24.70094939594081867}, {232.8249401619160117, 19.380940161916012}, {233.8754402942727397, 13.91444029427274003}, {234.8783455089486128, 8.302345508948613076}, {235.8345380728459614, 2.545538072845961675}} ;[o] {{0, 0}, {6.99696, 6.94796}, {13.8472, 13.6512}, {20.5532, 20.1122}, {27.117, 26.333}, {33.541, 32.316}, {39.8274, 38.0634}, {45.9783, 43.5773}, {51.9959, 48.8599}, {57.8823, 53.9133}, {63.6396, 58.7396}, {69.2699, 63.3409}, {74.7751, 67.7191}, {80.1574, 71.8764}, {85.4186, 75.8146}, {90.5608, 79.5358}, {95.5857, 83.0417}, {100.495, 86.3344}, {105.292, 89.4157}, {109.976, 92.2874}, {114.551, 94.9513}, {119.018, 97.4093}, {123.379, 99.663}, {127.635, 101.714}, {131.789, 103.565}, {135.841, 105.216}, {139.794, 106.67}, {143.649, 107.928}, {147.408, 108.992}, {151.073, 109.864}, {154.644, 110.544}, {158.124, 111.035}, {161.514, 111.338}, {164.816, 111.455}, {168.031, 111.387}, {171.16, 111.135}, {174.205, 110.701}, {177.167, 110.086}, {180.049, 109.293}, {182.85, 108.321}, {185.573, 107.173}, {188.219, 105.85}, {190.789, 104.353}, {193.284, 102.683}, {195.706, 100.842}, {198.056, 98.8314}, {200.336, 96.6517}, {202.546, 94.3045}, {204.687, 91.791}, {206.761, 89.1124}, {208.77, 86.2697}, {210.713, 83.2643}, {212.593, 80.0972}, {214.411, 76.7696}, {216.166, 73.2825}, {217.862, 69.637}, {219.498, 65.8343}, {221.076, 61.8753}, {222.597, 57.7611}, {224.062, 53.4928}, {225.471, 49.0713}, {226.827, 44.4977}, {228.129, 39.7729}, {229.379, 34.8978}, {230.578, 29.8736}, {231.726, 24.7009}, {232.825, 19.3809}, {233.875, 13.9144}, {234.878, 8.30235}, {235.835, 2.54554}} :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 0; pictureWidth = 371; pictureHeight = 175; endGroup] %! %%Creator: Mathematica %%AspectRatio: .4726 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.00403834 0.0112523 0.00403834 [ [(50)] .22573 .01125 0 2 Msboxa [(100)] .42764 .01125 0 2 Msboxa [(150)] .62956 .01125 0 2 Msboxa [(200)] .83148 .01125 0 2 Msboxa [(20)] .01131 .09202 1 0 Msboxa [(40)] .01131 .17279 1 0 Msboxa [(60)] .01131 .25355 1 0 Msboxa [(80)] .01131 .33432 1 0 Msboxa [(100)] .01131 .41509 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .4736 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p .002 w .22573 .01125 m .22573 .0175 L s P [(50)] .22573 .01125 0 2 Mshowa p .002 w .42764 .01125 m .42764 .0175 L s P [(100)] .42764 .01125 0 2 Mshowa p .002 w .62956 .01125 m .62956 .0175 L s P [(150)] .62956 .01125 0 2 Mshowa p .002 w .83148 .01125 m .83148 .0175 L s P [(200)] .83148 .01125 0 2 Mshowa p .001 w .06419 .01125 m .06419 .015 L s P p .001 w .10458 .01125 m .10458 .015 L s P p .001 w .14496 .01125 m .14496 .015 L s P p .001 w .18534 .01125 m .18534 .015 L s P p .001 w .26611 .01125 m .26611 .015 L s P p .001 w .30649 .01125 m .30649 .015 L s P p .001 w .34688 .01125 m .34688 .015 L s P p .001 w .38726 .01125 m .38726 .015 L s P p .001 w .46803 .01125 m .46803 .015 L s P p .001 w .50841 .01125 m .50841 .015 L s P p .001 w .54879 .01125 m .54879 .015 L s P p .001 w .58918 .01125 m .58918 .015 L s P p .001 w .66994 .01125 m .66994 .015 L s P p .001 w .71033 .01125 m .71033 .015 L s P p .001 w .75071 .01125 m .75071 .015 L s P p .001 w .79109 .01125 m .79109 .015 L s P p .001 w .87186 .01125 m .87186 .015 L s P p .001 w .91225 .01125 m .91225 .015 L s P p .001 w .95263 .01125 m .95263 .015 L s P p .001 w .99301 .01125 m .99301 .015 L s P p .002 w 0 .01125 m 1 .01125 L s P p .002 w .02381 .09202 m .03006 .09202 L s P [(20)] .01131 .09202 1 0 Mshowa p .002 w .02381 .17279 m .03006 .17279 L s P [(40)] .01131 .17279 1 0 Mshowa p .002 w .02381 .25355 m .03006 .25355 L s P [(60)] .01131 .25355 1 0 Mshowa p .002 w .02381 .33432 m .03006 .33432 L s P [(80)] .01131 .33432 1 0 Mshowa p .002 w .02381 .41509 m .03006 .41509 L s P [(100)] .01131 .41509 1 0 Mshowa p .001 w .02381 .02741 m .02756 .02741 L s P p .001 w .02381 .04356 m .02756 .04356 L s P p .001 w .02381 .05971 m .02756 .05971 L s P p .001 w .02381 .07587 m .02756 .07587 L s P p .001 w .02381 .10817 m .02756 .10817 L s P p .001 w .02381 .12433 m .02756 .12433 L s P p .001 w .02381 .14048 m .02756 .14048 L s P p .001 w .02381 .15663 m .02756 .15663 L s P p .001 w .02381 .18894 m .02756 .18894 L s P p .001 w .02381 .20509 m .02756 .20509 L s P p .001 w .02381 .22125 m .02756 .22125 L s P p .001 w .02381 .2374 m .02756 .2374 L s P p .001 w .02381 .26971 m .02756 .26971 L s P p .001 w .02381 .28586 m .02756 .28586 L s P p .001 w .02381 .30201 m .02756 .30201 L s P p .001 w .02381 .31817 m .02756 .31817 L s P p .001 w .02381 .35047 m .02756 .35047 L s P p .001 w .02381 .36663 m .02756 .36663 L s P p .001 w .02381 .38278 m .02756 .38278 L s P p .001 w .02381 .39893 m .02756 .39893 L s P p .001 w .02381 .43124 m .02756 .43124 L s P p .001 w .02381 .44739 m .02756 .44739 L s P p .001 w .02381 .46355 m .02756 .46355 L s P p .002 w .02381 0 m .02381 .4726 L s P P 0 0 m 1 0 L 1 .4726 L 0 .4726 L closepath clip newpath p 1 0 0 r p .008 w .02381 .01125 Mdot .05207 .03931 Mdot .07973 .06638 Mdot .10681 .09247 Mdot .13332 .11759 Mdot .15926 .14176 Mdot .18465 .16497 Mdot .20949 .18723 Mdot .23379 .20857 Mdot .25756 .22897 Mdot .28081 .24846 Mdot .30355 .26704 Mdot .32578 .28473 Mdot .34751 .30151 Mdot .36876 .31742 Mdot .38952 .33245 Mdot .40982 .3466 Mdot .42964 .3599 Mdot .44901 .37234 Mdot .46793 .38394 Mdot .48641 .3947 Mdot .50445 .40462 Mdot .52206 .41373 Mdot .53924 .42201 Mdot .55602 .42948 Mdot .57238 .43615 Mdot .58835 .44202 Mdot .60391 .4471 Mdot .6191 .4514 Mdot .63389 .45492 Mdot .64832 .45767 Mdot .66237 .45965 Mdot .67606 .46087 Mdot .68939 .46135 Mdot .70237 .46107 Mdot .71501 .46005 Mdot .72731 .4583 Mdot .73927 .45582 Mdot .75091 .45261 Mdot .76222 .44869 Mdot .77322 .44405 Mdot .7839 .43871 Mdot .79428 .43266 Mdot .80436 .42592 Mdot .81414 .41849 Mdot .82363 .41037 Mdot .83283 .40157 Mdot .84176 .39209 Mdot .85041 .38194 Mdot .85878 .37112 Mdot .86689 .35964 Mdot .87474 .3475 Mdot .88233 .33471 Mdot .88967 .32127 Mdot .89676 .30719 Mdot .90361 .29247 Mdot .91022 .27711 Mdot .91659 .26113 Mdot .92273 .24451 Mdot .92865 .22727 Mdot .93434 .20942 Mdot .93981 .19095 Mdot .94507 .17187 Mdot .95012 .15218 Mdot .95496 .13189 Mdot .9596 .111 Mdot .96404 .08952 Mdot .96828 .06744 Mdot .97233 .04478 Mdot .97619 .02153 Mdot P P % End of Graphics MathPictureEnd :[font = text; inactive; dontPreserveAspect] Now, change the values in the cell below several times and enable the two cells. Experiment..... Change each of the values.. v0, th, fr, and lastly gr. Be prepared to explain how each of these values affect the trajectory. ;[s] 11:0,0;128,1;130,0;131,1;134,0;135,1;138,0;139,1;140,0;150,1;153,0;227,-1; 2:6,27,19,Calculus,0,12,0,0,0;5,27,19,Calculus,0,12,65535,0,0; :[font = text; inactive; dontPreserveAspect; endGroup] Once you have experimented with last set of cells, go back to the first two sets of cells. Change the values in each set of cells, leaving everything the same except for fr. Be prepared to tell what happens as this decelleration changes. ;[s] 3:0,0;171,1;173,0;240,-1; 2:2,27,19,Calculus,0,12,0,0,0;1,27,19,Calculus,0,12,65535,0,0; :[font = subtitle; inactive; Cclosed; dontPreserveAspect; startGroup] Questions to ponder..... :[font = text; inactive; dontPreserveAspect] What angle will give tha maximum horizontal distance at a given initial velocity? Is this what you expected? ;[s] 1:0,0;110,-1; 1:1,27,19,Calculus,0,12,0,0,65535; :[font = text; inactive; dontPreserveAspect] What happens as the inital velocity changes? ;[s] 1:0,0;45,-1; 1:1,27,19,Calculus,0,12,0,0,65535; :[font = text; inactive; dontPreserveAspect] What happens as gravity changes? ;[s] 1:0,0;33,-1; 1:1,27,19,Calculus,0,12,0,0,65535; :[font = text; inactive; dontPreserveAspect; endGroup] What happens as the decelleration due to air resistance, etc. changes? ;[s] 1:0,0;71,-1; 1:1,27,19,Calculus,0,12,0,0,65535; ^*)