Ejemplo n.º 1
0
        internal static double EQnow_lst_norange()
        {
            UpgradeSolution1Support.PInvoke.UnsafeNative.Structures.SYSTEMTIME typTime = new UpgradeSolution1Support.PInvoke.UnsafeNative.Structures.SYSTEMTIME();

            UpgradeSolution1Support.PInvoke.SafeNative.kernel32.GetSystemTime(ref typTime);
            double mjd  = (typTime.wMinute * 60) + (typTime.wSecond) + (typTime.wMilliseconds / 1000d);
            double MTMP = (typTime.wHour);

            MTMP *= 3600;
            mjd   = mjd + MTMP + (typTime.wDay * 86400);

            return(mjd);
        }
Ejemplo n.º 2
0
        internal static double EQnow_lst(double plong)
        {
            object mjd_hr  = null;
            object mjd_day = null;

            double[] vb_mjd = null;
            object[, ] obliq = null;
            double[] radhr = null;
            object[, ] range     = null;
            object[, , ] utc_gst = null;
            object[, , ] nut     = null;

            UpgradeSolution1Support.PInvoke.UnsafeNative.Structures.SYSTEMTIME typTime = new UpgradeSolution1Support.PInvoke.UnsafeNative.Structures.SYSTEMTIME();
            double eps  = 0;
            double lst  = 0;
            double deps = 0;
            double dpsi = 0;

            //    mjd = vb_mjd(CDbl(Now) + gGPSTimeDelta)

            UpgradeSolution1Support.PInvoke.SafeNative.kernel32.GetSystemTime(ref typTime);
            double mjd = vb_mjd[Convert.ToInt32(DateTime.Now.AddDays(gEQTimeDelta).AddDays(typTime.wMilliseconds / 86400000d).ToOADate())];
            //UPGRADE_WARNING: (1068) mjd_hr() of type Variant is being forced to int. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1068
            //UPGRADE_WARNING: (1068) mjd_day() of type Variant is being forced to int. More Information: https://www.mobilize.net/vbtonet/ewis/ewi1068
            object tempAuxVar = utc_gst[Convert.ToInt32(((Array)mjd_day).GetValue(Convert.ToInt32(mjd))), Convert.ToInt32(((Array)mjd_hr).GetValue(Convert.ToInt32(mjd))), Convert.ToInt32(lst)];

            lst += radhr[Convert.ToInt32(plong)];
            object tempAuxVar2 = obliq[Convert.ToInt32(mjd), Convert.ToInt32(eps)];
            object tempAuxVar3 = nut[Convert.ToInt32(mjd), Convert.ToInt32(deps), Convert.ToInt32(dpsi)];

            lst += radhr[Convert.ToInt32(dpsi * Math.Cos(eps + deps))];
            object tempAuxVar4 = range[Convert.ToInt32(lst), 24L];

            return(lst);
            //    EQnow_lst = now_lst(plong)
        }
Ejemplo n.º 3
0
 extern public static void GetSystemTime(ref UpgradeSolution1Support.PInvoke.UnsafeNative.Structures.SYSTEMTIME lpSystemTime);