
(/VERSIONCHECK 2) 

(DEFUN |CTRIGMNP;real;FE;1| (|f| $)
  (SPADCALL (SPADCALL |f| (QREFELT $ 13)) (QREFELT $ 15))) 

(DEFUN |CTRIGMNP;imag;FE;2| (|f| $)
  (SPADCALL (SPADCALL |f| (QREFELT $ 13)) (QREFELT $ 17))) 

(DEFUN |CTRIGMNP;rreal?| (|r| $)
  (SPADCALL (SPADCALL |r| (QREFELT $ 20)) (QREFELT $ 22))) 

(DEFUN |CTRIGMNP;kreal?| (|k| $)
  (SPADCALL (ELT $ 23) (SPADCALL |k| (QREFELT $ 26)) (QREFELT $ 28))) 

(DEFUN |CTRIGMNP;complexForm;FC;5| (|f| $)
  (SPADCALL |f| (QREFELT $ 30))) 

(DEFUN |CTRIGMNP;trigs;2F;6| (|f| $)
  (SPADCALL (SPADCALL |f| (QREFELT $ 30)) (QREFELT $ 31))) 

(DEFUN |CTRIGMNP;real?;FB;7| (|f| $)
  (COND
    ((SPADCALL (CONS (|function| |CTRIGMNP;rreal?|) $)
         (SPADCALL (SPADCALL |f| (QREFELT $ 34)) (QREFELT $ 37))
         (QREFELT $ 39))
     (COND
       ((SPADCALL (CONS (|function| |CTRIGMNP;rreal?|) $)
            (SPADCALL (SPADCALL |f| (QREFELT $ 40)) (QREFELT $ 37))
            (QREFELT $ 39))
        (SPADCALL (CONS (|function| |CTRIGMNP;kreal?|) $)
            (SPADCALL |f| (QREFELT $ 42)) (QREFELT $ 45)))
       ('T 'NIL)))
    ('T 'NIL))) 

(DEFUN |CTRIGMNP;localexplogs| (|f| |g| |lx| $)
  (PROG (#0=#:G1838 |k| #1=#:G1839)
    (RETURN
      (SEQ (SPADCALL |g|
               (PROGN
                 (LETT #0# NIL . #2=(|CTRIGMNP;localexplogs|))
                 (SEQ (LETT |k| NIL . #2#)
                      (LETT #1# (SPADCALL |f| (QREFELT $ 46)) . #2#)
                      G190
                      (COND
                        ((OR (ATOM #1#)
                             (PROGN (LETT |k| (CAR #1#) . #2#) NIL))
                         (GO G191)))
                      (SEQ (EXIT (COND
                                   ((COND
                                      ((SPADCALL |k|
                                        (SPADCALL "tan" (QREFELT $ 10))
                                        (QREFELT $ 47))
                                       'T)
                                      ('T
                                       (SPADCALL |k|
                                        (SPADCALL "cot" (QREFELT $ 10))
                                        (QREFELT $ 47))))
                                    (LETT #0# (CONS |k| #0#) . #2#)))))
                      (LETT #1# (CDR #1#) . #2#) (GO G190) G191
                      (EXIT (NREVERSE0 #0#))))
               |lx| (QREFELT $ 49)))))) 

(DEFUN |CTRIGMNP;complexElementary;2F;9| (|f| $)
  (PROG (|g|)
    (RETURN
      (COND
        ((SPADCALL
             (CONS #'|CTRIGMNP;complexElementary;2F;9!0|
                   (VECTOR $ (QREFELT $ 11)))
             (SPADCALL
                 (LETT |g| (SPADCALL |f| (QREFELT $ 53))
                       |CTRIGMNP;complexElementary;2F;9|)
                 (QREFELT $ 55))
             (QREFELT $ 57))
         (|CTRIGMNP;localexplogs| |f| |g| (SPADCALL |g| (QREFELT $ 58))
             $))
        ('T |g|))))) 

(DEFUN |CTRIGMNP;complexElementary;2F;9!0| (|#1| $$)
  (SPADCALL |#1| (QREFELT $$ 1) (QREFELT (QREFELT $$ 0) 51))) 

(DEFUN |CTRIGMNP;complexElementary;FSF;10| (|f| |x| $)
  (PROG (#0=#:G1846 |k| |g| #1=#:G1847)
    (RETURN
      (SEQ (COND
             ((SPADCALL
                  (CONS #'|CTRIGMNP;complexElementary;FSF;10!0|
                        (VECTOR (QREFELT $ 11) $))
                  (PROGN
                    (LETT #0# NIL
                          . #2=(|CTRIGMNP;complexElementary;FSF;10|))
                    (SEQ (LETT |k| NIL . #2#)
                         (LETT #1#
                               (SPADCALL
                                   (LETT |g|
                                    (SPADCALL |f| |x| (QREFELT $ 61)) . #2#)
                                   (QREFELT $ 46)) . #2#)
                         G190
                         (COND
                           ((OR (ATOM #1#)
                                (PROGN (LETT |k| (CAR #1#) . #2#) NIL))
                            (GO G191)))
                         (SEQ (EXIT (COND
                                      ((SPADCALL |x|
                                        (SPADCALL
                                         (SPADCALL |k| (QREFELT $ 63))
                                         (QREFELT $ 58))
                                        (QREFELT $ 64))
                                       (LETT #0# (CONS |k| #0#) . #2#)))))
                         (LETT #1# (CDR #1#) . #2#) (GO G190) G191
                         (EXIT (NREVERSE0 #0#))))
                  (QREFELT $ 65))
              (|CTRIGMNP;localexplogs| |f| |g| (LIST |x|) $))
             ('T |g|)))))) 

(DEFUN |CTRIGMNP;complexElementary;FSF;10!0| (|#1| $$)
  (PROG ($)
    (LETT $ (QREFELT $$ 1) |CTRIGMNP;complexElementary;FSF;10|)
    (RETURN
      (PROGN
        (SPADCALL (SPADCALL |#1| (QREFELT $ 60)) (QREFELT $$ 0)
            (QREFELT $ 51)))))) 

(DEFUN |CTRIGMNP;complexNormalize;FSF;11| (|f| |x| $)
  (PROG (#0=#:G1853 |k| |g| #1=#:G1854)
    (RETURN
      (SEQ (COND
             ((SPADCALL
                  (CONS #'|CTRIGMNP;complexNormalize;FSF;11!0|
                        (VECTOR (QREFELT $ 11) $))
                  (PROGN
                    (LETT #0# NIL
                          . #2=(|CTRIGMNP;complexNormalize;FSF;11|))
                    (SEQ (LETT |k| NIL . #2#)
                         (LETT #1#
                               (SPADCALL
                                   (LETT |g|
                                    (SPADCALL |f| |x| (QREFELT $ 61)) . #2#)
                                   (QREFELT $ 46)) . #2#)
                         G190
                         (COND
                           ((OR (ATOM #1#)
                                (PROGN (LETT |k| (CAR #1#) . #2#) NIL))
                            (GO G191)))
                         (SEQ (EXIT (COND
                                      ((SPADCALL |x|
                                        (SPADCALL
                                         (SPADCALL |k| (QREFELT $ 63))
                                         (QREFELT $ 58))
                                        (QREFELT $ 64))
                                       (LETT #0# (CONS |k| #0#) . #2#)))))
                         (LETT #1# (CDR #1#) . #2#) (GO G190) G191
                         (EXIT (NREVERSE0 #0#))))
                  (QREFELT $ 65))
              (QVELT (SPADCALL
                         (|CTRIGMNP;localexplogs| |f| |g| (LIST |x|) $)
                         |x| (QREFELT $ 68))
                     0))
             ('T (QVELT (SPADCALL |g| |x| (QREFELT $ 68)) 0))))))) 

(DEFUN |CTRIGMNP;complexNormalize;FSF;11!0| (|#1| $$)
  (PROG ($)
    (LETT $ (QREFELT $$ 1) |CTRIGMNP;complexNormalize;FSF;11|)
    (RETURN
      (PROGN
        (SPADCALL (SPADCALL |#1| (QREFELT $ 60)) (QREFELT $$ 0)
            (QREFELT $ 51)))))) 

(DEFUN |CTRIGMNP;complexNormalize;2F;12| (|f| $)
  (PROG (|l| #0=#:G1862 |h| |x| #1=#:G1863 |g|)
    (RETURN
      (SEQ (LETT |l|
                 (SPADCALL
                     (LETT |g| (SPADCALL |f| (QREFELT $ 53))
                           . #2=(|CTRIGMNP;complexNormalize;2F;12|))
                     (QREFELT $ 58)) . #2#)
           (EXIT (COND
                   ((SPADCALL
                        (CONS #'|CTRIGMNP;complexNormalize;2F;12!0|
                              (VECTOR $ (QREFELT $ 11)))
                        (SPADCALL |g| (QREFELT $ 55)) (QREFELT $ 57))
                    (SEQ (LETT |h|
                               (|CTRIGMNP;localexplogs| |f| |g| |l| $) . #2#)
                         (SEQ (LETT |x| NIL . #2#) (LETT #0# |l| . #2#)
                              G190
                              (COND
                                ((OR (ATOM #0#)
                                     (PROGN
                                       (LETT |x| (CAR #0#) . #2#)
                                       NIL))
                                 #3=(GO G191)))
                              (SEQ (EXIT
                                    (LETT |h|
                                     (QVELT
                                      (SPADCALL |h| |x| (QREFELT $ 68))
                                      0) . #2#)))
                              (LETT #0# (CDR #0#) . #2#) #4=(GO G190)
                              G191 (EXIT NIL))
                         (EXIT |h|)))
                   ('T
                    (SEQ (SEQ (LETT |x| NIL . #2#) (LETT #1# |l| . #2#)
                              G190
                              (COND
                                ((OR (ATOM #1#)
                                     (PROGN
                                       (LETT |x| (CAR #1#) . #2#)
                                       NIL))
                                 #3#))
                              (SEQ (EXIT
                                    (LETT |g|
                                     (QVELT
                                      (SPADCALL |g| |x| (QREFELT $ 68))
                                      0) . #2#)))
                              (LETT #1# (CDR #1#) . #2#) #4# G191
                              (EXIT NIL))
                         (EXIT |g|))))))))) 

(DEFUN |CTRIGMNP;complexNormalize;2F;12!0| (|#1| $$)
  (SPADCALL |#1| (QREFELT $$ 1) (QREFELT (QREFELT $$ 0) 51))) 

(DEFUN |ComplexTrigonometricManipulations| (&REST #0=#:G1864)
  (PROG ()
    (RETURN
      (PROG (#1=#:G1865)
        (RETURN
          (COND
            ((LETT #1#
                   (|lassocShiftWithFunction| (|devaluateList| #0#)
                       (HGET |$ConstructorCache|
                             '|ComplexTrigonometricManipulations|)
                       '|domainEqualList|)
                   . #2=(|ComplexTrigonometricManipulations|))
             (|CDRwithIncrement| #1#))
            ('T
             (UNWIND-PROTECT
               (PROG1 (APPLY (|function|
                                 |ComplexTrigonometricManipulations;|)
                             #0#)
                 (LETT #1# T . #2#))
               (COND
                 ((NOT #1#)
                  (HREM |$ConstructorCache|
                        '|ComplexTrigonometricManipulations|))))))))))) 

(DEFUN |ComplexTrigonometricManipulations;| (|#1| |#2|)
  (PROG (DV$1 DV$2 |dv$| $ |pv$|)
    (RETURN
      (PROGN
        (LETT DV$1 (|devaluate| |#1|)
              . #0=(|ComplexTrigonometricManipulations|))
        (LETT DV$2 (|devaluate| |#2|) . #0#)
        (LETT |dv$|
              (LIST '|ComplexTrigonometricManipulations| DV$1 DV$2) . #0#)
        (LETT $ (GETREFV 71) . #0#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#))
        (|haddProp| |$ConstructorCache|
            '|ComplexTrigonometricManipulations| (LIST DV$1 DV$2)
            (CONS 1 $))
        (|stuffDomainSlots| $)
        (QSETREFV $ 6 |#1|)
        (QSETREFV $ 7 |#2|)
        (QSETREFV $ 11 (SPADCALL "rtrig" (QREFELT $ 10)))
        $)))) 

(MAKEPROP '|ComplexTrigonometricManipulations| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|)
             (|String|) (|Symbol|) (0 . |coerce|) 'RTRIG (|Complex| 14)
             |CTRIGMNP;complexForm;FC;5| (|Expression| 6) (5 . |real|)
             |CTRIGMNP;real;FE;1| (10 . |imag|) |CTRIGMNP;imag;FE;2|
             (|Complex| 6) (15 . |imag|) (|Boolean|) (20 . |zero?|)
             |CTRIGMNP;real?;FB;7| (|List| 7) (|Kernel| 7)
             (25 . |argument|) (|Mapping| 21 7) (30 . |every?|)
             (|InnerTrigonometricManipulations| 6 14 7)
             (36 . |explogs2trigs|) (41 . GF2FG) |CTRIGMNP;trigs;2F;6|
             (|SparseMultivariatePolynomial| 19 62) (46 . |numer|)
             (|List| 19) (|SparseMultivariatePolynomial| 19 25)
             (51 . |coefficients|) (|Mapping| 21 19) (56 . |every?|)
             (62 . |denom|) (|List| 62) (67 . |kernels|)
             (|Mapping| 21 25) (|List| 25) (72 . |every?|)
             (78 . |tower|) (83 . |is?|) (|List| 9)
             (89 . |trigs2explogs|) (|BasicOperator|) (96 . |has?|)
             (|ElementaryFunctionStructurePackage| 19 7)
             (102 . |realElementary|) (|List| 50) (107 . |operators|)
             (|Mapping| 21 50) (112 . |any?|) (118 . |variables|)
             |CTRIGMNP;complexElementary;2F;9| (123 . |operator|)
             (128 . |realElementary|) (|Kernel| $) (134 . |coerce|)
             (139 . |member?|) (145 . |any?|)
             |CTRIGMNP;complexElementary;FSF;10|
             (|Record| (|:| |func| 7) (|:| |kers| 44) (|:| |vals| 24))
             (151 . |rischNormalize|)
             |CTRIGMNP;complexNormalize;FSF;11|
             |CTRIGMNP;complexNormalize;2F;12|)
          '#(|trigs| 157 |real?| 162 |real| 167 |imag| 172
             |complexNormalize| 177 |complexForm| 188
             |complexElementary| 193)
          'NIL
          (CONS (|makeByteWordVec2| 1 'NIL)
                (CONS '#()
                      (CONS '#()
                            (|makeByteWordVec2| 70
                                '(1 9 0 8 10 1 12 14 0 15 1 12 14 0 17
                                  1 19 6 0 20 1 6 21 0 22 1 25 24 0 26
                                  2 24 21 27 0 28 1 29 12 7 30 1 29 7
                                  12 31 1 7 33 0 34 1 36 35 0 37 2 35
                                  21 38 0 39 1 7 33 0 40 1 7 41 0 42 2
                                  44 21 43 0 45 1 7 41 0 46 2 25 21 0 9
                                  47 3 29 7 7 44 48 49 2 50 21 0 9 51 1
                                  52 7 7 53 1 7 54 0 55 2 54 21 56 0 57
                                  1 7 48 0 58 1 25 50 0 60 2 52 7 7 9
                                  61 1 7 0 62 63 2 48 21 9 0 64 2 44 21
                                  43 0 65 2 52 67 7 9 68 1 0 7 7 32 1 0
                                  21 7 23 1 0 14 7 16 1 0 14 7 18 2 0 7
                                  7 9 69 1 0 7 7 70 1 0 12 7 13 2 0 7 7
                                  9 66 1 0 7 7 59)))))
          '|lookupComplete|)) 
