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

水墨林

1. k = 2*10^9; d = 10; M = 2.19*10^9; P =
   9 ]: N) p, }: A$ Z' q' Y+ f4 U
2. 2.19*10^9; t = 1; h = 0.025; q = 1000;- C) B+ t9 z4 T# D' ^$ |
   
3. w = 0.01; r = 0.1. u$ H; N$ s3 H* L: ?
   
4. A = (3*M*P)/(M*P + 3*k*M + 3*k*P);
   & \, P' R: J4 d1 [5 g& ]
5. 
   % Y. J* k- C; d% X, `' l' \  J  d
6. B = (3*M)/(P + 3*k);
   $ }% v6 ?! d# U: i8 e; G- d; ^* b
7. 
   ! M1 @+ C- ?* ~! l. H! t
8. Q = (3*k*M + 3*k*P + 7*M*P)/(M*P + 3*k*M + 3*k*P);. w; ?; N+ N; R; e8 @7 s. l
   
9. s = (7*M + 6*k)/(P + 3*k);
   $ h! K3 l+ J/ u# N6 l
10. a = E^((M*P*t + 3*k*M*t + 3*k*P*t)/(3*k*d + P*d))
    8 T8 ]# y$ b\" N0 J; T* x. v. v0 ?
11. G = (z - h)/Sqrt[(r^2 + z^2 - 2*h*z + h^2)] - (z - h)/4 i& _- B5 |0 `8 E' H
    
12.    Sqrt[(r^2 + h^2 + 2*h*z + z^2)];
    * s7 `& L+ w6 P3 x$ V. [
13. H = (z^3 - h^3 - 3*z^2*h + 3*h^2*z)/Power[z^2 - 2*h*z + h^2 + r^2, (\" E1 [5 S2 n% `  S& I4 k
    
14.   3)^-1];0 {' }; j2 ?' U) u. f0 y2 ]
    
15. U = (z^3 + 2*h*z^2 + z*h^2)/Power[z^2 + 2*h*z + h^2 + r^2, (3)^-1];- f% M% a# u. x5 j$ C8 g+ c3 [5 f
    
16. . ]2 o1 l* i  R& O
    
17. J = (18*h^2*z^3 + 18*h^3*z^2 + 6*h^4*z + 6*h*z^4)/Power[5 ]. w% D$ W4 ~& m/ @\" K) n
    
18.   z^2 + 2*h*z + h^2 + r^2, (5)^-1];
    . X6 E; t; v\" |% c( _+ e
19. M = 1 - h^3/Power[h^2 + w^2, (3)^-1];
    9 [3 |: F; d7 Y* l
20. L[r_, z_] =
    . u# l* Q- d# w8 s
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 -
    1 t\" u8 w# {! V
22.    4*q*M*a*U*Q + 4*q*M*s*a*U + 4*q*M*s;) l) B7 S\" B( Z% x\" t# u2 w
    
23. ContourPlot[c[r, z], {r, 0, 0.0001}, {z, 0.025, 0.035}]

复制代码

宏心

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

宏心

Syntax::bktmcp: Expression "[8W'|-c2_" has no closing "]".
( h: o. H! v# s- l! c' E$ T$ D/ \, b

newanswer

楼主，这个是想要用什么软件做图