ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/cal/cal/klems_int.cal
(Generate patch)

Comparing ray/src/cal/cal/klems_int.cal (file contents):
Revision 1.1 by greg, Sun Jun 14 20:07:59 2009 UTC vs.
Revision 1.2 by greg, Mon Jun 15 19:31:24 2009 UTC

# Line 31 | Line 31 | kbin2(pol,azi) = select(kfindrow(1, pol),
31                  kaccum(8) + kazn(azi,360/knaz(9))
32          );
33  
34 < kbin(Nx,Ny,Nz,Ux,Uy,Uz) = kbin2(Acos(Dx*Nx+Dy*Ny+Dz*Nz),
35 <        Atan2(Dx*Ux+Dy*Uy+Dz*Uz,
36 <                Dx*(Ny*Uz-Nz*Uy) + Dy*(Nz*Ux-Nx*Uz) + Dz*(Nx*Uy-Ny*Ux)));
34 > kbin(Nx,Ny,Nz,Ux,Uy,Uz) = kbin2(Acos(-Dx*Nx-Dy*Ny-Dz*Nz),
35 >        Atan2(-Dx*Ux-Dy*Uy-Dz*Uz,
36 >                -Dx*(Ny*Uz-Nz*Uy) - Dy*(Nz*Ux-Nx*Uz) - Dz*(Nx*Uy-Ny*Ux)));
37                                  
38   kbinN = kbin(0,1,0, 0,0,1);     { North bins }
39   kbinE = kbin(1,0,0, 0,0,1);     { East bins }

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines