ray-tracing(R,Ik A); I=I+kIs+kI End Endray-tracing(Rr ,It ,ktA); I=Ic+ks Is+kt It End End