100 !' ************************************************** 110 !' * * 120 !' * 平方根の定義導入 プログラム * 130 !' * * 140 !' * "J1p031Root.bas" * 150 !' * 数T/024(実教)平方根の定義(p31) * 160 !' * * 170 !' * 2008/10/13/Mon. by YO * 180 !' * * 190 !' ************************************************** 200 !' 定数・配列の定義 210 LET cx$="Red" 220 LET cy$="Yellow" 230 DIM bn$(5) 290 !' 400 LET bn$(1)="<<" 410 LET bn$(2)="<-" 420 LET bn$(3)="a" 430 LET bn$(4)="+<" 440 LET bn$(5)="<<" 490 !' 500 !' 関数の定義 510 DECLARE EXTERNAL FUNCTION f 590 !' 600 !' 外部副プログラムの定義 610 DECLARE EXTERNAL SUB draw_function 790 !' 800 !' 変数の定義 810 LET a=2 850 !' 860 LET wxs=-8 870 LET wxe=8 880 LET wys=-2 890 LET wye=14 990 !' 1000 REM 主プログラム開始 1010 SET WINDOW wxs,wxe,wys,wye 1020 SET POINT STYLE 3 1030 SET LINE width 3 1040 DRAW Grid 1050 SET LINE width 1 1060 CALL draw_function(wxs,wxe,0.1,a) 1070 PLOT TEXT ,AT -0.5,a+0.1 : "a" 1080 !' 1090 !' 2000 LOCATE CHOICE(bn$):k 2010 IF k=3 THEN 2020 GOTO 9980 2030 END IF 2040 IF k=1 THEN 2050 LET a=a-0.1 2060 GOTO 2900 2070 END IF 2080 IF k=2 THEN 2090 LET a=a-0.02 2100 GOTO 2900 2110 END IF 2120 IF k=4 THEN 2130 LET a=a+0.02 2140 GOTO 2900 2150 END IF 2160 IF k=5 THEN 2170 LET a=a+0.1 2180 END IF 2190 !' 2900 !' 2910 CLEAR 2980 GOTO 1020 2990 !' 9980 !' 9990 END 10000 !' 関数の定義 10010 EXTERNAL FUNCTION f(x) 10020 LET f=x*x 10030 END FUNCTION 10040 !' 10200 !' 関数表示ルーチン 10210 EXTERNAL SUB draw_function(p,q,s,a) 10220 FOR xx=p TO q STEP s 10230 PLOT LINES: xx,f(xx); 10240 NEXT xx 10250 PLOT LINES: xx,f(xx) 10260 SET LINE COLOR "Blue" 10270 FOR xx=p TO q STEP s 10280 PLOT LINES: xx,a; 10290 NEXT xx 10300 SET LINE COLOR "Black" 10310 IF a>=0 THEN 10320 SET LINE STYLE 3 10330 PLOT LINES : SQR(a),a;SQR(a),0 10340 PLOT LINES : -SQR(a),a;-SQR(a),0 10350 SET LINE STYLE 1 10360 END IF 10370 END SUB 10380 !'