10 REM ROCKET.BAS by Brian Tung 20 REM Modified to work with Net Basic 30 LET a = 1.032 40 LET d = 1 50 PRINT "Earth gravity in light-years per year squared: "; a 55 PRINT "Distance in light-years (0-100 million): "; d 60 IF d >= 0 AND d <= 100000000 THEN 80 70 PRINT "Distance must be between 0 and 100 million l-y" 75 END 80 LET d1 = d / 2 90 LET t = SQR(d1 * d1 + (2 * d1 / a)) 100 LET x = a * t 110 LET m = 1 120 IF x >= 0 THEN 130 125 LET m = -1 130 LET s = LOG(ABS(x) + 1) 140 LET s1 = s + 1 150 LET x1 = (EXP(s) - EXP(s * -1)) / 2 - ABS(x) 160 LET s1 = x1 / (EXP(s) + EXP(s * -1)) / 2 170 LET s = s - s1 180 IF ABS(s1) > .0000001 THEN 150 190 LET t1 = 1 / a * s * m 200 LET v = a * t / SQR(1 + (a * t) * (a * t)) 210 PRINT "Time on Earth: "; 2 * t; " years" 220 PRINT "Time on board: "; 2 * t1; " years"
Return to Example Index