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 |
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 |
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)) |
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))) |
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)) |
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)) |