一般フォーラム

本田様　ありがとうございます。

私にはかなり高度で頭が追いついておりません^^;

> なお老婆心ながら，
> この用途ならあえてlowercaseのトリックでグループ終了を飛び越えなくても
> globalの方が楽だと思います．

正解かわかりませんが
\begingroup
\catcode`^=\active
\catcode`_=\active
\gdef^{\mysup}
\gdef_{\mysub}
\endgroup
\catcode`\^=\active
\catcode`_=\active

このようにしました。

おしえていただいたサンプルは上付と下付が同じ数値で移動するので、それぞれで設定したく下記のように少し改変しましたが、インテグラルやシグマの箇所まで影響がでてしまいました。
私の頭では判定している箇所の判定（\ifx\@nextだと思うのですが）が正しく理解できていないからだと思います。もちろん\futureletも理解が追いついておりません。
どのように修正すればよろしいでしょうか？

> ちなみに手を抜いているところは空白トークンの扱いですが，
> これは面倒なので放置です．

空白のトークンの扱いとはどのような事なのでしょうか？

いただいたサンプルはプレアンブル内に\makeatletter、\makeatotherが入っておりました。再定義するマクロなどに＠が現れる場合に使用するのだと思いますが、どの部分が再定義になっているのでしょうか？知識の浅い私には新しく定義しているものばかりに見えます。。。

\documentclass[dvipdfmx]{jsarticle}
\usepackage{amsmath}
\usepackage{amssymb}

\makeatletter

\begingroup
\catcode`^=\active
\catcode`_=\active
\gdef^{\mysup}
\gdef_{\mysub}
\endgroup
\catcode`\^=\active
\catcode`_=\active

\newdimen\shift@suffix
\shift@suffix1ex

%下記を追加
\newdimen\shift@suffix@sp
\shift@suffix@sp1ex
\newdimen\shift@suffix@sb
\shift@suffix@sb2ex
%ここまで

\def\reset@ornot@shift@suffix@sb{%
\ifx\@next_\else\global\shift@suffix1ex\fi
}

\def\reset@ornot@shift@suffix@sp{%
\ifx\@next^\else\global\shift@suffix1ex\fi
}
%\raise\shift@suffixから\raise\shift@suffix@spに変更
\def\mysup#1{\sp{\text{\raise\shift@suffix@sp\hbox{\let\mysup\mysupsup\let\mysub\mysupsub$#1$}}}%
\futurelet\@next\reset@ornot@shift@suffix@sb
}
%\lower\shift@suffixから\lower\shift@suffix@sbに変更
\def\mysub#1{\sb{\text{\lower\shift@suffix@sb\hbox{\let\mysup\mysubsup\let\mysub\mysubsub$#1$}}}%
\futurelet\@next\reset@ornot@shift@suffix@sp
}


\def\mysupsup#1{\sp{\text{$#1$}}}
\def\mysupsub#1{\sb{\text{$#1$}}}
\def\mysubsup#1{\sp{\text{$#1$}}}
\def\mysubsub#1{\sb{\text{$#1$}}}


\def\int{\intop\shift@suffix\z@\nolimits}
\DeclareMathSymbol{\Sum}{\mathop}{largesymbols}{"50}
\def\sum{\Sum\shift@suffix\z@\displaylimits}

\makeatother


\begin{document}
\parindent=0pt
文字の大きさ
$a123\scriptstyle{a123}\scriptscriptstyle{a123}$\\
デフォルトの位置　
$a\sp1\sb2$\ $a\sp{1\sp{2\sp3}}$\\
ここから　\\
$a^1$\ $a_2$\ $a^1_2$\\\\
$a^{1^{2^3}}$\ $a_{1_{2_3}}$\ $a^{1^{2^3}}_{1_{2_3}}$\\\\

$a^1_{2^{50}_1}$\ $a^{1^{60}_3}_{2^{50}_1}$\\

spsbを使用　
$\int\sb{a}\sp{b}$\ $\displaystyle\int\sb{a}\sp{b}$\\
$\int_a^b$\ $\displaystyle\int_a^b$\\
spsbを使用　
$\sum\sb{a}\sp{b}$\ $\displaystyle\sum\sb{a}\sp{b}$\\
$\sum_a^b$\ $\displaystyle\sum_a^b$\\

spsbを使用
$a\sp1\sb{2\sp{50}\sb1}$\ $a\sp{1\sp{60}\sb3}\sb{2\sp{50}\sb1}$\\
$a^1_{2^{50}_1}$\ $a^{1^{60}_3}_{2^{50}_1}$\\
その他\\
$a\_\text{\textasciicircum}$a\_\textasciicircum\ $f'(x)$

\end{document}