GPS在地图上动态显示的代码问题! 高手请进！

下面是我写的在电子地图上动态显示GPS位置的代码
          dYcomp = .Speed * 1.852 * Sin(.Direction * 3.14159 / 180)
          dXcomp = .Speed * 1.852 * Cos(.Direction * 3.14159 / 180)
          set ftr = lyrGPS.GetFeatureByKey(lyrGPS.FeatureKeyFromFeatureName(.ftrKey))  
          dYpos = ftr.CenterY + (1 / 69 * dYcomp * tmrGPSCAR.Interval / 1000 * 1 / 3600)
          dXpos = ftr.CenterX + (1 / 55 * dXcomp * tmrGPSCAR.Interval / 1000 * 1 / 3600)
          ftr.Point.Set dXpos, dYpos
         ftr.Update

其中：
.speed为GPS返回的速度（单位为节）*1.852 转换为公里/小时，
.Direction 为GPS返回的方向，正北方为0度，顺时针变大
tmrGPSCAR.Interval 为定时间隔

请问 我的算法有问题吗？为什么GPS在地图上动态显示的位置不正确！
应该怎样写？
请教！！！
多谢！！！