示例 1:
\documentclass[pstricks,border=15pt]{standalone}
\usepackage{pstricks-add,pst-eucl}%
\begin{document}
\foreach \i in {0,-1,-2,...,-180}{%
\begin{pspicture}[showgrid](0,-3)(8,4)
\pnodes(3,3){A}(1,-1){B}(7,-1){C}
\psset{PointSymbol=none,PointName=none}
\pstMiddleAB[PosAngle=135]{A}{B}{M}
\pstMiddleAB{A}{C}{N}
\pstMiddleAB{M}{N}{I}
\pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
\pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
\pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
\pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
\pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
\pspolygon(A)(M)(N)
\pstRotation[RotAngle=\i]{I}{A,M,N}[a,m,n]%%%%<<--
\pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
\pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
\pspolygon[linecolor=red](a)(m)(n)
\end{pspicture}
}
\end{document}
示例2:
\documentclass[pstricks,border=15pt]{standalone}
\usepackage{pstricks-add,pst-eucl}%
\begin{document}
\foreach \i in {0,1,2,...,180}{%
\begin{pspicture}[showgrid](0,-3)(8,4)
\pnodes(3,3){A}(1,-1){B}(7,-1){C}
\psset{PointSymbol=none,PointName=none}
\pstMiddleAB[PosAngle=135]{A}{B}{M}
\pstMiddleAB{A}{C}{N}
\pstMiddleAB{M}{N}{I}
\pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
\pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
\pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
\pspolygon[linecolor=red](a)(m)(n)
\pstMiddleAB{a}{n}{I1}
\pstRotation[RotAngle=\i]{I1}{a,m,n}[a1,m1,n1]%%%%<<--
\pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
\pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
\pstMarkAngle[fillstyle=solid,fillcolor=green]{n1}{m1}{a1}{}
%\pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
\pspolygon[linecolor=red](a1)(m1)(n1)
\end{pspicture}
}
\end{document}
示例3:
\documentclass[pstricks,border=15pt]{standalone}
\usepackage{pstricks-add,pst-eucl}%
\begin{document}
\foreach \i in {0,-1,-2,...,-180}{%
\begin{pspicture}[showgrid](0,-3)(8,4)
\pnodes(3,3){A}(1,-1){B}(7,-1){C}
\psset{PointSymbol=none,PointName=none}
\pstMiddleAB[PosAngle=135]{A}{B}{M}
\pstMiddleAB{A}{C}{N}
\pstMiddleAB{M}{N}{I}
\pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
\pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
\pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
\pspolygon[linecolor=red](a)(m)(n)
\pstMiddleAB{a}{m}{I2}
\pstRotation[RotAngle=\i]{I2}{a,m,n}[a2,m2,n2]%%%%<<--
\pstSegmentMark[SegmentSymbol=MarkHashh]{a2}{m2}
\pstSegmentMark[SegmentSymbol=MarkHashhh]{n2}{m2}
\pstMarkAngle[fillstyle=solid,fillcolor=blue]{a2}{n2}{m2}{}
\pspolygon[linecolor=red](a2)(m2)(n2)
\end{pspicture}
}
\end{document}
问题:
看这个视频。
最后,
\documentclass[pstricks,border=15pt]{standalone}
\usepackage{pstricks-add,pst-eucl}%
\begin{document}
%%
\def\figone{%
\pnodes(3,3){A}(1,-1){B}(7,-1){C}
\psset{PointSymbol=none,PointName=none}
\pstMiddleAB[PosAngle=135]{A}{B}{M}
\pstMiddleAB{A}{C}{N}
\pstMiddleAB{M}{N}{I}
\pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
\pstSegmentMark[SegmentSymbol=MarkHashh]{A}{N}
\pstSegmentMark[SegmentSymbol=MarkHashhh]{M}{N}
\psset{fillstyle=solid}
\pstMarkAngle[fillcolor=green]{N}{M}{A}{}
\pstMarkAngle[fillcolor=blue]{A}{N}{M}{}
\pspolygon[fillcolor=green,opacity=.3](A)(M)(N)}%
\def\figonee#1{%
\pstRotation[RotAngle=#1]{I}{A,M,N}[a,m,n]
\psset{fillstyle=solid}
\pstMarkAngle[fillcolor=green]{n}{m}{a}{}
\pstMarkAngle[fillcolor=blue]{a}{n}{m}{}
\pspolygon[linecolor=red,fillcolor=green,opacity=.3](a)(m)(n)}%
\def\figtwo#1{%
\pstMiddleAB{a}{n}{I1}
\pstRotation[RotAngle=#1]{I1}{a,m,n}[a1,m1,n1]
\pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
\pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
\psset{fillstyle=solid}
\pstMarkAngle[fillcolor=green]{n1}{m1}{a1}{}
\pspolygon[linecolor=red,fillcolor=green,opacity=.3](a1)(m1)(n1)}%
%%
\multido{\i=0+-3}{61}{%
\begin{pspicture}[showgrid](0,-3)(8,4)
\figone
\figonee{\i}
\end{pspicture}%
}
\multido{\i=0+3}{61}{%
\begin{pspicture}[showgrid](0,-3)(8,4)
\figone
\figonee{-180}
\figtwo{\i}
\end{pspicture}%
}
\multido{\i=0+-3}{61}{%
\begin{pspicture}[showgrid](0,-3)(8,4)
\figone
\figonee{-180}
\figtwo{180}
\pstMiddleAB{a}{m}{I2}
\pstRotation[RotAngle=\i]{I2}{a,m,n}[a2,m2,n2]
\pstSegmentMark[SegmentSymbol=MarkHashh]{a2}{n2}
\pstSegmentMark[SegmentSymbol=MarkHashhh]{n2}{m2}
\psset{fillstyle=solid}
\pstMarkAngle[fillcolor=blue]{a2}{n2}{m2}{}
\pspolygon[linecolor=red,fillcolor=green,opacity=.3](a2)(m2)(n2)
\end{pspicture}%
}
\end{document}
答案1
\documentclass[pstricks,border=12pt,12pt]{standalone}
\usepackage{pstricks-add,pst-eucl}%
\def\first#1{%
\pnodes(3,3){A}(1,-1){B}(7,-1){C}
\psset{PointSymbol=none,PointName=none}
\pstMiddleAB[PosAngle=135]{A}{B}{M}
\pstMiddleAB{A}{C}{N}
\pstMiddleAB{M}{N}{I}
\pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
\pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
\pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
\pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
\pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
\pspolygon(A)(M)(N)
\pstRotation[RotAngle=#1]{I}{A,M,N}[a,m,n]%%%%<<--
\pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
\pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
\pspolygon[linecolor=red](a)(m)(n)}
\def\second#1{%
\pnodes(3,3){A}(1,-1){B}(7,-1){C}
\psset{PointSymbol=none,PointName=none}
\pstMiddleAB[PosAngle=135]{A}{B}{M}
\pstMiddleAB{A}{C}{N}
\pstMiddleAB{M}{N}{I}
\pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
\pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
\pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
\pspolygon[linecolor=red](a)(m)(n)
\pstMiddleAB{a}{n}{I1}
\pstRotation[RotAngle=#1]{I1}{a,m,n}[a1,m1,n1]%%%%<<--
\pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
\pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
\pstMarkAngle[fillstyle=solid,fillcolor=green]{n1}{m1}{a1}{}
%\pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
\pspolygon[linecolor=red](a1)(m1)(n1)}
\def\third#1{
\pnodes(3,3){A}(1,-1){B}(7,-1){C}
\psset{PointSymbol=none,PointName=none}
\pstMiddleAB[PosAngle=135]{A}{B}{M}
\pstMiddleAB{A}{C}{N}
\pstMiddleAB{M}{N}{I}
\pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
\pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
\pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
\pspolygon[linecolor=red](a)(m)(n)
\pstMiddleAB{a}{m}{I2}
\pstRotation[RotAngle=#1]{I2}{a,m,n}[a2,m2,n2]%%%%<<--
\pstSegmentMark[SegmentSymbol=MarkHashh]{a2}{m2}
\pstSegmentMark[SegmentSymbol=MarkHashhh]{n2}{m2}
\pstMarkAngle[fillstyle=solid,fillcolor=blue]{a2}{n2}{m2}{}
\pspolygon[linecolor=red](a2)(m2)(n2)}
\begin{document}
\foreach \i in {0,-10,...,-180}{%
\begin{pspicture}[showgrid](0,-3)(8,4)
\first{\i}
\end{pspicture}}
\foreach \i in {0,-10,...,-180}{%
\begin{pspicture}[showgrid](0,-3)(8,4)
\first{0}
\second{\i}
\end{pspicture}}
\foreach \i in {0,-10,...,-180}{%
\begin{pspicture}[showgrid](0,-3)(8,4)
\first{0}
\second{-180}
\third{\i}
\end{pspicture}}
\end{document}
答案2
ex2
还需要来自的最后一张图像(180°)ex1
,还ex3
需要来自的最后一张图像ex1
和 ex2
:
\documentclass[pstricks,border=15pt]{standalone}
\usepackage{pstricks-add,pst-eucl}%
\begin{document}
\multido{\i=0+3}{60}{%
\begin{pspicture}[showgrid](0,-3)(8,4)
\pnodes(3,3){A}(1,-1){B}(7,-1){C}
\psset{PointSymbol=none,PointName=none}
\pstMiddleAB[PosAngle=135]{A}{B}{M}
\pstMiddleAB{A}{C}{N}
\pstMiddleAB{M}{N}{I}
\pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
\pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
\pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
\pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
\pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
\pspolygon(A)(M)(N)
\pstRotation[RotAngle=\i]{I}{A,M,N}[a,m,n]%%%%<<--
\pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
\pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
\pspolygon[linecolor=red](a)(m)(n)
\end{pspicture}%
}
\multido{\i=0+3}{60}{%
\begin{pspicture}[showgrid](0,-3)(8,4)
\pnodes(3,3){A}(1,-1){B}(7,-1){C}
\psset{PointSymbol=none,PointName=none}
\pstMiddleAB[PosAngle=135]{A}{B}{M}
\pstMiddleAB{A}{C}{N}
\pstMiddleAB{M}{N}{I}
\pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
\pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
\pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
\pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
\pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
\pspolygon(A)(M)(N)
\pstRotation[RotAngle=180]{I}{A,M,N}[a,m,n]%%%%<<--
\pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
\pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
\pspolygon[linecolor=red](a)(m)(n)
% ------------------ end ex1 --------------------------
\pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
\pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
\pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
\pspolygon[linecolor=red](a)(m)(n)
\pstMiddleAB{a}{n}{I1}
\pstRotation[RotAngle=\i]{I1}{a,m,n}[a1,m1,n1]%%%%<<--
\pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
\pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
\pstMarkAngle[fillstyle=solid,fillcolor=green]{n1}{m1}{a1}{}
%\pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
\pspolygon[linecolor=red](a1)(m1)(n1)
\end{pspicture}%
}
\multido{\i=0+3}{61}{%
\begin{pspicture}[showgrid](0,-3)(8,4)
\pnodes(3,3){A}(1,-1){B}(7,-1){C}
\psset{PointSymbol=none,PointName=none}
\pstMiddleAB[PosAngle=135]{A}{B}{M}
\pstMiddleAB{A}{C}{N}
\pstMiddleAB{M}{N}{I}
\pstSegmentMark[SegmentSymbol=pstslash]{A}{M}
\pstSegmentMark[SegmentSymbol=MarkHash]{A}{N}
\pstSegmentMark[SegmentSymbol=MarkHashh]{M}{N}
\pstMarkAngle[fillstyle=solid,fillcolor=green]{N}{M}{A}{}
\pstMarkAngle[fillstyle=solid,fillcolor=blue]{A}{N}{M}{}
\pspolygon(A)(M)(N)
\pstRotation[RotAngle=180]{I}{A,M,N}[a,m,n]%%%%<<--
\pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
\pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
\pspolygon[linecolor=red](a)(m)(n)
% ------------------ end ex1 --------------------------
\pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
\pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
\pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
\pspolygon[linecolor=red](a)(m)(n)
\pstMiddleAB{a}{n}{I1}
\pstRotation[RotAngle=180]{I1}{a,m,n}[a1,m1,n1]%%%%<<--
\pstSegmentMark[SegmentSymbol=pstslash]{a1}{m1}
\pstSegmentMark[SegmentSymbol=MarkHashhh]{n1}{m1}
\pstMarkAngle[fillstyle=solid,fillcolor=green]{n1}{m1}{a1}{}
%\pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
\pspolygon[linecolor=red](a1)(m1)(n1)
% ------------------ end ex2 --------------------------
\pstRotation[RotAngle=-180]{I}{A,M,N}[a,m,n]%%%%<<--
\pstMarkAngle[fillstyle=solid,fillcolor=green]{n}{m}{a}{}
\pstMarkAngle[fillstyle=solid,fillcolor=blue]{a}{n}{m}{}
\pspolygon[linecolor=red](a)(m)(n)
\pstMiddleAB{a}{m}{I2}
\pstRotation[RotAngle=\i]{I2}{a,m,n}[a2,m2,n2]%%%%<<--
\pstSegmentMark[SegmentSymbol=MarkHashh]{a2}{m2}
\pstSegmentMark[SegmentSymbol=MarkHashhh]{n2}{m2}
\pstMarkAngle[fillstyle=solid,fillcolor=blue]{a2}{n2}{m2}{}
\pspolygon[linecolor=red](a2)(m2)(n2)
\end{pspicture}%
}
\end{document}
有很多重复的命令可以删除。我把它留给你了!