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

水墨林

1. k = 2*10^9; d = 10; M = 2.19*10^9; P = \" S9 o, I0 q7 A! d3 Q, a5 [! n6 f
   
2. 2.19*10^9; t = 1; h = 0.025; q = 1000;
   * w' [' E/ i& z\" ?6 Z
3. w = 0.01; r = 0.1( @  t7 \. r0 b
   
4. A = (3*M*P)/(M*P + 3*k*M + 3*k*P);
   3 N- a9 @+ _) Z; o$ h! J$ D5 I9 f; D
5. 
   # V6 j( U6 h2 C) E& s; Y
6. B = (3*M)/(P + 3*k);: {+ M  D7 }4 C- Y0 J2 z
   
7. + H9 u5 @2 K2 C4 `' V/ i4 m2 r5 }. b: M
   
8. Q = (3*k*M + 3*k*P + 7*M*P)/(M*P + 3*k*M + 3*k*P);8 {\" {. v1 p: |1 t7 F( M7 N, \& e
   
9. s = (7*M + 6*k)/(P + 3*k);
   4 K% U: }3 n7 {' b6 K- G\" g) r
10. a = E^((M*P*t + 3*k*M*t + 3*k*P*t)/(3*k*d + P*d))
    $ R. ^/ A6 G  y) `9 B- e
11. G = (z - h)/Sqrt[(r^2 + z^2 - 2*h*z + h^2)] - (z - h)/: l, W1 b( }) l' @' R
    
12.    Sqrt[(r^2 + h^2 + 2*h*z + z^2)];
    % G5 T\" Y! o) N' O5 h* h, q: 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, (3 P\" X' L5 ]3 u8 s' Y# {7 c& D
    
14.   3)^-1];
    8 ~5 X& w* J# L8 T8 g
15. U = (z^3 + 2*h*z^2 + z*h^2)/Power[z^2 + 2*h*z + h^2 + r^2, (3)^-1];9 l2 \, A' Q# ]1 n2 o3 ^
    
16. 6 s. A  r2 n0 K
    
17. J = (18*h^2*z^3 + 18*h^3*z^2 + 6*h^4*z + 6*h*z^4)/Power[+ i% N! y6 }$ B' o  R8 \) r* j
    
18.   z^2 + 2*h*z + h^2 + r^2, (5)^-1];' R. Z( j* G1 J1 W7 ^$ _$ p
    
19. M = 1 - h^3/Power[h^2 + w^2, (3)^-1];0 {+ c( G: x9 k  G3 [
    
20. L[r_, z_] = ; ?4 A) i, x: d: Y! y, g) 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 - ' W& I- s0 n\" }0 o) E- P
    
22.    4*q*M*a*U*Q + 4*q*M*s*a*U + 4*q*M*s;; b' z; c5 B6 J, P9 [9 v
    
23. ContourPlot[c[r, z], {r, 0, 0.0001}, {z, 0.025, 0.035}]

复制代码

newanswer

楼主，这个是想要用什么软件做图
+ H& Z8 `% n# R  _; Z% ^

宏心

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

宏心

Syntax::bktmcp: Expression "[8W'|-c2_" has no closing "]".
  d- ~* m$ V$ D& _