Re: 参照した数式番号だけを自動的に付けたい

名前: 粗忽
日時: 2006-08-07 20:21:38
IPアドレス: 121.2.181.*

>>44187
\documentclass{jsarticle}
\usepackage[dvips]{graphicx}
%○つき番号は30656をそのまま貼り付けました．
\makeatletter
\DeclareRobustCommand*\MARU[1]{%
   \leavevmode
   \setbox\z@\hbox{{#1\/}}%
   \ifdim\wd\z@>.63zw \def\@tempa{{.63zw}}%
   \else              \edef\@tempa{{\the\wd\z@}}%
   \fi
   \dimen@\ht\z@ \advance\dimen@\dp\z@
   \ifdim\dimen@>.63zw \def\@tempb{{.63zw}}%
   \else               \edef\@tempb{{\the\dimen@}}%
   \fi
   \edef\@tempa{\noexpand\resizebox*\@tempa\@tempb}%
   \setbox\z@\hbox{\@tempa{\box\z@}}%
   \dimen@\ht\z@ \advance\dimen@-\dp\z@ \divide\dimen@\tw@
   \advance\dimen@-.34zw
   \hbox to1zw{%
      \hss
      \ooalign{%
         \lower.12zw\hbox{\scalebox{1.15}{\normalfont ○}}\cr
         \hfil \lower\dimen@\box\z@ \hfil}%
      \hss}}

\newcounter{bango}
\renewcommand{\thebango}{\@arabic\c@bango}
\def\writeLabel#1#2{\@bsphack\protected@write\@auxout{}%
         {\string\newlabel{#1}{{#2}}}%
  \@esphack}

\newcommand{\eqnum}[1]{\refstepcounter{bango}
~\cdots\cdots ~\mbox{\MARU{\thebango}}\writeLabel{#1}{\thebango}}

\DeclareRobustCommand*\eqref[1]{%
   \expandafter\ifx\csname r@#1\endcsname\relax
      \ref{#1}%
   \else
      \afterassignment\remove@to@nnil
      \count@ 0\expandafter\expandafter\expandafter
         \@firstoftwo\csname r@#1\endcsname
         \@empty\@empty\relax\@nnil
      \expandafter\MARU\expandafter{\the\count@}%
   \fi}

\makeatother

\begin{document}

$2x+3y=10\eqnum{E1},ax+4y=-1\eqnum{E2}$ \\
を連立させる．
\eqref{E1}，\eqref{E2} を直線と見れば，
2 直線が平行のときは交点をもたない．

\end{document}

この書き込みへの返事：