@@ -61,7 +61,7 @@ C = [k/(k+1) for k in 0:N]
61
61
c = zeros (N); c[N] = 1
62
62
pts = vec ([z (θ, φ)⋅ y for θ in θ, φ in φ])
63
63
phi0 = ones (N* M)
64
- F = reshape (FastTransforms. clenshaw! (c, A, B, C, pts, phi0, zeros (N * M) ), N, M)
64
+ F = reshape (FastTransforms. clenshaw! (zeros (N * M), c, A, B, C, pts, phi0), N, M)
65
65
66
66
# We superpose a surface plot of $f$ on top of the grid:
67
67
X = [sinpi (θ)* cospi (φ) for θ in θ, φ in φ]
@@ -91,7 +91,7 @@ U = threshold!(P\V, 400*eps())
91
91
nrm1 = norm (U)
92
92
93
93
# Similarly, on the tensor product grid, our function samples are:
94
- Pnxy = FastTransforms. clenshaw! (c, A, B, C, [x⋅ y], [1.0 ], [ 0 .0 ])[1 ]
94
+ Pnxy = FastTransforms. clenshaw! ([ 0.0 ], c, A, B, C, [x⋅ y], [1.0 ])[1 ]
95
95
F = [(F[n, m] - Pnxy)/ (z (θ[n], φ[m])⋅ y - x⋅ y) for n in 1 : N, m in 1 : M]
96
96
97
97
# We superpose a surface plot of $f$ on top of the grid:
@@ -108,7 +108,7 @@ U = threshold!(P\V, 400*eps())
108
108
109
109
# Finally, the Legendre polynomial $P_n(z\cdot x)$ is aligned with the grid:
110
110
pts = vec ([z (θ, φ)⋅ x for θ in θ, φ in φ])
111
- F = reshape (FastTransforms. clenshaw! (c, A, B, C, pts, phi0, zeros (N * M) ), N, M)
111
+ F = reshape (FastTransforms. clenshaw! (zeros (N * M), c, A, B, C, pts, phi0), N, M)
112
112
113
113
# We superpose a surface plot of $f$ on top of the grid:
114
114
scatter3d (vec (X), vec (Y), vec (Z); markersize= 1.25 , markercolor= :violetred )
0 commit comments