100 !' ************************************************** 110 !' * * 120 !' * 2次関数の平行移動指導 プログラム * 130 !' * * 140 !' * "D1p074R13.bas" * 150 !' * 数T/034(第一)例13(p74) * 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(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)="-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,p,q) 10020 LET f=2*(x-p)*(x-p-2)+1+q 10030 END FUNCTION 10040 !' 10200 !' 関数表示ルーチン 10210 EXTERNAL SUB draw_function(a,b,s,p,q) 10220 FOR xx=a TO b STEP s 10230 PLOT LINES: xx,f(xx,p,q); 10240 NEXT xx 10250 END SUB 10260 !'