交互式操作与图像

青青子衿

1. f = Integrate[Sqrt[1 - k^2 Sin[\[Phi]]^2], {\[Phi], 0, u},
2.    Assumptions -> {0 < k < 1, 0 < u < 10}];
3. Manipulate[
4. Plot[{EllipticE[u, (2/3)^2], f /. k -> k1}, {u, 0, 10},
5.   PlotRange -> {0, 10}], {k1, 0, 0.99, LabeledSlider}]

Copy the Code