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

水墨林

1. k = 2*10^9; d = 10; M = 2.19*10^9; P =
   9 g$ u0 t; }, s8 a, ]& o9 n5 j
2. 2.19*10^9; t = 1; h = 0.025; q = 1000;\" ?\" `2 \4 }- }& H. X
   
3. w = 0.01; r = 0.1! M  i; a& G( ]! ]6 }* M; s
   
4. A = (3*M*P)/(M*P + 3*k*M + 3*k*P);
   6 v5 ~  K/ T\" [' g( L
5. 
   ) b( W9 [/ Z& X; A9 D2 ~; q5 _. ^
6. B = (3*M)/(P + 3*k);, R, X7 e; |% {6 M# ~, u& `
   
7. 
   $ p+ {) Y* O8 K5 K) W4 o
8. Q = (3*k*M + 3*k*P + 7*M*P)/(M*P + 3*k*M + 3*k*P);
   % X5 y/ B\" w! j! V  F
9. s = (7*M + 6*k)/(P + 3*k);
   - O* b0 s+ o1 y1 U  u
10. a = E^((M*P*t + 3*k*M*t + 3*k*P*t)/(3*k*d + P*d))
    / h- |5 q6 j4 `% [3 Z, e5 n
11. G = (z - h)/Sqrt[(r^2 + z^2 - 2*h*z + h^2)] - (z - h)/
    9 d. `! O- R3 H* ?* |\" p
12.    Sqrt[(r^2 + h^2 + 2*h*z + z^2)];# X, L6 _4 m4 H/ U7 ?2 i  b6 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, (9 R2 D$ V+ U  t\" Z  [1 s2 u
    
14.   3)^-1];
    7 D* u5 k. U0 q: t/ D
15. U = (z^3 + 2*h*z^2 + z*h^2)/Power[z^2 + 2*h*z + h^2 + r^2, (3)^-1];
    $ q6 A0 A) H5 ?
16. 
    ' @' @( I% @% G- i- n& A1 {' ^
17. J = (18*h^2*z^3 + 18*h^3*z^2 + 6*h^4*z + 6*h*z^4)/Power[
    : |1 j6 M7 v; ]1 q- K2 t. @
18.   z^2 + 2*h*z + h^2 + r^2, (5)^-1];! H6 G\" ^  v/ x1 }
    
19. M = 1 - h^3/Power[h^2 + w^2, (3)^-1];- _! _! f/ a\" I2 v
    
20. L[r_, z_] =
    , T% w3 U( H/ k! `& r. V% P
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 - # o% C3 P. o# c# r
    
22.    4*q*M*a*U*Q + 4*q*M*s*a*U + 4*q*M*s;
    : Q. x! M7 K7 k- x% n* R% I+ @
23. ContourPlot[c[r, z], {r, 0, 0.0001}, {z, 0.025, 0.035}]

复制代码

newanswer

楼主，这个是想要用什么软件做图
# W* U. h8 w" A/ I

宏心

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

宏心

Syntax::bktmcp: Expression "[8W'|-c2_" has no closing "]".
0 |; z; _" ~: z& L