100 !' ************************************************** 110 !' * * 120 !' * ‚QŽŸŠÖ”‚Ì‘Î̈ړ®Žw“±@ƒvƒƒOƒ‰ƒ€ * 130 !' * * 140 !' * "S1p073R12.bas" * 150 !' * ”‡T^030i”Œ¤j—á‚P‚Qip73j * 160 !' * * 170 !' * 2008/10/13/Mon. by YO * 180 !' * * 190 !' ************************************************** 200 !' ’è”E”z—ñ‚Ì’è‹` 210 LET cx$="Red" 220 LET cy$="Yellow" 230 DIM bn$(8) 240 DIM zz(6) 290 !' 300 LET zz(1)=0.02 310 LET zz(2)=0.04 320 LET zz(3)=0.1 330 LET zz(4)=0.2 340 LET zz(5)=0.4 350 LET zz(6)=1 390 !' 400 LET bn$(1)="" 410 LET bn$(2)="" 420 LET bn$(3)="" 430 LET bn$(4)="a,b" 440 LET bn$(5)="b,c" 450 LET bn$(6)="c,a" 460 LET bn$(7)="abc" 470 LET bn$(8)="END" 490 !' 500 !' ŠÖ”‚Ì’è‹` 510 DECLARE EXTERNAL FUNCTION f 590 !' 600 !' ŠO•”•›ƒvƒƒOƒ‰ƒ€‚Ì’è‹` 610 DECLARE EXTERNAL SUB draw_function 790 !' 800 !' •Ï”‚Ì’è‹` 810 LET a=1 820 LET b=-2 830 LET c=-3 840 LET zp=1 850 !' 860 LET wxs=-8 870 LET wxe=8 880 LET wys=-8 890 LET wye=8 900 !' 910 LET sa=1 920 LET sb=1 930 LET sc=1 990 !' 1000 REM ŽåƒvƒƒOƒ‰ƒ€ŠJŽn 1010 SET WINDOW wxs,wxe,wys,wye 1020 SET TEXT font "",14 1030 SET POINT STYLE 3 1040 SET LINE width 3 1050 DRAW Grid 1060 SET LINE width 1 1070 SET LINE COLOR "Black" 1080 CALL draw_function(wxs,wxe,0.1,a,b,c,1,1,1) 1090 SET TEXT COLOR "Black" 1100 PLOT TEXT ,AT -4.5,wys ,USING"‚™‚˜2+#‚˜+#":b,c 1110 PLOT TEXT ,AT -0.2,wys :"Ë" 1120 IF sa<>1 OR sb<>1 OR sc<>1 THEN 1130 SET TEXT COLOR "Blue" 1140 IF sa=1 THEN 1150 PLOT TEXT ,AT 0.5,wys ,USING "‚™‚˜2+#‚˜+#":sb*b,sc*c 1160 ELSE 1170 PLOT TEXT ,AT 0.5,wys ,USING "‚™|‚˜2+#‚˜+#":sb*b,sc*c 1180 END IF 1190 SET LINE width 2 1200 SET LINE COLOR "Blue" 1210 CALL draw_function(wxs,wxe,0.1,a,b,c,sa,sb,sc) 1220 END IF 1990 !' 2000 LOCATE CHOICE(bn$):k 2010 IF k=8 THEN 2020 GOTO 9980 2030 END IF 2040 IF k=1 THEN 2050 LET sa=-sa 2060 GOTO 2900 2070 END IF 2080 IF k=2 THEN 2090 LET sb=-sb 2100 GOTO 2900 2110 END IF 2120 IF k=3 THEN 2130 LET sc=-sc 2140 GOTO 2900 2150 END IF 2160 IF k=4 THEN 2170 LET sa=-sa 2180 LET sb=-sb 2190 END IF 2200 IF k=5 THEN 2210 LET sb=-sb 2220 LET sc=-sc 2230 END IF 2240 IF k=6 THEN 2250 LET sc=-sc 2260 LET sa=-sa 2270 END IF 2280 IF k=7 THEN 2300 LET sa=-sa 2310 LET sb=-sb 2320 LET sc=-sc 2330 END IF 2340 !' 2900 !' 2910 CLEAR 2980 GOTO 1030 2990 !' 9980 !' 9990 END 10000 !' ŠÖ”‚Ì’è‹` 10010 EXTERNAL FUNCTION f(x,a,b,c,sa,sb,sc) 10020 LET f=x*(sa*a*x+sb*b)+sc*c 10030 END FUNCTION 10040 !' 10200 !' ŠÖ”•\Ž¦ƒ‹[ƒ`ƒ“ 10210 EXTERNAL SUB draw_function(p,q,s,a,b,c,sa,sb,sc) 10220 FOR xx=p TO q STEP s 10230 PLOT LINES: xx,f(xx,a,b,c,sa,sb,sc); 10240 NEXT xx 10250 END SUB 10260 !'