123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123 |
- .\" 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
|