|
This program is used on a TI-83 Graphing Calculator, it may also work on lower models (e.g. TI-82). The only thing you need to do is change the ROOTs to the actual root symbol. Mass is in kilograms, diameter is in meters. Altitude is in Meters, speed in M/S. This is the VERY basic version, it will be improved to include graphs and a much more user friendly interface, but this is it for now. ALTSIM v1.0 :INPUT "BODY DIAMETER",D :INPUT "ROCKET MASS",R :INPUT "THRUST (N)",T :INPUT "IMPULSE (N-S)",I :INPUT "ENGINE MASS",E :INPUT "PROPELLANT MASS",P :R+E-P-> :R+E-(.5*P)->M (.5*1.22*.75*(Pi*((.5*D)^2)))->K :(ROOT((T-(M*9.81))/K)->Q :((2*K*Q)/m)->X :(I/T)->B :(Q*(1-e^(-X*B))/(1+e^(-X*b)))->V :((-M/(2*K))*ln((T-(M*9.81)-(K*V^2))/(T-(M*9.81)))->Y :(((Z)/(2K))*ln(((Z*9.81)+(Z*V^2))/(Z*9.81)))->C :ROOT((Z*9.81)/K)->U :ROOT((Z*9.81)/Z)->U :((tan^-1((V)/(A)))/U)->W :Lbl 1 :Menu("ALTSIM","REVIEW INPUTS",2,"GO TO OUTPUTS",3,"QUIT",4) :Lbl 2 :Output(1,1,"BDIAMETER:") :Output(1,11,D) :Output(2,1,"M ROCKET:") :Output(3,1,"THRUST:") :Output(3,7,T) :Output(4,1,"IMPULSE:") :Output(4,8,I) :Output(5,1,"M ENGINE") :Output(5,8,E) :Output(6,1,"M PROPELLANT") :Output(7,1,P) :Pause :Goto 1 :Lbl 3 :Disp "ALTITUDE:" :Disp Y+C :Disp "BURN TIME" :Disp (I/T) :Disp "TOP VELOCITY" :Disp V :Disp "[ENTER]" :Disp "TO CONTINUE" :Pause :Disp "COASTING TIME:" :Disp A :Disp "BURNOUT ALTITUDE:" :Disp Y :Disp "COAST DISTANCE" :Disp C :Disp "[ENTER]" :Disp "TO RETURN TO MENU" :Pause :Goto 1 :Lbl 4 :Menu("ARE YOU SURE?","NO",5,"YES",6) :Lbl 5 :Goto 1 :Lbl 6 :END -Ben Emerson questions? E-mail: wildmanben@homestead.com |
|
|||||||
|
Rocketss 112 Thomashire Ct Richmond, Va 23229 (804) 741-2391 |