分享一个计算惠更斯PSF半峰全宽(FWHM)的宏
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%INPUT "What window is the Huygens PSF Cross Section?",winfwhm = 0.5FOR 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 NEXTPRINT "FWHM: " , (right - left)