Package:MathFiledon[Indigo]Documentation>Math.TiogaMaintainer:MichaelPlassDate:December2,1982DFfile:[Indigo]Top>Math.DFPurpose:Thispackagecomprisesseveral"puremath"routines,callableeitherthroughJaMordirectlyfromaCedarprogram.Mesainterfaces:Complex-Operationsonnumbers.LinearSystem-Forsolvingsystemsoflinearequations.Polynomial-Operationsonrealpolynomials.Quadratic-Quadraticequationsolver.Vector-Operationsontwo-dimensionalvectors.JaMfunctions:TousetheJaMfunctions,loadMathJaM.ComplexComplexnumbersarerepresentedbytworealnumbersontopofthestack.==Complex.Add=>Complex.Sub=>Complex.Mul=>Complex.Div=>Complex.FromPolar=>Complex.Abs=>Complex.SqrAbs=>Complex.Arg=>Complex.Exp=>Complex.Ln=>Complex.Sqr=>Complex.Sqrt=>LinearSystem(shouldbereworked;fornowthecommandstakethematrixinrow-majororder,followedbytheright-handcolumnvector,andleavethesolutionvectoronthestack.Thematricesandvectorsarepushedonthestackasabunchofreals,withnoadditionalstructure.)LinearSystem.Solve2LinearSystem.Solve3LinearSystem.Solve4LinearSystem.Solve51pН ЛОb&qНКОb&НХОb&НЮОb&Н~Н└П%pН ЛО_° qН█О_°Н▀О_°НьpН ЛО]qНоО]Н лО]НpНЩpН ЛОZ┬Н`qН:ОZ┬Н8ОZ┬pН ЛОWЧqНЁОWЧН╠ОWЧНкН НnН"ЪН&КН+%Н0йН5йН9ІН>ННB НCмН ОVWН┤Н╟НхpН ЛОSлН І qНpОSлrН ЛОQBНсНя НвНщН бН ЛОN╦Н┼Н┬Н3НЕНДН!²Н%~ Н ЛОL. Н(Н& Н,Н2НИН ЛОIєНNНKНґН^Н ЛОGН]НZ Н`НgН"ЎpН ЛОD░Н =qН╘ОD░sНўОBMНfН^НDН© НяНDrН ЛО?wsНўО=4НfНТНп Н©НUН!xН#єН(1Н)пН+гН-(Н/rН ЛО:╙НяННuНэН; Н ЛО8 НО8Н"ГН)лН,bН ЛО5∙ НО5∙Н"ГН)лН,bН ЛО3 НО3Н"ГН)лН,bН ЛО0│ НО0│Н"ГН)лН,bН ЛО-ВНО-ВН!OН$ІН)┴Н/Н1≤Н ЛО+m НО+mН"ГН%}Н ЛО(Ц НО(ЦН"ГН%}Н ЛО&Y НО&YН"ГН%}Н*PН ЛО#о НО#оН"ГН%}Н ЛО!E НО!EН"ГН%}Н ЛО╩ НО╩Н"ГН%}Н ЛО1НО1Н"ГН%}Н ЛО[sНўОН║Н+НeН,Н▓НtН"УН%RН'5Н*ґН,Н1UН4▐Н9Н:║Н<└ НAКНEчНўОЇНДНаН╟НОНHНПНЮН"fН$ІН)Н+NН/Н0ВН4жН6~Н8nН;:Н<°Н=■НAНBjНEPНGжНўОV Нз rН ЛОлН ЛОBН ЛО╦Н ЛО .tН)хОЖ<TVm$LinearSystem.Solve6PolynomialPolynomialsarerepresentedonthestackbytherealcoefficients,indecreasingorder,followedbythedegree.==

...Polynomial.Eval=>Polynomial.Add=>Polynomial.Sub=>Polynomial.Mul=>Polynomial.Differentiate=>Polynomial.Integrate=>Polynomial.Roots=>(QuadraticandVectordonothaveJaMcommands)2rН ЛОb)Н ЛО_g sНўО]3 НАНҐ Н╛НKН1Н СН"┴Н$oН&⌡Н,єН-Э Н3]Н6 Н;Н<ЄН> rН ЛОZ╦Н~НдsНОZqrНўОZ╦Н╛НsН^ОZqrНКОZ╦НИН#PН$,Н%Н%ЦsН'/ОZqrН'╪ОZ╦Н(╧Н, Н.∙Н ЛОX=НОX=Н$■Н(╛Н+AН ЛОUб НОUбН$■Н'*Н ЛОSG НОSGН$■Н'*Н ЛОPл НОPлН$■Н'*Н ЛОNQНОNQН$■Н'*Н ЛОKжНОKжН$■Н'*Н ЛОI[НОI[Н$■Н'*sНўОG' Н*НVНЦН┌НyНН ■tН)хОЖЪ TVm$яЪ HELVETICAЧ÷Ъ TIMESROMANЧФЪ TIMESROMANЧ÷ЪLAURELЧ÷Ъ TIMESROMANЧ÷I)j/ nPЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪ Math.Tioga 2-Dec-82 12:21:36