.\" eqn
.\" ----------------------------------------------------------------
.fp 1 R CMR10
.fp 2 I CMTI10
.fp 3 MI CMMI10
.fp 4 SY CMSY10
.fp 5 SX CMEX10
.\" ----------------------------------------------------------------
.EQ
delim $$
gfont MI
sdefine inf %\[if]%
sdefine sum %{type "operator" vcenter \[sumtext]}%
sdefine int %{type "operator" vcenter \[inttext]}%
sdefine dd % roman d %
.EN
.\" ----------------------------------------------------------------
.de EQ
.br
.tr \[inttext]\[intdisp]
.tr \[sumtext]\[sumdisp]
.nr EQ +1
.di XX
..
.de EN
.br
.di
.ne .8v+\\n(dnu
.sp .8v
.ta \\n(.lu/2uC
(\\n(EQ)\t\\*(10
.sp .8v
.tr \[sumtext]\[sumtext]
.tr \[inttext]\[inttext]
..
.de PP
.br
..
.\" ----------------------------------------------------------------
.po 3c
.ll 21c-6c
.sp 4c
.ps 10
.vs 12
.\" ----------------------------------------------------------------
.ft 2
Hello
.ft 1
world.
.PP
Plus, minus, and equal signs (should be properly aligned):
.br
$ alpha sup 2 + beta sup 2 = gamma sup 2 $
.br
$ alpha sup 2 - beta sup 2 = gamma sup 2 $
.PP
Inline equations:
$ exp (x) = sum sub {i=0} sup inf x sup i back 10 / i ! ,
fwd 200
Gamma ( z ) = int sub 0 sup inf t sup {z - 1} e sup {- t} ^dd t . $
.PP
Displayed equations:
.EQ
exp (x) = sum from {i^=^0} to inf { x sup i } over { i ! } ,
fwd 200
Gamma ( z ) = int sub 0 sup inf t sup {z - 1} e sup {- t} ^dd t .
.EN
.PP
Large parentheses:
$
left (
matrix {
col { a sub 11 above a sub 21 }
col { a sub 12 above a sub 22 }
col { a sub 13 above a sub 23 } }
right )
left ( pile { b sub 1 above b sub 2 above b sub 3 } right )
=
left ( pile { c sub 1 above c sub 2 } right )
$
.PP
By default, capital greek letters are found in the upright font first,
.br
$
Alpha Beta Gamma Delta Epsilon Zeta Eta Theta Iota Kappa Lambda Mu
Nu Xi Omicron Pi Rho Sigma Tau Upsilon Phi Chi Psi Omega
alpha beta gamma delta epsilon zeta eta theta iota kappa lambda mu
nu xi omicron pi rho sigma tau upsilon phi chi psi omega ,
$
.br
use the keyword \(lqitalic\(rq to specifically select one from the
italic font:
.EQ
sdefine ab % sub { alpha beta } %
R ab - 1 over 2 g ab R + italic Lambda g ab =
{ 8 pi kappa } over { c sup 2 } T ab
.EN
.\" ----------------------------------------------------------------