Grapes/win 2.8 [Don't Edit] 3.14 ---------- BGstretchOn BGfile 0 ---------- UserFunction 0 ---------- y = f(x) 0 ---------- 0 = f(x,y) 0 ---------- Point 22 1 2 9 7 5 0 0 3 6 8 10 12 14 16 18 0 0 17 15 13 11 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 P 2 0 2 P 0 0 1 t 0.1 0 0 16777215 0 16777215 1 0 1 1 1 0 0 2 0 2 0 Q 2 0 2 Q d 0 a t 0.1 0 0 16777215 0 16777215 1 0 0 1 1 0 0 2 0 2 0 R 1 0 2 R (Ptan(C,Q,-a)).x (Ptan(C,Q,-a)).y 0 t 0.1 0 0 48896 16711680 16777215 1 0 0 1 1 0 0 2 0 1 0 S 1 0 2 S (Ptan(B,Q,-a)).x (Ptan(B,Q,-a)).y 0 t 0.1 0 0 48896 16711680 16777215 1 0 0 1 1 0 0 2 0 1 0 T 1 0 2 T (Ptan(A,Q,-a)).x (Ptan(A,Q,-a)).y 0 t 0.1 0 0 48896 16711680 16777215 1 0 0 1 1 0 0 2 0 1 0 U 0 0 1 V 0 0 1 A 6 4 2 A (roll(@)).x (roll(@)).y 0 0 2Pi @ 0.001 0 0 255 16777215 16777215 1 0 1 1 1 0 0 4 0 2 0 B 1 0 2 B (intr(A,T,P,1)).x (intr(A,T,P,1)).y 0 t 0.1 0 0 255 16711680 16777215 1 0 0 1 1 0 0 1 0 1 0 C 1 0 2 C (intr(B,S,P,1)).x (intr(B,S,P,1)).y 0 t 0.1 0 0 255 16711680 16777215 1 0 0 1 1 0 0 1 0 1 0 D 1 0 2 D (intr(C,R,P,1)).x (intr(C,R,P,1)).y 0 t 0.1 0 0 255 16711680 16777215 1 0 0 1 1 0 0 1 0 1 0 E 1 0 2 E (intr(D,N,P,1)).x (intr(D,N,P,1)).y 0 t 0.1 0 0 255 16711680 16777215 1 0 0 1 1 0 0 1 0 1 0 F 1 0 2 F (intr(E,M,P,1)).x (intr(E,M,P,1)).y 0 t 0.1 0 0 255 16711680 16777215 1 0 0 1 1 0 0 1 0 1 0 G 1 0 2 G (intr(F,L,P,1)).x (intr(F,L,P,1)).y 0 t 0.1 0 0 255 16711680 16777215 1 0 0 1 1 0 0 1 0 1 0 H 1 0 2 H (intr(G,K,P,1)).x (intr(G,K,P,1)).y 0 t 0.1 0 0 255 16711680 16777215 1 0 0 1 1 0 0 1 0 1 0 I 0 0 1 J 0 0 1 K 1 0 2 K (Ptan(G,Q,-a)).x (Ptan(G,Q,-a)).y 0 t 0.1 0 0 48896 16711680 16777215 1 0 0 1 1 0 0 2 0 1 0 L 1 0 2 L (Ptan(F,Q,-a)).x (Ptan(F,Q,-a)).y 0 t 0.1 0 0 48896 16711680 16777215 1 0 0 1 1 0 0 2 0 1 0 M 1 0 2 M (Ptan(E,Q,-a)).x (Ptan(E,Q,-a)).y 0 t 0.1 0 0 48896 16711680 16777215 1 0 0 1 1 0 0 2 0 1 0 N 1 0 2 N (Ptan(D,Q,-a)).x (Ptan(D,Q,-a)).y 0 t 0.1 0 0 48896 16711680 16777215 1 0 0 1 1 0 0 2 0 1 0 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 8 1 1 1 255 16777215 2 0 1 0 0 0 8 9 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 2 0 1 0 0 0 9 10 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 2 0 1 0 0 0 10 11 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 {d} 1 2 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 2 0 1 0 0 0 11 12 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 2 0 1 0 0 0 12 13 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 2 0 1 0 0 0 13 14 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 2 0 1 0 0 0 14 15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ---------- paramater 14 0.195 0 1 1 0.002 1 1 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 0.39 0 1 1 0.01 1 2 1 0 1 1 0.1 1 0 -2 0 1 1 1 1 0 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 0.1 0 1 1 0.1 1 0 25 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 6.5973443 0 1 1 0.15707963267949 1 3 1 0 1 1 0.1 1 0 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 1 AfterImageColorNo, CanAImg,MaxAimgN0 2 1 3001 circleMode 1 ---------- ScaleX Vlow,VHigh,label 0 914 x x AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible 0 0 0 0 1 NUmber,Base,Linterval,numberR 7 1 1 7 High,Low 1.17711879668429 -1.10788120331571 ---------- ScaleY Vlow,VHigh,label 0 914 y AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible 0 0 0 1 0 NUmber,Base,Linterval,NumbeerR 7 1 1 7 High,Low 1.18901 -1.09599 ---------- ScaleS SquareQ AreaRectify PsMesh AxisWidth FontSize AxisOn letterCenterShowPOsition ShowEquation AxisType PolorNum Areafixed 0 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 0 52 142 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 47 ポンスレーの定理 同一内接円を持つ多角形は、 無数に存在する。 三角形  {d=sqrt(R^2-2Rr)} 四角形  {d=sqrt(R^2+r^2-rsqrt(r^2+4R^2))} 五角形  ・・・ 点Aはドラッグ出来ます。 星形も同様?(予想?) # //点Aを1周させる # for @ :=Pi/10 to 2Pi+Pi/10 step Pi/15 # wait(10) # draw # next #--- #//三角形 (aからdを決定する) # d:=sqrt(1-2a) # draw #--- #//四角形 (aからdを決定する) # d:=sqrt(1+a^2-a*sqrt(a^2+4)) # draw #--- #//5つ星 (近似的にa,dを決める) #a:=0.2306 #d:=0.543 #@:=Pi/15 # draw #--- #//7つ星 (近似的にa,dを決める) #a:=0.195 #d:=0.39 #@:=Pi/15 # draw #--- #//7つ星(別版) (近似的にa,dを決める) #a:=0.555 #d:=0.301 #@:=Pi/15 # draw #--- ---------- 11 4 27 1 4 170 1 13 18 0 4 25 1 4 25 1 4 25 1 4 25 1 4 25 1 4 25 0 4 25 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 ----------