emath BBS

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

No.7075  Re[4]:\EMround がエラー
発言者: tDB
発言日: 2008 02/10 15:19
発言元: 220.146.118.214
確認をしていただき,有難うございます。m(..)m

話題から逸れますが,表を作るには,
  一行ずつ処理する
よりは
  まとめて作成
した方がよい
という趣旨の話が,
  Tex Q&A
    50692: 2008-01-23 18:20:04 試験問題用の解答欄 
からのスレッドで . さんのご投稿
  50705, 50707
にあります。
それを emath流にこしらえてみました。

% --- 三角関数表 -----------------------
\documentclass[a4j]{jarticle}
\usepackage{emathT}
\usepackage{emathPl}

\begin{document}
\centerline{\Large\textbf{三角関数表}}
\medskip

\def\arraystretch{1.1}
\small
\EMedef\tbl{}%
\Ifor*\kaku{0}{45}\Do{%
  \calcval[s]{emround(Degsin(\kaku),4)}\tmp\EMedefappend\tbl{\kaku\noexpand\Deg& \tmp}%
  \calcval[s]{emround(Degcos(\kaku),4)}\tmp\EMedefappend\tbl{&\tmp}%
  \calcval[s]{emround(Degtan(\kaku),4)}\tmp\EMedefappend\tbl{&\tmp\noexpand\\}%
  \IMod\kaku{5}\amari
  \ifnum\amari=0\relax\ifnum\kaku<45\relax
%   \EMedefappend\tbl{&&&\noexpand\\[-6pt]}\fi\fi
    \EMedefappend\tbl{\noexpand\hline}\fi\fi%
}%
\noindent
\hfill
$\begin{array}{Ir*3{|C{4em}}I}\hlineb
\hbox{角\ }&\EMvphantom*[3pt]{\EMparbox{正弦\\$(\sin)$}}&\EMparbox{余弦\\$(\cos)$}&\EMparbox{正接\\$(\tan)$}\\\hlineb
\tbl
\hlineb
\end{array}$
%
\EMedef\tbl{}%
\Ifor*\kaku{45}{90}\Do{%
  \calcval[s]{emround(Degsin(\kaku),4)}\tmp\EMedefappend\tbl{\kaku\noexpand\Deg& \tmp}%
  \calcval[s]{emround(Degcos(\kaku),4)}\tmp\EMedefappend\tbl{&\tmp}%
  \ifnum\kaku=90\relax
    \EMedefappend\tbl{&---\noexpand\\}%
  \else
    \calcval[s]{emround(Degtan(\kaku),4)}\tmp\EMedefappend\tbl{&\tmp\noexpand\\}%
  \fi
  \IMod\kaku{5}\amari
  \ifnum\amari=0\relax\ifnum\kaku<90\relax
%%    \EMedefappend\tbl{&&&\noexpand\\[-6pt]}\fi\fi
    \EMedefappend\tbl{\noexpand\hline}\fi\fi%
}%
$\begin{array}{Ir*3{|C{4em}}I}\hlineb
\hbox{角\ }&\EMvphantom*[3pt]{\EMparbox{正弦\\$(\sin)$}}&\EMparbox{余弦\\$(\cos)$}&\EMparbox{正接\\$(\tan)$}\\\hlineb
\tbl
\hlineb
\end{array}$
\hfill\null
\end{document}

▼関連発言

7070:\EMround がエラー [石原 守] 02/10 09:19
 └7071:Re:\EMround がエラー [tDB] 02/10 09:42
  ├7072:Re[2]:\EMround がエラー [石原 守] 02/10 09:52
  └7073:Re[2]:\EMround がエラー [tDB] 02/10 11:50
   └7074:Re[3]:\EMround がエラー [石原 守] 02/10 13:21
    └7075:Re[4]:\EMround がエラー [tDB] 02/10 15:19
     └7076:Re[5]:\EMround がエラー [石原 守] 02/10 15:49<-last

Pass 保存


CGIROOM