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

水墨林

1. k = 2*10^9; d = 10; M = 2.19*10^9; P = ! n0 S4 _  i2 t) m% j+ h8 y
   
2. 2.19*10^9; t = 1; h = 0.025; q = 1000;
   ! J8 j; u9 M% Y1 A
3. w = 0.01; r = 0.1\" Z; l, g8 K3 G1 s2 M* Y. a7 M: ?
   
4. A = (3*M*P)/(M*P + 3*k*M + 3*k*P);5 @3 N, ]# o( q$ B\" J; j
   
5. ! l7 H: C6 ?) c4 `, w3 x; h
   
6. B = (3*M)/(P + 3*k);7 s% x0 a\" V/ c  a: D2 E
   
7. 
   2 _: W. S$ I9 Z& S
8. Q = (3*k*M + 3*k*P + 7*M*P)/(M*P + 3*k*M + 3*k*P);
   0 c$ y; c; O4 x3 T$ b
9. s = (7*M + 6*k)/(P + 3*k);0 ?! M  P1 K5 k, Y' i& P4 |2 \
   
10. a = E^((M*P*t + 3*k*M*t + 3*k*P*t)/(3*k*d + P*d))
    / m3 e: n0 U, \2 B; B
11. G = (z - h)/Sqrt[(r^2 + z^2 - 2*h*z + h^2)] - (z - h)/
    ( W2 d- F) b4 \% l  ^& g# G
12.    Sqrt[(r^2 + h^2 + 2*h*z + z^2)];( L( t( c! ^; q2 X9 W* x' _
    
13. H = (z^3 - h^3 - 3*z^2*h + 3*h^2*z)/Power[z^2 - 2*h*z + h^2 + r^2, (- F$ N  v\" n7 z' h6 S  @1 F/ q$ M
    
14.   3)^-1];! Y: n1 N) T% J; O
    
15. U = (z^3 + 2*h*z^2 + z*h^2)/Power[z^2 + 2*h*z + h^2 + r^2, (3)^-1];
    2 ?* I/ _$ m- Q6 v) h% A  K! v1 X# ?
16. 8 J, Z: B9 n5 v. x5 L1 ]; {* _
    
17. J = (18*h^2*z^3 + 18*h^3*z^2 + 6*h^4*z + 6*h*z^4)/Power[
    1 L! J( l6 c( i' g4 l' A
18.   z^2 + 2*h*z + h^2 + r^2, (5)^-1];8 x5 \8 r& C6 ]& _' L! _+ s
    
19. M = 1 - h^3/Power[h^2 + w^2, (3)^-1];
    ( Y; T' _. w: o$ U8 X: e: Q
20. L[r_, z_] = $ I  s7 e+ M' z+ D
    
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 - ( R9 e  }8 F6 N  }. S
    
22.    4*q*M*a*U*Q + 4*q*M*s*a*U + 4*q*M*s;/ r1 D& _, E% p; F3 A% l\" V\" _
    
23. ContourPlot[c[r, z], {r, 0, 0.0001}, {z, 0.025, 0.035}]

复制代码

newanswer

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

宏心

Syntax::bktmcp: Expression "[8W'|-c2_" has no closing "]".
; I( I: w% X, W' D/ M0 Q, P9 P

宏心

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