🚀 go-pugleaf

In item <1272@tukki.jyu.fi> sakkinen@tukki.jyu.fi (Markku Sakkinen)
quotes me:
>
>In article <678@agsm.unsw.oz> bobm@agsm.unsw.oz (Robert Marks) writes:
>>I can post all our eqn definitions if there's a demand.
>
And responds:
>Yes, please!

OK, here you are:  (Yes, we're using DWB 2.0 ditroff under SystemV 2.2,
on an aging Vax 11/780, and using the PD PostScript package tpscript.)

define Fraction	% {up 20 size -4 $1 down 25 "" back 12 size +1 "\S'+15'/\S'0'" up 5  "" fwd 6 size -4 $2} %
define lower	% sub up 30 fwd 50 %
define upper	% sup up 30 %
define Integral	% {size +2 int lower $1 upper $2} %
define alpha	% "\S'+15'\s-1\H'+1'\(*a\H'0'\s+1\S'0'\h'0.2n'" %
define ALPHAit	% "\S'+15'\s-1\H'+1'\(*A\H'0'\s+1\S'0'\h'0.1n'" %
define beta	% "\S'+15'\s-1\H'+1'\(*b\H'0'\s+1\S'0'\h'0.2n'" %
define BETAit	% "\S'+15'\s-1\H'+1'\(*B\H'0'\s+1\S'0'\h'0.2n'" %
define gamma	% "\S'+15'\s-1\H'+1'\(*g\H'0'\s+1\S'0'\h'0.4n'" %
define GAMMAit	% "\S'+15'\s-1\H'+1'\(*G\H'0'\s+1\S'0'\h'0.35n'" %
define delta	% "\S'+15'\s-1\H'+1'\(*d\H'0'\s+1\S'0'\h'0.3n'" %
define DELTAit	% "\S'+15'\s-1\H'+1'\(*D\H'0'\s+1\S'0'\h'0.1n'" %
define epsilon	% "\S'+15'\s-1\H'+1'\(*e\H'0'\s+1\S'0'\h'0.2n'" %
define EPSILONit	% "\S'+15'\s-1\H'+1'\(*E\H'0'\s+1\S'0'\h'0.25n'" %
define zeta	% "\S'+15'\s-1\H'+1'\(*z\H'0'\s+1\S'0'\h'0.3n'" %
define ZETAit	% "\S'+15'\s-1\H'+1'\(*Z\H'0'\s+1\S'0'\h'0.33n'" %
define eta	% "\S'+15'\s-1\H'+1'\(*y\H'0'\s+1\S'0'\h'0.17n'" %
define ETAit	% "\S'+15'\s-1\H'+1'\(*Y\H'0'\s+1\S'0'\h'0.28n'" %
define theta	% "\S'+15'\s-1\H'+1'\(*h\H'0'\s+1\S'0'\h'0.2n'" %
define THETAit	% "\S'+15'\s-1\H'+1'\(*H\H'0'\s+1\S'0'\h'0.2n'" %
define iota	% "\S'+15'\s-1\H'+1'\(*i\H'0'\s+1\S'0'\h'0.17n'" %
define IOTAit	% "\S'+15'\s-1\H'+1'\(*I\H'0'\s+1\S'0'\h'0.33n'" %
define kappa	% "\S'+15'\s-1\H'+1'\(*k\H'0'\s+1\S'0'\h'0.3n'" %
define KAPPAit	% "\S'+15'\s-1\H'+1'\(*K\H'0'\s+1\S'0'\h'0.33n'" %
define lambda	% "\S'+15'\s-1\H'+1'\(*l\H'0'\s+1\S'0'\h'0.2n'" %
define LAMBDAit	% "\S'+15'\s-1\H'+1'\(*L\H'0'\s+1\S'0'\h'0.1n'" %
define mu	% "\S'+15'\s-1\H'+1'\(*m\H'0'\s+1\S'0'\h'0.2n'" %
define MUit	% "\S'+15'\s-1\H'+1'\(*M\H'0'\s+1\S'0'\h'0.33n'" %
define nu	% "\S'+15'\s-1\H'+1'\(*n\H'0'\s+1\S'0'\h'0.25n'" %
define NUit	% "\S'+15'\s-1\H'+1'\(*N\H'0'\s+1\S'0'\h'0.33n'" %
define xi	% "\S'+15'\s-1\H'+1'\(*c\H'0'\s+1\S'0'\h'0.2n'" %
define XIit	% "\S'+15'\s-1\H'+1'\(*C\H'0'\s+1\S'0'\h'0.25n'" %
define omicron	% "\S'+15'\s-1\H'+1'\(*o\H'0'\s+1\S'0'\h'0.2n'" %
define OMICRONit	% "\S'+15'\s-1\H'+1'\(*O\H'0'\s+1\S'0'\h'0.2n'" %
define pi	% "\S'+15'\s-1\H'+1'\(*p\H'0'\s+1\S'0'\h'0.25n'" %
define PIit	% "\S'+15'\s-1\H'+1'\(*P\H'0'\s+1\S'0'\h'0.33n'" %
define rho	% "\S'+15'\s-1\H'+1'\(*r\H'0'\s+1\S'0'\h'0.2n'" %
define RHOit	% "\S'+15'\s-1\H'+1'\(*R\H'0'\s+1\S'0'\h'0.25n'" %
define sigma	% "\S'+15'\s-1\H'+1'\(*s\H'0'\s+1\S'0'\h'0.3n'" %
define SIGMAit	% "\S'+15'\s-1\H'+1'\(*S\H'0'\s+1\S'0'\h'0.3n'" %
define tau	% "\S'+15'\s-1\H'+1'\(*t\H'0'\s+1\S'0'\h'0.3n'" %
define TAUit	% "\S'+15'\s-1\H'+1'\(*T\H'0'\s+1\S'0'\h'0.3n'" %
define upsilon	% "\S'+15'\s-1\H'+1'\(*u\H'0'\s+1\S'0'\h'0.2n'" %
define UPSILONit	% "\S'+15'\s-1\H'+1'\(*U\H'0'\s+1\S'0'\h'0.4n'" %
define phi	% "\S'+15'\s-1\H'+1'\(*f\H'0'\s+1\S'0'\h'0.2n'" %
define PHIit	% "\S'+15'\s-1\H'+1'\(*F\H'0'\s+1\S'0'\h'0.2n'" %
define psi	% "\S'+15'\s-1\H'+1'\(*q\H'0'\s+1\S'0'\h'0.35n'" %
define PSIit	% "\S'+15'\s-1\H'+1'\(*Q\H'0'\s+1\S'0'\h'0.35n'" %
define chi	% "\S'+15'\s-1\H'+1'\(*x\H'0'\s+1\S'0'\h'0.25n'" %
define CHIit	% "\S'+15'\s-1\H'+1'\(*X\H'0'\s+1\S'0'\h'0.33n'" %
define omega	% "\S'+15'\s-1\H'+1'\(*w\H'0'\s+1\S'0'\h'0.2n'" %
define OMEGAit	% "\S'+15'\s-1\H'+1'\(*W\H'0'\s+1\S'0'\h'0.2n'" %
define aleph	% "\S'+15'\s-1\H'+1'\(al\H'0'\s+1\S'0'\h'0.2n'" %
define ln	% "\S'-15'\f2ln\fP\S'0'" %
define lscr	% "\S'-15'\f2l\fP\S'0'" %
define becaus	% "\u\s+5.\s0\d\s+5.\s0\u\s+5.\s0\d" %
define times	% \(mu %
define lt	% roman "\^<\^" %
define <	% roman "\^<\^" %
define gt	% roman "\^>\^" %
define >	% roman "\^>\^" %
define |	% roman "\^|\^" %
define /	% roman "\^\S'+18'\(br\S'0'\^"^ ^ %
define ++++	% \(pl %
define ====	% \(eq %
define prime	% \(mt %
define there4	% \(tf %
define thf	% \(tf %
define forall	% \(fa %
define oppA	% \(fa %
define exist	% \(te %
define oppE	% \(te %
define intersection	% "\(ca" %
define union	% "\(cu" %
define Exp	% roman "Exp" %
define cov	% roman "cov" %
define Cov	% roman "Cov" %
define var	% roman "var" %
define Var	% roman "Var" %
define Prob	% roman "Prob" %
define where	% roman "where" %
define subject 	% roman "subject" %
define st	% roman "st" %
define nd	% roman "nd" %
define rd	% roman "rd" %
define $	% roman "$" %
define th	% roman "th" %
define n.s.	% roman "n.s." %
define s.t.	% roman "s.t." %
define tr	% roman "tr" %
define sgn	% roman "sgn" %
define RR	% "\fHI\h'-.85n'R\fP" %
define lcb	% ^ roman "{"^ %
define rcb	% ^ roman "}"^ %
define sroot    % down 20 sqrt up 20 %
define app=     % "\(mi" up 20 back 55 "\(ap" down 20 %
define -wig     % "\(mi" up 20 back 55 "\(ap" down 20 %
define divby	% ^ "\(di" ^ %
define member	% "\(mo" %

Happy troffing!

Robert MARKS, Australian Graduate School of Management, University of New
              South Wales, PO Box 1, Kensington, NSW 2033, Australia.

Phone:  +61 2 662-0271			Fax:  +61 2 662-2451
Internet:   bobm%agsm.unsw.oz.au	JANET: agsm.unsw.oz.au!bobm@ukc
BITNET: bobm%agsm.unsw.oz%uunet.uu.net@WISCVM
BITNET: bobm%agsm.unsw.oz%uunet.uu.net@HARVUNXT
CompuServe:	>internet:bobm@agsm.unsw.oz.au
UUCP:   {uunet,hplabs,ukc,mcvax,ubc-vision,nttlab}!munnari!agsm.unsw.oz!bobm