発言者： Natumi
発言日： 2004 11/20 14:05
発言元： 61-27-50-107.rev.home.ne.jp
kikuさん、どうぞ。
以前は表紙の下の部分にソースを張っていたようですが、
なくなっていましたね。最新のemathでコンパイル可能でした。
========================================================
\documentclass{jarticle}
\usepackage{emath,emathP}
\begin{document}
{\unitlength20mm\drawaxisfalse
\small
%
% 正四面体
%
\begin{zahyou}(0,2.1)(-.5,1)%
\def\B{(0,0)}%
\def\D{(2,0)}%
\def\A{(.9,1)}%
\def\C{(1.1,-.5)}%
\Bunten\B\C11\M\Bunten\C\D12\P% 分点 M, P の決定
\Nuritubusi[.1]{\B\C\D\B}% ２面を塗りつぶす．
\Nuritubusi[.1]{\A\C\D\A}%
\Put\A(0,2pt)[b]{A}% 頂点にラベル
\Put\C(0,-2pt)[t]{C}%
\Put\B(0,0)[r]{B }%
\Put\M(0,0)[rt]{M }%
\Put\D(0,0)[l]{ D}%
\Put\P(0,0)[lt]{ P}%
\Hen_ko\A\B{2}% 辺ABの長さ表示
\Drawline{\A\P}% 辺の描画
\Dashline[50]{.1}{\P\M}%
{\thicklines\Drawline{\A\B\C\A\D\C}%
\Dashline[50]{.1}{\B\D}}%
\end{zahyou}
%
% その展開図
%
\unitlength20mm\small
\begin{zahyou}(0,2)(-1.8,0)
\def\A{(0,0)}%
\def\AA{(1,-1.7321)}%
\def\AAA{(2,0)}%
\Bunten\A\AA11\B
\Bunten\A\AAA11\D
\Bunten\AAA\AA11\C
\Bunten\B\C11\M
\Bunten\C\D12\P
\Nuritubusi[.1]{\D\B\C\AAA\D}%
\Put\A(0,0)[r]{A }%
\Put\AA(0,-2pt)[t]{A}%
\Put\AAA(0,0)[l]{ A}%
\Put\B(0,-2pt)[rt]{B}%
\Put\C(0,-2pt)[lt]{C}%
\Put\M(0,-2pt)[t]{M}%
\Put\D(0,2pt)[b]{D}%
\Put\P(2pt,2pt)[b]{P}%
\Drawline{\AAA\M}%
{\thicklines\Drawline{\A\AA\AAA\A}\Drawline{\B\C\D\B}}%
\Touhenkigou<2>\B\M
\Touhenkigou<2>\C\M
\end{zahyou}
%
% 九点円
%
\unitlength15mm\small
\begin{picture}(3,3)
\def\A{(2.5,2.4)}% 三角形の頂点の座標
\def\B{(0,0)}%
\def\C{(4,0)}%
\Bunten\B\C11\L% 各辺の中点
\Bunten\C\A11\M
\Bunten\A\B11\N
\Suisen\A\B\C\P% 垂線の足
\Suisen\B\C\A\Q
\Suisen\C\A\B\R
\LandL\B\Q\C\R\H% 垂心
\Bunten\A\H11\D% H と各頂点の中点
\Bunten\B\H11\E
\Bunten\C\H11\F
\Put\A(0,2pt)[b]{A}% 各点のラベル
\Put\B(0,0)[r]{B }%
\Put\C(0,0)[l]{ C}%
\Put\H(0,0)[l]{ H}%
\Put\P(0,-2pt)[t]{P}%
\Put\L(0,-2pt)[t]{L}%
\Put\R(0,2pt)[rb]{R}%
\Put\N(0,2pt)[rb]{N}%
\Put\Q(0,2pt)[lb]{Q}%
\Put\M(0,2pt)[lb]{M}%
\Put\D(0,2pt)[lb]{ D}%
\Put\E(0,0)[rb]{E }%
\Put\F(0,0)[lb]{ F}%
\Gaisetuen\L\M\N% 九点円
\Drawline{\A\P}% 点を結ぶ
\Drawline{\B\Q}%
\Drawline{\C\R}%
\Dashline[50]{.05}{\D\N\L\D}% 証明で必要な補助線を点線で
\Drawline{\A\B\C\A}% 三角形描画
\En*[1]\L{.02}% 九点に黒丸
\En*[1]\M{.02}%
\En*[1]\N{.02}%
\En*[1]\P{.02}%
\En*[1]\Q{.02}%
\En*[1]\R{.02}%
\En*[1]\D{.02}%
\En*[1]\E{.02}%
\En*[1]\F{.02}%
\end{picture}
}
\hfill
%
% 変域制限つき二次関数のグラフ
%
\unitlength7.5mm
\begin{zahyou}(-1,5)(-1,7)
\def\Fx{1,-2,2}
\put(0,5){\makebox(0,0)[r]{5 }}%
\put(0,2){\makebox(0,0)[r]{2 }}%
\put(0,1){\makebox(0,0)[r]{1 }}%
\put(1,0){\makebox(0,-0.4){1}}%
\put(3,0){\makebox(0,-0.4){3}}%
\Gurafu[20]\Fx{3}[Y]\ymax% 変域外のグラフは点線
\Gurafu[30]\Fx\xmin{0}%
\dottedline{0.1}(0,5)(3,5)(3,0)%
\dottedline{0.1}(0,1)(1,1)(1,0)%
\thicklines
\Gurafu\Fx{0}{3}% 変域内のグラフ
\thinlines
\end{zahyou}
\hfill
%
% リサージュ
%
\unitlength2cm\small\hfill
\begin{zahyou}(-1,1.5)(-1.2,1.2)
\Div\Pie{2.5}\tmax\edef\tmin{-\tmax}%
% x=2cos2t
\def\xKansuuti#1#2{\Mul{2}{#1}\x\Cos\x\x\edef#2{\x}}%
% y=sin5t
\def\yKansuuti#1#2{\Mul{5}{#1}\y\Sin\y\y\edef#2{\y}}%
\DegRad{60}\xi\xKansuuti\xi\xii\yKansuuti\xi\xiii
\Put{(\xii,-\xiii)}(0,0)[r]{$C_2$\,}%
\DegCos{36}\xi
\DegCos{72}\xii
\DegCos{108}\xiii
\DegCos{144}\xiv
\dashline{0.04}(\xi,1)(\xi,-1)(\xiii,-1)(\xiii,1)(\xi,1)%
\def\Pa{(1.3,0.4)}%
\def\Pb{(1.3,-0.8)}%
% 矢印付き円弧
\ArrowArc[r]{5}\Pa{(\xi,0)}\Put\Pa(0,0)[b]{$\cos\frac{\pi}{5}$}%
\ArrowArc{5}\Pb{(\xii,0)}\Put\Pb(0,0)[t]{$\cos\frac{2\pi}{5}$}%
\Put{(\xiv,0)}(0,-2pt)[rt]{$\cos\frac{4\pi}{5}$}%
\Put{(\xiii,0)}(0,2pt)[b]{$\cos\frac{3\pi}{5}$}%
\Put{(1,0)}(0,-2pt)[lt]{ 1}%
\Put{(0,1)}(0,0)[lb]{ 1}%
\Put{(0,-1)}(0,0)[lt]{ $-1$}%
\Put{(0,0.707)}(0,0)[lb]{$\frac{\sqrt{2}}{2}$}%
\Put{(0,-0.707)}(0,0)[l]{$-\frac{\sqrt{2}}{2}$}%
\thicklines
\bGurafu(.02)\xKansuuti\yKansuuti\tmin\tmax% グラフ描画
\thinlines
\end{zahyou}
\end{document}
==========================================================
#tDBさん、勝手に掲載してすみません。まずいようでしたら、
#削除してください。
削除：0000
▼関連発言
│
└◆2089:表紙 [kimu] 11/20 12:22
├◆2090:Re:表紙 [Natumi] 11/20 14:05
│└◆2092:Re[2]:表紙 [tDB] 11/20 16:35
│ └◆2095:Re[3]:表紙 [Natumi] 11/20 23:49<-last
└◆2091:Re:表紙 [田中徹] 11/20 15:09
└◆2094:Re[2]:表紙 [kimu] 11/20 18:37