用mathematica比较不同类不同阶Legendre多项式的变化规律，请自己设定比较至少三种不同条件 给出mathematica代码

以下是用Mathem[ati](https://geek.csdn.net/educolumn/150d7073277950db5f09620704e791cf?spm=1055.2569.3001.10083)ca比较不同类不同阶Legendre多项式的变化规律的[代码](https://geek.csdn.net/educolumn/1572ef9b473b4e00f6b2bf6d428b7c27?spm=1055.2569.3001.10083)： 首先，我们定义一个[[函数](https://geek.csdn.net/educolumn/2319d2a62911adc34b96ea572d8225a2?spm=1055.2569.3001.10083)](https://geek.csdn.net/educolumn/ba94496e6cfa8630df5d047358ad9719?dp_token=eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9.eyJpZCI6NDQ0MDg2MiwiZXhwIjoxNzA3MzcxOTM4LCJpYXQiOjE3MDY3NjcxMzgsInVzZXJuYW1lIjoid2VpeGluXzY4NjQ1NjQ1In0.RrTYEnMNYPC7AQdoij4SBb0kKEgHoyvF-bZOG2eGQvc&spm=1055.2569.3001.10083) `plotLegendre`，它能够绘制不同类不同阶Legendre多项式的图像。 ```mathem[ati](https://geek.csdn.net/educolumn/150d7073277950db5f09620704e791cf?spm=1055.2569.3001.10083)ca plotLegendre[l_, m_] := Plot[LegendreP[l, m, x], {x, -1, 1}, PlotStyle -> {Thick, Red}, PlotRange -> All, AxesLabel -> {"x", "P(l,m)(x)"}] ```