1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
\pstGeonode[PosAngle={-90,0}]{O}(5;0){P_1}
\pstCircleOA{O}{P_1}
\pstSymO[PointSymbol=none, PointName=none, CodeFig=false]{O}{P_1}[PP_1]
\ncline[linestyle=solid]{PP_1}{P_1}
\pstRotation[RotAngle=90, PosAngle=90]{O}{P_1}[B]
\pstRightAngle[linestyle=solid]{B}{O}{PP_1}\ncline[linestyle=solid]{O}{B}
\pstHomO[HomCoef=.25]{O}{B}[J]
\ncline{J}{P_1}
\pstBissectBAC[PointSymbol=none, PointName=none]{O}{J}{P_1}{PE1}
\pstBissectBAC[PointSymbol=none, PointName=none]{O}{J}{PE1}{PE2}
\pstInterLL[PosAngle=-90]{O}{P_1}{J}{PE2}{E}
\pstRotation[PosAngle=-90, RotAngle=-45, PointSymbol=none, PointName=none]{J}{E}[PF1]
\pstInterLL[PosAngle=-90]{O}{P_1}{J}{PF1}{F}
\pstMiddleAB[PointSymbol=none, PointName=none]{F}{P_1}{MFP1}
\pstCircleOA{MFP1}{P_1}
\pstInterLC[PointSymbolA=none, PointNameA=none]{O}{B}{MFP1}{P_1}{H}{K}
\pstCircleOA{E}{K}
\pstInterLC{O}{P_1}{E}{K}{N_6}{N_4}
\pstRotation[RotAngle=90, PointSymbol=none, PointName=none]{N_6}{E}[PP_6]
\pstInterLC[PosAngleA=90, PosAngleB=-90, PointNameB=P_{13}]
{PP_6}{N_6}{O}{P_1}{P_6}{P_13}
\pstSegmentMark[SegmentSymbol=wedge]{N_6}{P_6}
\pstSegmentMark[SegmentSymbol=wedge]{P_13}{N_6}
\pstRotation[RotAngle=90, PointSymbol=none, PointName=none]{N_4}{E}[PP_4]
\pstInterLC[PosAngleA=90, PosAngleB=-90, PointNameB=P_{15}]
{N_4}{PP_4}{O}{P_1}{P_4}{P_15}
\pstSegmentMark[SegmentSymbol=cup]{N_4}{P_4}
\pstSegmentMark[SegmentSymbol=cup]{P_15}{N_4}
\pstRightAngle[linestyle=solid]{P_1}{N_6}{P_6}
\pstRightAngle[linestyle=solid]{P_1}{N_4}{P_4}
\pstBissectBAC[PosAngle=90, linestyle=none]{P_4}{O}{P_6}{P_5}
%\pstOrtSym[PosAngle=-90, PointName=P_{14}]{O}{P_1}{P_5}[P_14]
\pstInterCC[PosAngleB=90, PointSymbolA=none, PointNameA=none]{O}{P_1}{P_4}{P_5}{H}{P_3}
%\pstOrtSym[PosAngle=-90, SegmentSymbol=pstslash, PointName=P_{16}]
% {O}{P_1}{P_3}[P_16]
\pstInterCC[PosAngleB=90, PointSymbolA=none, PointNameA=none]{O}{P_1}{P_3}{P_4}{H}{P_2}
%\pstOrtSym[PosAngle=-90, SegmentSymbol=pstslashslashslash,
% PointName=P_{17}]{O}{P_1}{P_2}[P_17]
\pstInterCC[PosAngleA=90, PointSymbolB=none, PointNameB=none]{O}{P_1}{P_6}{P_5}{P_7}{H}
\pstInterCC[PosAngleA=100, PointSymbolB=none, PointNameB=none]{O}{P_1}{P_7}{P_6}{P_8}{H}
\pstInterCC[PosAngleA=135, PointSymbolB=none, PointNameB=none]{O}{P_1}{P_8}{P_7}{P_9}{H}
\pstOrtSym[PosAngle={-90,-90,-90,-100,-135}, %SegmentSymbol={default,pstslash,pstslashhh,circ,times,equiv},
PointName={P_{17},P_{16},P_{14},P_{12},P_{11},P_{10}}]
{O}{P_1}{P_2,P_3,P_5,P_7,P_8,P_9}[P_17,P_16,P_14,P_12,P_11,P_10]
%\pstOrtSym[PosAngle=-100, SegmentSymbol=times, PointName=P_{11}]{O}{P_1}{P_8}[P_11]
%\pstOrtSym[PosAngle=-135, SegmentSymbol=equiv,PointName=P_{10}]{O}{P_1}{P_9}[P_10]
\pspolygon[linecolor=green, linestyle=solid, linewidth=2\pslinewidth]
(P_1)(P_2)(P_3)(P_4)(P_5)(P_6)(P_7)(P_8)(P_9)
(P_10)(P_11)(P_12)(P_13)(P_14)(P_15)(P_16)(P_17)
|