Advanced Search

Question: Plotting quadratic equation solution issue

Question:Plotting quadratic equation solution issue

J4James 355 Maple 18
plot solve
February 06 2015
1

restart:

Eq1:=x=(phi*(theta[m]-1/x)/theta[m]+(1-phi)/2);

solve({Eq1},x);

x := (1/4)*(phi*theta[m]+theta[m]+sqrt(phi^2*theta[m]^2+2*phi*theta[m]^2-16*phi*theta[m]+theta[m]^2))/theta[m];

Now plotting the first root

p1:=plot(subs(phi=0,x),theta[m]=0..14,color=red):
p2:=plot(subs(phi=0.1,x),theta[m]=0..14,color=green,linestyle=2):
p3:=plot(subs(phi=0.5,x),theta[m]=0..14,color=blue,linestyle=3):
p4:=plot(subs(phi=1,x),theta[m]=0..14,color=black):
display({p1,p2,p3,p4},axes=boxed,view=[0..14,0..1]);

Note: I'm unable to reproduce the following plot. Any idea?

 SA.mw
Please Wait...