今非昔比_i
今非昔比_i
That
关注数: 33
粉丝数: 86
发帖数: 4,477
关注贴吧数: 13
带土为什么不像团藏一样镶嵌一胳膊复活币 如果再把另一只眼睛拿回来不是早完成月之眼了,何必一直当🤡。
为什么函数传入参数和函数体Block中同名的参数会同时被修改? Clear[EulerLagrange]; Options[EulerLagrange] = {eXpand -> False}; EulerLagrange[density_, depend_List, independ_List, options__] := Block[{f0, fh, \[Epsilon], w, y, x$m, expand, euler = {}, wtable}, {expand} = {eXpand} /. {options}; wtable = Table[w[i], {i, 1, Length[depend]}]; f0 = Function[x$m, y + \[Epsilon] w]; ruleg[i_] := b_ Derivative[n__][wtable[[i]]][independ] :> (-1)^ Plus @@ {n} HoldForm[\!\( \*SubscriptBox[\(\[PartialD]\), \(Delete[Thread[{independ, {n}}], 0]\)]b\)]; Do[ fh = density /. depend[[j]] -> f0 /. {x$m -> independ, y -> depend[[j]] @@ independ, w -> wtable[[j]] @@ independ}; fh = Expand[\!\( \*SubscriptBox[\(\[PartialD]\), \(\[Epsilon]\)]fh\) /. \[Epsilon] -> 0]; fh = fh /. ruleg[j] /. wtable[[j]] @@ independ -> 1; AppendTo[euler, fh], {j, 1, Length[depend]}]; If[Not[expand], euler = ReleaseHold[euler], euler]] f = (\!\( \*SubscriptBox[\(\[PartialD]\), \(x\)]\(u[x, y, z]\)\))^2 + (\!\( \*SubscriptBox[\(\[PartialD]\), \(y\)]\(u[x, y, z]\)\))^2 + (\!\( \*SubscriptBox[\(\[PartialD]\), \(z\)]\(u[x, y, z]\)\))^2 EulerLagrange[f, {u}, {x, y, z}, eXpand -> False]
数字上标表示求导 为什么我输入带括号的数字上标表示的函数导数mathematica识别的却是求幂次?
微分方程求解问题 为什么会出现系数不精确或者输入的初始条件是True?
为什么mathematica会给出错误的结果 计算3维亥姆霍茨方程的green函数, GreenFunction[Laplacian[u[x, y, z] + k^2 u[x, y, z],{x, y, z}], u[x, y, z], {x, y, z} \[Element] FullRegion[3], {m, n, p}]
求助。为什么求解微分方程的输入和输出一样? 没有求出来解,也没有显示报错
iphone12莫名其妙发烫电量持续掉是怎么回事? RT,没玩游戏,后台也没更新什么的…
很奇怪 饥荒独显mx350才30,40帧,而集显居然能60帧??这是怎么回事奥
为什么2020的小新proi50mx350玩饥荒只能有30帧 为什么2020的小新proi50mx350玩饥荒只能有30帧左右,还是野兽模式,风扇就转的很厉害了,这个配置玩这个游戏不应该啊
ipconfig全是媒体已断开,网络信号显示零格无法连接,大佬们有办法吗
1
下一页