Basic Program
Use
a computer running BASIC (BASIC, qbasic, visual basic, or any other general
basic). Type in the following program. Type in all of the program and then save
it. After you have saved the program follow your systems commands to start
running the program. This program allows the user to input information about the
trackway in terms of foot size and stride length. It will then use this
information to calculate the speed of the animal (in various units). Be very
careful to type in all of the program correctly especially the calculating
formulas.
10 REM A basic program to calculate speed from dinosaur tracks using
15 REM Alexander's formula
20 CLS
25 PRINT : PRINT
30 PRINT "This program calculates speed using foot length"
40 PRINT " and stride distances. Make all measurements in centimeters."
45 PRINT " Type in the numbers to answer the questions and press enter."
50 PRINT : PRINT :
60 INPUT "What is the length of the foot print in centimeters? ", foot!
70 PRINT : PRINT "A stride is two successive right or left foot prints."
80 INPUT "What is the stride distance in centimeters? ", stride!
90 hip! = foot! * 4
91 length! = foot! * 10
92 speed! = 7.8 * (stride! ^ 1.67) * (hip! ^ -1.17): REM calculate the speed
in cm/sec
93 speedm! = speed! / 100: REM changes speed to meters/sec
94 speedf! = speedm! * 3.2: REM changes speed to feet/sec
95 speedk! = speedm! * 3.6: REM changes speed to kilometers per hour
96 speedmph! = speedf! * .68: REM changes speed to miles per hour
100 PRINT : PRINT "---------------------------------------------------------"
110 PRINT "The results for a trackway with a foot length of "; foot!; " cm,
and" 120 PRINT " a stride length of "; stride!; " cm:"
125 PRINT
130 PRINT "The approximate hip height is "; hip!; " cm."
140 PRINT "The approximate length of the animal is "; length!; " cm."
145 PRINT
150 PRINT "The trackway indicates an approximate speed of:"
151 PRINT speed!; " centimeters per second or "; speedm!; " meters per second
or"
152 PRINT speedk!; " kilometers per hour."
153 PRINT
154 PRINT "The speed could also be stated as "; speedf!; " feet per second or
"
155 PRINT speedmph!; " miles per hour."
160 PRINT : PRINT
170 INPUT "Calculate another? (type Y or N and then press enter)"; again$
180 IF again$ = "Y" OR again$ = "y" THEN GOTO 20 ELSE END