100 !' ************************************************** 110 !' * * 120 !' * 2次関数の平行移動・対称移動指導 プログラム * 130 !' * * 140 !' * "D1p076Tankyu_RD2.bas" * 150 !' * 数T/034(第一)探究例題2(p76) * 160 !' * * 170 !' * 2009/3/14/Sat. by YO * 180 !' * * 190 !' ************************************************** 200 !' 定数・配列の定義 210 LET cx$="Blue" 220 LET cy$="Green" 230 DIM bn$(8) 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 2330 LET zp=1 2340 END IF 2350 !' 2900 !' 2910 CLEAR 2980 GOTO 1020 2990 !' 9980 !' 9990 END 10000 !' 関数の定義 10010 EXTERNAL FUNCTION f(x,p,q,sa,sb,sc) 10020 LET f=sa*2*x*x-sb*(4*p+3)*x+sc*(p*(2*p+3)+q+1) 10030 END FUNCTION 10040 !' 10200 !' 関数表示ルーチン 10210 EXTERNAL SUB draw_function(a,b,s,p,q,sa,sb,sc) 10220 FOR xx=a TO b STEP s 10230 PLOT LINES: xx,f(xx,p,q,sa,sb,sc); 10240 NEXT xx 10250 PLOT LINES: xx,f(xx-s,p,q,sa,sb,sc) 10260 END SUB 10270 !'