公告:本站正式转型为非交互式静态网站!
转型:本站将通过笔记和博客的形式继续为大家服务,关于 Mathematica 问答服务请移步至QQ群:365716997
联系:如有问题请联系QQ群管理员,或发送邮件至:lixuan.xyz@qq.com。
感谢:最后非常感谢大家多年来的支持与帮助!
参考《互联网跟帖评论服务管理规定》《中华人民共和国网络安全法》《网络信息内容生态治理规定》《互联网用户账号信息管理规定》

—— 2022-11-27

欢迎来到 Mathematica 问答社区

提问时请贴上文本代码

语法高亮:在编辑器中点击

被禁止的话题:广告破解

请阅读:《提问的智慧》

备用域名:mma.ooo

支持LaTex数学公式
行内公式标识符:\$ 或“$\backslash ($”+“$\backslash )$”,
行间公式标识符:\$\$ 或 “$\backslash [$”+“$\backslash ]$”

社区建议QQ群:365716997

分类

0 投票
457 浏览

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}]

 

用户: osu132516 (11 分)

1个回答

0 投票
这两行中使用了内建函数 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];
用户: 野鹤 (5.1k 分)
...