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. [[code format="lb"]] '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 [[code]]