@@ -125,8 +125,24 @@ Fractional order
125125$(@bind s Slider(-3:0.001:3, show_value=true))
126126"
127127
128+ # ╔═╡ 08d95a42-24fe-4995-98d6-1f415de71538
129+ function frft_1D (x, order)
130+ x_ft = similar (x, complex (eltype (x)), size (x))
131+
132+
133+ for i = 1 : size (x, 1 )
134+ x_ft[i, :] = FractionalTransforms. frft (x[i, :], order)
135+ end
136+
137+ for j = 1 : size (x, 2 )
138+ x_ft[:, j] = FractionalTransforms. frft (x_ft[:, j], order)
139+ end
140+
141+ return x_ft
142+ end
143+
128144# ╔═╡ 7c445baa-d970-4954-a3dc-df828971bfd7
129- [simshow (abs .(ft (img)), γ= 0.2 ) simshow (sqrt (length (img)) .* abs .(frfft (img, s, shift= true )), γ= 0.2 )]
145+ [simshow (abs .(ft (img)), γ= 0.2 ) simshow (sqrt (length (img)) .* abs .(frfft (img, s, shift= true )), γ= 0.2 ) simshow ( sqrt ( length (img)) .* abs .( frft_1D (img, s)), γ = 0.2 ) ]
130146
131147# ╔═╡ 1915c023-69cf-4d18-90cb-b47465dbef69
132148begin
@@ -246,6 +262,7 @@ simshow(frfft(frfft(field, f3/2),f3/2))
246262# ╠═d90b7f67-4166-44fa-aab7-de2c4f38fc00
247263# ╟─24901666-4cc4-497f-a6ff-68c3e7ead629
248264# ╠═7c445baa-d970-4954-a3dc-df828971bfd7
265+ # ╠═08d95a42-24fe-4995-98d6-1f415de71538
249266# ╠═1915c023-69cf-4d18-90cb-b47465dbef69
250267# ╠═3109fc21-50c6-46e6-850d-add6f54872d7
251268# ╠═284cd6f2-1ee3-4923-afa6-ea57e93b28a7
0 commit comments