Grapes/win 2.8 [Don't Edit] 3.14 ---------- BGstretchOn BGfile 0 ---------- UserFunction 2 1 2 1 1 xSqrt(1-x^2) cosx ---------- y = f(x) 0 ---------- 0 = f(x,y) 1 1 0 x^2/a^2 +(y-f(a))^2/f(a)^2 =1 0 16711680 2 1 4 1 0 1 X ---------- Point 22 3 4 5 6 7 8 0 1 9 0 0 0 0 0 0 0 0 0 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 P 1 9 2 P 2a^2-1 2f(a) 0 t 0.1 0 0 48896 16711680 16777215 1 0 0 1 1 0 0 2 0 1 0 Q 1 0 1 Q -P.x P.y 0 t 0.1 0 0 16711680 16711680 16777215 1 0 0 1 1 0 0 1 0 1 0 R 1 2 2 R -1 0 0 t 0.1 0 0 48896 16711680 16777215 1 0 0 1 1 0 0 2 0 1 0 S 1 9 2 S a f(a) 0 t 0.1 0 0 255 16711680 16777215 1 0 0 1 1 0 0 3 0 1 0 T 1 8 2 T -S.x S.y 0 t 0.1 0 0 255 16711680 16777215 1 0 0 1 1 0 0 3 0 1 0 U 1 0 2 U (rot(P,R,-karg(RP))).x (rot(P,R,-karg(RP))).y 0 t 0.1 1 0 48896 16711680 16777215 0 0 0 1 1 0 0 2 0 1 0 V 0 0 1 A 2 0 2 A 0 0 1 t 0.1 0 0 16777215 16711680 16777215 1 0 0 1 1 0 0 3 0 2 0 B 1 0 2 B 1 0 0 t 0.1 0 0 255 255 16777215 1 0 0 1 1 0 0 1 0 2 0 C 0 0 1 D 0 0 1 E 0 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 0 t 0.1 0 0 16777215 16711680 16777215 1 0 0 1 1 0 0 3 0 1 0 ---------- Segments 7 7 1 1 13631696 16777215 1 0 1 0 0 0 1 2 3 9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 48896 16777215 4 0 1 0 0 0 1 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 255 16777215 3 0 1 0 0 0 5 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 48896 16777215 4 0 0 0 0 0 3 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 16777215 3 0 0 0 0 0 5 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 16777215 3 0 0 0 0 0 4 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 255 16777215 1 0 1 0 0 0 3 9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ---------- paramater 14 0.9 0 1 1 0.02 1 1 0.43 0 1 1 0.01 1 0 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 -0.6 0 1 1 0.1 1 0 1 0 1 1 0.05 0 2 1 1 80 ---------- KakuMode ScanWidth LogMode ThetaMode AreaMode capStyle 1 4 2 1 1 0 1 1 0 1 0 32 0 DrawMode SegmentShowSync 1 0 AfterImageColorNo, CanAImg,MaxAimgN0 2 1 3001 circleMode 1 ---------- ScaleX Vlow,VHigh,label 0 970 x x AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible 0 0 0 0 0 NUmber,Base,Linterval,numberR 1 1 1 1 High,Low 1.29146702225973 -1.33015459936189 ---------- ScaleY Vlow,VHigh,label 0 914 y AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible 0 0 0 0 0 NUmber,Base,Linterval,NumbeerR 1 1 1 1 High,Low 1.25525626889371 -1.21501400137656 ---------- ScaleS SquareQ AreaRectify PsMesh AxisWidth FontSize AxisOn letterCenterShowPOsition ShowEquation AxisType PolorNum Areafixed 1 1 0 1 12 0 0 0 0 0 12 0 0 0 ---------- Yvalue 1 1 ---------- Iinterval Svalue Evalue sliceNo 1 -1 1 1 40 10 Dfuncno Efuncno AreaQ 1 0 0 ---------- Yvalue Function List 6 y1 y2 y3 y4 y5 y6 ---------- Panel Position 0 0 0 0 210 52 0 85 0 0 0 0 1 0 1 0 1 ---------- PetaMEMO SECTION Style, Color, BGcolor , Size, PositionX, positionY 3 16711680 0 12 0 0 0 35 半円に内接する楕円の短軸 を高さとする台形の対角線は、 楕円の長軸と等しい つまり、TS=PR #//aを初期値に戻す #a:=0.9 #draw #//aを最小値にセット #a:=1/Sqrt(2) #draw #//Show #On a change #if a<1/Sqrt(2) then a:=1/Sqrt(2) #if a>0.999 then a:=0.999 #k:=0 #Calc #ClrAImg #HideObj(L6,L4,U) #Wait(1500) #ShowObj(L4,U) #for k:=0 to 1 step 0.01 #draw #next k #Wait(800) #ShowObj(L5,L6) #Wait(300) #HideObj(L5,L6) #Wait(300) #ShowObj(L5,L6) #Wait(1000) #HideObj(L4,L5,L6,U) #Wait(1000) #ClrAImg ---------- 11 4 27 1 8 147 1 8 52 0 8 52 0 8 52 0 8 52 0 8 52 0 8 52 0 8 52 0 8 52 0 4 24 0 ---------- Table SECTION RowNo, ColumnNo 0 10 200 Table Data 60 60 60 60 60 60 60 60 60 60 ---------- SimpleMemo SECTION 0 ----------