Grapes/win 2.8 [Don't Edit] 3.14 ---------- BGstretchOn BGfile 1 ---------- UserFunction 3 1 2 3 1 1 1 s-x p-f(x)+Sqrt(p^2+f(x)^2) yz/2x ---------- y = f(x) 0 ---------- 0 = f(x,y) 0 ---------- Point 22 4 5 6 12 13 14 18 1 2 3 9 10 11 19 20 8 0 0 15 16 17 7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 P 2 1 2 P (intr(A,I,E,F)).x (intr(A,I,E,F)).y h(g(a),g(b),g(c)) t 0.1 0 0 0 0 16777215 1 0 0 1 1 0 0 1 0 2 0 Q 2 2 2 Q (intr(B,I,T,U)).x (intr(B,I,T,U)).y h(g(b),g(c),g(a)) t 0.1 0 0 0 0 16777215 1 0 0 1 1 0 0 1 0 2 0 R 2 4 2 R (intr(C,I,M,N)).x (intr(C,I,M,N)).y h(g(c),g(a),g(b)) t 0.1 0 0 0 0 16777215 1 0 0 1 1 0 0 1 0 2 0 S 1 0 2 S (rot(C,B,Pi/2)).x (rot(C,B,Pi/2)).y 0 t 0.1 0 0 255 0 16777215 0 0 0 1 1 0 0 3 0 2 0 T 1 0 2 T (B+Q.r*BS/[BS]).x (B+Q.r*BS/[BS]).y 0 t 0.1 0 0 255 0 16777215 0 0 0 1 1 0 0 3 0 2 0 U 1 0 2 U (rot(S,T,-Pi/2)).x (rot(S,T,-Pi/2)).y 0 t 0.1 0 0 255 0 16777215 0 0 0 1 1 0 0 3 0 2 0 V 2 0 2 V ((1-k)I+kP).x ((1-k)I+kP).y (1-k)I.r+kP.r t 0.1 0 0 48896 48896 48896 0 0 0 4 1 0 0 1 0 3 0 A 1 3 2 A 6.23995468944326 7.57997734472163 0 t 0.1 0 0 16711680 0 16777215 1 1 1 1 1 0 0 2 0 2 0 B 1 2 2 B -5.60 -3.08 0 t 0.1 0 0 16711680 0 16777215 1 1 1 1 1 0 0 2 0 2 0 C 1 4 2 C 13.96 -3.12 0 t 0.1 0 0 16711680 0 16777215 1 1 1 1 1 0 0 2 0 2 0 D 1 0 2 D (rot(B,A,Pi/2)).x (rot(B,A,Pi/2)).y 0 t 0.1 0 0 255 0 16777215 0 0 0 1 1 0 0 3 0 2 0 E 1 0 2 E (A+P.r*AD/[AD]).x (A+P.r*AD/[AD]).y 0 t 0.1 0 0 255 0 16777215 0 0 0 1 1 0 0 3 0 2 0 F 1 0 2 F (rot(D,E,-Pi/2)).x (rot(D,E,-Pi/2)).y 0 t 0.1 0 0 255 0 16777215 0 0 0 1 1 0 0 3 0 2 0 G 2 0 2 G ((1-k)I+kQ).x ((1-k)I+kQ).y (1-k)I.r+kQ.r t 0.1 0 0 48896 48896 48896 0 0 0 4 1 0 0 1 0 3 0 H 2 0 2 H ((1-k)I+kR).x ((1-k)I+kR).y (1-k)I.r+kR.r t 0.1 0 0 48896 48896 48896 0 0 0 4 1 0 0 1 0 3 0 I 2 4 2 I (Icentr(A,B,C)).x (Icentr(A,B,C)).y Irad(A,B,C) t 0.1 0 0 255 255 16777215 1 0 0 1 1 0 0 1 0 2 0 J 0 0 1 K 0 0 1 L 1 0 2 L (rot(A,C,Pi/2)).x (rot(A,C,Pi/2)).y 0 t 0.1 0 0 255 0 16777215 0 0 0 1 1 0 0 3 0 2 0 M 1 0 2 M (C+R.r*CL/[CL]).x (C+R.r*CL/[CL]).y 0 t 0.1 0 0 255 0 16777215 0 0 0 1 1 0 0 3 0 2 0 N 1 0 2 N (rot(L,M,-Pi/2)).x (rot(L,M,-Pi/2)).y 0 t 0.1 0 0 255 0 16777215 0 0 0 1 1 0 0 3 0 2 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 3 1 1 1 16711680 16777215 2 0 1 0 0 0 {a} 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 16711680 16777215 2 0 1 0 0 0 {b} 10 8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 16711680 16777215 2 0 1 0 0 0 {c} 8 9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ---------- paramater 14 19.5600408997527 0 1 1 0.1 0 1 13.194264 0 1 1 0.1 0 2 15.931718 0 1 1 0.1 0 3 6 0 1 1 0.1 1 0 6.2831831 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 4.2924589 0 1 1 0.1 0 4 6.6655225 0 1 1 0.1 1 0 24.343012 0 1 1 0.1 0 5 1 0 1 1 0.1 1 0 6.24 0 1 1 0.1 1 0 7.58 0 1 1 0.1 1 0 6.2831815 0 1 1 0.1 1 0 1 0 1 1 0.05 1 6 1 1 112 ---------- 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 914 x x AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible 0 0 0 0 0 NUmber,Base,Linterval,numberR 7 1 1 7 High,Low 15.2399825717629 -7.05270035506635 ---------- ScaleY Vlow,VHigh,label 0 914 y AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible 0 0 0 0 0 NUmber,Base,Linterval,NumbeerR 7 1 1 7 High,Low 16.9446282141079 -5.25202821410791 ---------- 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 0 0 0 33 0 0 0 0 0 0 1 0 1 ---------- PetaMEMO SECTION Style, Color, BGcolor , Size, PositionX, positionY 3 16711680 0 12 0 0 0 59 三角形ABCが与えられたとき、 その辺に2つずつ内接し、 互いに外接する3円を求めよ。 これは、「マルファティの問題」です。 「安島-マルファテイの問題の逆」 3点A,B,Cはドラッグ可 #HideScript//CAL #on A,B,C change #a:=[BC] #b:=[CA] #c:=[AB] #s:=(a+b+c)/2 #p:=Sqrt(s(s-a)(s-b)(s-c))/s #//<変形(点Aの移動)> #draw #u:=A.x #v:=A.y #for @:=0 to 2Pi step Pi/72 #A.x:=u+6sin(2@) #A.y:=v+6sin@ #Call(CAL) #draw #next #//【内接円Iと3円P,Q,R】 #ShowObj(V) #wait(500) #for m:=0 to Pi step Pi/72 #k:=(cosm+1)/2 #draw #next d #HideObj(V) #ShowObj(G) #for m:=Pi to 3Pi step Pi/72 #k:=(cosm+1)/2 #draw #next d #HideObj(G) #ShowObj(H) #for m:=Pi to 3Pi step Pi/72 #k:=(cosm+1)/2 #draw #next d #HideObj(H) #ShowObj(V) #for m:=Pi to 2Pi step Pi/72 #k:=(cosm+1)/2 #draw #next d #wait(2000) #HideObj(V,G,H) #//(円の表示SW) #InvShowObj(V,G,H) ---------- 11 4 27 1 4 109 1 4 167 1 6 36 0 6 36 0 6 36 0 6 36 0 6 36 0 6 36 0 6 36 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 ----------