emath BBS

新規発言一覧最新記事過去一覧検索HOME

No.5633  Re:太陽の軌道
発言者: 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

Pass 保存


CGIROOM