[Emacs-diffs] Changes to emacs/lisp/calc/calcalg2.el

[Jay Belanger]

Index: emacs/lisp/calc/calcalg2.el
diff -c emacs/lisp/calc/calcalg2.el:1.14 emacs/lisp/calc/calcalg2.el:1.15
*** emacs/lisp/calc/calcalg2.el:1.14    Tue Feb 15 19:27:47 2005
--- emacs/lisp/calc/calcalg2.el Sat Feb 19 20:02:43 2005
***************
*** 408,416 ****
  
  (put 'calcFunc-tan\' 'math-derivative-1
       (function (lambda (u) (math-to-radians-2
!                           (math-div 1 (math-sqr
!                                        (math-normalize
!                                         (list 'calcFunc-cos u))))))))
  
  (put 'calcFunc-sec\' 'math-derivative-1
       (function (lambda (u) (math-to-radians-2 
--- 408,416 ----
  
  (put 'calcFunc-tan\' 'math-derivative-1
       (function (lambda (u) (math-to-radians-2
!                           (math-sqr
!                              (math-normalize
!                               (list 'calcFunc-sec u)))))))
  
  (put 'calcFunc-sec\' 'math-derivative-1
       (function (lambda (u) (math-to-radians-2 
***************
*** 432,440 ****
  (put 'calcFunc-cot\' 'math-derivative-1
       (function (lambda (u) (math-neg
                              (math-to-radians-2
!                              (math-div 1 (math-sqr
!                                           (math-normalize
!                                            (list 'calcFunc-sin u)))))))))
  
  (put 'calcFunc-arcsin\' 'math-derivative-1
       (function (lambda (u)
--- 432,440 ----
  (put 'calcFunc-cot\' 'math-derivative-1
       (function (lambda (u) (math-neg
                              (math-to-radians-2
!                              (math-sqr
!                               (math-normalize
!                                (list 'calcFunc-csc u))))))))
  
  (put 'calcFunc-arcsin\' 'math-derivative-1
       (function (lambda (u)
***************
*** 461,469 ****
       (function (lambda (u) (math-normalize (list 'calcFunc-sinh u)))))
  
  (put 'calcFunc-tanh\' 'math-derivative-1
!      (function (lambda (u) (math-div 1 (math-sqr
!                                       (math-normalize
!                                        (list 'calcFunc-cosh u)))))))
  
  (put 'calcFunc-sech\' 'math-derivative-1
       (function (lambda (u) (math-neg
--- 461,469 ----
       (function (lambda (u) (math-normalize (list 'calcFunc-sinh u)))))
  
  (put 'calcFunc-tanh\' 'math-derivative-1
!      (function (lambda (u) (math-sqr
!                             (math-normalize
!                              (list 'calcFunc-sech u))))))
  
  (put 'calcFunc-sech\' 'math-derivative-1
       (function (lambda (u) (math-neg
***************
*** 477,487 ****
                               (math-normalize (list 'calcFunc-csch u))
                               (math-normalize (list 'calcFunc-coth u)))))))
  
! (put 'calcFunc-tanh\' 'math-derivative-1
       (function (lambda (u) (math-neg
!                             (math-div 1 (math-sqr
!                                          (math-normalize
!                                           (list 'calcFunc-sinh u))))))))
  
  (put 'calcFunc-arcsinh\' 'math-derivative-1
       (function (lambda (u)
--- 477,487 ----
                               (math-normalize (list 'calcFunc-csch u))
                               (math-normalize (list 'calcFunc-coth u)))))))
  
! (put 'calcFunc-coth\' 'math-derivative-1
       (function (lambda (u) (math-neg
!                             (math-sqr
!                              (math-normalize
!                               (list 'calcFunc-csch u)))))))
  
  (put 'calcFunc-arcsinh\' 'math-derivative-1
       (function (lambda (u)
***************
*** 1664,1671 ****
  
  (math-defintegral calcFunc-tan
    (and (equal u math-integ-var)
!        (math-neg (math-from-radians-2
!                 (list 'calcFunc-ln (list 'calcFunc-cos u))))))
  
  (math-defintegral calcFunc-sec
    (and (equal u math-integ-var)
--- 1664,1671 ----
  
  (math-defintegral calcFunc-tan
    (and (equal u math-integ-var)
!        (math-from-radians-2
!         (list 'calcFunc-ln (list 'calcFunc-sec u)))))
  
  (math-defintegral calcFunc-sec
    (and (equal u math-integ-var)