怎么画出这个隐函数图像啊，我写的程序好像画不出来，新手小白求大神解答

Question

seg = g -> 9.8;

se\[Rho] = \[Rho] -> 1024;

sev = v -> 0.3;

sed = d -> 2;

seE = capse -> 5*10^9;

seD = D -> (capse*d^3)/(12*(1 - v^2)) /. seE /. sed /. sev;

se\[CapitalGamma] = \[CapitalGamma] -> D/(\[Rho]*g) /. seD /. seg /. 

   se\[Rho];

Subscript[seM, e] = Subscript[M, e] -> 917*d /. sed;

se\[Sigma] = \[Sigma] -> Subscript[M, e]/(\[Rho]*g) /. se\[Rho] /. 

    seg /. Subscript[seM, e];

seh = h -> 1000;

seQ = Q -> 0;

se\[CapitalLambda] = \[CapitalLambda] -> Q/(\[Rho]*g) /. seQ /. 

    seg /. se\[Rho];

sec = c -> 1500;

Subscript[sek, 1] = Subscript[k, 1] -> (\!\(

\*SubsuperscriptBox[\(k\), \(0\), \(2\)] - 

\*FractionBox[

SuperscriptBox[\(\[Omega]\), \(2\)], 

SuperscriptBox[\(c\), \(2\)]]\))^(1/2) /. sec;

 

Plot[\[Omega]^2 = ((1 + \[CapitalGamma]*

\!\(\*SubsuperscriptBox[\(k\), \(0\), \(4\)]\) - \[CapitalLambda]*

\!\(\*SubsuperscriptBox[\(k\), \(0\), \(2\)]\))*g*Subscript[k, 0]*

          Tanh[Subscript[k, 0]*h])/(

         1 - \[Sigma]*g*Subscript[k, 0]*Tanh[Subscript[k, 0]*h]) /. 

         seg /. se\[CapitalGamma] /. se\[CapitalLambda] /. seh /. 

     se\[Sigma] /. sec /. Subscript[sek, 1], {Subscript[k, 0], 0,  0.1}]

 

Answer 1

这两行中使用了内建函数 D（求导），需要换成其它字母（这些大写字母都为内置函数，不能使用 C, D, E, I, N, O ）

seD = D -> (capse*d^3)/(12*(1 - v^2)) /. seE /. sed /. sev;

se\[CapitalGamma] = \[CapitalGamma] -> D/(\[Rho]*g) /. seD /. seg /. se\[Rho];