[FV5 Data] ver 592 memot MS 明朝 11 1 動点Pが直線上を動くとき, △PABの内心&傍心は,どのように動くでしょうか? (点Pが動く直線は,DEMOのときのみ青い線で表示されます。) 〔動点Pを動かすパラメータの説明〕 ・p …… 水平方向に動かす。 ・q …… 鉛直方向に動かす。 ・s …… 原点を通る直線上を動かす。 macro 142 Onload 初期設定 Sub 初期設定() #1 afimageoff cls p=0.17pi q=0.33pi s=0.25pi hidegraph z5 z6 z7 hidelabel 2 3 4 showgraph z1 z2 z3 z4 draw End sub Sub 軌跡を消去() #2 afimageoff cls End sub Sub 水平DEMO() #3 afimageoff cls showgraph z5 showlabel 2 draw wait 500 i=p For p=i to i+pi step 0.02pi draw Next p p=i draw wait 1000 afimageon i=p For p=i to i+pi step 0.02pi draw Next p p=i draw wait 500 hidegraph z5 hidelabel 2 3 4 afimageoff draw End sub Sub 垂直DEMO() #4 afimageoff cls showgraph z6 showlabel 3 draw wait 500 i=q For q=i to i+pi step 0.02pi draw Next q q=i draw wait 1000 afimageon i=q For q=i to i+pi step 0.02pi draw Next q q=i draw wait 500 hidegraph z6 hidelabel 2 3 4 afimageoff draw End sub Sub 斜めDEMO() #5 afimageoff cls showgraph z7 showlabel 4 draw wait 500 i=s For s=i to i+pi step 0.02pi draw Next s s=i draw wait 1000 afimageon i=s For s=i to i+pi step 0.02pi draw Next s s=i draw wait 500 hidegraph z7 hidelabel 2 3 4 afimageoff draw End sub zan false zanC 0 locus false ckind 0 cowidth 1 1 lattice 12632256 1 false 0 scale true true xcoodi false ycoodi false x y xmemori 1 ymemori 1 0 0 1 scrl 228 font 0 Times New Roman 12 0 pfont 0 Times New Roman 12 1 -5 5 -5 5 20.3999996185303 1 1 1 0 pq 0.534070730209351 1.03672552108765 sw 0 0 ks 1 0.1 0.785398185253143 0.1 syousai 3 0.1 0.1 0.1 0.1 0 0.1 0.1 0.1 0.1 0.1 0.1 1 1 0 0 labeldata 4 T 1 動点Pの座標: ({Q1|3}, {Q2|3} ) 0 8 8 0 0 0 0 24 16777215 0 1 0 0 16711680 4 5 1 Pが直線 y = {Q2|3} 上を動く 0 8 54 0 0 0 0 24 16777215 0 1 1 0 16711680 4 5 1 Pが直線 x = {Q1|3} 上を動く 0 8 54 0 0 0 0 24 16777215 0 1 1 0 16711680 4 5 1 Pが直線 y = {Q2/Q1|3}x 上を動く 0 8 54 0 0 0 0 24 16777215 0 1 1 0 16711680 4 5 graphmode 1 starting 5 end deffunc 0 defconst 6 tan(p)*tan(s) tan(q)*tan(s) (√((Q1-1)^2+(Q2)^2)-Q1+1)/Q2 -(√((Q1-1)^2+(Q2)^2)+Q1-1)/Q2 -(√((Q1+1)^2+(Q2)^2)+Q1+1)/Q2 (√((Q1+1)^2+(Q2)^2)-Q1-1)/Q2 Interval false true intevalcl 65535 1 0 24 3 (x+(Q3+Q5)/(Q3-Q5))^2+(y-2/(Q3-Q5))^2=(2/(Q3-Q5))^2 True False 255 3 1 128 3 (x+(Q4+Q6)/(Q4-Q6))^2+(y-2/(Q4-Q6))^2=(2/(Q4-Q6))^2 True False 255 3 1 128 3 (x+(Q3+Q6)/(Q3-Q6))^2+(y-2/(Q3-Q6))^2=(2/(Q3-Q6))^2 True False 255 3 1 128 3 (x+(Q4+Q5)/(Q4-Q5))^2+(y-2/(Q4-Q5))^2=(2/(Q4-Q5))^2 True False 255 3 1 128 3 y=Q2 True False false 16711680 1 1 128 3 x=Q1 True False false 16711680 1 1 128 3 y=(Q2/Q1)*x True False false 16711680 1 1 128 3 y=0 True False 0 3 1 128 3 Q2(x-1)-(Q1-1)y=0 True False 0 3 1 128 3 Q2(x+1)-(Q1+1)y=0 True False 0 3 1 128 7 I J False False false dash 255 1 2 false 24 13 7 I K False False false dash 255 1 2 false 24 14 7 I L False False false dash 255 1 2 false 24 6 7 J K False False false dash 255 1 2 false 13 14 7 J L False False false dash 255 1 2 false 13 6 7 K L False False false dash 255 1 2 false 14 6 8 1 0 A(1,0) False False 0 2 lk -1 1 5 1 8 -1 0 B(-1,0) False False 0 2 lk -1 2 2 1 8 Q1 Q2 P False False 16711680 2 lk -1 19 7 1 8 -(Q3+Q5)/(Q3-Q5) 2/(Q3-Q5) I0 False True 33023 2 lk -1 24 3 1 8 -(Q4+Q6)/(Q4-Q6) 2/(Q4-Q6) I3 False True 33023 2 lk -1 13 3 1 8 -(Q3+Q6)/(Q3-Q6) 2/(Q3-Q6) I1 False True 33023 2 lk -1 14 3 1 8 -(Q4+Q5)/(Q4-Q5) 2/(Q4-Q5) I2 False True 33023 2 lk -1 6 3 1 8 0 0 O(0,0) False False 0 2 lk -1 23 9 1