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.