Revisions to Function of Five Variables, and iterating over the last 3

sorry to do this :-(

Source Link

edited Dec 24, 2016 at 1:13

lst =  {{r1, r2, r3}, {θ1, θ2, θ3}, {ϕ1, ϕ2, ϕ3}}

Thread[Y[k, q, lst]]

{r1^(-1 - k) SphericalHarmonicY[k, q, θ1, ϕ1],
r2^(-1 - k) SphericalHarmonicY[k, q, θ2, ϕ2],
r3^(-1 - k) SphericalHarmonicY[k, q, θ3, ϕ3]}

lst =  {{r1, r2, r3}, {θ1, θ2, θ3}, {ϕ1, ϕ2, ϕ3}}

Thread[Y[k, q, lst]]

{r1^(-1 - k) SphericalHarmonicY[k, q, θ1, ϕ1],
r2^(-1 - k) SphericalHarmonicY[k, q, θ2, ϕ2],
r3^(-1 - k) SphericalHarmonicY[k, q, θ3, ϕ3]}

lst =  {{r1, r2, r3}, {θ1, θ2, θ3}, {ϕ1, ϕ2, ϕ3}}

Thread[Y[k, q, lst]]

{r1^(-1 - k) SphericalHarmonicY[k, q, θ1, ϕ1],
r2^(-1 - k) SphericalHarmonicY[k, q, θ2, ϕ2],
r3^(-1 - k) SphericalHarmonicY[k, q, θ3, ϕ3]}

deleted 4 characters in body

Source Link

edited Dec 8, 2016 at 22:45

lst =  {{r1, θ1r2, ϕ1r3}, {r2θ1, θ2, ϕ2θ3}, {r3ϕ1, θ3ϕ2, ϕ3}}

Thread[Y[k, q, Transpose@lst]]lst]]

{r1^(-1 - k) SphericalHarmonicY[k, q, θ1, ϕ1],
r2^(-1 - k) SphericalHarmonicY[k, q, θ2, ϕ2],
r3^(-1 - k) SphericalHarmonicY[k, q, θ3, ϕ3]}

lst = {{r1, θ1, ϕ1}, {r2, θ2, ϕ2}, {r3, θ3, ϕ3}}

Thread[Y[k, q, Transpose@lst]]

{r1^(-1 - k) SphericalHarmonicY[k, q, θ1, ϕ1],
r2^(-1 - k) SphericalHarmonicY[k, q, θ2, ϕ2],
r3^(-1 - k) SphericalHarmonicY[k, q, θ3, ϕ3]}

lst =  {{r1, r2, r3}, {θ1, θ2, θ3}, {ϕ1, ϕ2, ϕ3}}

Thread[Y[k, q, lst]]

{r1^(-1 - k) SphericalHarmonicY[k, q, θ1, ϕ1],
r2^(-1 - k) SphericalHarmonicY[k, q, θ2, ϕ2],
r3^(-1 - k) SphericalHarmonicY[k, q, θ3, ϕ3]}

Source Link

created Dec 8, 2016 at 22:40

lst = {{r1, θ1, ϕ1}, {r2, θ2, ϕ2}, {r3, θ3, ϕ3}}

Thread[Y[k, q, Transpose@lst]]

{r1^(-1 - k) SphericalHarmonicY[k, q, θ1, ϕ1],
r2^(-1 - k) SphericalHarmonicY[k, q, θ2, ϕ2],
r3^(-1 - k) SphericalHarmonicY[k, q, θ3, ϕ3]}

Return to Answer