\documentclass{article}
\begin{document}
\newdimen\mylength
\mylength=1in
\the\mylength
\end{document}
输出为:72.27 pt
但我想使用 VTeX 以厘米为单位显示输出。
答案1
使用 Claudio Beccari 的宏widetable.sty
:
\documentclass{article}
\makeatletter
\dimendef\wt@Numer=2
\dimendef\wt@Denom=4
\countdef\wt@Num=2
\countdef\wt@Den=4
\countdef\wt@I=6
\def\wt@segno{}
\def\dividi#1\per#2\in#3{%
\begingroup
\wt@Numer #1\relax \wt@Denom #2\relax
\ifdim\wt@Denom<\z@ \wt@Denom -\wt@Denom \wt@Numer -\wt@Numer\fi
\ifdim\wt@Numer<\z@ \def\wt@segno{-}\wt@Numer -\wt@Numer\fi
\ifdim\wt@Denom=\z@
\edef\wt@Q{\ifdim\wt@Numer<\z@-\fi\strip@pt\maxdimen}%
\else
\wt@Num=\wt@Numer \wt@Den=\wt@Denom \divide\wt@Num\wt@Den
\edef\wt@Q{\number\wt@Num.}%
\advance\wt@Numer -\wt@Q\wt@Denom \wt@I=6
\@whilenum \wt@I>\z@ \do{\wt@dividiDec\advance\wt@I\m@ne}%
\fi
\edef\x{\noexpand\endgroup\noexpand\def\noexpand#3{\wt@segno\wt@Q}}
\x
}
\def\wt@dividiDec{%
\wt@Numer=10\wt@Numer \wt@Num=\wt@Numer \divide\wt@Num\wt@Den
\edef\wt@q{\number\wt@Num}\edef\wt@Q{\wt@Q\wt@q}%
\advance\wt@Numer -\wt@q\wt@Denom}
\makeatletter
\newcommand{\convert}[2]{\dividi#1\per 1#2\in\temp\temp\,#2}
\begin{document}
\convert{1in}{pt}
\convert{1in}{cm}
\newlength\mylength
\setlength\mylength{.3in}
\convert{\mylength}{cm}
\end{document}
无法保证超过三位数的准确度,但应该足够了。
答案2
如果我理解你的问题,你需要在一个不知名的 TeX 系统中进行单位转换,在这个系统中 eTeX 基元不可用。首先,问问自己这是否是一个好主意。大多数当前的 LaTeX 软件包都需要 eTeX 基元。
如果您确实需要在不使用 eTeX 的情况下转换 TeX 单位,那么您必须接受精度损失,因为 64 位整数算法不可用。例如,您可以使用以下宏\printin
及其用法:
\printin{unit}\register
例如:
\printin{cm}\hsize
打印\hsize
以厘米为单位的寄存器。该\printin
宏可以通过以下方式实现:
{\lccode`\?=`\p \lccode`\!=`\t \lowercase{\gdef\ignorept#1?!{#1}}}
\newdimen\tmpdim
\newcount\tmpnum
\def\printin#1#2{%
\tmpnum=1073741824 \tmpdim=1#1
\divide\tmpdim by4
\divide\tmpnum by\tmpdim
\tmpdim=\the\tmpnum sp
\tmpdim=\expandafter\ignorept\the#2\tmpdim
\expandafter\ignorept\the\tmpdim#1%
}