Hi there,
Can someone please translate the following code for TI89/92 to basic, C, or Fortran:
****************************************************************
ceqec(vv,jd)
Func
Local t,ih
(jd-2451545)/36525»t
23.4392911111-0.01300416667*t-1.6388889-ª006*t^2+5.036111-ª007*t^3»ih
vv*[[1,0,0][0,cos(ih),ªsin(ih)][0,sin(ih),cos(ih)]]
EndFunc
****************************************************************
If the code uses matrix operations, can you simplify to regular formulas? - that would be great.
Meanwhile, this matter is extremely urgent - so please someone answer as soon as
possible.
Best regards,
Rui Fernandes