100 !' ************************************************** 110 !' * * 120 !' * 2次関数のグラフと最大・最小 プログラム * 130 !' * * 140 !' * "D1p087MN11.bas" * 150 !' * 数T/034(第一)節末問題11(p87) * 160 !' * * 170 !' * 2009/3/14/Sat. by YO * 180 !' * * 190 !' ************************************************** 200 !' 定数・配列の定義 210 LET cx$="Blue" 220 LET cy$="Green" 230 DIM bn$(7) 240 DIM zz(7) 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 2290 LET zp=1 2300 END IF 2310 !' 2900 !' 2910 CLEAR 2980 GOTO 1020 2990 !' 9980 !' 9990 END 10000 !' 関数の定義 10010 EXTERNAL FUNCTION f(x,a,b) 10020 LET f=a*x*(x-4)+b 10030 END FUNCTION 10040 !' 10200 !' 関数表示ルーチン 10210 EXTERNAL SUB draw_function(p,q,s,a,b) 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 END SUB 10270 !'