%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
INPUT "What window is the Huygens PSF Cross Section?",win
fwhm = 0.5
FOR a = 1, 100, 1
x1 = GETL(win, a + 0, 2)
x2 = GETL(win, a + 1, 2)
y1 = GETL(win, a + 0, 3)
y2 = GETL(win, a + 1, 3)
IF (ABSO(x2 - x1) > 0) & (ABSO(y2 - y1) > 0)
IF (y2 > 0.5) & (y1 < 0.5)
left = (fwhm - y1)/((y2 - y1) / (x2 - x1)) + x1
PRINT "Left: " , left
ENDIF
IF (y2 < 0.5) & (y1 > 0.5)
right = (fwhm - y1)/((y2 - y1) / (x2 - x1)) + x1
PRINT "Right: " , right
ENDIF
ENDIF
NEXT
PRINT "FWHM: " , (right - left)
分享一个计算惠更斯PSF半峰全宽（FWHM）的宏
+3+3有一些假设和前置操作：
PSF只能有一次上升跟下降
窗口设置要勾选Normalize,选择text窗口
运行时要输入PSF窗口的序号
Enter your E-mail address. We'll send you an e-mail with instructions to reset your password.
Need more help?
To Chinese users:
Do not provide any information or data that is restricted by applicable law, including by the People’s Republic of China’s Cybersecurity and Data Security Laws ( e.g., Important Data, National Core Data, etc.).
不要提供任何受适用法律，包括中华人民共和国的网络安全和数据安全法限制的信息或数据（如重要数据、国家核心数据等）。