Aircraft Position Program

(LAMBDA (TIME-DIFF: (UNITS INTEGER (* 100 NANOSECOND))
         AIRCRAFT-ALTITUDE: (UNITS INTEGER (* 10 FOOT))
         RADAR-ALTITUDE: (UNITS INTEGER (* 10 FOOT))
         RADAR-ANGLE: (UNITS INTEGER (/ (* 2 PI RADIANS)
                                        4096))
         RADAR-UTM:UTM-CVECTOR)
  (LET (OUT7 OUTPUT D3 OUT8 X5 Y3 X6 RELPOS:UTM-CVECTOR)
    (OUT7 = (- AIRCRAFT-ALTITUDE RADAR-ALTITUDE))
    (D3 = (* '(Q 2.997925E8 (/ M S)) TIME-DIFF))
    (OUT8 = (/ D3 2))
    (X5 = (SQRT (- (EXPT OUT8 2) (EXPT OUT7 2))))
    (Y3 = (* X5 (SIN RADAR-ANGLE)))
    (X6 = (* X5 (COS RADAR-ANGLE)))
    (RELPOS = (A UTM-CVECTOR NORTH Y3 EAST X6))
    (OUTPUT = (+ RELPOS RADAR-UTM))
    OUTPUT))

Contents    Page-10    Prev    Next    Page+10    Index