%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
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)的宏
Reply
Enter your E-mail address. We'll send you an e-mail with instructions to reset your password.