untitled

Save this PDF as:
 WORD  PNG  TXT  JPG

Size: px
Start display at page:

Download "untitled"

Transcription

1 Tylor 006 5

2

3 E. G. BASIC Tylor.. E./G. b δ BASIC.. b) b b b b δ b δ ) δ δ δ δ b b, b ) b δ v, b v v v v) ) v v

4 )., 0 OPTION ARITHMETIC DECIMAL_HIGH INPUT FOR t TO 9 LET /*/) LET b-sqr) PRINT USING " %.####^^^^^":b NEXT t. b ) b7.5e-005 b.805e-009 b.976e-08 b E-07 b E-07 b 6.90E-7 b 7.087E-9 b.8e b log 0 ) log 0 b )) DIM 0) SET WINDOW, 9, 0., DRAW grid,0.5) LET )5 LOG07.5) LET )9 LOG0.805) LET )8 LOG0.976) LET )7 LOG ) LET 5)7 LOG09.090) LET 6)7 LOG0.90) LET 7)9 LOG0.087) LET 8)588 LOG0.8)

5 PRINT "log0)" FOR x TO 8 PRINT x,x) NEXT x PRINT "" PRINT "log0x)) log0x))" FOR x TO 7 PRINT LOG0x)) LOG0x)) NEXT x PLOT LINES FOR x TO 8 PLOT LINES:x,LOG0x)); NEXT x log 0 ) x log 0 x)) log 0 x))

6 < log 0 log 0 ) > c b d 0 d 0 log 0 b log log log d 0 ) d log d 0 log0 log0 b d log0 d log 0 0 log b b δ b b b bδ δ δ b δ 8 b b b 8 5

7 v, b v v v v v v v 8v 8 v v 8, 0 8 OPTION ARITHMETIC DECIMAL_HIGH INPUT FOR t TO 6 LET /8*/*) /*^) LET bsqr) PRINT USING " %.####^^^^^":b NEXT t.. b ) b 7.8E-007 b 9.907E-00 b.70e-058 b.57e-7 b.e-5 5 b log 0 ) DIM 0) SET WINDOW, 9, 0., DRAW grid,0.5) LET )7 LOG07.8) LET )0 LOG09.907) LET )58 LOG0.70) LET )7 LOG0.57) LET 5)5 LOG0.) 6

8 PRINT "log0)" FOR x TO 5 PRINT x,x) NEXT x PRINT "" PRINT "log0x)) log0x))" PRINT " x","log0x)) LOG0x))" FOR x TO PRINT x,log0x)) LOG0x)) NEXT x PLOT LINES FOR x TO 5 PLOT LINES:x,LOG0x)); NEXT x log 0 ) log 0 x)) log 0 x)) x LOG0x)) LOG0x))

9 < log 0 log 0 ) > log 0 b x x x x x ), x) 8 x x) bx cx dx b,c,d, 5 x b, c, d x) x x x x x ) x) x,.. 8

10 b x ) x x x x 8 6 b b b b) 8 6 v, b x v 5 5x 5x x x v 5 6 6v 6v 6v 5 5x 5x x x 5x x , 0 OPTION ARITHMETIC DECIMAL_HIGH INPUT,x FOR t TO 6 LET 5*/65*x/6*) 5*x^/6*^)x^/6*^5) LET b SQRx) PRINT USING " %.####^^^^^":b NEXT t 5, x b ) b.86e-00 b 6.69E-008 b.8e-00 b.077e-9 b.e-76 5 log 0 ) DIM 0) SET WINDOW -, 9, -, DRAW grid,0.5) 9

11 LET ) LOG0.86) LET )8 LOG06.69) LET )0 LOG0.8) LET )9 LOG0.077) LET 5)76 LOG0.) PRINT "log0)" FOR x TO 5 PRINT x,x) NEXT x PRINT "" PRINT "Log0x)) Log0x))" FOR x TO PRINT LOG0x)) LOG0x)) NEXT x PLOT LINES FOR x TO 5 PLOT LINES:x,LOG0x)); NEXT x log 0 ) x log 0 x)) log 0 x))

12 < log 0 log 0 ) > log 0 log x) x x x x x b b) b b 8 b 6 5 5b 8 7 v, b x v 5 5x 5x 7x x v 8 v 6v v 5 5x 8v 5 5x 5x 7x 5x x 5x, x 5x 0 OPTION ARITHMETIC DECIMAL_HIGH INPUT,x

13 FOR t TO 7 LET 5*/85*x/*) 5*x^/6*^)7*x^/*^5) 5*x^/8*^7) LET b SQRx) PRINT USING " %.####^^^^^":b NEXT t 0, x b ).567E E-00.06E E-06.97E E-895 log0) DIM 0) SET WINDOW, 9,, DRAW grid,0.5) LET )LOG0.567) LET ) LOG05.68) LET )7 LOG0.06) LET )6 LOG0.65) LET 5)79 LOG0.97) LET 6)895 LOG ) PRINT "log0)" FOR x TO 6 PRINT x,x) NEXT x PRINT "" PRINT "Log0x)) Log0x))" FOR x TO 5 PRINT LOG0x)) LOG0x)) NEXT x PLOT LINES

14 FOR x TO 6 PLOT LINES:x,LOG0x)); NEXT x log 0 ) x 0 log x)) log 0 x)) < log 0 log 0 ) > log 0 5

15 ) ) 77) Tylor.. p P si si p p si P t p si si ) cos p ) p P p

16 P t si si p p p p P ) p ) p p ) ) p ) P p p P p p.. p, P, N ) ), BASIC, REM ^ ) OPTION BASE 0 DIM s5) LET ft$"## #.############### #.###############" LET s)*sqr) FOR TO 0 LET s)sqr^)*^-sqr^*) s)^))) PRINT USING ft$:, s),s) s) 5

17 NEXT REM ^ ) OPTION BASE 0 DIM s) DIM t0) LET ft$"## #.############### " LET s)*sqr) FOR TO 0 LET s)sqr^)*^ SQR^*) s)^))) LET t)s)/sqr s)/^)^) PRINT USING ft$:,t) NEXT FOR TO 0 PRINT USING ft$:,t) t ) NEXT

18 , 0 0, 5 6 5,,,,,,, 5 5 5, , , REM OPTION BASE 0 DIM 0) LET ft$"#.####################" LET ) LET )*SQR) FOR TO 9 LET )SQR^)*^-SQR^*)-)^))) PRINT USING ft$: )--))/)-)) NEXT REM OPTION BASE 0 7

19 DIM s5) DIM t5) LET ft$"#.####################" LET s)*sqr) LET s) LET s) LET t) LET t) FOR TO LET s)sqr^)*^-sqr^*) s)^))) LET t)s)/sqr s)/^)^) PRINT USING ft$:t ) t ))/t) t )) NEXT E-00.5E E E E E E-00.5E E E E E-00.98E-00.59E-00 8

20 .87E E-005 li, li 0,,, ) ) ) 0 0 ) 0 ) ) ) 0 9 ) ) ) ) ) ), ) ) ) 0 0 9, 0 9 ) REM { }* )- ))/ OPTION ARITHMETIC DECIMAL_HIGH OPTION BASE 0 LET ft$" %.###^^^^^ #.####################" DIM s0) 9

21 DIM s0) LET s) LET s)*sqr) FOR TO LET s)sqr^)*^-sqr^*) s)^))) LET s)*s) s))/ PRINT USING ft$: PI s),s) NEXT ) REM { }* )- ))/ OPTION BASE 0 LET ft$" %.###^^^^^ #.####################" DIM s) DIM t0) DIM t0) LET s)*sqr) LET s) LET t) FOR TO 0 LET LET s)sqr^)*^-sqr^*) s)^))) LET t)s)/sqr s)/^)^) LET t)*t) t-))/ PRINT USING ft$:pi t),t) NEXT ) ).5E E E E E E E E

22 5.800E E E E E E E E E E ) 0, 7 ), ) ) ) REM OPTION BASE 0 DIM 5) DIM 5) LET ft$"##.####################" LET ) LET )*SQR) FOR TO LET )SQR^)*^-SQR^*) )^))) LET )*) -))/ NEXT FOR TO 0 PRINT USING ft$: ) ))/) )) NEXT ) ) REM OPTION BASE 0 LET ft$"##.####################" DIM s5)

23 DIM t5) DIM t5) LET s) LET t) LET t) LET t) FOR TO LET LET s)sqr^)*^-sqr^*) s)^))) LET t)s)/sqr s)/^)^) LET t)*t) t ))/ NEXT FOR TO PRINT USING ft$: t ) t ))/t) t )) NEXT ) ) E E E E E E-00.55E E-00

24 5.699E E E-00.89E E E E E-00 6 li, 6 li ) ) ) ) ) ) ) ) 6 6, 6 6 ) ) ) ) ) ) ) ),.. Si ) 0) ) ) )! ) )! ) 9! 7! 5!! 9! 7! 5!! si Σ Σ Σ

25 ) ) ) ) 0) ) ) ) 0) ) 0) ) 0) ) Σ Σ Σ Σ Σ ) ) ) Σ ) ) ) ) ) ) ) ) ) ) ) ) ) Σ Σ Σ Σ ) 0) ) ) ) )

26 ) ) ) ).5 t f x) t x ) ) ) ) ) f : x) : ) f 0) 0 : tx f x) f 0) x! ) ) f 0) x )! ).. ) ) ) ) ) ) ), ) 5

27 ) ) ) ) OPTION ARITHMETIC DECIMAL_HIGH OPTION BASE 0 LETft$"###%.###^^^^^ #.##################################################" LET x9 DIM sx,x) LET s,0) LET s,0)*sqr) PRINT "" FOR TO x LET s,0)sqr^)*^-sqr^*) s,0)^))) PRINT USING ft$:,s,0)-pi,s,0) NEXT FOR TO x PRINT "", LET ^ FOR TO x LET s,)*s, ) s, ))/ ) PRINT USING ft$:,s,) PI,s,) NEXT NEXT PRINT " ";PI -8.0E E E E E E E E

28 -.70E E E E E E E E E E E E E E E E E E E E E E E E E E E E E E E

29 -.578E E E E E E E E E E E E E E ) ) ) ) OPTION ARITHMETIC DECIMAL_HIGH OPTION BASE 0 LETft$"###-%.###^^^^^ #.##################################################" LET x DIM sx,x),tx,x) LET s,0)*sqr) PRINT "" FOR TO x LET s,0)sqr^)*^-sqr^*) s,0)^))) LET t,0)s,0)/sqr s,0)/^)^) PRINT USING ft$:,t,0) PI,t,0) NEXT 8

30 FOR TO x PRINT "", LET ^ FOR TO x LET t,)*t, ) t, ))/ ) PRINT USING ft$:,t,) PI,t,) NEXT NEXT PRINT " ";PI 8.58E E E E E E E E E E E E E E E E E E E E E

31 .8E E E E E E E E E E E E E E E E E E E E E E E E E E E E E E

32 .988E E E ) ) 0,0,9,8,7,6 5,5 6, 7, 8, 9,

33 PRINT " " PRINT "" INPUT OPTION BASE 0 DIM 00) LET b0 IF <0 THEN PRINT "-" LET ABS) IF DO LET bb- LET qint/60) LET rmod,60) LET b)r IF q0 THEN EXIT DO LET q LOOP FOR tb TO 00 PRINT t) NEXT t <) PRINT " " PRINT " " INPUT DO

34 LET b*60 LET cintb) PRINT c LET db-c IF d0 THEN EXIT DO LET d LOOP REM INPUT IF <0 THEN PRINT "-" LET ABS) IF OPTION BASE 0 DIM p00) LET INT) LET b-int) LET o0 DO LET oo- LET qint/60) LET rmod,60) LET po)r IF q0 THEN EXIT DO LET q LOOP FOR o TO 00 PRINT p) NEXT PRINT "." DO LET cb*60 LET dintc)

35 PRINT d LET ec-d IF e0 THEN EXIT DO LET be LOOP

36 []E. G. 997) [] 00) [] 006) [] 00 00) [5] No.5 98) [6] [7]Ogw s HP 5