Tylor 006 5
..........5. -...... 5....5 5 -
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
)., 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 5.0708E-07 b 59.090E-07 b 6.90E-7 b 7.087E-9 b.8e-588 8 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 LOG05.0708) LET 5)7 LOG09.090) LET 6)7 LOG0.90) LET 7)9 LOG0.087) LET 8)588 LOG0.8)
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 ).7566086 8.7506787 7.9688665 6.99587 5 7.0885 6 6.597880 7 9.5080057 8 587.9908 x log 0 x)) log 0 x)).08087585.87659.0666968009.0798 5.0706577 6.06986789 7.069909069
< log 0 log 0 ) > c b d 0 d 0 log 0 b log log log 0 0 0 d 0 ) d log d 0 log0 log0 b d log0 d log 0 0 log 0 0.0.. b b δ b b b bδ δ δ b δ 8 b b b 8 5
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
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 ) 6.07959596 9.00905986 57.690668 7.680050 5 50.956787 log 0 x)) log 0 x)) x LOG0x)) LOG0x)).90786675.868858560.7868786.77666575 7
< 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 8 6 8 5 x) x x x x 8 6 8 x ) x) x,.. 8
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 5 6 6 6 6 5 5x 5x x 5 6 6 6 6, 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
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 ).690506876 7.7590795 9.5067098569 8.6850077889 5 75.857009 x log 0 x)) log 0 x)).650865808.689958.60659008998.60659850876 0
< log 0 log 0 ) > log 0 log0..5 5 x) x x x x 8 6 8 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 5 7 8 6 8 7 5 5x 5x, 5 0 8 6 7 8 7x 5x 0 OPTION ARITHMETIC DECIMAL_HIGH INPUT,x
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 ).567E000 5.68E-00.06E-007.65E-06.97E-79 5.6688E-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 LOG05.6688) 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
FOR x TO 6 PLOT LINES:x,LOG0x)); NEXT x log 0 ).8658909707.990700 6.99096098 5.6577990 5 78.778776965 6 89.65088650 x 0 log x)) log 0 x)).857887956.7789077956.7070960689.7005768806 5.6999068960987 < log 0 log 0 ) > log 0 5
... 0 66 79) ) 77) Tylor.. p P si si p p si P t p si si ) cos p ) p P p
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
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.8877690.000000000000000.0667589078.7089898760.555805.85978780758 5.658905599.57907956 6.0569575.885590 7.7750977.69957 8.5800.7506968966 9.57906709.6080708 0.587757760.605056809 -.596558979.596558979.00750 -.686950050.0599776970 -.060900 6
.050887890 -.00879706570 5.00786660880 -.0076065850 6.000960997800 -.008975500 7.000655050 -.00076077500 8.0000599980 -.00088865600 9.00007890690 -.000095705750, 0 0, 5 6 5,,,,,,, 5 5 5, 6 6 5 5 6 5, 7 7 6 6, 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
DIM s5) DIM t5) LET ft$"#.####################" LET s)*sqr) LET s).066758907 LET s).555805 LET t) LET t).708989876 FOR TO LET s)sqr^)*^-sqr^*) s)^))) LET t)s)/sqr s)/^)^) PRINT USING ft$:t ) t ))/t) t )) NEXT.5586586090666 5.6777576.8855009777658.67769757787567657.97577766.058798505988.99775690856767.055987780.998909597580895.00678985960897.9995879096.000908058759.999887050686.0005988896669.999977690758568.000056759778956.5E-00.5E000.550E-00.6777E-00.885E-00 5.8798E-00 7.6E-00.5E-00.8069E-00.6790E-00.5778E-00 9.080E-00.98E-00.59E-00 8
.87E-005 5.675E-005 li, li 0,,, 0 9 0 ) ) ) 0 0 ) 0 ) ) ) 0 9 ) ) 0 0 9 0 9 0 9 ) ) ) ), ) ) ) 0 0 9, 0 9 ) REM { }* )- ))/ OPTION ARITHMETIC DECIMAL_HIGH OPTION BASE 0 LET ft$" %.###^^^^^ #.####################" DIM s0) 9
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).066758907 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-00.975707 5.665E-00.08966506.59E-00.7767080.698E-00.8897779 9.77E-006.5896690.587E-00.9767 6.078E-007.5905757690 9.776E-006.588778555 0
5.800E-008.596559 6.087E-007.590809 6.75E-009.596580.80E-008.596557780 7.8E-00.59655.75E-009.5965588 8 9.77E-0.596558055.8E-00.59655 9 5.798E-0.5965589 9.76E-0.596558057 -.596558979 -.596558979 ) 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)
DIM t5) DIM t5) LET s).066758907 LET t) LET t).0896650 LET t).889777 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 ) ) 5.098689686799809.55897968709 5.7709598607.0866886698575 5.9650679875096.96788777895 5.9855897696776.0668508557770 5 5.996860775896.057606857000 6 5.9990968887986.008900607968 7 5.99977098560606.000960766097 8 5.99995576056076.00000956675 9.07E-00 5.55E000.9807E-00.0866E000 5.7750E-00.9678E-00.55E-00 6.685E-00
5.699E-00.5760E-00 6 9.0566E-00.89E-00 7.5896E-00 9.60E-00 8 5.67E-005.000E-00 6 li, 6 li ) ) ) ) ) ) ) ) 6 6, 6 6 ) ) ) ) ) ) ) ),.. Si ) 0) ) ) 8 9 6 7 5 9 7 5 )! ) )! ) 9! 7! 5!! 9! 7! 5!! si Σ Σ Σ
) ) ) ) 0) ) ) ) 0) ) 0) ) 0) ) Σ Σ Σ Σ Σ ) ) ) Σ ) ) ) ) ) ) ) ) ) ) ) ) ) Σ Σ Σ Σ ) 0) ) ) ) )
) ) ) ).5 t f x) t x ) ) ) ) ) f : x) : ) f 0) 0 : tx f x) f 0) x! ) ) f 0) x )! ).. ) ) ) ) ) ) ), ) 5
) ) ) ) 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-00.066 7589 078 78 76798 7 909 0907 5699 8850 -.05E-00. 55 5805 8557 5578 956 5585 80 6588 08 5-5.0E-00.65 8905 599 68 580 6 5906 7556 75 600 6 -.6E-00.0 569 575 9 785 690 7 0 689 7 -.5E-00.7 7509 77 86806 097 70788 0 8796 66 6979 8-7.885E-005.5 80 0 076 8550 5956 80 795 85 99 9 -.97E-005.57 90 6709 8 5800 070 76 956 779 506 0 -.98E-006.58 775 7759 7006 885 670 987 999 80858 578 6
-.70E-00.056 9996 6586 79680 50 6559 987 6857 9667 6786 -.5E-00.9 7570 7 556 90 57 7899 075 6079 5959 -.59E-00. 7767 080 8 08505 70095 08 87 690 0800-9.77E-006.58 966 90 58989 87 6070 600 8608 097 67 5-6.078E-007.59 057 57690 7955 05 5096 075 678 07758 6 -.800E-008.59 655 9 85 00 867 750 058 6605 650 7 -.75E-009.59 65 80 7908 0 890 09 05 0666 06 8 -.8E-00.59 65 5 8007 567 9875 0780 997 5787 5087 9-9.77E-0.59 655 8055 806 6589 8078 977 60 6879 967 -.99E-00.5 7750 70 88 6757 05 088 00 78688 909 -.60E-006.59 09 997 7550 996 7867 57 0780 0956 9 -.56E-008.59 679 706 0 0897 0675 75 997 8788 00-5.577E-00.59 650 076 76 8507 67 76 56 78 00700 5-8.79E-0.59 655 807 85 78 96 07685 6906 850 9557 6 -.6E-0.59 655 89656 9876 896 7586 77 0980 60 8666 7 -.9E-05.59 655 8979 097 076 80866 7556 96 60 8 -.7E-07.59 655 8979 059 68707 9599 087 959 95 75990-7.605E-008.59 5775 5870 75 07895 065 5 0687 9075 -.07E-00.59 65 8605 5 67 9568 67 909 05 8779 -.9E-0.59 655 88600 0886 9079 600 855 087 5990 557 -.667E-05.59 655 89788 578 598 75585 06 55 65 877 5 -.8E-07.59 655 8979 0 79 09 7 98 08 5865 6-7.5E-00.59 655 8979 89 95 576 68 0 057 7 -.78E-0.59 655 8979 86 650 6 0786 767 06 60-6.7E-0.59 655 807 86 06008 757 58855 576 0087 686-6.668E-05.59 655 89786 5709 557 77 08 5870 50 86-6.58E-08.59 655 8979 9 9988 600 98 607 58759 095-6.9E-0.59 655 8979 85 656 575 766 779 870 0 5-6.E-0.59 655 8979 86 67 0795 787 96 58 997 6-6.097E-07.59 655 8979 86 6 778 9507 97 7670 7 5 -.0E-06.59 655 8979 08 966 5995 750 686 0797 9656 7
-.578E-00.59 655 8979 8 6859 879 0689 605 066 6899-6.E-0.59 655 8979 86 670 69880 900 8 00 98 -.5E-07.59 655 8979 86 6 877 08 8679 65 767 5 -.767E-0.59 655 8979 86 6 879 6 088 0090 09 6 -.005E-0.59 655 8979 86 8 96855 5550 666 7009 70 -.85E-06.59 655 8979 86 6 677 956 80 9 8057 -.E-00.59 655 8979 86 6 878 707 997 605 85965-6.9E-05.59 655 8979 86 6 879 508 50575 7678 566 7 -.668E-08.59 655 8979 86 6 8 70 56 90 00 -.56E-0.59 655 8979 86 6 879 500 099 788 7500 -.98E-08.59 655 8979 86 6 879 5088 579 8608 809 8 -.89E-05.59 655 8979 86 6 879 5086 5800 878 078-7.058E-0.59 655 8979 86 6 879 5088 970 988 6676 9 -.7E-0.59 655 8979 86 6 879 5088 97 68986 6857 -.59 655 8979 86 6 879 5088 97 6999 750 ) ) ) ) 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
FOR TO x PRINT "", LET ^ FOR TO x LET t,)*t, ) t, ))/ ) PRINT USING ft$:,t,) PI,t,) NEXT NEXT PRINT " ";PI 8.58E-00.00000 00000 00000 00000 00000 00000 00000 00000 00000 00000.7E-00.70 8989 8760 90 5097 9677 586 8557 7500 0558.0E-00.859 78780 758 058 5569 6 8965 75656 080 56 5.0E-00.57 907 956 0987 006 8 778 776 78 79 6.56E-00. 885 590 67 975 66 079 005 8099 56 7 6.0E-00. 699 56 858 6085 06996 6 650 5 768 8.577E-00.75 069 68966 590 76 797 88 99885 78 58 9.9E-005.6 0807 08 8057 875 8787 766 9097 600 985 0 9.857E-006.60 50 56808 9676 6896 589 6600 79 758 060-5.665E-00.089 665 0 8588 6797 90 67 098 7 5 -.698E-00.889 77 77 506 96 859 89800 0568 560 508 -.587E-00. 97 65 776 50 55 0055 868 68556 750-9.776E-006.58 8778 55 6508 5 880 607 008 658 68 5-6.087E-007.59 08 07 7066 760 8887 75 798 6857 90665 6 -.80E-008.59 655 7780 9970 5 965 6597 906 6567 00 7 -.75E-009.59 65 586 95 588 750 75559 5667 0099 9060 8 -.8E-00.59 65 5 7 0 80 6 609 7760 808 9-9.77E-0.59 655 8055 755 95597 68 758 9980 56975 85 8.98E-00.9 0986 0657 5876 08 5879 98 5 568 78.057E-005.60 5 068 690 6787 589 777 9870 60 905.550E-007.59 8085 60606 990 70087 6959 085 66 97 880 9
.8E-009.59 6559 796 69 6669 75595 675 5 6807 069 5.7E-0.59 656 690 6806 988 705 6 888 60 650 6 5.79E-0.59 655 907 560 568 806 95 8557 90 09696 7 9.09E-05.59 655 8980 8750 890 796 9 650 0688 8.E-06.59 655 8979 798 596 796 5886 097 89 55 -.5E-006.58 90 808 76 97 998 96 89755 96 5969 -.0E-008.59 6 5986 9 7 809 009 988 0056 00 -.78E-0.59 655 595 5987 76 776 505 87 569 67708 -.55E-0.59 655 8967 7 69 0675 89 8 785 68977 5-5.66E-06.59 655 8979 678 695 978 567 0570 66 6 -.09E-08.59 655 8979 65 708 587 669 5077 95 088 7-8.69E-0.59 655 8979 85 07 0059 9980 5 7 95.E-009.59 6570 069 59 6 7955 8960 7960 00570 7680.5E-0.59 655 95 7859 857 6 70 50 9095 07.0E-05.59 655 89795 5806 507 857 9780 907 856 697.0E-08.59 655 8979 068 9066 57 87 7 68 99 5.60E-0.59 655 8979 86 80 779 079 56 570 0770 6.07E-0.59 655 8979 86 65 9066 797 5807 88 55 5-8.08E-0.59 655 8895 9065 5750 87 05699 7606 60 -.50E-06.59 655 8979 088 9069 559 5086 859 50 656 -.5E-00.59 655 8979 8 70 6808 66 7597 55867 9556-8.70E-0.59 655 8979 86 69 69 06 9 580 795 5 -.060E-07.59 655 8979 86 6 89 796 597 90 696 6 5.E-07.59 655 8979 8978 706 8 8 57877 0585 80.9E-0.59 655 8979 86 998 6860 758 5 98 609.E-05.59 655 8979 86 65 778 7 668 87875 9899 8.077E-00.59 655 8979 86 6 887 5807 8569 059 88 7-7.8E-0.59 655 8979 86 860 0 689 5769 59969 706-8.96E-07.59 655 8979 86 6 76 97 7 5608 556 -.8E-0.59 655 8979 86 6 879 767 798 65 0 8 0
.988E-07.59 655 8979 86 6 8667 06 66578 89 57 8.57E-0.59 655 8979 86 6 879 5 598 0706 790 9 -.89E-0.59 655 8979 86 6 879 5000 506 5756 8695 -.59 655 8979 86 6 879 5088 97 6999 750 ) ) 0,0,9,8,7,6 5,5 6, 7, 8, 9,
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
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)
PRINT d LET ec-d IF e0 THEN EXIT DO LET be LOOP
[]E. G. 997) [] 00) [] 006) [] 00 00) [5] No.5 98) [6] http://redshift.hp.ifosee.co.jp/scilib.htl [7]Ogw s HP http://www.tcp-ip.or.jp/~ho/ 5