100 !' ************************************************** 110 !' * * 120 !' * 2次関数表示 プログラム * 130 !' * * 140 !' * "S1p062Palabola.bas" * 150 !' * 数T/030(数研)2次関数(p62〜) * 160 !' * * 170 !' * 2008/8/30/Sat. by YO * 180 !' * * 190 !' ************************************************** 200 !' 定数・配列の定義 210 LET cx$="Red" 220 LET cy$="Yellow" 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,c) 10020 LET f=(a*x+b)*x+c 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,c); 10240 NEXT xx 10250 END SUB 10260 !'