0
$\begingroup$

I want to apply some transformations to the image below to enhance its quality. What can I do?

bicycles

$\endgroup$
2
  • 1
    $\begingroup$ Sharpen[image,15] helps a bit. You can use Manipulate[Sharpen[image, h], {h, 1, 100, 1}] to adjust the sharpness $\endgroup$ Commented Nov 28, 2022 at 13:37
  • 1
    $\begingroup$ Also 2*image - CurvatureFlowFilter[image, 50] $\endgroup$ Commented Nov 28, 2022 at 14:19

1 Answer 1

1
$\begingroup$
MinimalBy[Entropy[First[#]]&]@Flatten[
    Table[
        {
            ImageDeconvolve[
                img
                , GaussianMatrix[{10,{k1,k2}}]
                , Method->m
            ]
            ,{k1,k2,m}
        }
        , {k1, 0.2, 1.6, 0.1}
        , {k2, 0.2, 1.6, 0.1}
        , {m, {"DampedLS", "Tikhonov", "TSVD", "Wiener"}}
    ]
    , 2
]

enter image description here

enter image description here

If you know that the images is blurred by movement, you could try ImageDeconvolve with a kernel that is a wiggly line that follows the trajectory of the movement.

$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.