hopebox: m_NX[>&Y3  
I don't think there are many resources on UDS but the chapter in the user manual about surface types. ZEMAX people would expect that the users learn it from the examples provided in the directory I mentioned in the previous reply.
About 角色散, I don't think there is a parameter that provides this information directly but you can make use of the relevant operand that returns the ray angle.   p8Vqy-:  

MlO OB  
您能詳細(xì)解釋一下這個(gè)程序嗎？ oqrx7
+0{  
if (FD->cv == 0.0) .35(MFvq!  
                 { AGhenDNV  
                 UD->ln =  0.0; F%>$WN#2  
                 UD->mn =  0.0; obb%@S`  
                 UD->nn = -1.0; V&mk
S  
                           if (Refract(FD->n1, FD->n2, &UD->l, &UD->m, &UD->n, UD->ln, UD->mn, UD->nn)) return(-FD->surf); WP<L9A  
            return(0); ;?h[WIy  
            } {gMe<y  
         /* okay, not a plane. */ 0cG'37[  
                        a = (UD->n) * (UD->n) * FD->k + 1; rxCzPF  
                        b = ((UD->n)/FD->cv) - (UD->x) * (UD->l) - (UD->y) * (UD->m); hA=uoe\  
                        c = (UD->x) * (UD->x) + (UD->y) * (UD->y); jP@ @<dt  
                        rad = b * b - a * c; 2D\pt  
                        if (rad < 0) return(FD->surf);  /* ray missed this surface */ Y&2FH/(M  
                        if (FD->cv > 0) t = c / (b + sqrt(rad)); .#EU@Hc
  
                        else           t = c / (b - sqrt(rad)); yi7.9/;a  
                        (UD->x) = (UD->l) * t + (UD->x); h*w9{[L  
                        (UD->y) = (UD->m) * t + (UD->y); Y;'<u\^M"  
                        (UD->z) = (UD->n) * t + (UD->z); 6v%yU3l  
                        UD->path = t; )g5?5f;  
                        zc = (UD->z) * FD->cv;
F)3+IuY  
                        rad = zc * FD->k * (zc * (FD->k + 1) - 2) + 1; TrI+F+;  
                        casp = FD->cv / sqrt(rad); qHt/,w='Q  
                        UD->ln = (UD->x) * casp; x}G:n[B7_V  
                        UD->mn = (UD->y) * casp; dX(JV' 18A  
                        UD->nn = ((UD->z) - ((1/FD->cv) - (UD->z) * FD->k)) * casp; >%/x~UFc5  
         if (Refract(FD->n1, FD->n2, &UD->l, &UD->m, &UD->n, UD->ln, UD->mn, UD->nn)) return(-FD->surf); (s8b?Ol/  
麻煩您了，謝謝！