[½»Á÷] ArcengineÔõô°ÑÎ÷°²80×ø±êת»»Îª¾­Î³¶È£¿ ÒÑÓÐ1È˲ÎÓë

Originally posted by À¥À¥µÄС³æ at 2011-05-28 14:18:31:
´úÂë²»·½±ã¹²Ïí ½¨ÒéÈ¥¿´ÏÂÊ顶ӦÓôóµØ²âÁ¿Ñ§¡· Öйú¿óÒµ´óѧ³ö°æÉç

    Dim ProjNo = 0, ZoneWide As Integer '  ´ø¿í
        Dim longitude1, latitude1, longitude0, latitude0, X0, Y0, xval, yval As Double
        Dim a, f, e2, ee, NN, T, C, M, iPI, Aa As Double
        iPI = 0.0174532925199433 '  3.1415926535898/180.0;
        ZoneWide = 6   ' 6¶È´ø¿í
        a = 6378140.0
        f = 1 / 298.257 '   80ÄêÎ÷°²×ø±êϵ²ÎÊý
        ProjNo = (UserInput_Lon / ZoneWide)
        longitude0 = ProjNo * ZoneWide + ZoneWide / 2
        longitude0 = longitude0 * iPI
        latitude0 = 0
        longitude1 = UserInput_Lon * iPI '  ¾­¶Èת»»Îª»¡¶È
        latitude1 = UserInput_Lat * iPI '    γ¶Èת»»Îª»¡¶È
        e2 = 2 * f - f * f
        ee = e2 * (1.0 - e2)
        NN = a / Math.Sqrt(1.0 - e2 * Math.Sin(latitude1) * Math.Sin(latitude1))
        T = Math.Tan(latitude1) * Math.Tan(latitude1)
        C = ee * Math.Cos(latitude1) * Math.Cos(latitude1)
        Aa = (longitude1 - longitude0) * Math.Cos(latitude1)
        M = a * ((1 - e2 / 4 - 3 * e2 * e2 / 64 - 5 * e2 * e2 * e2 / 256) * latitude1 - (3 * e2 / 8 + 3 * e2 * e2 / 32 + 45 * e2 * e2 * e2 / 1024) * Math.Sin(2 * latitude1) + (15 * e2 * e2 / 256 + 45 * e2 * e2 * e2 / 1024) * Math.Sin(4 * latitude1) - (35 * e2 * e2 * e2 / 3072) * Math.Sin(6 * latitude1))
        xval = NN * (Aa + (1 - T + C) * Aa * Aa * Aa / 6 + (5 - 18 * T + T * T + 72 * C - 58 * ee) * Aa * Aa * Aa * Aa * Aa / 120)
        yval = M + NN * Math.Tan(latitude1) * (Aa * Aa / 2 + (5 - T + 9 * C + 4 * C * C) * Aa * Aa * Aa * Aa / 24 + (61 - 58 * T + T * T + 600 * C - 330 * ee) * Aa * Aa * Aa * Aa * Aa * Aa / 720)
        X0 = 1000000L * (ProjNo + 1) + 500000L
        Y0 = 0
        xval = xval + X0
        yval = yval + Y0
        Dim LocationX As Integer = xval
        Dim LocationY As Double = yval