10 REM *** HP TIME-SHARED BASIC PROGRAM LIBRARY ********************** 11 REM 12 REM EXPNTL: CAI IN SIMPLE EXPONENTIAL FUNCTIONS OF TIME 13 REM 14 REM 36148 (A820) REV A -- 7/71 15 REM 16 REM *** CONTRIBUTED PROGRAM *************************************** 17 REM 100 PRINT "COMPUTER AIDED PRACTICE IN IDENTIFICATION OF SIMPLE" 110 PRINT " EXPONENTIAL FUNCTIONS OF TIME;" 120 PRINT " PREPARED BY C.M. SIEGEL, DEC. 4, 1970 (REV. 1/3/71)." 130 PRINT "" 133 DIM M[8] 140 GOSUB 5000 141 M[1]=F 142 M[2]=A-F 143 M[3]=T9 144 M[4]=T9 145 M[5]=T9*ABS(A-F) 146 M[6]=M[5] 147 M[7]=.368 148 M[8]=T9 150 PRINT "THE HOR. LINE IS THE FINAL VALUE ASYMPTOTE." 160 PRINT 165 PRINT "TEAR THIS OFF FOR MEASURING." 166 PRINT "" 170 PRINT "GIVEN THE FUNCTION, B + A * EXP(-T/T.C.)," 180 PRINT " PLOTTED AS ABOVE," 400 REM 450 FOR I=1 TO 8 460 GOSUB I OF 6000,6100,6200,6300,6400,6500,6600,6700 470 B1=M[I] 490 GOSUB 4000 500 NEXT I 600 GOTO 9900 4000 T=0 4010 INPUT B2 4015 IF B1=0 AND B2#0 AND T=0 THEN 4070 4016 IF B1=0 AND B2#0 AND T=1 THEN 4060 4017 IF B1=0 AND B2=0 THEN 4110 4018 GOSUB 4500 4020 IF ABS((B1-B2)/B1)>C1 THEN 4060 4030 IF ABS((B1-B2)/B1)