Advanced Search

Question: Need list of x and y separately

Question:Need list of x and y separately

pallav 90
print
June 27 2013
0

I need the list of x and y separately of S[2] like the:

[.8098169753, 0.8098169753, .8098169753, .8098169753, .8098169753, .8098169753]

[1.339721710, 1.309892054, 1.282898312, 1.258277638, 1.235670705, 1.214793049]

 

 

restart; with(LinearAlgebra);
a := 2; b := .29; d := 1.85; for h from .5 by .1 to 1 do
eq1 := x*(-b*x^2-x+1);
eq2 := y*((a*x*x)/(b*y^2)-d-h*y);
S := solve({eq1, eq2}, {x, y});
print(S[2]);
end do:

Please modify my code to solve my problem. 

Also, if output is too wide for the screen, plaese guide me how to present the values of x & y with line breaks significantly? 
Please Wait...