Grapes/win 2.6 [Don't Edit] ---------- BGstretchOn BGfile 0 ---------- UserFunction 3 1 2 3 x^3-3px-p/2 x^2 3x+1/2 ---------- y = f(x) 9 1 2 3 4 5 6 7 8 9 f(x) 0 9 2 0 1 g(x) 0 4 2 1 1 h(x) 0 5 2 1 2 -1/g'(P.x)キ(x-P.x)+g(P.x) 0 1 3 0 1 -1/g'(Q.x)キ(x-Q.x)+g(Q.x) 0 1 3 0 1 -1/g'(R.x)キ(x-R.x)+g(R.x) 0 1 3 0 1 -1/g'(B.x)キ(x-B.x)+g(B.x) 0 1 3 1 1 g(x)(f(x)=0)(p<=0) 0 2 4 1 1 0(f(x)=0) 0 2 4 0 1 ---------- 0 = f(x,y) 0 ---------- Point 20 1 2 3 4 5 6 7 8 9 10 0 0 0 0 0 0 0 0 0 11 P 1 0 1 P 2Sqrt(p)キcos(A.x) 0 t 0.1 0 0 2 1 0 0 0 1 1 1 0 4 0 1 Q 1 0 1 Q 2Sqrt(p)キcos(A.x+2キPi/3) 0 t 0.1 0 0 2 1 0 0 0 1 1 1 0 4 0 1 R 1 0 1 R 2Sqrt(p)キcos(A.x+4キPi/3) 0 t 0.1 0 0 2 1 0 0 0 1 1 1 0 4 0 1 S 1 0 1 S p h(x) t 0.1 0 0 4 1 0 1 0 0 1 1 0 6 0 1 T 4 0 1 T 0(p=0) t 0.1 0 0 1 1 0 1 0 1 1 1 0 3 0 1 A 1 0 1 A Acos(p/4Sqrt(p^3))/3(p>0) 0 t 0.1 0 0 1 1 0 0 0 1 1 1 0 3 0 1 B 1 0 1 B ((p/2+Sqrt(p^2/4-4p^3))/2)^(1/3)+((p/2-Sqrt(p^2/4-4p^3))/2)^(1/3)(p>=0) g(x) t 0.1 0 0 2 1 0 0 0 0 1 1 0 4 0 1 C 1 0 1 P.x g(x) t 0.1 0 0 2 1 0 0 0 0 1 1 0 4 0 1 D 1 0 1 D Q.x g(x) t 0.1 0 0 2 1 0 0 0 0 1 1 0 4 0 1 E 1 0 1 E R.x g(x) t 0.1 0 0 2 1 0 0 0 0 1 1 0 4 0 1 F 0 0 1 G 0 0 1 H 0 0 1 I 0 0 1 J 0 0 1 K 0 0 1 L 0 0 1 M 0 0 1 N 0 0 1 O 1 0 2 O 0 0 t 0.1 0 0 0 1 0 1 0 0 1 1 0 3 0 1 ---------- Segments 4 1 3 1 4 0 1 0 1 0 8 1 0 0 0 0 0 0 0 0 0 1 3 1 4 0 1 0 1 0 9 2 0 0 0 0 0 0 0 0 0 1 3 1 4 0 1 0 1 0 10 3 0 0 0 0 0 0 0 0 0 1 3 1 4 0 1 0 0 0 7 250 0 0 0 0 0 0 0 0 0 ---------- paramater 14 0.3 0 1 1 0.01 0.5 0 1 1 0.1 0.2 0 1 1 0.1 1 0 1 1 0.1 1 0 1 1 0.1 1 0 1 1 0.1 0.3 0 1 1 0.01 1 0 1 1 0.1 1 0 1 1 0.1 0 0 1 1 0.1 1 0 1 1 0.1 1 0 1 1 0.1 0 0 1 1 0.1 1 0 1 1 0.1 1 1 16 ---------- KakuMode ScanWidth LogMode ThetaMode AreaMode capStyle 1 4 2 1 1 0 0 DrawMode 1 AfterImageColorNo, CanAImg 2 1 circleMode 1 ---------- ScaleX Vlow,VHigh,label 0 890 x x AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter 1 0 1 0 NUmber,Base 2 1 High,Low 1.12876078632774 -0.941006655532726 ---------- ScaleY Vlow,VHigh,label 0 890 y AxesVisible,ScaleVisible,Svaluevisible 1 0 1 NUmber,Base 2 1 High,Low 1.75429022093023 -0.315477220930236 ---------- ScaleS SquareQ AreaRectify PsMesh AxisWidth FontSize AxisOn letterCenter 1 1 0 1 28 0 1 ---------- Yvalue 1 1 ---------- Iinterval Svalue Evalue sliceNo 1 -1 1 1 40 Dfuncno Efuncno AreaQ 1 0 0 ---------- Yvalue Function List 9 y1 y2 y3 y4 y5 y6 y7 y8 y9 ---------- Panel Position 369 0 0 0 0 0 87 0 0 0 0 0 1 0 1 0 1 ---------- MEMO SECTION Style, Color, BGcolor , Size, PositionX, positionY 2 1 2 32 0 0 0 97 {p=}?{p|5} #------------------------- #//ステップ@法線をイメージしてみよう # HideObj(y1,y4,y5,y6,B,C,D,E,P,Q,R,y9,L4) # p:=0.3 # Calc # RefreshMemo # Draw #------------------------- #//ステップA法線描画 # ShowObj(y4,y5,y6,B,C,D,E) #------------------------- #//初期化@法線あり,方程式なし # HideObj(y1,P,Q,R,y9,L4) # p:=0.3 # Calc # RefreshMemo # Draw #------------------------- #//ステップBpを動かしてみよう(関数なし,Auto) # ShowObj(S,T,B,C,D,E) # HideObj(y1,P,Q,R,y9,L4) # for t := 30 to 8 step -1 # p:=t/100 # calc # RefreshMemo # draw #next t # for t := 80 to 63 step -2 # p:=t/1000 # calc # RefreshMemo # draw #next t # for t := 630 to 625 step -5 # p:=t/10000 # calc # RefreshMemo # draw #next t # for t := 625 to 0 step -25 # p:=t/10000 # calc # RefreshMemo # draw #next t #--- #------------------------- #//初期化A方程式表示 # ShowObj(P,Q,R,S,T,B,C,D,E,y1,y8) # HideObj(y9,L4) # p:=0.3 # Calc # RefreshMemo # Draw #------------------------- #//ステップCpを動かしてみよう(関数付き,Auto) # ShowObj(P,Q,R,S,T,B,C,D,E) # HideObj(y9,L4) # for t := 30 to 8 step -1 # p:=t/100 # calc # RefreshMemo # draw #next t # for t := 80 to 63 step -2 # p:=t/1000 # calc # RefreshMemo # draw #next t # for t := 630 to 625 step -5 # p:=t/10000 # calc # RefreshMemo # draw #next t # ShowObj(L4) # for t := 625 to 0 step -25 # p:=t/10000 # calc # RefreshMemo # draw #next t #--- ---------- 9 96 32 0 96 32 0 4 24 1 4 24 1 4 24 1 4 24 1 4 24 1 4 24 1 4 24 0 ----------