(* ver 0.40 以降 in Japanese*)
SetDirectory[NotebookDirectory[]];
<< ketpic6.m (* Mathematica 6 だと必要です。*)
<< DyGeom.m
p1 = 点[{-4, -1}, 名前 -> "A", 位置 -> "w"]
p2 = 点[{1, 4}, 名前 -> "B", 位置 -> "nw"]
p3 = 点[{2, -1}, 名前 -> "C", 位置 -> "ne"]
l1 = 線分[p1, p2]
l2 = 線分[p2, p3]
l3 = 線分[p3, p1]
p4 = 中点[p1, p2, 名前 -> "D", 位置 -> "nw2"]
l4 = 線分[p3, p4]
p5 = 中点[p2, p3, 名前 -> "E", 位置 -> "nw2"]
l5 = 線分[p1, p5]
p6 = 中点[p3, p1, 名前 -> "F", 位置 -> "nw"]
l6 = 線分[p2, p6]
p7 = 交点[l4, l5, 名前 -> "G", 位置 -> "w4"]
bow1 = カッコ印[p1, p6, bowshape -> "dash"]
bow2 = カッコ印[p6, p3, bowshape -> "dash"]
bow3 = カッコ印[p2, p4, bowshape -> "circle"]
bow4 = カッコ印[p4, p1, bowshape -> "circle"]
bow5 = カッコ印[p3, p5, bowshape -> "dash2"]
bow6 = カッコ印[p5, p2, bowshape -> "dash2"]
作図[p1, p2, p3, p4, l1, l2, l3, l4, p5, p6, l5, l6, p7, bow1, bow2, bow3, bow4, bow5, bow6]
(* in English *)
SetDirectory[NotebookDirectory[]];
<< ketpic6.m
<< DyGeom.m
p1 = FreePoint[{-4, -1}, pointname -> "A", pointposition -> "w"]
p2 = FreePoint[{1, 4}, pointname -> "B", pointposition -> "nw"]
p3 = FreePoint[{2, -1}, pointname -> "C", pointposition -> "ne"]
l1 = ConnectPoints[p1, p2, clipping -> {p1, p2}]
l2 = ConnectPoints[p2, p3, clipping -> {p2, p3}]
l3 = ConnectPoints[p3, p1, clipping -> {p3, p1}]
p4 = MidPoint[p1, p2, pointname -> "D", pointposition -> "nw2"]
l4 = ConnectPoints[p3, p4, clipping -> {p3, p4}]
p5 = MidPoint[p2, p3, pointname -> "E", pointposition -> "nw2"]
l5 = ConnectPoints[p1, p5, clipping -> {p1, p5}]
p6 = MidPoint[p3, p1, pointname -> "F", pointposition -> "nw"]
l6 = ConnectPoints[p2, p6, clipping -> {p2, p6}]
p7 = IntersectionLL[l4, l5, pointname -> "G", pointposition -> "w4"]
bow1 = BowMark[p1, p6, bowshape -> "dash"]
bow2 = BowMark[p6, p3, bowshape -> "dash"]
bow3 = BowMark[p2, p4, bowshape -> "circle"]
bow4 = BowMark[p4, p1, bowshape -> "circle"]
bow5 = BowMark[p3, p5, bowshape -> "dash2"]
bow6 = BowMark[p5, p2, bowshape -> "dash2"]
DrawConstruction[p1, p2, p3, p4, l1, l2, l3, l4, p5, p6, l5, l6, p7, bow1, bow2, bow3, bow4, bow5, bow6]
最終更新：2011年12月19日 18:50
