15 from hawknav.jd
import jd
16 from hawknav.gha2000
import ephparms,nutate
18 xnut = np.zeros((np.size(iyr),3,3))
21 t =
jd(iyr,imon,iday) - 2451545.50 + day - iday
23 [dpsi,eps,epsm] =
nutate(t,xls,gs,xlm,omega)
25 dpsi_rad = np.deg2rad(dpsi)
26 epsm_rad = np.deg2rad(epsm)
27 eps_rad = np.deg2rad(eps)
29 xnut[:,0,0] = np.cos(dpsi_rad)
30 xnut[:,0,1] = -np.sin(dpsi_rad)*np.cos(epsm_rad)
31 xnut[:,0,2] = -np.sin(dpsi_rad)*np.sin(epsm_rad)
32 xnut[:,1,0] = np.sin(dpsi_rad)*np.cos(eps_rad)
33 xnut[:,1,1] = np.cos(dpsi_rad)*np.cos(eps_rad)*np.cos(epsm_rad) \
34 + np.sin(eps_rad)*np.sin(epsm_rad)
35 xnut[:,1,2] = np.cos(dpsi_rad)*np.cos(eps_rad)*np.sin(epsm_rad) \
36 - np.sin(eps_rad)*np.cos(epsm_rad)
37 xnut[:,2,0] = np.sin(dpsi_rad)*np.sin(eps_rad)
38 xnut[:,2,1] = np.cos(dpsi_rad)*np.sin(eps_rad)*np.cos(epsm_rad) \
39 - np.cos(eps_rad)*np.sin(epsm_rad)
40 xnut[:,2,2] = np.cos(dpsi_rad)*np.sin(eps_rad)*np.sin(epsm_rad) \
41 + np.cos(eps_rad)*np.cos(epsm_rad)