発言者: tDB
発言日: 2007 02/07 20:02
発言元: 125.2.23.224
計算でシコシコというのも,
アリではありましょうが,
実用的には
楕円を回転
の方が手っ取り早いかも。
所詮見取り図で.....
% --- re5628.tex ---------------------------------------
\documentclass{jarticle}
\usepackage{emathPk}
\usepackage{emathPs}
\begin{document}
\begin{psZahyou*}[debug,ul=30mm,Ex={r(.2,-80)},borderwidth=1pt](-1,1)(-1,1)(-1,1)
\def\Oii{(0,0)}%
\iiiBGurafu{0}{cos(T)}{1.02*sin(T)}{0}{$pi}
\iiiBGurafu{cos(T)}{sin(T)}{0}{-$pi/2}{$pi/2}
\iiiBGurafu[dash={.4mm,.8mm}]{cos(T)}{sin(T)}{0}{$pi/2}{3*$pi/2}
%
\edef\kaku{145}%
\Sub\kaku{90}\kaku
\DegRad\kaku\kaku
\Rdef(1,78)\A
\kandk\A{55}\Oii{145}\H
\Kyori\H\Oii\hval
\calcval{sqrt(1-\hval*\hval)}\rval
\def\Xt{\rval*cos(T)}
\def\Yt{cos(\kaku)*\rval*sin(T)-sin(\kaku)*\hval}
\def\Zt{sin(\kaku)*\rval*sin(T)+cos(\kaku)*\hval}
\calcval{asin(-\hval*cos(\kaku))/(\rval*sin(\kaku))}\ti
\calcval{$pi-(\ti)}\tii
\iiiBGurafu\Xt\Yt\Zt{\ti}{\tii}
%
\edef\hval{0}
\edef\rval{1}
\def\Xt{\rval*cos(T)}
\def\Yt{cos(\kaku)*\rval*sin(T)-sin(\kaku)*\hval}
\def\Zt{sin(\kaku)*\rval*sin(T)+cos(\kaku)*\hval}
\calcval{asin(-\hval*cos(\kaku))/(\rval*sin(\kaku))}\ti
\calcval{$pi-(\ti)}\tii
\iiiBGurafu\Xt\Yt\Zt{\ti}{\tii}
%
\edef\kaku{-35}%
\Sub\kaku{90}\kaku
\DegRad\kaku\kaku
\Rdef(1,32)\B
\kandk\B{55}\Oii{145}\H
\Kyori\H\Oii\hval
\calcval{sqrt(1-\hval*\hval)}\rval
\def\Xt{\rval*cos(T)}
\def\Yt{cos(\kaku)*\rval*sin(T)-sin(\kaku)*\hval}
\def\Zt{sin(\kaku)*\rval*sin(T)+cos(\kaku)*\hval}
\calcval{asin(-\hval*cos(\kaku))/(\rval*sin(\kaku))}\ti
\calcval{-$pi-(\ti)}\tii
\iiiBGurafu\Xt\Yt\Zt{\tii}{\ti}
%
\setlinewidth{3}
\iiiDrawlines<dash={.3mm,.5mm}>{(0,-1,0)(0,1,0);(0,0,0)(0,0,1.02)}
\end{psZahyou*}
\end{document}
▼関連発言
│
└◆5628:太陽の軌道 [ban] 02/06 20:38
├◆5632:Re:太陽の軌道 [石原 守] 02/07 13:26
└◆5633:Re:太陽の軌道 [tDB] 02/07 20:02
└◆5635:Re[2]:太陽の軌道【お礼】 [ban] 02/08 12:06<-last