念奴娇929的个人资料 - RAT

念奴娇929 念奴娇929

关注数: 1 粉丝数: 2 发帖数: 20 关注贴吧数: 4

函数求导不会自动代入图片是我的问题，如图，ψ等于另一个表达式，方程中对ψ求导并不会代入对表达式的求导，请问这是什么原因呢？我的程序放在了后面。\[Psi][x,z]=A[x,z]*E^(I \[Phi][x,z]) \!\( \*SubscriptBox[\(\[PartialD]\), \(z\)]\(\[Psi][x, z]\)\) (\[Psi]^(0,1))[x,z]//FullForm -(1/25) z *\[Psi][x,z]+2 I Sqrt[2] Sqrt[z] (\[Psi]^(0,1))[x,z]+(\[Psi]^(2,0))[x,z]==0//Simplify 先谢谢大家啦！

求助：我这个偏微分方程的边界条件该怎么写？这是我的计算过程，我想给图片里的方程加的边界条件是当x^2+y^2=0.03时，D1=1，因为自变量是x,y,z，请问这种边界条件怎么加呢？先蟹蟹大家啦 eqn6 = (-8.30996*10^6 - 1/(x^2 + y^2)) D1[x, y, z] + (0. + 2.371*10^7 I) \!\(\*SuperscriptBox[\(D1\), TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None]\)[x, y, z] DSolve[eqn6 == 0, D1[x, y, z], {x, y, z}]

求助“一个未知的边框名字(Hold)被作为BoxForm传给表达式” 遇到的问题是：一个未知的边框名字(Hold)被作为BoxForm传给表达式. 检查表达式的格式规则. 代码和图片如下： \[Omega][z_,t_]=\[Omega]Laser[z,t]+\[Omega]One[z,t] k[z_,t_]=kZero[z,t]+kOne[z,t] \!\( \*SubscriptBox[\(\[PartialD]\), \(t\)]\((\[Omega][z, t] + k[z, t])\)\) c^2 (-(k[z,t]*(\[Alpha]Zero^(1,0))[z,t]+(k^(1,0))[z,t] *\[Alpha]Zero[z,t]))+\[Omega][z,t]*(\[Alpha]Zero^(0,1))[z,t]- (\[Omega]^(0,1))[z,t]*\[Alpha]Zero[z,t]==0 运行的截图如下：不知道为什么出现这个问题，我记得好像昨天也有类似的语句，但是没有出问题，不知道这是什么原因呢？谢谢大家啦！

讨论——关于清变量的问题在推导公式过程中有些东西需要反复改，但是变量赋值后后面的会影响前面的结果，计算了后面的东西反过来前面的就会很受影响，经常要增加清变量的语句。我今天想到一个一劳永逸的办法，就是除了计算的笔记本1之外重新建立一个笔记本2用来清变量，需要的时候就运行一下笔记本2中的内容，感觉方便多了。不知道大家是怎么处理这种反复更改过程中清变量的问题的呢？欢迎交流呀

函数替换的问题我要用一个式子替换原先方程里的某一个变量，遇到的问题有： 1. 出现了$RecursionLimit::reclim2这个，说它超过了1024的递归深度 2. 用α0和α1替换α后，只有α被替换了，它的各阶导数并没有被替换成α0和α1的各阶导数。代码和图片放在下面想请教请教各位如何解决这个问题，先谢谢大家啦 ClearALL \[Alpha][z, r, t] = Subscript[\[Alpha], 0][z, r, t] + Subscript[\[Alpha], 1][z, r, t] Simplify[2 I r \[Omega] \!\(\*SuperscriptBox[\(\[Alpha]\), TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None]\)[z, r, t] + c^2 ( \!\(\*SuperscriptBox[\(\[Alpha]\), TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None]\)[z, r, t] + r ( \!\(\*SuperscriptBox[\(\[Alpha]\), TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None]\)[z, r, t] + 2 I k \!\(\*SuperscriptBox[\(\[Alpha]\), TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None]\)[z, r, t] + \!\(\*SuperscriptBox[\(\[Alpha]\), TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None]\)[z, r, t])) - \[Alpha][z, r, t] (c^2 (l^2/r + k^2 r) - r \[Omega]^2 + r \!\( \(\*SubsuperscriptBox[\(\[Omega]\), \(p\), \(2\)]\)[\(z, r, t\)]\)) + r \!\(\*SuperscriptBox[\(\[Alpha]\), TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "2"}], ")"}], Derivative], MultilineFunction->None]\)[z, r, t] == 0]

1 下一页