Just a very simple ZPL solve to set the incident angle of a transmissive diffraction grating to the Littrow angle for order m = -1.
#Define pi
pi = 2*ACOS(0)x = SOSO(0) #get preceeding coord break surface number
L = WAVL(PWAV()) #get primary wavelength
G = PARM(1,x+1) #return Lines/um from grating (pg 319)Litt = asin(L*G/2)*180/pi #Calculate Littrow angle
solvereturn Litt
Just thought I’d share it to potentially save others a little time.
It could be expanded for additional orders.
Hi James! Thank you for posting this. This is great.
I have created a quick file using it. I have modified "{Zemax}\Samples\Sequential\Diffractive components\Sample Spectrometer.zos"and it works well. I have attached my file. The ZPL solve is part of the zar file.
I have changed the tag to “Code Exchange-Verified”.
Thank you!
Enter your E-mail address. We'll send you an e-mail with instructions to reset your password.
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.).
不要提供任何受适用法律，包括中华人民共和国的网络安全和数据安全法限制的信息或数据（如重要数据、国家核心数据等）。