ｸｲｽﾞ大陸

十進BASICで開いてください。設問５を考えるときに使いました。
確か入試問題で出すときは、これら以外のヒントがあって、f(x)を決定したようなことを冒険の書で見たような。
▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
!十進BASICで開くと吉。
!マウスで画面を左クリックすると、クリックした点のx座標における接線を表示します。
!右クリックで停止。
100 SET WINDOW -1,30,-1,30
110 DRAW GRID
120 FOR t=-1 TO 30 STEP 0.01
130 SET POINT STYLE 1
140 SET POINT COLOR 1
150 PLOT POINTS: t,-1/25*(t-25)^2+25
160 NEXT t
170 GET POINT: x, y
180 FOR s=-1 TO 30 STEP 0.01
190 SET POINT COLOR 2
200 PLOT POINTS: s,-2/25*(x-25)*(s-x)-1/25*(x-25)^2+25
210 NEXT s
220 GOTO 100
230 END
▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
!十進BASICで開くと吉。
!接点のx座標の間隔を半角英数で入力すると、x座標における接線を表示します。
!
010 PRINT "接点のx座標の間隔を半角英数で入力してください。"
020 INPUT n
100 SET WINDOW -1,30,-1,30
110 DRAW GRID
120 FOR t=-1 TO 30 STEP 0.01
130 SET POINT STYLE 1
140 SET POINT COLOR 1
150 PLOT POINTS: t,-1/25*(t-25)^2+25
160 NEXT t
170 FOR x=-1 TO 30 STEP n
180 FOR s=-1 TO 30 STEP 0.02
190 SET POINT COLOR 2
200 PLOT POINTS: s,-2/25*(x-25)*(s-x)-1/25*(x-25)^2+25
210 NEXT s
220 NEXT x
230 GOTO 100
240 END
▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲