|\^/|     Maple 18 (APPLE UNIVERSAL OSX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2014
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> read `first_lp`;
eqns := {w1 = 5 const - x1 - x2, w2 = 8 const - x1 - 2 x2,

    w3 = 8 const - 2 x1 - x2, zz = 4 x1 + 5 x2}

First dictionary:  nice_solve( eqns, [zz,w1,w2,w3], [x1,x2] )

Dictionary: basic = [zz, w1, w2, w3], non-basic = [x1, x2]

			 zz = 
                                  4 x1 + 5 x2

			 w1 = 
                               5 const - x1 - x2

			 w2 = 
                              8 const - x1 - 2 x2

			 w3 = 
                              8 const - 2 x1 - x2



Second dictionary:  nice_solve( eqns, [zz,w1,x2,w3], [x1,w2] )

Dictionary: basic = [zz, w1, x2, w3], non-basic = [x1, w2]

			 zz = 
                                       3 x1   5 w2
                            20 const + ---- - ----
                                        2      2

			 w1 = 
                                       x1     w2
                              const - ---- + ----
                                       2      2

			 x2 = 
                                        x1     w2
                             4 const - ---- - ----
                                        2      2

			 w3 = 
                                       3 x1    w2
                             4 const - ---- + ----
                                        2      2



Third dictionary:  nice_solve( eqns, [zz,x1,x2,w3], [w1,w2] )

Dictionary: basic = [zz, x1, x2, w3], non-basic = [w1, w2]

			 zz = 
                             23 const - 3 w1 - w2

			 x1 = 
                              2 const - 2 w1 + w2

			 x2 = 
                               3 const + w1 - w2

			 w3 = 
                               const + 3 w1 - w2