2. General Physics

Setup

\(Clear["Global`*`"]; 
Off[General::spell]; 
Off[General::spell1]; 
    \)

Get["D:\Mma\Inits\ch1init.m"]

Get["D:\Mma\Inits\ch2init.m"]

2.4 Problems

2.4.1  Projectile Motion in a Constant Gravitational Field

Problem 1:  Escape Velocity

Needs["Miscellaneous`Units`"]

Needs["Miscellaneous`PhysicalConstants`"]

T  =  (1/2) m v^2

\(V\  = \ \(-\ G\)\ M\ m/r; 
energy\  = \ T + V\)

sol  =  Solve[energy == 0, v][[2]]

\(\(values\  = 
      \ {G -> GravitationalConstant, 

        		\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ r -> EarthRadius, 

        		\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ M -> EarthMass, 

        		\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 
        Newton -> Kilogram\ Meter/Second^2}; \)\)

v0  =  
      (v  /.  sol  //.  values  //  N  //  PowerExpand )

Convert[v0,  Mile/Second]

Convert[v0,  Mile/Hour]