FASLPU*]*UFLAGQUOTE*SOLVEWRITESHARExARRAYFNSYMBOLICLIST!CFU*UjU!INTERVAL!EXACTxGLOBAL!HIPOW!GCDU*U*u*SOLVESINGULARSM*MP**ALLBRANCH!ARBINT*SOLVEINTERVAL!INTERVALARRAY		

xSETQW;].UTx
xxx

xAEVALMATRIXU:TSOLNMULTIPLICITY
xRPLACXEXPR [ Z: QO XO,xxUNIVARIATEP,8 B`QD1DOMAINP5B[`Z4BZ`5BZ`[[[[`[[EQUAL@"]4BZ`+/,xPUTU*U*uSUBTRSQSMACROLAMBDAUVADDSQNEGSQxVARLISW*]*WVARLIS1xLFCTRCAARxPROGLCMDOPFNxF.59* DgSIMP*Z B` g40Z  `/LCM$.#59* B` Dg5B! g[`[[ORDAS [`Z Z`+ g/#,xh.359*# B` 5B( `/3NCONS" Dg[DQ `4B+ g+2[g `ORDP404B/ g `/4CONS$Zg ` [gXCONS/4,x]`
($RATNUMP,8 B`[ATOM4B9D:uZ`/:,xP5DIRECTxKARGLIS.C59* B` 4BB Dg[ `KARG1Q BgZg `  gUNION/D,xh:.R59* B` DgE 4BI "+Q `[g4BP0Zg ` Bg g  g/Sb$Zg `/S,x]pDALLKERN.[59*4BZ B` $[1 BgZ`   g/\,xk@TFREEOFKERN x,8,84B` `@J g+b  `!DUM "!SUBST! $!
j/cFREEOF$"\ xTOPKERN.o59*@@g~ B` Dg $ Bg4Bn[ g@ 5Bl g~[g Bg~Zg Bg+h@: g~/p,x  (dCOEFLIS.59* @@g@@g~ Bg B`4Bv g "
/$[`[[ Bg~ g5B g~b[g[[4B[gZ[g[@`Z g BgZg Bg+y g
4B $
 g Bg g/	,xu.P(((0pFLUID*GCD#$xFACTLIS.3 !59*@@g~ B` "
 Bg} $ Bg~ " B$(`
 Dg SETKORDER% Bg} `REORDER% B`DQ `5B0 g[`[[MEMBER&(`14B0 `PP& Bg5B# g `Q@0QUOTF' B` gSQFRF' Bg+" Bg| 0[ Bg|5B" g| g~ Bg~FHZg|5B+ $([`[[TO`( $([`[Z g~3 Bg~ $([`[  `' B`+ g}% g~ B$ g~/4t ,xHHH	SIMPSOLVE,8 B` "
 `Qhh
LENGTH)*S2I*0B(+9 $+>0B!$+<Z`[+>Z`LST "* 
0][`SOLVE0+ $(/@$4SOLVEWSIMPFN+,)x.59*@@g@@g~@@g~ B` "
: Bg} Dg $ "LIST2,CLEAR-
!  " B	 B	 `5BM[`0B*+M@`@Z`+N ` B` "
 Bg} `4BW@Q[[ g Bg g}ADD1-* Bg}Z` B`+P g5B] g FQ Bg~UNKNOWNS: ".PRIN2.@@g| g~REVERSE/	D+l5B_[g1B*+a g+g@!#Zg+g g4Bn[*A2F/[[[ g~ Bg~Zg Bg+b Bg|[Q@`MATHPRINT0 g| Bg|Zg|5Bh g|REVERSIP0TERPRI1 g~)  g}5BrR(`ASOLVE CALLED WITH UNEQUAL NUMBER OF EXPRESSIONS AND UNKNOWNS "1REDERR2 g}0B(+[g Bg	F R5B| 4B{ 
- B
 ARBCOMPLEX "2RF, $(CONSSMMP3+ "
+[g~h
 Bg~ $( g &( g~SOLVE13+(t2" g~ gSOLVESYS4TP14 B	 $( "(f$MK*SQ5 B	 $5 	MAPC2
H0"5 B	 	MAT "6  $ "`D 	 "6  $ " 

F#4B $ 	MATPRI6 	)/,x,2HH0A,8 D` 	 B	 f# $( `5 	 B	 "t/,x0SOLVEF.759* B` 3 Bg@@ Dg $( `5 g+@@g~ 	+* Bg}[[ g~ Bg~Zg}5B& g~0 Bg~@@g} 	+1 Bg}[[ g} Bg}Zg}5B- g}F0  g~PAIR7 Bg~ g B g~/7,x88p.\59* B` "
[` B` Dg Fg" Bg}4B[  `$ B`4BZ[Z Bg~ g" Bg~F0[`[ gTIMES28* Bg} g~4BY@
Z5BK g} g[g~ g~SOLVE28+Y `
% $( g~5 g SOL "9LIST3@	#
9 Bg~  "9SMEMQ:4BW $(@0 g~ Bg| g}MINUS:  g|3
+Y g} g g~3Z` B`+? "/\,x@@88.d59*@@g~@@g}Q@@g} B` "
 Dg Fg Hg~ `SOLVECOEFF;"(`# & $ERRORSET; Bg| * Bg| g|P4Bm $( ` Bg{ g~: D$ g{3+c[g| Bg| $<4B;"F3 $
 ",GETELV< Bg{ $(!L`
 ",<  g{QUOTSQ=5fR Bg{  "(5  g{EXPT "=
9 Bg~@@g{ "
 Bg{ g|SUB1> g{QhbDDIFFERENCE>MINUSP?5Bc $( ", Bg{RJPI (? & g{TIMES "@LIST4@ g|t0 QUOTIENT "A9MKEXPA  g~ "@@09  g{SETELVB g g
f4B $( ",< g~+.[gLOG @!0BB+Zg[ Bg{ $( ",BHC<5 E $C "=9+` @10B=+j gZg["4B5 
4B%HC 
- B
 ARBINT "C, 
 (?R1 I &D $ "@LIST5
D+% "
 Bg}`DZgZ[ Bg{ $( ",<f5  "B, Bgz g} @C gz BgzZg[ "B, D gz=+` gZgZ["4BbbZgZ[4BKZg[ Bg{`QZgZ[[  g{EXPTSQEf0 Bg{ $( ",<5 BgzZgZA0[Z $(5  gz "=DB#9+` 
4BQ 
- B
 R3
ARBREAL "E,  "@,A+R "(`D Bg}Zg[ Bg{ $( ",<:5 BgzZgZ[INVSQF5f  gz "=9 Bgz g} ` gzMULTSQF  g{+7 gf0 Bg{ $( ",<  g{  Bg{ g~:  g{+.SIN0BG+
Hd 
4Br 
- B
  "C, "b@ &? $ "@@+s "
 Bg|Zg[3 Bg} $( ",<5 ASIN!@$ "G, Bg} g| PLUS "H9`  g} g~ g3 
4B9@0 g| Bg{ g}  g{35  $? "H9  g}
$+7COS0BH+$ 
4B 
- B
D  "C,  &? $ "@@+  "
 Bg}Zg[ Bg{ g}C  g{ Bg} $( ",<5f ACOS "I, Bg}  g}d g~ g3 
4B9 g} g}+7R(`INVERSE $IGETJ Bg|5B/ g Bg{"f $( ",<  g{ Bg{@ g~:  g{3+9Zg[f0 Bg{ $( ",<5  g|,@  g{ g~ g3 g{!- Bg{+~ g|?5B` $ ",A3< Bg} $
 ",< g}3= Bg} $( ",< Bg{ $(!@` " g}F  g{= Bg} $`E Bg{ g}  g{5 Bg{"` $ "(5  g{ "=9 Bg} g g|E  g} Bg}@ g}  g} g~ g3 g}@ g} g~ g3+c g~ g g
 `SOLVE22J "/e,x`` ]@.59*@@g~@@g} B` "
 Bg| Dg Fg
 Hg~ - $A Bg| g g|E Bg} "
 Bg{ g{ g|>?5B~` g{ ",< Bg{ g{ > !L1  ",<  g{5B| "+~@(  g{- Bg{+p "4B6@@g{ "
 Bg{b g{ g|>?5B g{ ",<F Bg{ g{ >  ",<`  g{[4B
 "+ g{* - Bg{+ "4B" 0BK+ 1R ( g~ g g}SOLVECUBICK+0BL1+ g~ g g}SOLVEQUARTICL+ 4BD#
 `4B g~ `SOLVEINTERVALM+ $(@ ` Bg{ g~:  g{3+"0 $( "<  g} Bg} g~ g`03 $( ` g}= B` g| QHbDPLUS2M 4B4 $( "( @0 g} Bg} g~ g3 g} `= B` g~ g `+ g| M Bg{@ -  g{5B
 	 Bg~ $
!A ", Bg{ "  g{B $(!BH0 ", Bg{!X "N  g{BA3 g|-  ",< Bg{ $(!L0 ",<  g{F Bg{ g| "L0,<  g{ Bg}@@g{ "f! Bg{ g{ g|>?5Br g{ ",f Bg{ $( ",< Bgz g{> !L0  ",<  gzF Bgz $ g{f0>  ",<  gz3  g{B g{ ",< Bg{ g{A3 g|M  ",<  g{`F  g} Bg} g{- Bg{+Sh g~ $N g}3 " Bg| Bg} g~ 	@F5B~ g}[	 Bg} g|[	D
 Bg|Z	 B	Z	 B	+u g}4B $(!@0 "( Bg{[g}[  g}0  g}F  g{ Bg{[g|[/ g~8  g g{3Zg} Bg}
`+~ $( "(  g} Bg} g~P g3 $( ` g}= g~ g3 "/,x``	( e.#59*Q@0REVALN Bg  "H, B` g "G ,  $D "@9  ` "H/#b
&9.T59**LAMBIND*OCLIST0O B` Dg % Bg~ `%@ BO g~%[O[Z B O#@ BO "
 B O Bg~4B5 [[QHGCDNP BZg~ Bg~+1 O Bg~ "
(`0 Bg} "DIMENSIONP[> g}>?h05B@ g} ", $B g}- Bg} +7 g~ 4BJ[[A  "3, Bg} $([g~Z5  g}$2 BZg~ Bg~+@ A B0B+ObJ [O[A+R $LESSPQ4BR i1 "<+R "Q*SPECRSTR*R/T,x0D@00$.}59* B` "
 Dg `PREPF!R Bg~ $([`[[( $(FB $(PREPSQS (   g~QPCREALROOTS "( Bg~ $
 ",< g~D3>?5Bk g~ ",< g@"3 g~- Bg~+b "( Bg~ &
 $
L1  9< g~>?5B| &( g~L 9< Bg & g~ 9<)0  gINTERVL "T9 g3 g~- Bg~+l "/~,x  	PURbReal root finding not yet implemented "T"2
8 ~.i59* B` Dg Fgf0" Hg~ $K ",< Bg| $ "L!,< g|= Bg} $( ",@`D< g|= Bg} $
 ",<	$ g|= Bg~ $( "U Bg|0% g} g}F  g|F Bg| $(r!@`D "U g~F Bg{ $( "Q Bg{ 0 $K g}E  g{F  g{D  g| Bg| $V "( A0  g|F Bg~ $U "< Bg| $ g}H0E Bg{ $(~ "V g}F @ g{  g|F Bg} $KE Bg| 3 $ g~E  g|5 Bg| $!LC "(5  g| "=9 LC g~5 Bg| $K "(5 ` g| "=9 Bg|  g}=`D Bg~  g| Bg} $K "( @ g}F  ` Bg} g} @" g} g g3 g~4Bg $ "(`0"  g}F g} Bg} $L "VA35 Bg| $ "(5  g|!L0 "=9 Bg| g~  g|  g|F Bg|  g} g g03 g|  g} g g3 @1 "/i,xXX	8 ._59* B`3 Dg Fg $L ",< Bg| $
!L`0" ",< g|= Bg~ $( "L!,< g|= Bg~ $ ",@`D< g|= Bg} $K ",<0% g|= Bg} $E Bg| $(~!@` "W g}F  g| Bg| $
!A0 ", Bg| $ g~E Bg{ g| g~f0F  g{5  g|B" $( ", Bg| g} g~F Bg{ $(!@` "W g~F  g{5 Q g|B $ ", Bg| g}5
4  g|B $K ", $(B g  ( g gK[	[ Bg~Z		0" B	Z	 B	 $ g~E Bg| $( "W`  g~F  g|5 Bg|"` $ "(5  g| "=9` Bg~ $( "L  g~F  g|A35 Bg| $ "(5  g|!L "=9 Bg| $ `E Bg| $!@0 "( Bg{ g| g}  `F` Bg{ g~ g~  g{  g{` F  g| g g3 $ `E Bg| $ "( Bg{ g| @ g}  `F Bg{ g~ @ g~  g{  g{F @A g| g g3 "/`,xXDX	Hj.	59*@@g@@g~ B` Dg)1R Bg} g)  g}5BhSOLVESYS given unequal number of eqns & unknowns "W2 g% Bg}@@g} `+o Bg|[% g} Bg}Zg|5Bk g}0+	 Bg}[ Bg|@@g~ g+	 Bg|[ Bg{D g|5B	 g{[g|[[4B} 1 $([g|[ZGREATERPX5B	[g|ZD1R g{ 4B	Zg| g{ 5B	SOLVE given system of non linear-fractional equations "X 2 g|5B	 g{[g|[[
4B	 $([g|Z g~ Bg~Zg|Q Bg|+	 $( " g~ Bg~Zg|(h35Bt g|NEGFY $( g~` Bg~ g g~ BgZg}5Bq g}%F] g~ g/	SOLVELNRSOLVE$YPP@`SOLVELNRSOLVEG0791QG1*S*ZZCANCEL"[ 	.	:59*ODZ B` "
*EXP [ Bg~ " B[ DgLJ `)* Bg  "(INDEXLIS\ Bg~(t0 g `AUGMENT\NORMMAT][ B` (bQ5B	+ `BAREISS]+	1 g~ `SOLVEBAREISS^@t@ B`4B	1[-MAKEARBCOMPLEX &^ Z`INSERTARBCONSTS2_ B` g `BACKSUB_ BZ g[QP`RHSIDE` $Z5 B` g~ B[ g~ `QL XPERMUTE`R/	;,x00	.59*@@g~@@g~@@g}@@g}@@g|@@g|@@g{@@g{ @@gz@@gz@@gy@@gx@@gx@@gw B` "
 Bgv`@  Dg `)* Bgu "( Bg " Bgw  "( Bgv ` Bgy+	cZgy BgyZ4B	O@ Z5B	\ g4B	[Zgy4B	[ gu `NTH(`a guPNTHa Bg|[5B	[Zg|+	X  Bgu[ Bgt5BZgu5B	V gu> ` +
# ` gu+
# gw[gya Bg $L0 gwM* Bgw>* BgvZgy Bgy gv Bgv [gya Bgz Bg{ gv[gy a Bgx[5B	~Zgy Bgz5B	s g4B 0 gu gvQ5B	p gv> `+
# gv@ -* Bgv+	g gv[a Bg|[4B	} g|4B	~[ Bgy[gxYQCg| gyQOgxZg| Bg|Zgx Bgx+	vZgz Bgz+	k0 g gv gv `SWAPCOLUMNSb gw BgvZgy@ 
 Bgz5B
' g4B gu gvQ5B
$ " Bgw gw4B
! gy4B
! gv[a Bg}
 gv gu> $M  g}a Bg|
 gv gu> $M  gza Bgx@ 
 gw4B
 g|4B
[[gzMULTFb Bgu@Q[gxY [g}b  guADDFc4B
@@gw+
Zg| Bg|+
Zgy Bgy+
@` gw4B gw> `/	$ gv-0* Bgv+
 gv[gza Bg| gw gv0> $M  g|a [gzbh0 Bgu gw gv> $M  gza0 Bgt[g|Y  gtb  guc@ Bg~5B
:Zgz Bgz+
 g gv gw `Fb g g~QUOTF*c Bg~ gvZgy[a Bg{ Bg|Zgy4B
CZ4B
x gzZgy@ 3B+
L g|4B
L[ Bgy[g{YQCg| gyQOg{Zg| Bg|Zg{ Bg{+
EZgy4B
y0Z Bgz4B
y gv[a Bg}[Zgz@0[b BguZg}[Y [gzb  guc gc Bg~Zg}[[g|`b Bgu[g}Y Zg|[b @` guc gc Bg}ZgzZ4B
vZg}Z Bg|Zg|Z Bg{ZgzZ Bg{ g|`4B
v g~[b Bgu g~[g{b Bgt0 g}[g{b  gtc  guc@ gcQCg|Zg| Bg|Zg{ Bg{Zg{ Bg{ +
hZgz Bgz+
N g~4BZg| Bg{ZgzZ Bgy g~QOg{Zg{ Bg{4B	L[[gz`b Bgu[gyY [g|b  gu c gcQCg{Zgy Bgy+
| "/	,x@@@`	;.59* B` Dg Fg Hg~  g5B g g g~Q@ SWAPELEMENTSd `+ Bg~[ Bg} g gdZg~5B `/,x00  
.,59*@@g~ B` Dg Fg  gX4B  g Bg~ g Bg g~ Bg g `0a B` g g>- Bg  `a Bg~ g `a[`QO g~QO` @0 "/,,x  @,8,8X5B2 `- g\ `/4$ "/4,x@-.r59*@@g~@@g~@@g} B` "
 Dg Fg `)* Bg}(  gX5Bq "( Bg} ` Bg~@@g| `3 "( Bg| g> g|>?5BJ g|@[g~a  g}b Bg}Zg~ Bg~ g|- Bg|+A@@g| g Bg| g}> g|D0 >?5Be g|[g~a Bg~ .(QOZ Bg~@@g| g|- Bg| g| g}>@?5B[Zag~Zg~ Bg~ g|- Bg|+U@t4 g~4Bb gEVALd $(( $(@QCg~Zg~ Bg~+[Zg~ Bg~ g|0- Bg|+L g}[g~a Bg~ g}QO4Z Bg~4Bq gd $(( $(@  g}bQCg~Zg~ Bg~+i@1 `/s,xHHp5.}59* B`@3 4B| Dg[ `a BgZg@1 ``  gNCONCe/},x@H3s,8 
 "2,[ B`H_ 
- B
 `/,xh~GIGxu:]*WIIHxOPERATOR
e9T2EC*xLET
f=C@DA?D=C@D?:(=C@KDA?:DxFORALLNFIXP
fggNgfHA@g?
xu*UnU
fHA?
xCONDEVALLESSPREMAINDERABS
fggNgfGA@g?hh
iigL(:(x
fGA?(xOREVALEQUALU;UnWEVALGREATERP
fggNgfHA@g?KAhjj
gLk
iHigkK:((x
fHA?KA(xSQRT
fggNgfGA@g?K@hh
iigkK(:(AlKx
fGA?KAlKx
fggNgfHA@g?L@hh
iHiglL(:(Alxw;]nU
fHA?LAlx
fggNgfGA@g?L@hh
iiglL(:(Alx
fGA?LAlx
fggNgfHA@g?k@hh
iHigk(:(AlKx
fHA?kAlKx
fggNgfGA@g?kAhh
iigk(:(x
fGA?kA(xABU*]nWXANDCD
fmmnnNoNof9>=mo=mon>=m@ooo=m@ooox
fmmoonnN nmN nof9>=mm=oon=C>@mBm@oBox
fmmoonnN nmN nof9H@mBm@oBon>@=mm=oo(9>@mBm@oBon>=mm=ooxF
fmmoopnnN nmN nof9H@mBm@oBopn9HB@=mm=oopn9H@mBm>@oBopn9>B@=mm=oopn9H>@mBm@oBopn9HBA=mm=oopn9>>@mBm@oBopn9>BA=mm=oopnxw;]o
fmmopnN nmf9H@mBmBopn9HB@=mmopn9H@mBm>Bopn9>B@=mmopn9H>@mBmBopn9HBA=mmopn9>>@mBmBopn9>BA=mmopn9H>Bo@mBmpn9HBAo=mmpn9>>Bo@mBmpn9>BAo=mmpnx
fmmonN nmf9H@mBmBon>@=mmo(9>@mBmBon>=mmo9>Bo@mBmn>o=mmx
fmmonf9HBmBmon9HB@mmon9H>BmBmon9HBAmmon9HBm>Bmon9>B@mmon9>>BmBmon9>BAmmonx
fmonN nof9HBmon>m=Co9>Bmon>m=C:ox
fmmnf9HBmBmn>@mm(9>BmBmn>mm9>HmGmn9>HmH>A?mn9HGmHmn9>GmG>mA?n9>GmHmn9>GmG>A?mn9HGmGmn9>GmG:mn9>GmGmnhN

@GA>mmHAHmm
>mm9HHmHmnhN

@HAHmmHA>mm
Hmm9>HmHmnhN

@GAHmmGA>mm
>mm9>GmGmn>mm9HGmGmnHmm9>ImImn>mm9HImImnHmmx
fHA?
xFASLP