Question: How to draw a graph?

Need help to draw a graph between x and lambda, lambda should on the horizontal axis. it should look like the attached picture.


 

restart

lambda := proc (x) options operator, arrow; (-1.565845910+2.393779704*x^2+1.564996800*x^4+1.800900000*x^6)/(x^2+2)^4 end proc

proc (x) options operator, arrow; (-1.565845910+2.393779704*x^2+1.564996800*x^4+1.800900000*x^6)/(x^2+2)^4 end proc

(1)

data := [seq([lambda(x), x], x = 0 .. 1, .1)]

[[-0.9786536938e-1, 0], [-0.9445602702e-1, .1], [-0.8473253124e-1, .2], [-0.7004169612e-1, .3], [-0.5215959052e-1, .4], [-0.3283205351e-1, .5], [-0.1345044703e-1, .6], [0.5065808511e-2, .7], [0.2221891338e-1, .8], [0.3780341321e-1, .9], [0.5177568635e-1, 1.0]]

(2)

with(CurveFitting)

x := PolynomialInterpolation(data, lambda)

-0.6298940090e12*lambda^10-0.1443096227e12*lambda^9-7314622270.*lambda^8+489000321.4*lambda^7+45718357.19*lambda^6-73452.0126*lambda^5-68414.72355*lambda^4-508.641296*lambda^3+39.75510893*lambda^2+5.699823870*lambda+.6702161742

(3)

``


 

Download help2.mw

 

restart

lambda := proc (x) options operator, arrow; (-1.565845910+2.393779704*x^2+1.564996800*x^4+1.800900000*x^6)/(x^2+2)^4 end proc

proc (x) options operator, arrow; (-1.565845910+2.393779704*x^2+1.564996800*x^4+1.800900000*x^6)/(x^2+2)^4 end proc

(1)

data := [seq([lambda(x), x], x = 0 .. 1, .1)]

[[-0.9786536938e-1, 0], [-0.9445602702e-1, .1], [-0.8473253124e-1, .2], [-0.7004169612e-1, .3], [-0.5215959052e-1, .4], [-0.3283205351e-1, .5], [-0.1345044703e-1, .6], [0.5065808511e-2, .7], [0.2221891338e-1, .8], [0.3780341321e-1, .9], [0.5177568635e-1, 1.0]]

(2)

with(CurveFitting)

x := PolynomialInterpolation(data, lambda)

-0.6298940090e12*lambda^10-0.1443096227e12*lambda^9-7314622270.*lambda^8+489000321.4*lambda^7+45718357.19*lambda^6-73452.0126*lambda^5-68414.72355*lambda^4-508.641296*lambda^3+39.75510893*lambda^2+5.699823870*lambda+.6702161742

(3)

``


 

Download help2.mw

Please Wait...