/[emacs]/emacs/lisp/calc/calcalg2.el
ViewVC logotype

Diff of /emacs/lisp/calc/calcalg2.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by jpb, Tue Nov 30 17:30:34 2004 UTC revision 1.14 by jpb, Tue Feb 15 19:27:47 2005 UTC
# Line 412  Line 412 
412                                           (math-normalize                                           (math-normalize
413                                            (list 'calcFunc-cos u))))))))                                            (list 'calcFunc-cos u))))))))
414    
415    (put 'calcFunc-sec\' 'math-derivative-1
416         (function (lambda (u) (math-to-radians-2
417                                (math-mul
418                                 (math-normalize
419                                  (list 'calcFunc-sec u))
420                                 (math-normalize
421                                  (list 'calcFunc-tan u)))))))
422    
423    (put 'calcFunc-csc\' 'math-derivative-1
424         (function (lambda (u) (math-neg
425                                (math-to-radians-2
426                                 (math-mul
427                                  (math-normalize
428                                   (list 'calcFunc-csc u))
429                                  (math-normalize
430                                   (list 'calcFunc-cot u))))))))
431    
432    (put 'calcFunc-cot\' 'math-derivative-1
433         (function (lambda (u) (math-neg
434                                (math-to-radians-2
435                                 (math-div 1 (math-sqr
436                                              (math-normalize
437                                               (list 'calcFunc-sin u)))))))))
438    
439  (put 'calcFunc-arcsin\' 'math-derivative-1  (put 'calcFunc-arcsin\' 'math-derivative-1
440       (function (lambda (u)       (function (lambda (u)
441                   (math-from-radians-2                   (math-from-radians-2
# Line 441  Line 465 
465                                          (math-normalize                                          (math-normalize
466                                           (list 'calcFunc-cosh u)))))))                                           (list 'calcFunc-cosh u)))))))
467    
468    (put 'calcFunc-sech\' 'math-derivative-1
469         (function (lambda (u) (math-neg
470                                (math-mul
471                                 (math-normalize (list 'calcFunc-sech u))
472                                 (math-normalize (list 'calcFunc-tanh u)))))))
473    
474    (put 'calcFunc-csch\' 'math-derivative-1
475         (function (lambda (u) (math-neg
476                                (math-mul
477                                 (math-normalize (list 'calcFunc-csch u))
478                                 (math-normalize (list 'calcFunc-coth u)))))))
479    
480    (put 'calcFunc-tanh\' 'math-derivative-1
481         (function (lambda (u) (math-neg
482                                (math-div 1 (math-sqr
483                                             (math-normalize
484                                              (list 'calcFunc-sinh u))))))))
485    
486  (put 'calcFunc-arcsinh\' 'math-derivative-1  (put 'calcFunc-arcsinh\' 'math-derivative-1
487       (function (lambda (u)       (function (lambda (u)
488                   (math-div 1 (math-normalize                   (math-div 1 (math-normalize
# Line 1053  Line 1095 
1095                 (while (and p                 (while (and p
1096                             (memq (car (car p)) '(calcFunc-sin                             (memq (car (car p)) '(calcFunc-sin
1097                                                   calcFunc-cos                                                   calcFunc-cos
1098                                                   calcFunc-tan))                                                   calcFunc-tan
1099                                                     calcFunc-sec
1100                                                     calcFunc-csc
1101                                                     calcFunc-cot))
1102                             (equal (nth 1 (car p)) math-integ-var))                             (equal (nth 1 (car p)) math-integ-var))
1103                   (setq p (cdr p)))                   (setq p (cdr p)))
1104                 (null p))                 (null p))
# Line 1068  Line 1113 
1113                             (memq (car (car p)) '(calcFunc-sinh                             (memq (car (car p)) '(calcFunc-sinh
1114                                                   calcFunc-cosh                                                   calcFunc-cosh
1115                                                   calcFunc-tanh                                                   calcFunc-tanh
1116                                                     calcFunc-sech
1117                                                     calcFunc-csch
1118                                                     calcFunc-coth
1119                                                   calcFunc-exp))                                                   calcFunc-exp))
1120                             (equal (nth 1 (car p)) math-integ-var))                             (equal (nth 1 (car p)) math-integ-var))
1121                   (setq p (cdr p)))                   (setq p (cdr p)))
# Line 1619  Line 1667 
1667         (math-neg (math-from-radians-2         (math-neg (math-from-radians-2
1668                    (list 'calcFunc-ln (list 'calcFunc-cos u))))))                    (list 'calcFunc-ln (list 'calcFunc-cos u))))))
1669    
1670    (math-defintegral calcFunc-sec
1671      (and (equal u math-integ-var)
1672           (math-from-radians-2
1673            (list 'calcFunc-ln
1674                  (math-add
1675                   (list 'calcFunc-sec u)
1676                   (list 'calcFunc-tan u))))))
1677    
1678    (math-defintegral calcFunc-csc
1679      (and (equal u math-integ-var)
1680           (math-from-radians-2
1681            (list 'calcFunc-ln
1682                  (math-sub
1683                   (list 'calcFunc-csc u)
1684                   (list 'calcFunc-cot u))))))
1685    
1686    (math-defintegral calcFunc-cot
1687      (and (equal u math-integ-var)
1688           (math-from-radians-2
1689            (list 'calcFunc-ln (list 'calcFunc-sin u)))))
1690    
1691  (math-defintegral calcFunc-arcsin  (math-defintegral calcFunc-arcsin
1692    (and (equal u math-integ-var)    (and (equal u math-integ-var)
1693         (math-add (math-mul u (list 'calcFunc-arcsin u))         (math-add (math-mul u (list 'calcFunc-arcsin u))
# Line 1650  Line 1719 
1719    (and (equal u math-integ-var)    (and (equal u math-integ-var)
1720         (list 'calcFunc-ln (list 'calcFunc-cosh u))))         (list 'calcFunc-ln (list 'calcFunc-cosh u))))
1721    
1722    (math-defintegral calcFunc-sech
1723      (and (equal u math-integ-var)
1724           (list 'calcFunc-arctan (list 'calcFunc-sinh u))))
1725    
1726    (math-defintegral calcFunc-csch
1727      (and (equal u math-integ-var)
1728           (list 'calcFunc-ln (list 'calcFunc-tanh (math-div u 2)))))
1729    
1730    (math-defintegral calcFunc-coth
1731      (and (equal u math-integ-var)
1732           (list 'calcFunc-ln (list 'calcFunc-sinh u))))
1733    
1734  (math-defintegral calcFunc-arcsinh  (math-defintegral calcFunc-arcsinh
1735    (and (equal u math-integ-var)    (and (equal u math-integ-var)
1736         (math-sub (math-mul u (list 'calcFunc-arcsinh u))         (math-sub (math-mul u (list 'calcFunc-arcsinh u))

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26