長方形の折り紙を折って相似な三角形を作るemath＋TeXマクロです。
辺BC上の点Pが任意に可変できるので便利です。
%%%%%%%%%%%%%%%%%%%%%%%%
\documentclass{jsarticle} 
\usepackage{emathP}
%%%%%%%%%%%%%%%%%%%%%%%%
\makeatletter
\def\Origami#1{%
\unitlength10truemm%
\begin{picture}(8,6)(-0.5,-0.5)% 
\def\A{(0,0)}\Put\A[sw]{\small{$A$}}%
\def\B{(8,0)}\Put\B[se]{\small{$B$}}%%
\def\C{(8,6)}\Put\C[ne]{\small{$C$}}%%
\def\D{(0,6)}\Put\D[nw]{\small{$D$}}%%
\CandL\D{#1}\D\C\F\E\Put\E[n]{\small{$E$}}%
\CandL\E{#1}\C\B\P\Q\Put\P[e]{\small{$P$}}%
\Kaiten[6]\P\E{90}\R
\Kaiten[6]\R\P{90}\S
\LandL\B\A\P\R\F\Put\F[se]{\small{$F$}}
\LandL\B\A\R\S\G\Put\G[sw]{\small{$G$}}
\Thicklines
\Drawline{\F\B\C\E\P\F}
\thinlines
\Drawline{\E\G\R\F}
\Hasen{\E\D\A\G}
\Kuromaru{\P}
\end{picture}
}
\makeatother
%%%%%%%%%%%%%%%%%%%%%%%%
\begin{document}
%%%%%%%%%%%%%%%%%%%%%%%%
\Origami{4.3}%4<点Eの点Dからの距離<6.25%%%辺BC上の点Pの位置が可変。
%%%%%%%%%%%%%%%%%%%%%%%%%
\end{document}

▼関連発言
│
└◆179:折り紙で相似な三角形を作る。 [zyam56] 12/08 19:39
　├◆180:Re:折り紙で相似な三角形を作る。 [tDB] 12/08 21:17
　│└◆181:Re[2]:折り紙で相似な三角形を作る。 [zyam56] 12/09 16:41
　│　├◆182:Re[3]:折り紙で相似な三角形を作る。 [zyam56] 12/09 16:44
　│　├◆233:--- [---] 01/17 09:30
　│　└◆235:--- [---] 01/18 18:01
　│　　└◆321:--- [---] 01/31 15:24<-last
　└◆234:--- [---] 01/17 09:30