100 !' ************************************************** 110 !' * * 120 !' * 絶対値の方程式・不等式 プログラム * 130 !' * * 140 !' * "K1p060MN05_2.bas" * 150 !' * 数T/027(啓林館)章末問題A5(2)(p60) * 160 !' * * 170 !' * 2008/12/1/Mon. by YO * 180 !' * * 190 !' ************************************************** 200 !' 定数・配列の定義 210 LET cx$="Red" 220 LET cy$="Blue" 230 DIM bn$(8) 240 DIM zz(8) 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)="-6 THEN 2320 LET zp=1 2330 END IF 2340 !' 2900 !' 2910 CLEAR 2980 GOTO 1020 2990 !' 9980 !' 9990 END 10000 !' 関数の定義 10010 EXTERNAL FUNCTION f(x,a,b) 10020 LET f=ABS(a*x+b) 10030 END FUNCTION 10040 !' 10200 !' 関数表示ルーチン 10210 EXTERNAL SUB draw_function(p,q,s,a,b,c) 10220 FOR xx=p TO q STEP s 10230 PLOT LINES: xx,f(xx,a,b); 10240 NEXT xx 10250 PLOT LINES: xx,f(xx,a,b) 10260 SET LINE COLOR "Blue" 10270 FOR xx=p TO q STEP s 10280 PLOT LINES: xx,c; 10290 NEXT xx 10300 SET LINE COLOR "Black" 10310 END SUB 10320 !'