Simulasi Gerak Parabola dengan dan tanpa

Manipulate[ListPointPlot3D[{Table[{vo*t*Cos[β]Cos[α],vo*t*Cos[α]Sin[β],(vo*Sin[α]*t-((9.8*(t^2))/2))},{t,0,((2*vo*Sin[α])/9.8),0.01}],Table[{((vo*Cos[β]Cos[α])/γ)(1-(E^(-(γ*t)))),((vo*Cos[α]Sin[β])/γ)(1-(E^(-(γ*t)))),(((vo*Sin[α])/γ)+(9.8/(γ^2)))(1-(E^(-(γ*t))))- (9.8/γ)t},{t,0,0.02040816326530612` (((49.`)/γ)+(1/γ)49.` ProductLog[9.82385120593771`*^-10 (E^(-0.1020408163265306` vo γ Sin[α])) (-3.74475787`*^8-3.8211815`*^7 vo γ Sin[α])]+5.` vo Sin[α]),0.01}]},Filling->filling],{vo,0,100},{α,0,π/2},{β,0,π/2},{γ,0.01,0.5},{filling,{None,Axis,Top,Bottom}}]

Simulasi ini menunjukkan perbandingan gerak parabola 3D dengan dan tanpa gesekan udara. Gesekan udara yang ditinjau disini adalah gesekan linear c1v dan dinyatakan dalam γ=c1/m dengan m adalah massa benda

Contributed by: Selly Feranie