emath saloon

新規発言 ｜ 一覧 ｜ 最新記事 ｜ 過去一覧 ｜ 検索 ｜ ＨＯＭＥ
No.1000　 ステレオグラム
発言者： 田中徹
発言日： 2012 05/21 21:45 
掲示板 No.10758 からの図形の立体視について

emathPk の秀逸な設計から Body を同一にコピーして
単位ベクトルのみ適当に変えてみました。
交差法(寄り目)にするとかなり良い感じになります。
(Body 部は tDB さんの正十二面対のソースです。)

Body 部を引数にしてマクロを作成すれば
もう少しスマートなソースにはなりそうです。

# 中間考査の採点がやっと終わりました。

\documentclass{jarticle}
\usepackage{graphicx}
\usepackage[Pk,remake]{emathPs}

\begin{document}
\Rdef(1,2)\Ex%   x軸正方向の単位ベクトル
\Rdef(.3,120)\Ey% y軸正方向の単位ベクトル
\Rdef(1,90)\Ez% z軸正方向の単位ベクトル
\begin{psZahyou*}[ul=10mm,Ex=\Ex,Ey=\Ey,Ez=\Ez,Ueyohaku=-2em](-2.8,2.8)(-2.7,2.7)(-2.3,2.3)
  \calcval{(sqrt(3))*(1+sqrt(5))/2}\R
  \calcval{1/(sin($pi/5))}\r
  \calcval{sqrt(\R*\R-\r*\r)}\h
  \def\Ai{(\r,0,\h)}\iiiPut\Ai[e]{1}
  \zRotvec\Ai{72}\Aii\iiiPut\Aii[ne]{2}
  \zRotvec\Aii{72}\Aiii\iiiPut\Aiii[nw]{3}
  \zRotvec\Aiii{72}\Aiv\iiiPut\Aiv[ne]{4}
  \zRotvec\Aiv{72}\Av\iiiPut\Av[nw]{5}
  \yRotvec[\Aiii]\Ai{116.56505118}\Axiii\iiiPut\Axiii[w]{13}
  \yRotvec[\Aiii]\Aii{116.56505118}\Aviii\iiiPut\Aviii[w]{8}
  \yRotvec[\Aiii]\Av{116.56505118}\Aix\iiiPut\Aix[s]{9}
  \zRotvec\Aix{72}\Ax\iiiPut\Ax[w]{10}
  \zRotvec\Axiii{72}\Axiv\iiiPut\Axiv[e]{14}
  \zRotvec\Ax{72}\Avi\iiiPut\Avi[e]{6}
  \zRotvec\Axiv{72}\Axv\iiiPut\Axv[e]{15}
  \zRotvec\Avi{72}\Avii\iiiPut\Avii[s]{7}
  \zRotvec\Axv{72}\Axi\iiiPut\Axi[se]{11}
  \zRotvec\Axi{72}\Axii\iiiPut\Axii[se]{12}
  \def\Axvi{(-\r,0,-\h)}\iiiPut\Axvi[sw]{16}
  \zRotvec\Axvi{72}\Axvii\iiiPut\Axvii[s]{17}
  \zRotvec\Axvii{72}\Axviii\iiiPut\Axviii[se]{18}
  \zRotvec\Axviii{72}\Axix\iiiPut\Axix[sw]{19}
  \zRotvec\Axix{72}\Axx\iiiPut\Axx[ne]{20}
  \iiiTakakkei{\Ai\Aii\Aiii\Aviii\Axiii\Axvi\Axvii\Axviii\Axv\Avi}%
  \iiiTakakkei{\Aiv\Aix\Axiv\Ax\Av}%
  \iiiDrawlines{\Ai\Av;\Aiii\Aiv;\Axiii\Aix;\Axvii\Axiv;\Axv\Ax}%
  \iiipsHasen<dash={.1,.1}>{\Avi\Axi\Avii\Aii;\Avii\Axii\Aviii;%
      \Axviii\Axix\Axx\Axvi;\Axi\Axix;\Axii\Axx}
\Put\YMAX{●}
\end{psZahyou*}
\hspace*{10mm}
\Rdef(1,0)\Ex%   x軸正方向の単位ベクトル
\Rdef(.3,122)\Ey% y軸正方向の単位ベクトル
\Rdef(1,88)\Ez% z軸正方向の単位ベクトル
\begin{psZahyou*}[ul=10mm,Ex=\Ex,Ey=\Ey,Ez=\Ez,Ueyohaku=-2em](-2.8,2.8)(-2.7,2.7)(-2.3,2.3)
  \calcval{(sqrt(3))*(1+sqrt(5))/2}\R
  \calcval{1/(sin($pi/5))}\r
  \calcval{sqrt(\R*\R-\r*\r)}\h
  \def\Ai{(\r,0,\h)}\iiiPut\Ai[e]{1}
  \zRotvec\Ai{72}\Aii\iiiPut\Aii[ne]{2}
  \zRotvec\Aii{72}\Aiii\iiiPut\Aiii[nw]{3}
  \zRotvec\Aiii{72}\Aiv\iiiPut\Aiv[ne]{4}
  \zRotvec\Aiv{72}\Av\iiiPut\Av[nw]{5}
  \yRotvec[\Aiii]\Ai{116.56505118}\Axiii\iiiPut\Axiii[w]{13}
  \yRotvec[\Aiii]\Aii{116.56505118}\Aviii\iiiPut\Aviii[w]{8}
  \yRotvec[\Aiii]\Av{116.56505118}\Aix\iiiPut\Aix[s]{9}
  \zRotvec\Aix{72}\Ax\iiiPut\Ax[w]{10}
  \zRotvec\Axiii{72}\Axiv\iiiPut\Axiv[e]{14}
  \zRotvec\Ax{72}\Avi\iiiPut\Avi[e]{6}
  \zRotvec\Axiv{72}\Axv\iiiPut\Axv[e]{15}
  \zRotvec\Avi{72}\Avii\iiiPut\Avii[s]{7}
  \zRotvec\Axv{72}\Axi\iiiPut\Axi[se]{11}
  \zRotvec\Axi{72}\Axii\iiiPut\Axii[se]{12}
  \def\Axvi{(-\r,0,-\h)}\iiiPut\Axvi[sw]{16}
  \zRotvec\Axvi{72}\Axvii\iiiPut\Axvii[s]{17}
  \zRotvec\Axvii{72}\Axviii\iiiPut\Axviii[se]{18}
  \zRotvec\Axviii{72}\Axix\iiiPut\Axix[sw]{19}
  \zRotvec\Axix{72}\Axx\iiiPut\Axx[ne]{20}
  \iiiTakakkei{\Ai\Aii\Aiii\Aviii\Axiii\Axvi\Axvii\Axviii\Axv\Avi}%
  \iiiTakakkei{\Aiv\Aix\Axiv\Ax\Av}%
  \iiiDrawlines{\Ai\Av;\Aiii\Aiv;\Axiii\Aix;\Axvii\Axiv;\Axv\Ax}%
  \iiipsHasen<dash={.1,.1}>{\Avi\Axi\Avii\Aii;\Avii\Axii\Aviii;%
      \Axviii\Axix\Axx\Axvi;\Axi\Axix;\Axii\Axx}
\Put\YMAX{●}
\end{psZahyou*}
\end{document}

▼関連発言
│
└◆1000:ステレオグラム [田中徹] 05/21 21:45<-last

Pass 保存

CGIROOM