R/Simulation_simp1d.R

In HaoLi111/SimpleAerospace: Simple Aerospace Calculations

#Euler's Method of simulation of 1d kinetic motion

Simulation_simp1d<-function(t=seq(from = 0,to= 3600,by = .0001),
                            v = 0,
                            a=0,
                            mfunc,
                            pfunc,
                            Tfunc){

}

m_t_V2<-function(t) 12500-3810/(320/2880*3600)*t# guess from wikipedia