(FILECREATED "30-Apr-87 10:33:50" ("compiled on " {PHYLUM}KOTO>EQUATIONFORMS.;1) "12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "30-Apr-87 10:24:03" {PHYLUM}KOTO>EQUATIONFORMS.;1 85410 changes to: (FNS EQ.SumGroup EQ.IntegralGroup AB.RealPosition AB.PointPos AB.SidePosition AB.PlaceRegion AB.AdjustToLL AB.OppositeSide AB.RegionToBox AB.BoxToRegion AB.RelativePos AB.BiggerRegion AB.Check AB.PositionRegion AB.Position2Regions EQ.Group EQ.GroupCreate EQ.Make.group EQ.enclosure EQ.EnclosureEdit EQ.EnclosureKind EQ.EnclosureSide EQ.angles EQ.bars EQ.braces EQ.brackets EQ.parentheses EQ.enclosureForm EQ.DrawBraces EQ.DrawParentheses EQ.Matrix EQ.layout EQ.MatrixAdd EQ.MatrixCreate EQ.MatrixDelete EQ.MatrixEdit EQ.MatrixGetMenu EQ.Fraction EQ.Script EQ.MaxMin EQ.Root ) (VARS EQUATIONFORMSCOMS) previous date: "18-Mar-86 15:43:29" {PHYLUM}KOTO>LISPUSERS>EQUATIONFORMS.;1) AB.RealPosition D1 (I 2 side I 1 box I 0 pos) LBgBdg@BgA@Ԅ@ gBg@BgA@Ԅ@ H(107Q MINUS 42Q MINUS) (72Q right 55Q right 47Q left 24Q top 12Q bottom 3 top) () AB.PointPos D1 (L (2 pt 1 side 0 box)) LAgAgBdgj0gHj&@ BdgH@@lیg H@@jNIL (75Q high 54Q center 34Q display 23Q low 12Q bottom 3 top) () AB.SidePosition D1 (I 2 side I 1 box I 0 pos) GBgBdg@Bg@AՄ@ gBg@Bg@AՄ@ (103Q MINUS 42Q MINUS) (66Q right 55Q right 47Q left 24Q top 12Q bottom 3 top) () AB.PlaceRegion D1 (P 3 posSide P 2 posAddPt P 1 opposite P 0 posMainPt I 6 shift I 5 gap I 4 addPt I 3 addBox I 2 mainPt I 1 side I 0 mainBox) E@AB A "HFHEZCID [dJKKJK@A CA [dKCCh(63Q AB.AdjustToLL 56Q AB.RealPosition 34Q AB.PointPos 11Q AB.OppositeSide 5 AB.PointPos) NIL () AB.AdjustToLL D1 (L (2 side 1 addBox 0 pos)) .Bg&Bdgdg@dAg@dA@NIL (40Q bottom 22Q left 13Q right 3 top) () AB.OppositeSide D1 (L (0 side)) *@dgggg@dggggNIL (47Q left 41Q right 35Q right 30Q left 22Q top 15Q bottom 11Q bottom 4 top) () AB.RegionToBox D1 (L (1 displayYPos 0 region)) Ajb@@A@jhNIL NIL () AB.BoxToRegion D1 (L (2 cornerYPos 1 cornerXPos 0 box)) BAbAAB@@hNIL NIL () AB.RelativePos D1 (L (2 yShift 1 bigRegion 0 region)) @A@ABNIL NIL () AB.BiggerRegion D1 (I 1 extra I 0 region) 7A3Aj.A$@A@A@Al@Alh @(61Q \FZEROP) NIL () AB.Check D1 (P 4 overlap P 3 r I 3 clear I 2 side I 1 regionList I 0 region) Cjbj(0AdKC IHhZH&JbhAad@K SiBdg@KK:g@K@'Bdg@K@g@KKL@(223Q SHOULDNT 101Q REGIONSINTERSECTP 31Q AB.BiggerRegion) (204Q right 163Q left 136Q bottom 112Q top) () AB.PositionRegion D1 (I 10Q clear I 7 shift I 6 gap I 5 addPt I 4 addBox I 3 mainPt I 2 side I 1 addedRegions I 0 mainBox)  @BCDEFG ABG A(22Q AB.Check 13Q AB.PlaceRegion) NIL () AB.Position2Regions D1 (P 3 totalSize P 2 shift P 1 placeLow P 0 placeHigh I 13Q clear I 12Q lowShift I 11Q highShift I 10Q lowGap I 7 highGap I 6 lowPt I 5 lowBox I 4 highPt I 3 highBox I 2 side I 1 addedRegions I 0 mainBox)   @BgCDGG X@BgEFGG YGjbHIG  BgBdgOIIGHZjIHԻIdJIKoj HdJHKojegBgVIIGHZjEIHԻIIJIKoj HHJHKojIABG YHABG dIA(413Q AB.Check 402Q AB.Check 370Q SHOULDNT 332Q MINUS 174Q MINUS 63Q REGIONSINTERSECTP 60Q AB.BiggerRegion 41Q AB.PlaceRegion 21Q AB.PlaceRegion) (236Q right 230Q left 105Q bottom 76Q top 27Q low 7 high) ( 357Q .5 324Q .5 216Q .5 166Q .5) EQ.Group D1 (P 2 pos P 1 enclose P 0 innerBox I 2 draw? I 1 imageStream I 0 eqnObj) -@k A !H@AB YdZddHIJ h (52Q EQIO.MakeSpec 45Q EQIO.MakeDataSpec 22Q EQ.enclosure 10Q FS.Box 4 EQIO.EqnData) NIL () EQ.GroupCreate D1 NIL i (3 EQ.EnclosureCreate) NIL () EQ.Make.group D1 (I 3 fontSpec I 2 enclosureSide I 1 enclosureKind I 0 data) g@hCgAgBh (26Q EQN.Make) (15Q enclosureSide 11Q enclosureKind 2 group) () EQ.AddEnclosure D1 (P 1 newValue P 0 enclosures I 2 label I 1 formFn I 0 kind) 8gg ABhH@IhXggH ggh @I (64Q LISTPUT 56Q EQIO.TypeProp 44Q EQIO.TypeProp 10Q EQIO.TypeProp) (52Q kindMenu 47Q group 40Q enclosures 35Q group 5 enclosures 2 group) () EQ.GetEnclosureData D1 (I 0 kind) gg @'(10Q EQIO.TypeProp) (5 enclosures 2 group) () EQ.enclosure D1 (P 2 formFn P 1 which P 0 kind I 3 draw? I 2 imageStream I 1 eqnObj I 0 innerBox) FAg gg Ag IgIghH J@BCIHlJ@jd(55Q EQ.GetEnclosureData 30Q EQIO.EqnProperty 21Q EQIO.TypeProp 6 EQIO.EqnProperty) (45Q right 37Q left 25Q enclosureSide 16Q defaultEnclosure 13Q group 3 enclosureKind) () EQ.EnclosureCreate D1 (P 1 which P 0 kind I 0 getWhich?) $@YgHgIhgHh(13Q EQ.EnclosureSide 2 EQ.EnclosureKind) (35Q enclosureKind 23Q enclosureSide 17Q enclosureKind) () EQ.EnclosureEdit D1 (P 1 newValue P 0 editMenu I 0 eqnObj) gg !Hd`H`di dododg dgjdndhdJ ggH H dgY!@gI igY @gI i(211Q EQIO.EqnProperty 176Q EQ.EnclosureSide 163Q EQIO.EqnProperty 150Q EQ.EnclosureKind 135Q MENU 130Q EQIO.TypeProp 10Q EQIO.TypeProp) (205Q enclosureSide 170Q side 157Q enclosureKind 141Q kind 124Q editMenu 121Q group 71Q DEFAULTMENUHELDFN 62Q CLRPROMPT 30Q MENUTYPE# 21Q MENUTYPE# 5 editMenu 2 group) ( 53Q (("symbol" (QUOTE kind)) ("which side" (QUOTE side))) 43Q "change what?") EQ.EnclosureKind D1 (P 0 kindMenu) gg 1Hd`X`di gg PIBLdJdodg dgjdndhdK ggH H _I_IOOddi3 gOhhM Nh]N&(155Q MENU 150Q EQIO.TypeProp 47Q EQIO.TypeProp 10Q EQIO.TypeProp) (217Q QUOTE 144Q kindMenu 141Q group 111Q DEFAULTMENUHELDFN 102Q CLRPROMPT 44Q enclosures 41Q group 30Q MENUTYPE# 21Q MENUTYPE# 5 kindMenu 2 group) ( 73Q "enclosures") EQ.EnclosureSide D1 (P 0 whichMenu) [gg Hd`C`dododg dgjdndhdI ggH H (130Q MENU 123Q EQIO.TypeProp 10Q EQIO.TypeProp) (117Q whichMenu 114Q group 64Q DEFAULTMENUHELDFN 55Q CLRPROMPT 30Q MENUTYPE# 21Q MENUTYPE# 5 whichMenu 2 group) ( 46Q "Which side?" 36Q (left right both)) EQ.angles D1 (P 11Q overlap P 10Q spacing P 7 descent P 6 height P 5 width P 4 Vex P 3 Vgap P 2 Hex P 1 Hgap P 0 size I 3 which I 2 draw? I 1 imageStream I 0 innerBox) j A  HZd[d\@Kl^HN ]HlNl Y@IMl_@K_HlIMl _BNOOJMOAC OJNLOM (147Q EQ.enclosureForm 132Q EQ.DrawAngles 107Q MAX 46Q MAX 32Q EQ.enclosureWidth 3 EQ.StreamSize) NIL () EQ.bars D1 (P 10Q spacing P 7 descent P 6 height P 5 width P 4 Vex P 3 Vgap P 2 Hex P 1 Hgap P 0 size I 3 which I 2 draw? I 1 imageStream I 0 innerBox) R A HlYHZI[J\@Kl^HN ]@IMl_@K_BNOOJMAC OJNLOM (117Q EQ.enclosureForm 102Q EQ.DrawBars 37Q EQ.enclosureWidth 3 EQ.StreamSize) NIL () EQ.braces D1 (P 14Q extra P 13Q space P 12Q point P 11Q overlap P 10Q spacing P 7 descent P 6 height P 5 width P 4 Vex P 3 Vgap P 2 Hex P 1 Hgap P 0 size I 3 which I 2 draw? I 1 imageStream I 0 innerBox) A  Hl[HZd\@Kl^HN ]NMl^@KM_HlNl Y@IMl_IM_HOl_Ol_d_BNOOJMOOOOAC OJNLOMi (204Q EQ.enclosureForm 166Q EQ.DrawBraces 72Q MAX 35Q EQ.enclosureWidth 3 EQ.StreamSize) NIL () EQ.brackets D1 (P 11Q overlap P 10Q spacing P 7 descent P 6 height P 5 width P 4 Vex P 3 Vgap P 2 Hex P 1 Hgap P 0 size I 3 which I 2 draw? I 1 imageStream I 0 innerBox) j A  HlYHZI[J\@Kl^HN ]NMl^@IMl_@KM_HlIM _BNOOJMOAC OJNLOMi (147Q EQ.enclosureForm 131Q EQ.DrawBrackets 106Q MAX 37Q EQ.enclosureWidth 3 EQ.StreamSize) NIL () EQ.parentheses D1 (P 11Q overlap P 10Q spacing P 7 descent P 6 height P 5 width P 4 Vex P 3 Vgap P 2 Hex P 1 Hgap P 0 size I 3 which I 2 draw? I 1 imageStream I 0 innerBox) w A  Hl[HZd\@Kl^HN ]NMl^@KM_HlNl Y@IMl_HlIMl _BNOOJMOAC OJNLOMi (164Q EQ.enclosureForm 146Q EQ.DrawParentheses 123Q MAX 72Q MAX 35Q EQ.enclosureWidth 3 EQ.StreamSize) NIL () EQ.enclosureForm D1 (L (6 verticalWidth? 5 width 4 descent 3 Vex 2 height 1 Hex 0 spacing) F 0 Hgap F 1 Vgap) '@AlBClDCjhPEAQFEjCNIL NIL () EQ.enclosureWidth D1 (I 1 height I 0 size) @Ald (7 MAX) NIL () EQ.DrawAngles D1 (P 7 right P 6 left P 5 middle P 4 top P 3 lowerY P 2 lowerX P 1 halfWidth1 P 0 halfWidth I 7 which I 6 imageStream I 5 overlap I 4 width I 3 xShift I 2 spacing I 1 descent I 0 height) DlDklhF ChF ADK@k\K@kl]Gdg&JEH^KJHMDhF JHMNLDhF Gg:JBkEI _dKJBkI MDhF JBkI MOLDhF h(223Q DRAWLINE 206Q MINUS 176Q DRAWLINE 164Q MINUS 146Q MINUS 123Q DRAWLINE 105Q DRAWLINE 25Q DSPYPOSITION 16Q DSPXPOSITION) (131Q left 57Q right) () EQ.DrawBars D1 (P 3 lowerY P 2 lowerX P 1 halfWidth1 P 0 halfWidth I 6 which I 5 imageStream I 4 width I 3 xShift I 2 spacing I 1 descent I 0 height) YDlDklhE ChE AFdgJIKE j@kDhE FgJBHKE j@kDhE h(125Q RELDRAWTO 111Q MOVETO 67Q RELDRAWTO 53Q MOVETO 25Q DSPYPOSITION 16Q DSPXPOSITION) (74Q left 37Q right) () EQ.DrawBraces D1 (P 11Q right2 P 10Q right1 P 7 left2 P 6 left1 P 5 middle P 4 top P 3 lowerY P 2 lowerX P 1 halfWidth1 P 0 halfWidth I 12Q which I 11Q imageStream I 10Q space I 7 point I 6 extra I 5 overlap I 4 width I 3 xShift I 2 spacing I 1 descent I 0 height)  DlDklhG ChG Ad K@k\K@kl]Gdg\JEkԾJGk_NKOKFOMGkJMhhDhG JMOMGkOLFNLhhDhG GgpJBkEk _JBkGk _OKOKFOMGkJBkMhhDhG JBkMOMGkOLFOLhhDhG h(401Q DRAWCURVE 331Q DRAWCURVE 255Q MINUS 236Q MINUS 213Q DRAWCURVE 147Q DRAWCURVE 27Q DSPYPOSITION 17Q DSPXPOSITION) (221Q left 61Q right) () EQ.DrawBrackets D1 (P 3 lowerY P 2 lowerX P 1 halfWidth1 P 0 halfWidth I 7 which I 6 imageStream I 5 overlap I 4 width I 3 xShift I 2 spacing I 1 descent I 0 height) DlDklhF ChF AGdgEJIKF j@kDhF jH F EjDhF JDkKIF EjDhF GgGJBEDKIF EjDhF Id F j@kDhF jH F E jDhF h(261Q RELDRAWTO 251Q MINUS 244Q RELMOVETO 240Q MINUS 232Q RELDRAWTO 216Q RELMOVETO 212Q MINUS 204Q RELDRAWTO 172Q MOVETO 143Q RELDRAWTO 131Q MOVETO 114Q RELDRAWTO 102Q RELMOVETO 76Q MINUS 70Q RELDRAWTO 54Q MOVETO 25Q DSPYPOSITION 16Q DSPXPOSITION) (151Q left 40Q right) () EQ.DrawParentheses D1 (P 7 right P 6 left P 5 middle P 4 top P 3 lowerY P 2 lowerX P 1 halfWidth1 P 0 halfWidth I 7 which I 6 imageStream I 5 overlap I 4 width I 3 xShift I 2 spacing I 1 descent I 0 height) DlDklhF ChF ADK@k\K@kl]Gdg"JEH^KJHMNLhhDhF Gg0JBkEI _dKJBkI MOLhhDhF h(205Q DRAWCURVE 161Q MINUS 142Q MINUS 117Q DRAWCURVE 25Q DSPYPOSITION 16Q DSPXPOSITION) (125Q left 57Q right) () EQ.Matrix D1 (P 7 pos P 6 dataSpec P 5 yShift P 4 xShift P 2 specs P 1 enclose P 0 layout I 2 draw? I 1 imageStream I 0 eqnObj) I@A !H @AB YH ZdII#K IJ ^ _dLOdMK[(62Q EQIO.GetDataPosition 54Q EQIO.MakeSpec 26Q EQIO.GetDataSpecList 21Q EQ.enclosure 13Q EQIO.GetBox 4 EQ.layout) NIL () EQ.Make.matrix D1 (P 0 numPieces I 5 fontSpec I 4 enclosureSide I 3 enclosureKind I 2 dataList I 1 columns I 0 rows) /@AgBEgHg@gAgCgDh (54Q EQN.Make) (35Q enclosureSide 31Q enclosureKind 25Q columns 21Q rows 15Q numPieces 10Q matrix) () EQ.layout D1 (P 47Q b P 43Q col P 41Q rowValue P 37Q rowPos P 36Q boxes P 35Q row P 33Q colPos P 32Q yHigh P 31Q xLow P 30Q b P 27Q col P 25Q rDesc P 24Q rAscent P 23Q boxes P 22Q row P 20Q piece P 12Q shift P 11Q rowGap P 10Q colGap P 7 rowData P 6 colData P 5 boxList P 4 layoutBox P 3 fontSpec P 2 rows P 1 columns P 0 size I 1 imageStream I 0 eqnObj) c(A @g @g @g `hddA  Kl_oK _d_IjJjjd0@ #dO A _O Oh_O&_OIgj J _JkM#O$O"mj_(_*IkO.O,DO&_0O&_&O(O0O0 _(O*O0 _*NO.NO.(O0 *O.k_.OO$O(O*O**O$k_$IkjOOONO(_Ok_OIkOJkjOOOOO(_Ok_OJkOhdh\LlOLjjLIg Ij8O6kO2*Il__OO!O6OO6Ok(ONOk(*Ok_LIjJjJkMO4O$!O:O8yO@O>OOO:(_B_>IkB'OFODIO<_NO<_OB _LOJOLh_J_HOFk_FOL&_JOH _@O:k_:O@ (1140Q EQIO.MakeSpec 1117Q \NCONC2 1051Q EQIO.MakeDataSpec 600Q ARRAY 345Q MAX 325Q MAX 310Q MAX 213Q ARRAY 206Q ARRAY 141Q FS.Box 124Q EQIO.EqnDataList 73Q STRINGWIDTH 45Q FONTCREATE 30Q EQIO.EqnProperty 21Q EQIO.EqnProperty 12Q EQIO.EqnProperty 3 EQ.StreamSize) (575Q FIXP 202Q FIXP 54Q FONTDESCRIPTOR 35Q DEFAULTFONT 25Q fontSpec 16Q rows 7 columns) ( 67Q " ") EQ.MatrixAdd D1 (P 20Q newD P 16Q i P 6 continueFlg P 5 firstPiece P 4 tempData P 3 newData P 2 dataList P 1 columns P 0 rows I 3 window I 2 place I 1 which I 0 eqnObj) @g @g @ CAdg@ @g I BIJkC O2O@LKJ HkԸ@gH IBkؽkIBk^_OOJO_OOh__O_Ok_O&_g@ @g H @Hk"OOOK_ KBkB OO,J_JO_OOh__Ok_O&_OO hIBkB OO,J_JO_OOh__Ok_O&_O _Ok_eO IkԹ@gI BkؽIh^oA @HI @CMNg h(631Q EQN.StartEdit 616Q EQIO.NumPieces 606Q ERROR 564Q EQIO.EqnProperty 547Q EQIO.SetDataList 525Q \NCONC2 522Q \APPEND2 517Q \APPEND2 272Q EQN.DefaultData 266Q EQIO.EqnProperty 257Q EQIO.EqnType 132Q EQIO.EqnProperty 115Q EQIO.SetDataList 112Q \APPEND2 107Q \APPEND2 56Q EQN.DefaultData 52Q EQIO.EqnProperty 43Q EQIO.EqnType 21Q EQIO.EqnDataList 15Q EQIO.EqnProperty 6 EQIO.EqnProperty) (625Q PENDINGDEL 560Q columns 263Q fontSpec 246Q column 126Q rows 47Q fontSpec 31Q row 12Q columns 3 rows) ( 602Q "EQ.MatrixAdd: invalid arg for which = ") EQ.MatrixChanged D1 (I 0 eqnObj) @gh @gh (17Q EQIO.EqnProperty 7 EQIO.EqnProperty) (13Q colMenu 3 rowMenu) () EQ.MatrixCreate D1 (P 3 retry P 2 numPieces P 1 columns P 0 rows) Y@KoJo`o o j o j HIֺiJ`gJgHgIh(65Q MAX 61Q RNUMBER 51Q MAX 45Q RNUMBER 35Q PROMPTPRINT 10Q CLRPROMPT) (116Q columns 112Q rows 106Q numPieces 100Q EQ.Matrix.MaxPieces 25Q EQ.Matrix.MaxPieces) ( 56Q "How many columns for matrix?" 42Q "How many rows for matrix?" 31Q "]" 22Q " [max allowed is " 15Q "Too many matrix elements: ") EQ.MatrixDelete D1 (P 2 dataList P 1 columns P 0 rows I 2 place I 1 which I 0 eqnObj) Bj@g @g @ Adg\@JkBkIBID KO HmԸ@gH _LMLNO_OOh__KLkԼO&_gM@JjBKM ImԹ@gI 6_ILjLk\BjO_N Oh^K[O&oA @HI h(340Q EQIO.NumPieces 330Q ERROR 242Q EQIO.EqnProperty 224Q EQIO.SetDataList 114Q EQIO.EqnProperty 76Q EQIO.SetDataList 32Q EQIO.EqnDataList 26Q EQIO.EqnProperty 17Q EQIO.EqnProperty) (236Q columns 202Q column 110Q rows 42Q row 23Q columns 14Q rows) ( 324Q "EQ.MatrixDelete: invalid arg for which = ") EQ.MatrixEdit D1 (P 2 place P 1 action P 0 editMenu I 2 button I 1 window I 0 eqnObj) @@ g3gg 1Hd`@`di dodg dgjdndhdK ggH H Yddg@ gIgIdg#@g j@g @ g4 @ j)@g X@g Y@g HkI(65Q EQIO.EqnProperty 53Q MENU 50Q EQ.MatrixGetMenu 36Q MENU 33Q EQ.MatrixGetMenu 20Q EQIO.NumPieces 3 EQIO.EqnType) (62Q columns 45Q column 30Q row 6 matrix) () EQ.Fraction D1 (P 12Q pDenom P 11Q pNumer P 10Q box P 7 pos P 6 dBox P 5 nBox P 4 extend P 3 width P 2 gap P 1 shift P 0 size I 2 draw? I 1 imageStream I 0 eqnObj) A  @g `hddA lYHZd[d\@k A ]@l A ^dJlK_MN LlMOJNI jh_dMlOM_ONlN_BjIA OjKhA OOjOOMh OjdONh h (323Q EQIO.MakeSpec 315Q EQIO.MakeDataSpec 273Q EQIO.MakeDataSpec 245Q RELDRAWTO 231Q RELMOVETO 144Q MINUS 121Q MAX 75Q FS.Box 71Q EQIO.EqnData 62Q FS.Box 56Q EQIO.EqnData 32Q FONTCREATE 15Q EQIO.EqnProperty 3 EQ.StreamSize) (35Q FONTDESCRIPTOR 22Q DEFAULTFONT 12Q fontSpec) () EQ.Make.fraction D1 (I 2 fontSpec I 1 denominator I 0 numerator) g@AhB (13Q EQN.Make) (2 fraction) () EQ.SumGroup D1 (P 17Q vGap P 16Q gap P 15Q temp P 14Q box P 13Q boxRegion P 12Q charRegion P 11Q valueRegion P 10Q limitRegion P 7 indexRegion P 6 valueBox P 5 limitBox P 4 indexBox P 3 charBox P 2 extraShift P 1 char P 0 size I 2 draw? I 1 imageStream I 0 eqnObj) A A Eo@ dgnz)dgn{dgnWgnVo Bo@ dgo-dgo dgogoo hH_dl_A HlրjZIA [@k A \@l A ]@l A ^KhggLgOJjH _d_KOggMgOmjH _d_KOggNgOJH _d_Kjd _dOOO _dKJ _BO J A IA OOOL OOM OON h (617Q EQIO.MakeSpec 610Q EQIO.MakeDataSpec 605Q AB.RelativePos 572Q EQIO.MakeDataSpec 567Q AB.RelativePos 554Q EQIO.MakeDataSpec 551Q AB.RelativePos 533Q FS.Display 525Q RELMOVETO 521Q MINUS 515Q MINUS 502Q AB.RegionToBox 466Q UNIONREGIONS 452Q AB.BoxToRegion 436Q AB.PositionRegion 403Q AB.PositionRegion 345Q AB.PositionRegion 316Q FS.Box 312Q EQIO.EqnData 303Q FS.Box 277Q EQIO.EqnData 270Q FS.Box 264Q EQIO.EqnData 256Q FS.Box 241Q EQ.UseNS? 217Q FS.MakeItem 214Q SHOULDNT 124Q EQIO.EqnType 112Q MKSTRING 107Q CHARACTER 104Q SHOULDNT 21Q EQIO.EqnType 7 EQ.UseNS? 3 EQ.StreamSize) (426Q display 422Q display 417Q right 370Q center 364Q center 361Q top 333Q center 327Q center 324Q bottom 176Q intersection 162Q union 145Q product 130Q sum 67Q intersection 55Q union 41Q product 25Q sum) ( 211Q "eqn not a known sum group" 204Q "I" 171Q "U" 154Q "P" 137Q "M" 120Q (Sigma 24Q) 101Q "eqn not a known sum group" 15Q (Modern 36Q)) EQ.Make.sum D1 (I 3 fontSpec I 2 summand I 1 upperLimit I 0 lowerIndex) g@ABhC (15Q EQN.Make) (2 sum) () EQ.Make.product D1 (I 3 fontSpec I 2 factor I 1 upperLimit I 0 lowerIndex) g@ABhC (15Q EQN.Make) (2 product) () EQ.Make.union D1 (I 3 fontSpec I 2 set I 1 upperLimit I 0 lowerIndex) g@ABhC (15Q EQN.Make) (2 union) () EQ.Make.intersection D1 (I 3 fontSpec I 2 set I 1 upperLimit I 0 lowerIndex) g@ABhC (15Q EQN.Make) (2 intersection) () EQ.IntegralGroup D1 (P 16Q vGap P 15Q gap P 14Q temp P 13Q box P 12Q boxRegion P 11Q charRegion P 10Q valueRegion P 7 upperRegion P 6 lowerRegion P 5 valueBox P 4 upperBox P 3 lowerBox P 2 charBox P 1 char P 0 size I 2 draw? I 1 imageStream I 0 eqnObj) <A A -o@ dgnugnvo (o@ dgogoo hH_dl_IA Z@k A [@l A \@l A ]JhgLgKgO OmjdH _d_O^JOggMgOjH _d_Jjd _dONO _dJ _BO jA IA ONOK OOL OOM h (471Q EQIO.MakeSpec 462Q EQIO.MakeDataSpec 457Q AB.RelativePos 444Q EQIO.MakeDataSpec 441Q AB.RelativePos 426Q EQIO.MakeDataSpec 423Q AB.RelativePos 406Q FS.Display 400Q RELMOVETO 373Q MINUS 360Q AB.RegionToBox 346Q UNIONREGIONS 333Q AB.BoxToRegion 317Q AB.PositionRegion 257Q AB.Position2Regions 243Q MINUS 220Q FS.Box 214Q EQIO.EqnData 205Q FS.Box 201Q EQIO.EqnData 172Q FS.Box 166Q EQIO.EqnData 160Q FS.Box 135Q FS.MakeItem 132Q SHOULDNT 74Q EQIO.EqnType 62Q MKSTRING 57Q CHARACTER 54Q SHOULDNT 21Q EQIO.EqnType 7 EQ.UseNS? 3 EQ.StreamSize) (307Q display 303Q display 300Q right 236Q center 232Q center 226Q right 114Q lineIntegral 100Q integral 37Q lineIntegral 25Q integral) ( 127Q "eqn not a known integral group" 122Q "C" 107Q "S" 70Q (Sigma 24Q) 51Q "eqn not a known integral group" 15Q (Modern 36Q)) EQ.Make.integral D1 (I 3 fontSpec I 2 integrand I 1 upperLimit I 0 lowerLimit) g@ABhC (15Q EQN.Make) (2 integral) () EQ.Make.lineIntegral D1 (I 3 fontSpec I 2 integrand I 1 upperLimit I 0 lowerLimit) g@ABhC (15Q EQN.Make) (2 lineIntegral) () EQ.Script D1 (P 17Q shift P 16Q gap P 15Q temp P 14Q box P 13Q boxRegion P 12Q mainRegion P 11Q sub2Region P 10Q super2Region P 7 sub1Region P 6 super1Region P 5 sub2Box P 4 super2Box P 3 sub1Box P 2 super1Box P 1 mainBox P 0 size I 2 draw? I 1 imageStream I 0 eqnObj) A H_d_@k A Y@l A [@l A Z@l A ]@l A \IhgJgKgOdOd H _d^O_IOgLgMgOdOd H _d_O_Ijd _dNOOO _dI _dOOI OOK NOJ OOM OOL h (402Q EQIO.MakeSpec 371Q EQIO.MakeDataSpec 366Q AB.RelativePos 353Q EQIO.MakeDataSpec 350Q AB.RelativePos 335Q EQIO.MakeDataSpec 332Q AB.RelativePos 320Q EQIO.MakeDataSpec 315Q AB.RelativePos 302Q EQIO.MakeDataSpec 277Q AB.RelativePos 261Q AB.RegionToBox 247Q UNIONREGIONS 231Q AB.BoxToRegion 207Q AB.Position2Regions 202Q MINUS 135Q AB.Position2Regions 130Q MINUS 101Q FS.Box 75Q EQIO.EqnData 66Q FS.Box 62Q EQIO.EqnData 53Q FS.Box 47Q EQIO.EqnData 40Q FS.Box 34Q EQIO.EqnData 25Q FS.Box 21Q EQIO.EqnData 3 EQ.StreamSize) (171Q center 165Q center 161Q left 117Q center 113Q center 107Q right) () EQ.Make.sub/superscripts D1 (I 5 fontSpec I 4 upperLeft I 3 lowerLeft I 2 upperRight I 1 lowerRight I 0 mainValue) g@ABCDhE (21Q EQN.Make) (2 sub/superscripts) () EQ.MaxMin D1 (P 13Q temp P 12Q vGap P 11Q gap P 10Q boxRegion P 7 valueRegion P 6 indexRegion P 5 functionRegion P 4 box P 3 valueBox P 2 indexBox P 1 functionBox P 0 size I 2 draw? I 1 imageStream I 0 eqnObj) A  Hl_H_@k A Y@l A Z@l A [IhggJgOjH _d^IOggKgOjH _d_Ijd ]dNO _dI \dMOI NOJ OOK h (254Q EQIO.MakeSpec 245Q EQIO.MakeDataSpec 242Q AB.RelativePos 227Q EQIO.MakeDataSpec 224Q AB.RelativePos 212Q EQIO.MakeDataSpec 207Q AB.RelativePos 173Q AB.RegionToBox 161Q UNIONREGIONS 151Q AB.BoxToRegion 135Q AB.PositionRegion 103Q AB.PositionRegion 56Q FS.Box 52Q EQIO.EqnData 43Q FS.Box 37Q EQIO.EqnData 30Q FS.Box 24Q EQIO.EqnData 3 EQ.StreamSize) (125Q display 121Q display 116Q right 73Q center 67Q center 64Q bottom) () EQ.Make.max/min D1 (I 3 fontSpec I 2 value I 1 index I 0 function) g@ABhC (15Q EQN.Make) (2 max/min) () EQ.StreamSize D1 (I 0 imageStream) ko`hdd@  l (30Q MAX 22Q STRINGWIDTH 17Q FONTCREATE) (7 DEFAULTFONT) ( 4 "A") EQ.UseNS? D1 (I 0 imageStream) @ dg`dghgi(3 IMAGESTREAMTYPE) (30Q INTERPRESS 21Q PRESS 14Q EQ.UseNSChars 7 DISPLAY) () EQ.Root D1 (P 17Q box P 16Q width P 15Q toTopLen P 14Q toBottomLen P 13Q desc P 12Q rise P 11Q height P 10Q barLen P 7 baseLen P 6 igap P 5 ivGap P 4 vGap P 3 gap P 2 iBox P 1 rBox P 0 size I 2 draw? I 1 imageStream I 0 eqnObj) A Hl[Hl\H]j^H_@k A Y@l A ZHlNlJ _KlI_LlIOl_dl_IL_Hl_dl_BOOOOOOOOA OOOOOOdlOMJ Ojh_dOOOKO OJlOMJ h (336Q EQIO.MakeSpec 330Q EQIO.MakeDataSpec 303Q EQIO.MakeDataSpec 250Q MAX 207Q EQ.DrawRadicalSign 72Q MAX 53Q FS.Box 47Q EQIO.EqnData 40Q FS.Box 34Q EQIO.EqnData 3 EQ.StreamSize) NIL () EQ.Make.root D1 (I 2 fontSpec I 1 index I 0 radicand) g@AhB (13Q EQN.Make) (2 root) () EQ.DrawRadicalSign D1 (I 10Q imageStream I 7 width I 6 barLen I 5 toTopLen I 4 toBottomLen I 3 baseLen I 2 desc I 1 rise I 0 height) = jABG CjGhG DA GlhG E@GhG FjGhG (72Q RELDRAWTO 57Q RELDRAWTO 44Q RELDRAWTO 30Q MINUS 23Q RELDRAWTO 10Q RELMOVETO) NIL () (PRETTYCOMPRINT EQUATIONFORMSCOMS) (RPAQQ EQUATIONFORMSCOMS ((* * ATTACHEDBOX module: Part 1 of 5) (* Utility functions to manipulate attached regions) (* These functions use two sets of coords: global coords in which positions are given w.r.t. the lower left corner of a box, and side coords in which positions are given w.r.t. a particular side of the box. For the side coords, the origin is at the point on the side closest to the l.l. corner of the box, the x-axis points along the side toward the other end, and the y-axis points away from the box region) (FNS AB.RealPosition AB.PointPos AB.SidePosition AB.PlaceRegion AB.AdjustToLL AB.OppositeSide AB.RegionToBox AB.BoxToRegion AB.RelativePos AB.BiggerRegion AB.Check AB.PositionRegion AB.Position2Regions) (* * EQGROUP module: Part 2 of 5) (* group equation functions) (FNS EQ.Group EQ.GroupCreate EQ.Make.group) (* set up data definitions) (P (EQIO.AddType (QUOTE group) (QUOTE EQ.Group) 1 (QUOTE (objectProps (enclosureKind NIL enclosureSide NIL) pieceNames ("item") wholeEditFn EQ.EnclosureEdit initialPropFn EQ.GroupCreate)))) (* * specific enclosure data) (RECORDS EQ.EnclosureData) (FNS EQ.AddEnclosure EQ.GetEnclosureData) (* set up data for enclosures) (P ( EQ.AddEnclosure (QUOTE angles) (FUNCTION EQ.angles) "< angle brackets >") (EQ.AddEnclosure (QUOTE bars ) (FUNCTION EQ.bars) "| bars |") (EQ.AddEnclosure (QUOTE braces) (FUNCTION EQ.braces) "{ braces }") ( EQ.AddEnclosure (QUOTE brackets) (FUNCTION EQ.brackets) "[ brackets ]") (EQ.AddEnclosure (QUOTE parentheses) (FUNCTION EQ.parentheses) "( parentheses )") (EQIO.TypeProp (QUOTE group) (QUOTE defaultEnclosure) (QUOTE brackets))) (* * general enclosure functions) (FNS EQ.enclosure EQ.EnclosureCreate EQ.EnclosureEdit EQ.EnclosureKind EQ.EnclosureSide) (* * enclosure form functions) (FNS EQ.angles EQ.bars EQ.braces EQ.brackets EQ.parentheses EQ.enclosureForm EQ.enclosureWidth) (* * enclosure drawing functions) (FNS EQ.DrawAngles EQ.DrawBars EQ.DrawBraces EQ.DrawBrackets EQ.DrawParentheses) (* * EQMATRIX module: Part 3 of 5) (* matrix equation functions) (FNS EQ.Matrix EQ.Make.matrix EQ.layout EQ.MatrixAdd EQ.MatrixChanged EQ.MatrixCreate EQ.MatrixDelete EQ.MatrixEdit EQ.MatrixGetMenu EQ.MatrixSelect) (INITVARS (EQ.Matrix.MaxPieces 100)) (GLOBALVARS EQ.Matrix.MaxPieces ) (P (EQIO.AddType (QUOTE matrix) (QUOTE EQ.Matrix) 1 (QUOTE (objectProps (rows 1 columns 1 enclosureKind NIL enclosureSide NIL) variable? T wholeEditFn EQ.MatrixEdit specialSelectFn EQ.MatrixSelect initialPropFn EQ.MatrixCreate changeFn EQ.MatrixChanged)))) (* * EQNFORMS module: Part 4 of 5) (* fraction) (FNS EQ.Fraction EQ.Make.fraction) (* * sum group) (FNS EQ.SumGroup EQ.Make.sum EQ.Make.product EQ.Make.union EQ.Make.intersection) (* * integral group) (FNS EQ.IntegralGroup EQ.Make.integral EQ.Make.lineIntegral) (* * super- and sub- scripts) (FNS EQ.Script EQ.Make.sub/superscripts) (* * max/min/limit etc) (FNS EQ.MaxMin EQ.Make.max/min) (* * utilities) (FNS EQ.StreamSize EQ.UseNS?) (GLOBALVARS EQ.UseNSChars) (* EQ.UseNSChars = NIL to use press fonts for display) (INITVARS EQ.UseNSChars) (P (EQIO.AddType (QUOTE fraction) (QUOTE EQ.Fraction) 2 (QUOTE ( pieceNames ("numerator" "denominator")))) (EQIO.AddType (QUOTE sum) (QUOTE EQ.SumGroup) 3 (QUOTE ( initialData (-2 -2 0) pieceNames ("index" "limit" "summand")))) (EQIO.AddType (QUOTE product) (QUOTE EQ.SumGroup) 3 (QUOTE (initialData (-2 -2 0) pieceNames ("index" "limit" "factor")))) (EQIO.AddType ( QUOTE union) (QUOTE EQ.SumGroup) 3 (QUOTE (initialData (-2 -2 0) pieceNames ("index" "limit" "set")))) (EQIO.AddType (QUOTE intersection) (QUOTE EQ.SumGroup) 3 (QUOTE (initialData (-2 -2 0) pieceNames ( "index" "limit" "set")))) (EQIO.AddType (QUOTE integral) (QUOTE EQ.IntegralGroup) 3 (QUOTE ( initialData (-2 -2 0) pieceNames ("lower limit" "upper limit" "integrand")))) (EQIO.AddType (QUOTE lineIntegral) (QUOTE EQ.IntegralGroup) 3 (QUOTE (initialData (-2 -2 0) pieceNames ("lower limit" "upper limit" "integrand") menuLabel "line integral"))) (EQIO.AddType (QUOTE sub/superscripts) (QUOTE EQ.Script) 5 (QUOTE (initialData (0 -1 -1 -1 -1) pieceNames ("main value" "right subscript" "right superscript" "left subscript" "left superscript")))) (EQIO.AddType (QUOTE max/min) (QUOTE EQ.MaxMin) 3 (QUOTE (initialData (0 -2 0) pieceNames ("function" "index" "value") menuLabel "max min limit")))) (* * EQROOT module: Part 5 of 5) (FNS EQ.Root EQ.Make.root) (FNS EQ.DrawRadicalSign) (P (EQIO.AddType (QUOTE root) (QUOTE EQ.Root) 2 (QUOTE (pieceNames ("radicand" "index") initialData (0 -1))))))) (EQIO.AddType (QUOTE group) (QUOTE EQ.Group) 1 (QUOTE (objectProps (enclosureKind NIL enclosureSide NIL) pieceNames ("item") wholeEditFn EQ.EnclosureEdit initialPropFn EQ.GroupCreate))) (RECORD EQ.EnclosureData (formFn label)) (EQ.AddEnclosure (QUOTE angles) (FUNCTION EQ.angles) "< angle brackets >") (EQ.AddEnclosure (QUOTE bars) (FUNCTION EQ.bars) "| bars |") (EQ.AddEnclosure (QUOTE braces) (FUNCTION EQ.braces) "{ braces }") (EQ.AddEnclosure (QUOTE brackets) (FUNCTION EQ.brackets) "[ brackets ]") (EQ.AddEnclosure (QUOTE parentheses) (FUNCTION EQ.parentheses) "( parentheses )") (EQIO.TypeProp (QUOTE group) (QUOTE defaultEnclosure) (QUOTE brackets)) (RPAQ? EQ.Matrix.MaxPieces 100) (EQIO.AddType (QUOTE matrix) (QUOTE EQ.Matrix) 1 (QUOTE (objectProps (rows 1 columns 1 enclosureKind NIL enclosureSide NIL) variable? T wholeEditFn EQ.MatrixEdit specialSelectFn EQ.MatrixSelect initialPropFn EQ.MatrixCreate changeFn EQ.MatrixChanged))) (RPAQ? EQ.UseNSChars NIL) (EQIO.AddType (QUOTE fraction) (QUOTE EQ.Fraction) 2 (QUOTE (pieceNames ("numerator" "denominator")))) (EQIO.AddType (QUOTE sum) (QUOTE EQ.SumGroup) 3 (QUOTE (initialData (-2 -2 0) pieceNames ("index" "limit" "summand")))) (EQIO.AddType (QUOTE product) (QUOTE EQ.SumGroup) 3 (QUOTE (initialData (-2 -2 0) pieceNames ("index" "limit" "factor")))) (EQIO.AddType (QUOTE union) (QUOTE EQ.SumGroup) 3 (QUOTE (initialData (-2 -2 0) pieceNames ("index" "limit" "set")))) (EQIO.AddType (QUOTE intersection) (QUOTE EQ.SumGroup) 3 (QUOTE (initialData (-2 -2 0) pieceNames ( "index" "limit" "set")))) (EQIO.AddType (QUOTE integral) (QUOTE EQ.IntegralGroup) 3 (QUOTE (initialData (-2 -2 0) pieceNames ( "lower limit" "upper limit" "integrand")))) (EQIO.AddType (QUOTE lineIntegral) (QUOTE EQ.IntegralGroup) 3 (QUOTE (initialData (-2 -2 0) pieceNames ("lower limit" "upper limit" "integrand") menuLabel "line integral"))) (EQIO.AddType (QUOTE sub/superscripts) (QUOTE EQ.Script) 5 (QUOTE (initialData (0 -1 -1 -1 -1) pieceNames ("main value" "right subscript" "right superscript" "left subscript" "left superscript")))) (EQIO.AddType (QUOTE max/min) (QUOTE EQ.MaxMin) 3 (QUOTE (initialData (0 -2 0) pieceNames ("function" "index" "value") menuLabel "max min limit"))) (EQIO.AddType (QUOTE root) (QUOTE EQ.Root) 2 (QUOTE (pieceNames ("radicand" "index") initialData (0 -1 )))) (PUTPROPS EQUATIONFORMS COPYRIGHT ("Xerox Corporation" 1986 1987)) NIL