Older Version
Newer Version
cogburn
May 24, 2012
The following code displays a graph of the integral of the thrust force and time for the rocket motor. The data used to determine the slopes of the thrust curve was experimentally determined using a Vernier Force Probe and a LabPro interface. The data was then put into this LB program and produced the image you see when the program was run.
'Estes Rocket Motor Thrust Integration Ver 1.0
'This program uses thrust curve data to draw an thrust-time integration of the rocket engine
nomainwin
WindowWidth =500
WindowHeight =500
graphicbox #w.g, 10, 10, 480, 400
open "Rocket Motor Force*time Integration" for window as #w
#w, "trapclose [quit]"
#w.g, " down ; size 1"
for tt =0 to .7 step 0.002
'The following times and slopes were determined by using Vernier logger pro and static test data
if tt <=.7 then th = -35.79 *tt + 25.58
if tt <= .65 then th = -0.0229 * tt + 2.362
if tt <=0.395 then th = -10.9 *tt + 6.662
if tt <=0.27 then th = -151.3 *tt + 44.54
if tt <=0.225 then th = 53.49 *tt + -2.049
if tt <0.035 then th = 0.0
#w.g, "up ; goto "; tt *400 /0.8; " "; 400 -th /10 *400; " ; down ; goto "; tt *400 /0.8; " 400"
next tt
wait
[quit]
close #w
end