请教ContourPlot出不了图这是为什么，代码如下，图如下

水墨林

1. k = 2*10^9; d = 10; M = 2.19*10^9; P =
   ) ^1 G+ l2 c  k- t) P9 f0 s
2. 2.19*10^9; t = 1; h = 0.025; q = 1000;
   $ k3 [9 `3 r6 y6 Z8 m& [
3. w = 0.01; r = 0.1) z* Z# q9 q\" o' j& B
   
4. A = (3*M*P)/(M*P + 3*k*M + 3*k*P);9 f; _) L+ _/ o. `
   
5. 
   9 R4 ^  X$ y0 w: q1 }
6. B = (3*M)/(P + 3*k);9 U4 j8 J: v+ X1 N* B% K# F: y, |
   
7. 4 `9 u4 S$ X8 ]4 L- D4 b  L
   
8. Q = (3*k*M + 3*k*P + 7*M*P)/(M*P + 3*k*M + 3*k*P);\" W$ ~1 X  D9 P7 B( n/ [
   
9. s = (7*M + 6*k)/(P + 3*k);
   / t& j/ }+ ^7 P1 ~% x. X) J
10. a = E^((M*P*t + 3*k*M*t + 3*k*P*t)/(3*k*d + P*d))* S( r0 J/ ?+ I' P  l\" k3 t/ |
    
11. G = (z - h)/Sqrt[(r^2 + z^2 - 2*h*z + h^2)] - (z - h)/3 A5 x; L7 z$ t% J2 E9 J\" m7 p) @  F
    
12.    Sqrt[(r^2 + h^2 + 2*h*z + z^2)];& {9 E' m# m% `5 [$ M
    
13. H = (z^3 - h^3 - 3*z^2*h + 3*h^2*z)/Power[z^2 - 2*h*z + h^2 + r^2, (\" P. M) z1 W  [- }# O$ p
    
14.   3)^-1];: s, S; y* V+ m1 y/ p
    
15. U = (z^3 + 2*h*z^2 + z*h^2)/Power[z^2 + 2*h*z + h^2 + r^2, (3)^-1];
    4 d1 }# h' M: b$ k0 ?4 ]* p9 j
16. 
    5 u$ P0 H, \# a5 `; p6 w; d
17. J = (18*h^2*z^3 + 18*h^3*z^2 + 6*h^4*z + 6*h*z^4)/Power[0 g; N. J6 x+ ^; |
    
18.   z^2 + 2*h*z + h^2 + r^2, (5)^-1];  m' k; s' M' p3 R2 H7 C0 T\" \* p( q
    
19. M = 1 - h^3/Power[h^2 + w^2, (3)^-1];
    5 [6 K4 h& R, z. E
20. L[r_, z_] =   @- f1 x: P. z5 S. Y+ |/ ]! w( T
    
21.   4*q*M*A*G - 4*q*M*a*G*A + 4*q*M*a*G*B + 4*q*M*H + 4*q*M*U*Q - : S' I7 A% I1 b5 t+ X
    
22.    4*q*M*a*U*Q + 4*q*M*s*a*U + 4*q*M*s;9 G* y( s3 B1 m
    
23. ContourPlot[c[r, z], {r, 0, 0.0001}, {z, 0.025, 0.035}]

复制代码

newanswer

楼主，这个是想要用什么软件做图
! E( w+ T$ d" F; X

宏心

Syntax::bktmcp: Expression "[8W'|-c2_" has no closing "]".

宏心

Syntax::bktmcp: Expression "[8W'|-c2_" has no closing "]".
  Y, z3 P0 p9 E& Q