所以,我有许多塞曼干涉图案的图像。我的任务是找到强度峰值的位置。我已经编写了一个可以找到最大值的脚本,所以我可以选择我需要的值" hand",但这将非常无聊,而且需要很长时间。
kep = Import["C:\Users\Martin\Documents\Egyetem\4. félév\Modern fizika \labor\6. Zeeman-effektus\sigma_50.png"];
adat = ImageData[kep, "Byte"][[577]][[All, 1]];
csucsok = N[FindPeaks[adat, 0.6, 0.6, 75]];
ListLinePlot[adat, AxesLabel -> {"Pixel", "Intenzitás"}, PlotLabel -> "sigma_50.png", ImageSize -> Large, PlotTheme -> "Classic", Epilog -> {Red, PointSize[0.008], Point[csucsok]}]
我会很高兴有一个小工具提示,显示红点(只有红点)的位置(x轴值),以及点击它们时的强度值(y轴),或鼠标是在他们身上。 有没有办法做到这一点?
答案 0 :(得分:1)
可能会使您的Tooltip
点成为单独的情节:
data = Table[{i, RandomReal[{-1, 1}]}, {i, 20}];
toplot = Select[data, #[[2]] > 0 & ];
Show[{
ListLinePlot[ data],
ListPlot[Tooltip[toplot], PlotStyle -> {PointSize[.05], Red}]}]
(如果没有你的数据,我们真的无法看到你在做什么..)