Question: how can plot the second diagram?

Hi

I have this diagram

Sys := -(diff(p(z), z)) = 1.289*10^10*(.675+77/(Pi*1.2^2))*(1+x(z))/(Pi*1.2^2*p(z)), diff(x(z), z) = 1.134*10^(-8)*Pi*1.2^2*(1-x(z))*p(z)/(1+x(z)); Inc := p(0) = 2*10^6, x(0) = 0; Sol := dsolve({Inc, Sys}, numeric); plots[odeplot](Sol, [[z, p(z)], [z, x(z)]], z = 0 .. 26, color = [red, blue], thickness = 2)

according to the diagram data,I should be plotted another diagram in terms of P vers w.

that

w = 1560*Pi*(9*z-(1/3)*(z-2.7)^3*((1/3)*2.7^3)).

 

Please Wait...