交互式操作与图像
[code]f = Integrate[Sqrt[1 - k^2 Sin[\[Phi]]^2], {\[Phi], 0, u},Assumptions -> {0 < k < 1, 0 < u < 10}];
Manipulate[
Plot[{EllipticE[u, (2/3)^2], f /. k -> k1}, {u, 0, 10},
PlotRange -> {0, 10}], {k1, 0, 0.99, LabeledSlider}][/code]
页:
[1]