求解均匀薄圆盘怎么从圆环叠加到圆盘上 - mathematica吧

level 3

Integrate[1/Sqrt[a - b Cos[\[Phi]]], {\[Phi], 0, 2 \[Pi]},
Assumptions -> a > b > 0]
(Sqrt[a + b] EllipticK[-((2 b)/(a - b))] +
Sqrt[a - b] EllipticK[(2 b)/(a + b)]))/Sqrt[a^2 - b^2]
以上是圆环的计算，一个圆盘可以由半径从0开始叠加到圆盘半径R上，但不会剩下的叠加部分。

2020年02月17日 10点02分 1

吧务

level 10

asdasd1dsadsa

看不明白你要算什么

2020年02月18日 08点02分 2

缘起一指流沙

这样写可以嘛，不知道程序对不对

2020年02月18日 14点02分

缘起一指流沙

k^2 = (4 \[Rho]*r*Sin [\[Theta]])/(\[Rho]^2 + r^2 + 2 \[Rho]*r*Sin[\[Theta]]); V[r_, \[Theta]_] := Integrate[-\[Rho]/Sqrt[r^2 + \[Rho]^2 + 2 \[Rho]*r*Sin[\[Theta]]]* Integrate[1/Sqrt[ 1 - k^2*Sin[\[Psi]]^2], {\[Psi], -(\[Pi]/2), \[Pi]/2}], {r, 0, 1}];

2020年02月18日 15点02分

asdasd1dsadsa

@缘起一指流沙赋值有错误，被赋值必须是符号。不能写k^2=...而只能写k=Sqrt[...]

2020年02月19日 06点02分

level 3

缘起一指流沙楼主

2020年02月18日 15点02分 3