発言者: 石原 守
発言日: 2007 12/29 07:51
発言元: 219.97.179.234
無理ではないでしょうが,こんなこともできます。
分数の線が短いと言わないでね。どこか変えると副作用が出ることもあります。
\documentclass[a4paper,fleqn]{jarticle}
\usepackage{emathP}
%\usepackage{type1cm}% PS, PDF 作成には必要
\makeatletter
\def\mTeisei{%
\@ifnextchar[{\@mTeisei}{\@mTeisei[s]}}%
\def\@mTeisei[#1]{%
\@ifnextchar({\@mTeisei@[#1]}{\@mTeisei[#1](\empty)}}%
\def\@mTeisei@[#1](#2)#3{%
\@ifnextchar[{\@@mTeisei[#1](#2){#3}}{\@@mTeisei[#1](#2){#3}[r]}}%
\def\@@mTeisei[#1](#2)#3[#4]#5{{%
\edef\mozi@iti{0}%
\expandafter\@tfor\expandafter\@c\expandafter:\expandafter=#4%
\do {\if r\@c\IAdd\mozi@iti{2}\mozi@iti\else
\if l\@c\IAdd\mozi@iti{4}\mozi@iti\else
\if b\@c\IAdd\mozi@iti{1}\mozi@iti\fi\fi\fi}%
\ifx\empty#5\@teisei@[#1](#2){#3}{}\else%
\ifcase\mozi@iti\overset{#5}{\@teisei@[#1](#2){#3}{}}%
\or\underset{#5}{\@teisei@[#1](#2){#3}{}}%
\or{\@teisei@[#1](#2){#3}{}}^{\makebox[0pt][l]{\,{$\scriptstyle#5$}}}%
\or{\@teisei@[#1](#2){#3}{}}_{\makebox[0pt][l]{\,{$\scriptstyle#5$}}}%
\or{}^{\makebox[0pt][r]{$\scriptstyle#5$\,}}{\@teisei@[#1](#2){#3}{}}%
\or{}_{\makebox[0pt][r]{$\scriptstyle#5$\,}}{\@teisei@[#1](#2){#3}{}}\fi
\fi}}%
\makeatother
\begin{document}
$\bunsuu{5}{\Teisei{6}{2}} \times \bunsuu{\Teisei{9}{3}}{4} = \bunsuu{15}{8}$
$\bunsuu{5}{\mTeisei{6}{2}} \times \bunsuu{\mTeisei{9}{3}}{4} = \bunsuu{15}{8}$
$\bunsuu{5}{\mTeisei{6}[lb]{2}} \times \bunsuu{\mTeisei{9}[l]{3}}{4} = \bunsuu{15}{8}$
$\bunsuu{5}{\mTeisei{6}[b]{2}} \times \bunsuu{\mTeisei{9}[t]{3}}{4} = \bunsuu{15}{8}$
$\bunsuu{5}{\mTeisei{6}[rb]{2}} \times \bunsuu{\mTeisei{9}[r]{3}}{4} = \bunsuu{15}{8}$
\end{document}
▼関連発言
│
└◆6899:\Teiseiコマンドについて [st] 12/29 07:06
├◆6900:Re:\Teiseiコマンドについて [石原 守] 12/29 07:51
│├◆6902:--- [---] 12/29 14:54
│└◆6903:Re[2]:\Teiseiコマンドについて [st] 12/29 14:55
│ └◆6905:Re[3]:\Teiseiコマンドについて [石原 守] 12/29 15:18
│ └◆6906:Re[4]:\Teiseiコマンドについて [st] 12/29 15:50
└◆6901:Re:\Teiseiコマンドについて [tDB] 12/29 11:40
└◆6904:Re[2]:\Teiseiコマンドについて [st] 12/29 15:10
└◆6907:Re[3]:\Teiseiコマンドについて [tDB] 12/29 15:55
└◆6908:Re[4]:\Teiseiコマンドについて [st] 12/29 16:17<-last