Advanced Search

Question: can you help me,please?

Question:can you help me,please?

sami131 20
plot
March 24 2015
0

Hi

I want to plot this equation to obtain 5 curves, then the maximum point  of eath curves link together.

But I can not plot this equation;anybody can help me?

restart; Eq := x-(r+3.1*10^7*exp(-11616/(1.98*T)))/(3.1*10^7*exp(-11616/(1.98*T))+1.8*10^18*exp(-29691/(1.98*T))) = 0; R := [0, 0.1e-2, 0.1e-1, .1, 1.6]; plots[implicitplot]([seq(eval(Eq, r = R[i]), i = 1 .. nops(R))], T = 0 .. 500, x = 0 .. 2, color = [red, blue, green, yellow, black], gridrefine = 5)

 

 

 
Please Wait...