bobm@agsm.unsw.oz (Robert Marks) (09/08/89)
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