I have an image of a fiber output:
I want to verify 2 factors from this image:
- How uniform is the intensity across the image (Theoretically fiber output should be closer to a step index profile than a gradient profile - again it depends on how it is illuminated, lets assume it should be closer to flat top)
- Does the bright spot lie closer to the center
Code for now,
data = Total[ImageData[ColorConvert[P2C, "Grayscale"]]];
ListLinePlot[data, PlotTheme -> "Detailed", Filling -> Bottom,
AspectRatio -> 1/4, PlotRange -> All]
Further, I can also take 3 cropped sections from top to bottom and see the variations in flatness:
This would give me the overall understanding of the variation in intensity distribution and the small bump corresponds to the bright spot, by which I can determine if it is closer to the center.
Is there a better analysis method I can implement? I should be able to quantify what is good and bad criteria from this. That the flatness is faithful allover the image.