Hi,

I am trying to teach my self programming with mathematica and this is one of my first attempts. I am trying to solve x1, x2, x3, x4 and x5 for different values of S, x, y, and ?, given by the following equations:

 x1 = 2*S+x*y/?
 x2 = S+?/x*y
 x3 = 2*?+x*y/S
 x4= x*x3 + y*x1 + ?*x2
 x5= x1/x2

I tried to do it by using Manipulate i.e.

Manipulate[
  N[x1 = 2*S+x*y/?, {S, 150, 1000, 
   50}, {x, 1, 10, 1}, {y, 1, 10, 1}, {?, 2, 4, 1}];
Manipulate[
  N[ x2 = S+?/x*y, {S, 150, 1000, 
   50}, {x, 1, 10, 1}, {y, 1, 10, 1}, {?, 2, 4, 1}];
Manipulate[
  N[x3 = 2*?+x*y/S, {S 150, 1000, 
   50}, {x, 1, 10, 1}, {y, 1, 10, 1}, {?, 2, 4, 1}];
Manipulate[
  N[x4 = x*x2*x3 + y*x1*x3 + ?* x1*x2], {x, 1, 10, 1}, {y, 1, 10, 
   1}, {?, 2, 4, 1}];
Manipulate[
 N[x5= x1/x2], {S, 150, 1000,50}, {x, 1, 10, 1}, {y, 1, 10, 
  1}, {?, 2, 4, 1}]

However, this is not a very efficient way. Any suggestions?

In addition I would like to plot in 2D S vs. x1, x2, and x3 (x-axis S and y- axis x1, x2, and x3). S is in kg and x1, x2, x3 is in meters.

thank you in advance for your help.