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

水墨林

1. k = 2*10^9; d = 10; M = 2.19*10^9; P = 7 J: ?# y9 Z- Z\" p  ~% A. F
   
2. 2.19*10^9; t = 1; h = 0.025; q = 1000;  u7 ?) \1 I. n- ~! ~8 `& d
   
3. w = 0.01; r = 0.1: ?! G% p! H7 c+ L
   
4. A = (3*M*P)/(M*P + 3*k*M + 3*k*P);+ x! @# I$ u7 `2 V1 @  C! q
   
5. 
   1 g* y  k# f; s* _. W! }- X, v9 ]& @
6. B = (3*M)/(P + 3*k);8 z- u4 t* |/ K; q3 U
   
7. 
   , U/ V+ _4 V$ \8 A/ r
8. Q = (3*k*M + 3*k*P + 7*M*P)/(M*P + 3*k*M + 3*k*P);' P- e! ?6 M\" Z9 `; Z- {
   
9. s = (7*M + 6*k)/(P + 3*k);
   5 N\" p3 @3 y9 r: J: F# w% _
10. a = E^((M*P*t + 3*k*M*t + 3*k*P*t)/(3*k*d + P*d))7 U6 L9 L7 e& Y' a( @5 |* u
    
11. G = (z - h)/Sqrt[(r^2 + z^2 - 2*h*z + h^2)] - (z - h)/
    $ e\" [% Y( U$ p# f, Z+ _
12.    Sqrt[(r^2 + h^2 + 2*h*z + z^2)];
    % \9 g, [& p/ d3 y7 S% r6 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, (
    ! h4 _5 Y! b1 Q\" h. y8 T; i
14.   3)^-1];
    2 L- s. S6 z* ^/ `
15. U = (z^3 + 2*h*z^2 + z*h^2)/Power[z^2 + 2*h*z + h^2 + r^2, (3)^-1];* T9 j  I0 a/ T* X3 U. @
    
16. : F- N5 Y! K. {$ c  ?\" r
    
17. J = (18*h^2*z^3 + 18*h^3*z^2 + 6*h^4*z + 6*h*z^4)/Power[
    ( p! A0 Y) n* w2 e
18.   z^2 + 2*h*z + h^2 + r^2, (5)^-1];' E& m4 m- m/ l6 p8 v/ F# s
    
19. M = 1 - h^3/Power[h^2 + w^2, (3)^-1];- u4 \5 |' D9 [) d) {3 u! E, m
    
20. L[r_, z_] = # g+ E6 R7 N. r  H
    
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 -
    ! }' A$ M\" b; j+ W9 c
22.    4*q*M*a*U*Q + 4*q*M*s*a*U + 4*q*M*s;3 y) f7 n3 j\" y$ i8 I! {% g- H# [
    
23. ContourPlot[c[r, z], {r, 0, 0.0001}, {z, 0.025, 0.035}]

复制代码

newanswer

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

宏心

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

宏心

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