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

水墨林

1. k = 2*10^9; d = 10; M = 2.19*10^9; P =
   4 I: G2 I8 x/ o
2. 2.19*10^9; t = 1; h = 0.025; q = 1000;4 l& ?, W* I7 Z+ G9 _! S- S! l( _
   
3. w = 0.01; r = 0.1
   $ n- |; s3 X, `7 G\" ^9 ?- s
4. A = (3*M*P)/(M*P + 3*k*M + 3*k*P);
   2 m, K, R5 k, s- K8 i2 P- {
5. 
   # d1 ]  R; X3 M; s
6. B = (3*M)/(P + 3*k);
   8 q7 H' f0 [0 A: a' L6 a! |7 `
7. # b1 r( r0 _* |2 Y; V
   
8. Q = (3*k*M + 3*k*P + 7*M*P)/(M*P + 3*k*M + 3*k*P);
   ; e4 ^, f; [! s9 i4 p5 @
9. s = (7*M + 6*k)/(P + 3*k);: o* f# {, {+ L7 {2 C  P% @# J2 b* a
   
10. a = E^((M*P*t + 3*k*M*t + 3*k*P*t)/(3*k*d + P*d))
    + N+ E, n# z; ]
11. G = (z - h)/Sqrt[(r^2 + z^2 - 2*h*z + h^2)] - (z - h)/4 b) J4 e! L2 m. D6 Q' h* I+ U
    
12.    Sqrt[(r^2 + h^2 + 2*h*z + z^2)];
    ) i( l# f4 P* s\" D6 E; s
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 A4 g& I* ~1 b% S
14.   3)^-1];
    . [5 [( I5 y& n7 ~
15. U = (z^3 + 2*h*z^2 + z*h^2)/Power[z^2 + 2*h*z + h^2 + r^2, (3)^-1];
    5 _/ v; S, E) w9 }! Y8 k$ Q
16. 0 G: n) V* [* g: V; f& B2 @1 S- _
    
17. J = (18*h^2*z^3 + 18*h^3*z^2 + 6*h^4*z + 6*h*z^4)/Power[. S4 V5 o% s; @9 A
    
18.   z^2 + 2*h*z + h^2 + r^2, (5)^-1];
    % V# Y9 h% |) E4 F6 s3 w9 X
19. M = 1 - h^3/Power[h^2 + w^2, (3)^-1];! d) P: j5 i4 W\" D3 z/ l
    
20. L[r_, z_] = 0 ^- X+ V  R. b+ ?$ K1 i( S* O. l( V
    
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 -
    # l\" w7 r5 u# G3 d\" n, r
22.    4*q*M*a*U*Q + 4*q*M*s*a*U + 4*q*M*s;+ I, R# H( j: [# J3 }+ V/ ?
    
23. ContourPlot[c[r, z], {r, 0, 0.0001}, {z, 0.025, 0.035}]

复制代码

newanswer

楼主，这个是想要用什么软件做图
3 A: Z8 Q, _7 ~9 G! x

宏心

Syntax::bktmcp: Expression "[8W'|-c2_" has no closing "]".
% k, }5 i, a3 j  \& t

宏心

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