新しく発言する EXIT インデックスへ
任意のxにおける放物線の接線を表示するには...
　　任意のxにおける放物線の接線を表示するには？ Z,YAMAMOTO. 2003/10/25 16:06:33 
　　└自力解決しました。次のようなプログラムに... 山本善次 2003/10/25 16:56:51 

　　任意のxにおける放物線の接線を表示するには？ Z,YAMAMOTO. 2003/10/25 16:06:33  ツリーへ

任意のxにおける放物線の接線を表示するには？ 返事を書く
Z,YAMAMOTO. 2003/10/25 16:06:33
等速度運動(y=3x+18)と等加速度運動(y=x^2)の競争プログラムを作りたいのですが、二次関数の微分係数f'(x)=2xが一次関数の勾配3と一致するとき、このx値での放物線の接線
を表示するにはどうしたらよいでしょうか。
******************************************************
100 REM%%一次関数f(x)と二次関数のh(x)のグラフと、その差を求め表示するプログラム。
110 DEF f(x)=3*X+18
120 DEF h(x)=x^2
130 DEF g(x)=f(x)-h(x)
140 SET WINDOW -2,8,-2,40
150 DRAW grid
160 FOR x=0 TO 6 STEP 0.0005
170 PLOT LINES : x,f(x)
180 PLOT LINES : x,h(x)
190 PLOT LINES : x,g(x)
200 NEXT x
210 END
******************************************************* 

　　└自力解決しました。次のようなプログラムに... 山本善次 2003/10/25 16:56:51  ツリーへ

Re: 任意のxにおける放物線の接線を表示するには？ 返事を書く
山本善次 2003/10/25 16:56:51
自力解決しました。次のようなプログラムにすればいいのでした。
REM%%一次関数f(x)と二次関数のh(x)のグラフと、その差を求め表示するプログラム。
input a
DEF f(x)=a*x+18
DEF h(x)=x^2
DEF g(x)=f(x)-h(x)
SET WINDOW -2,8,-5,40
DRAW grid
FOR x=0 TO 6 STEP 0.0001
PLOT LINES : x,f(x)
PLOT LINES : x,h(x)
NEXT x
rem***差分のラインを描く******************
FOR x=0 TO 6 STEP 0.0001
PLOT LINES : x,g(x)
SET COLOR 10
next x
rem***最大値での接線表示****
def i(x)=a*x-a^2/4
FOR x=0 TO 6 STEP 0.0005
PLOT LINES : x,i(x)
SET COLOR 4
next x
rem*******おわり********
END

インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。