(%i1) "Cornelsen, S. 26, Nr. 2"$

(%i2) linsolve([

1.0*x+1.0*y+1.0*z =16.0
1.0*x+1.0*y+-1.0*z=2.0
1.0*x+2.0*y+-2.0*z=0.0 

],[x,y,z]);

(%o2)                        [x = 4, y = 5, z = 7]

(%i3) "Cornelsen, S. 26, Nr. 6"$

(%i4) linsolve([

1.0*x+0.0*y+0.0*z+-1.0*t=1500.0
-1.0*x+1.0*y+0.0*z+0.0*t=-900.0
0.0*x+-1.0*y+1.0*z+0.0*t=-900.0
0.0*x+0.0*y+-1.0*z+1.0*t=300.0

],[x,y,z,t]);

(%o4)       [x = %r1 + 1500, y = %r1 + 600, z = %r1 - 300, t = %r1]

(%i5) "Da z >= 0 sein muss, ist also t mind. 300"$
 => Minimallösung: x = 1800, y = 900, z = 0, t = 300