level 2
Manipulate[
Plot[{1/(Sqrt[\[Pi]] 2^n n!) E^ (
x ^2) (2^n Sqrt[\[Pi]]
x^-n HypergeometricPFQRegularized[{1/2, 1}, {1 + 1/2 (-1 - n),
1 - n/2}, -x^2])^2 ,
1/(2 \[Pi]) (2 n + 1 - x^2)^(-(1/2))}, {x, -10, 10},
PlotRange -> {{-20, 20}, {0, 1}}], {n, 20, 75}]
代码如上
2021年10月14日 13点10分
3