| # | Line 58 | Line 58 | LegendreP2(n,m,x,s) : select(n+1, | |
|---|---|---|
| 58 | odd(n) : .5*n - floor(.5*n) - .25; | |
| 59 | LegendreP(n,m,x) : if(m+.5, | |
| 60 | LegendreP2(n,m,x,sqrt(1-x*x)), | |
| 61 | < | if(odd(-m),-1,1)*fact(n+m)/fact(n-m) * |
| 62 | < | LegendreP2(n,-m,x,sqrt(1-x*x)) |
| 61 | > | fact(n+m)/fact(n-m) * LegendreP2(n,-m,x,sqrt(1-x*x)) |
| 62 | ); | |
| 63 | { SH normalization factor } | |
| 64 | SHnormF(l,m) : sqrt(0.25/PI*(2*l+1)*fact(l-m)/fact(l+m)); | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |