123 lines
2.3 KiB
Text
123 lines
2.3 KiB
Text
.\" MACROES FOR EQUATIONS (file tmac.q5)
|
|
.\"
|
|
.\" Th.A. Zoethout
|
|
.\"
|
|
.de EQ \" START EQUATION
|
|
.\" .EQ [$1] [$2] [ $3 $4 ] [ $5 $6 ] [$7]
|
|
. \" $1 = Indented, Centered { C }
|
|
. \" $2 = indent from Left margin (I) { 0 }
|
|
. \" $3 = Left numbered, Right numbered { }
|
|
. \" $4 = equation number { }
|
|
. \" $5 = Right numbered, Left numbered { }
|
|
. \" $6 = equation number { }
|
|
. \" $7 = preceding vertical spacing { \n(VS }
|
|
. \" eqn checks against nested equations.
|
|
.\" WARNING: For "inline" equations the (almost) only reasonable
|
|
.\" delimeter character is "$". All other seemingly useful
|
|
.\" characters could be generated by t(a)b(e)l.
|
|
.ch Id
|
|
.nr EQ 0
|
|
.nr EN 1
|
|
.ie \&\\$1\&I\& .nr EQ 1
|
|
.el .if !\&\\$1\&C\& .nr EN 0
|
|
.nr EN +1
|
|
.nr Ex 0
|
|
.ie (\\$\\n(EN)=(\\$\\n(EN) .nr Ex \\$\\n(ENm
|
|
.el .nr EN -1
|
|
.if \\n(EN=1 .if \\n(Ex>0 .nr EQ 1
|
|
.nr EN +1
|
|
.ds E1 "
|
|
.nr Et 0
|
|
.if \&\\$\\n(EN\&L\& .nr Et 1
|
|
.if \\n(Et=1 .nr EN +1
|
|
.if \\n(Et=1 .ds E1 \\$\\n(EN
|
|
.if \\n(Et=1 .nr EN +1
|
|
.ds E2 "
|
|
.nr Et 0
|
|
.if \&\\$\\n(EN\&R\& .nr Et 1
|
|
.if \\n(Et=1 .nr EN +1
|
|
.if \\n(Et=1 .ds E2 \\$\\n(EN
|
|
.if \\n(Et=1 .nr EN +1
|
|
.nr Et 0
|
|
.if \&\\$\\n(EN\&L\& .nr Et 1
|
|
.if \\n(Et=1 .nr EN +1
|
|
.if \\n(Et=1 .ds E1 \\$\\n(EN
|
|
.if \\n(Et=1 .nr EN +1
|
|
.ie \\n(EN=\\n(.$ .nr EN \\$\\n(.$
|
|
.el .nr EN 0-1
|
|
.ev 1
|
|
.if !\&\\n(.z\&\& .br
|
|
.di Ex
|
|
..
|
|
.de EN \" END EQUATION
|
|
.\" .EN [$1]
|
|
. \" $1 = succeeding vertical spacing { \n(VS }
|
|
.ie !\&\\n(.z\&Ex\& .Er W ".EN: no matching .EQ
|
|
.el \{\
|
|
.br
|
|
.di
|
|
.ev
|
|
.rm Ex
|
|
.ie \\n(dn=0 .if !\&\\*(E1\\*(E2\&\& .Et \\$1
|
|
.el .Et \\$1
|
|
.rm E1
|
|
.rm E2
|
|
.rm 10
|
|
.rm 11
|
|
.rm 12
|
|
.rm 13
|
|
.rm 14
|
|
.rm 15
|
|
.rm 16
|
|
.rm 17
|
|
.rm 18
|
|
.rm 19
|
|
.rm 20
|
|
.rm 21
|
|
.rm 22
|
|
.rm 23
|
|
.rr EN
|
|
.rr E1
|
|
.rr E2
|
|
.rr Et
|
|
.rr Ex
|
|
.rr EQ
|
|
.rr 10
|
|
.rr 11
|
|
.rr 12
|
|
.rr 13
|
|
.rr 14
|
|
.rr 15
|
|
.rr 16
|
|
.rr 17
|
|
.rr 18
|
|
.rr 19
|
|
.rr 20
|
|
.rr 21
|
|
.rr 22
|
|
.rr 23 \}
|
|
..
|
|
.de Et \" final rediversion of equation
|
|
. \" $1 = succeeding vertical spacing { \n(VS }
|
|
.ie \\n(EN>=0 .sp \\n(ENv
|
|
.el .sp \\n(VSu
|
|
.ti \\n(.iu
|
|
.ne \\n(NDv
|
|
.rs
|
|
.nr EN \\n(.u
|
|
.if \\n(EN>0 .nf
|
|
.nr Et \\n(.lu-\\n(.iu
|
|
.if \\n(EQ=0 .nr E1 \\n(Etu-\\w\&\\*(E1\&u-\\w\&\\*(10\&u-\\w\&\\*(E2\&u/2u
|
|
.if \\n(EQ=1 .nr E1 \\n(Exu-\\w\&\\*(E1\&u
|
|
.if \\n(E1<1m .nr E1 1m
|
|
.nr E1 1m/2u+\\w\&\\*(E1\&u+\\n(E1u/1m*1m-\\w\&\\*(E1\&u
|
|
.nr E2 \\n(Etu-\\w\&\\*(E2\&u
|
|
.pc
|
|
\&\\*(E1\h#\\n(E1u#\\*(10\h#|\\n(E2u#\\*(E2
|
|
.pc %
|
|
.if \\n(EN>0 .fi
|
|
.ie \\n(.$>0 .sp \\$1v
|
|
.el .sp \\n(VSu
|
|
..
|
|
.\*($0
|
|
.rm $0
|