Re: 角度

名前: 櫻井
日時: 2003-03-02 10:49:09
IPアドレス: 218.221.64.*

>>17188
こんなのでどうでしょう？

＃ emath や PSTrick を使えば，もっとすっきり書けると思いますが，
＃ eepic.sty + calc.sty + trig.sty でトライしてみました．

%------ ここから ---------------------
\documentclass{jarticle}
\usepackage{epic,eepic}
\usepackage{calc,trig}
% calc.sty is in tools-package
% trig.sty is in graphics-package

\begin{document}
(Reply to: Q\&A[17188])\par
「2角・挟辺」を指定して三角形を描く：
\par
\hskip20mm
\unitlength=50mm
\begin{picture}(1,1.9)(0,0)
 \def\B{60}
 \def\C{90}
 \def\BC{1}% 辺BCの長さ
 \def\Bx{0}\def\By{0}% 点Bの座標

 % 点Aの相対座標を計算する． 
 \def\val#1{\expandafter\noPT\the#1}% \noPT is defined in trig.sty 
 \setlength{\dimen0}{180pt-\B pt-\C pt}
 \edef\A{\val{\dimen0}} 
 \CalculateSin{\A}
 \CalculateSin{\C}
 \CalculateSin{\B}
 \CalculateCos{\B}
 \setlength{\dimen0}{\BC pt*\ratio{\UseSin{\C}pt}{\UseSin{\A}pt}}
 % BA=\val{\dimen0} (正弦定理)
 \dimen1=\UseCos{\B}\dimen0
 \dimen2=\UseSin{\B}\dimen0 
 \edef\BAx{\val\dimen1}
 \edef\BAy{\val\dimen2}

 \put(\Bx,0)
 \bgroup
   % 三角形描画
   \allinethickness{.5mm}
   \path(0,0)(\BC,0)(\BAx,\BAy)(0,0)
   % ラベル
   \put(0,0){\vbox to0pt{\kern1mm\llap{B}\vss}}
   \put(\BC,0){\vbox to0pt{\kern1mm\rlap{C}\vss}}
   \put(\BAx,\BAy){\vbox to0pt{\vss\llap{A\hss}\kern1mm}}
 \egroup

\end{picture}
\end{document}
%------ ここまで ---------------------

この書き込みへの返事：