;ELC ;;; compiled by amu@mit.edu on Wed Dec 18 01:18:51 1996 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/calc-2.02e/calc-funcs.el ;;; emacs version 19.30.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`calc-funcs.el' was compiled for Emacs 19.29 or later")) (byte-code "!!" [require calc-ext calc-macs] 2) (defalias 'calc-Need-calc-funcs #[nil "" [nil] 1]) (defalias 'calc-inc-gamma #[(arg) "\"" [calc-do #[nil "   # # ! # #" [calc-is-inverse calc-is-hyperbolic calc-binary-op "gamG" calcFunc-gammaG arg "gamQ" calcFunc-gammaQ "gamg" calcFunc-gammag "gamP" calcFunc-gammaP] 4] 1496] 3 nil "P"]) (defalias 'calc-erf #[(arg) "\"" [calc-do #[nil " \f#\f#" [calc-is-inverse calc-unary-op "erfc" calcFunc-erfc arg "erf" calcFunc-erf] 4] 1683] 3 nil "P"]) (defalias 'calc-erfc #[(arg) " \n!" [calc-invert-func calc-erf arg] 2 nil "P"]) (defalias 'calc-beta #[(arg) "\"" [calc-do #[nil " #" [calc-binary-op "beta" calcFunc-beta arg] 4] 1881] 3 nil "P"]) (defalias 'calc-inc-beta #[nil "\"" [calc-do #[nil " !B#!B#" [calc-is-hyperbolic calc-enter-result 3 "betB" calcFunc-betaB calc-top-list-n "betI" calcFunc-betaI] 6] 2131] 3 nil nil]) (defalias 'calc-bessel-J #[(arg) "\"" [calc-do #[nil " #" [calc-binary-op "besJ" calcFunc-besJ arg] 4] 2249] 3 nil "P"]) (defalias 'calc-bessel-Y #[(arg) "\"" [calc-do #[nil " #" [calc-binary-op "besY" calcFunc-besY arg] 4] 2367] 3 nil "P"]) (defalias 'calc-bernoulli-number #[(arg) "\"" [calc-do #[nil " \f#\f#" [calc-is-hyperbolic calc-binary-op "bern" calcFunc-bern arg calc-unary-op] 4] 2573] 3 nil "P"]) (defalias 'calc-euler-number #[(arg) "\"" [calc-do #[nil " \f#\f#" [calc-is-hyperbolic calc-binary-op "eulr" calcFunc-euler arg calc-unary-op] 4] 2777] 3 nil "P"]) (defalias 'calc-stirling-number #[(arg) "\"" [calc-do #[nil " \f#\f#" [calc-is-hyperbolic calc-binary-op "str2" calcFunc-stir2 arg "str1" calcFunc-stir1] 4] 2985] 3 nil "P"]) (defalias 'calc-utpb #[nil "\"" [calc-prob-dist "b" 3] 3 nil nil]) (defalias 'calc-utpc #[nil "\"" [calc-prob-dist "c" 2] 3 nil nil]) (defalias 'calc-utpf #[nil "\"" [calc-prob-dist "f" 3] 3 nil nil]) (defalias 'calc-utpn #[nil "\"" [calc-prob-dist "n" 3] 3 nil nil]) (defalias 'calc-utpp #[nil "\"" [calc-prob-dist "p" 2] 3 nil nil]) (defalias 'calc-utpt #[nil "\"" [calc-prob-dist "t" 2] 3 nil nil]) (defalias 'calc-prob-dist #[(letter nargs) "\"" [calc-do #[nil " \n\fP\fP!!D\nS\"\"#\n\fP\fP!!D\nS\"\"#" [calc-is-inverse calc-enter-result nargs "ltp" letter append intern "calcFunc-ltp" calc-top-n 1 calc-top-list-n 2 "utp" "calcFunc-utp"] 8] 3802] 3]) (defalias 'calcFunc-gamma #[(x) " ! \" \"!" [math-numberp x math-reject-arg numberp calcFunc-fact math-add -1] 4]) (defalias 'math-gammap1-raw #[(x &optional fprec nfprec) " \n!\n[!!\"P! \"= !\" # \"!\"\"!\" #\")!b\"b \"! \"\"\"!%!\"*" [fprec math-float calc-internal-prec nfprec math-lessp-float calcFunc-re x math-neg math-div math-pi math-mul math-gammap1-raw math-add (float -1 0) math-sin-raw (float 1 0) xplus1 math-realp (float 736276 0) math-overflow 1 math-ln-raw lnx xinv math-sqrt-two-pi math-exp-raw math-gamma-series math-sub (float 5 -1) math-sqr (float 0 0) 2] 9]) (defalias 'math-gamma-series #[(sum x xinvsqr oterm n) "= \f\"!A@!8S__!\"\f\" \f \"\f\"?d\\VR!d\f\" \\%+" [calc-display-working-message lots math-do-working "gamma" sum math-bernoulli-number n bn math-mul math-div-float math-float 2 x term math-add next math-nearly-equal calc-internal-prec calc-record-why "*Gamma computation stopped early, not all digits may be valid" math-gamma-series xinvsqr] 7]) (defalias 'calcFunc-gammaP #[(a x) "‡ \f:\f@>\f\"!'\"\f!J\f!J\fVJ\fWJ\f\"\"\f!\f\"\")" [x (var inf var-inf) (float 1 0) math-inexact-result a (bigpos bigneg frac float cplx polar) math-reject-arg numberp math-numberp math-num-integerp math-trunc 0 20 math-sub 1 calcFunc-gammaQ calcFunc-gamma math-current-gamma-value math-div calcFunc-gammag] 5]) (defalias 'calcFunc-gammaQ #[(a x) "‡ \f:\f@>\f\"!'\"\f!\f!\fV\fW\\T\fW\"\"\"=R\"R!!\")!+\f!\f\"\")" [x (var inf var-inf) (float 0 0) math-inexact-result a (bigpos bigneg frac float cplx polar) math-reject-arg numberp math-numberp math-num-integerp math-trunc 0 20 (float 1 0) (float 1 0) term sum n math-normalize calc-internal-prec 1 math-div math-mul math-add calc-display-working-message lots math-do-working "gamma" calcFunc-exp math-neg calcFunc-gamma math-current-gamma-value calcFunc-gammaG] 6]) (defalias 'calcFunc-gammag #[(a x) "\n ! : @> \":/@>/\" \\ !! !!T! !\"\"[ \"id ! \"\")!" [x (var inf var-inf) calcFunc-gamma a math-inexact-result (bigpos bigneg frac float cplx polar) math-reject-arg numberp math-normalize calc-internal-prec 2 math-float math-negp calcFunc-re math-lessp-float math-add-float (float 1 0) math-inc-gamma-series math-sub math-current-gamma-value math-inc-gamma-cfrac] 6]) (byte-code "" [nil math-current-gamma-value] 1) (defalias 'calcFunc-gammaG #[(a x) "‡ \f:\f@>\f\":-@>-\" \\ \f!!\f!!R!\f!\"\"c[\f!\f\"\"g\f\")!" [x (var inf var-inf) (float 0 0) math-inexact-result a (bigpos bigneg frac float cplx polar) math-reject-arg numberp math-normalize calc-internal-prec 2 math-float math-negp calcFunc-re math-lessp-float math-add-float math-abs-approx (float 1 0) math-sub math-current-gamma-value calcFunc-gamma math-inc-gamma-series math-inc-gamma-cfrac] 6]) (defalias 'math-inc-gamma-series #[(a x) ":!@>)@=A@=$!$=)Ň !\"\"!\f\\\f \" $*!\"" [x (bigpos bigneg) float 0 math-zerop (float 0 0) math-mul math-exp-raw math-sub a math-ln-raw math-normalize calc-internal-prec 2 math-div (float 1 0) start math-inc-gamma-series-step] 8]) (defalias 'math-inc-gamma-series-step #[(sum term a x) "= \f\"\"\n \"\"\n\f\n\"\f\f\f\"2\f<\f\n $)" [calc-display-working-message lots math-do-working "gamma" sum math-add a (float 1 0) math-div math-mul term x next math-nearly-equal math-inc-gamma-series-step] 5]) (defalias 'math-inc-gamma-cfrac #[(a x) ":!@>0@=A@=$!$=0 K!!\"\"!& \"" [x (bigpos bigneg) float 0 math-zerop math-current-gamma-value calcFunc-gamma a math-mul math-exp-raw math-sub math-ln-raw math-inc-gamma-cfrac-step (float 1 0) (float 0 0) (float 1 0) (float 1 0) (float 1 0) (float 0 0)] 12]) (defalias 'math-inc-gamma-cfrac-step #[(a0 a1 b0 b1 n fac g a x) " \n\" \f\" \" \n\"\"\f\"\n \f\"\"\f\"\f \n\"  \"\"  \f\"  \"\"  !h\n \f \f\n &  \" \f\"=\"\"\n \f \f\n & )*" [math-sub n a math-mul fac anf ana math-add (float 1 0) a1 a0 b1 b0 x math-zerop math-inc-gamma-cfrac-step g math-div (float 1 0) next calc-display-working-message lots math-do-working "gamma" math-nearly-equal] 10]) (defalias 'calcFunc-erf #[(x) "‡Úć:1@>9@=+A@=4!4=9 \n!!\"\n\"\")" [x (var inf var-inf) (float 1 0) (neg (var inf var-inf)) (float -1 0) (bigpos bigneg) float 0 math-zerop math-sqrt-pi math-current-gamma-value math-to-same-complex-quad math-div calcFunc-gammag (float 5 -1) math-sqr math-to-complex-quad-one] 7]) (defalias 'calcFunc-erfc #[(x) "‡! !\" \")!\"" [x (var inf var-inf) (float 0 0) math-posp math-sqrt-pi math-current-gamma-value math-div calcFunc-gammaG (float 5 -1) math-sqr math-sub 1 calcFunc-erf] 5]) (defalias 'math-to-complex-quad-one #[(x) "= !=A@!8!E" [x polar math-complex cplx math-abs 2] 5]) (defalias 'math-to-same-complex-quad #[(x y) "=E\n=7A@!\nA@!\"\nA@8!2\n8!5\n8EA@!C\n!\n!a\n=]\nA@!\n8E\n!\n" [y cplx x math-negp math-neg 2] 5]) (defalias 'calcFunc-beta #[(a b) " !) \"!\"\f\"\f\"\"\")!6 \" !!\" \"!\"" [math-num-integerp a math-add -1 am math-numberp b math-reject-arg numberp math-div 1 math-mul calcFunc-choose calcFunc-beta calcFunc-gamma] 8]) (defalias 'calcFunc-betaI #[(x a b) " !‡ \"Ň!&!C!C !; !A !A \"̇ !X !Z !Z͇!g\" !t \"  \"  #\")" [math-zerop x (float 0 0) math-equal-int 1 (float 1 0) a math-num-integerp math-negp b math-reject-arg range (float 1 0) (float 0 0) math-numberp numberp math-inexact-result calcFunc-beta math-current-beta-value math-div calcFunc-betaB] 5]) (defalias 'calcFunc-betaB #[(x a b) " !‡ \"\" !! \"!.\"!;\"!H\"!U\"!!k\"!:!W!! \\\"TWZ\"\" \"\"\"\"=\",! \"\"!<! \"!!:<!W<$0\" \"#\" \\ !!! !\" \"!\"\"!* \"݉\"\"\"\"U* #\"\"$\"* \"#\"\"\"*!" [math-zerop x (float 0 0) math-equal-int 1 calcFunc-beta a b math-numberp math-reject-arg numberp nonzerop math-num-integerp math-negp range math-trunc 20 calc-symbolic-mode math-floatp math-inexact-result math-mul math-normalize calc-internal-prec 2 0 i term math-div sum math-add calc-display-working-message lots math-do-working "beta" math-pow math-sub math-current-beta-value calcFunc-betaB math-float math-exp-raw math-ln-raw (float 1 0) bt math-compare (float 1 0) (float 2 0) -1 math-beta-cfrac] 12]) (byte-code "" [nil math-current-beta-value] 1) (defalias 'math-beta-cfrac #[(a b x) " \n\" \" \"\"\"\" \n& +" [math-add a b (float 1 0) (float -1 0) qam qap qab math-beta-cfrac-step (float 1 0) math-sub (float 1 0) math-div math-mul x (float 1 0) (float 1 0) (float 1 0)] 12]) (defalias 'math-beta-cfrac-step #[(az bz am bm m qab qap qam a b x) " \" \" \"\" \"\n \"\"\" \f  \"\" \"\"\n \" \"\"\" \"\n \"\"\"!\f\"\"\"\"\"=\"\f\"\"\" \" \n& ." [math-mul m (float 2 0) two-m math-div math-sub b x math-add qam a d az am ap bz bm bp math-neg qab qap d2 app bpp next calc-display-working-message lots math-do-working "beta" math-nearly-equal math-beta-cfrac-step (float 1 0) (float 1 0)] 12]) (defalias 'calcFunc-besJ #[(v x) " ! \"\f!\f\"^\\\f!! !!\f!C !?˂̂  !p !\"\f!\" %\f\" \"\") !! ! !\f\"! !\f\" =\f! =\f! \f!\"U\f!\f!\f\"%&'())T) WӉ)&\"'\"(\"%'(%''- \"U \" _!\\\")\f\"&0%3'(5)S)VӉ)&\"'\"%\"('%(''!8Vz'\"'%\"%5q5\"53\"30?03'\"3) U+%5+53\"'\"\".)!)" [math-numberp v math-reject-arg numberp x 8 calc-internal-prec math-normalize 3 math-float math-zerop (float 1 0) (float 0 0) math-inexact-result math-num-integerp math-div 1 calcFunc-fact start math-mul math-besJ-series 0 (float -25 -2) math-sqr math-pow 2 math-negp math-trunc math-oddp math-neg calcFunc-besJ math-besJ0 math-besJ1 math-compare math-abs-approx -1 nil bjp two-over-x bj bjm j math-sub 100 range logior math-isqrt-small 40 jsum (float 0 0) (float 0 0) sum (float 1 0) ans 10 (float 1 -10) (float 1 -10) (float 1 -10) (float 1 -10) math-add] 10]) (defalias 'math-besJ-series #[(sum term k zz vk) "= \f\" T\" \f\" \"\" \f \"  \f\"8 C  \f%)" [calc-display-working-message lots math-do-working "besJ" sum k math-add 1 vk math-div math-mul term zz next math-nearly-equal math-besJ-series] 6]) (defalias 'math-besJ0 #[(x &optional yflag) " !! !! !\"Uq \"\f\f! \"\"\"!RA!@B \"!A\"@\f\"\"\"\". !\"\"\")" [yflag math-negp calcFunc-re x math-besJ0 math-neg math-compare (float 8 0) math-abs-approx -1 math-div (float 8 0) z math-sqr y math-add (float (bigneg 164 398 785) -9) xx math-poly-eval ((float (bigpos 211 887 93 2) -16) (float (bigneg 639 370 73 2) -15) (float (bigpos 407 510 734 2) -14) (float (bigneg 627 628 98 1) -12) (float 1 0)) a1 ((float (bigneg 152 935 934) -16) (float (bigpos 161 95 621 7) -16) (float (bigneg 651 147 911 6) -15) (float (bigpos 765 488 430 1) -13) (float (bigneg 995 499 562 1) -11)) a2 math-sin-cos-raw sc math-mul math-sqrt (float (bigpos 722 619 636) -9) math-sub ((float (bigneg 456 52 849 1) -7) (float (bigpos 17 233 739 7) -5) (float (bigneg 418 442 121 1) -2) (float (bigpos 407 196 516 6) -1) (float (bigneg 354 590 362 13) 0) (float (bigpos 574 490 568 57) 0)) ((float 1 0) (float (bigpos 712 532 678 2) -7) (float (bigpos 853 264 927 5) -5) (float (bigpos 718 680 494 9) -3) (float (bigpos 985 532 29 1) 0) (float (bigpos 411 490 568 57) 0))] 9]) (defalias 'math-besJ1 #[(x &optional yflag) "\n!! \n!!!\n!\"U\n\"\f\f!\n\"\"\"! WA!@Bj\n!j@!A!B\n\"!A\"@\f\"\"\"\".\n!\n\"\"\"\")" [math-negp calcFunc-re x yflag math-neg math-besJ1 math-compare (float 8 0) math-abs-approx -1 math-div (float 8 0) z math-sqr y math-add (float (bigneg 491 194 356 2) -9) xx math-poly-eval ((float (bigneg 19 337 240) -15) (float (bigpos 174 520 457 2) -15) (float (bigneg 496 396 516 3) -14) (float 183105 -8) (float 1 0)) a1 ((float (bigpos 412 787 105) -15) (float (bigneg 987 228 88) -14) (float (bigpos 96 199 449 8) -15) (float (bigneg 873 690 2 2) -13) (float (bigpos 995 499 687 4) -11)) a2 math-sin-cos-raw sc math-mul math-sqrt (float (bigpos 722 619 636) -9) math-sub ((float (bigneg 606 36 16 3) -8) (float (bigpos 826 44 157) -4) (float (bigneg 439 611 972 2) -3) (float (bigpos 531 968 423 2) -1) (float (bigneg 235 59 895 7) 0) (float (bigpos 232 614 362 72) 0)) ((float 1 0) (float (bigpos 397 991 769 3) -7) (float (bigpos 394 743 944 9) -5) (float (bigpos 474 330 858 1) -2) (float (bigpos 178 535 300 2) 0) (float (bigpos 442 228 725 144) 0))] 9]) (defalias 'calcFunc-besY #[(v x) " \n!\n\" ! \"^\\ !!\n!!\n![\n \"!\n \"A\"\n! \"\"@\")\n!!\n!v\n! \"!\n! \"\n= !\n= ! ! ! \" !\"\"T\"\nW͉\"\" \"!\" !  -)!)" [math-inexact-result math-numberp v math-reject-arg numberp x 8 calc-internal-prec math-normalize 3 math-float math-num-integerp math-sin-cos-raw math-mul math-pi sc math-div math-sub calcFunc-besJ math-neg math-negp math-trunc math-oddp calcFunc-besY 0 math-besY0 1 math-besY1 2 nil byp two-over-x by bym j] 7]) (defalias 'math-besY0 #[(x) "\n!\"U+\n!\"\"\"\n!\n!\"\"\")\n!!D\n!\"\n!!\"\"\n\"" [math-compare math-abs-approx x (float 8 0) -1 math-sqr y math-add math-div math-poly-eval ((float (bigpos 733 622 284 2) -7) (float (bigneg 757 792 632 8) -5) (float (bigpos 129 988 87 1) -2) (float (bigneg 36 598 123 5) -1) (float (bigpos 65 834 62 7) 0) (float (bigneg 389 821 957 2) 0)) ((float 1 0) (float (bigpos 244 30 261 2) -7) (float (bigpos 647 472 474) -4) (float (bigpos 438 466 189 7) -3) (float (bigpos 648 499 452 7) -1) (float (bigpos 269 544 76 40) 0)) math-mul (float (bigpos 772 619 636) -9) math-besJ0 math-ln-raw math-negp calcFunc-re math-neg t (cplx 0 2)] 8]) (defalias 'math-besY1 #[(x) "\n!\"U4\n!\n\"\"\"\"\n!\n!\"\n\"\"\"\")\n!!O\n!\"\n!!\"\"!\n\"" [math-compare math-abs-approx x (float 8 0) -1 math-sqr y math-add math-mul math-div math-poly-eval ((float (bigpos 935 937 511 8) -6) (float (bigneg 726 922 237 4) -3) (float (bigpos 551 264 349 7) -1) (float (bigneg 139 438 153 5) 1) (float (bigpos 439 527 127) 4) (float (bigneg 943 604 900 4) 3)) ((float 1 0) (float (bigpos 885 632 549 3) -7) (float (bigpos 605 42 102) -3) (float (bigpos 2 904 245 2) -2) (float (bigpos 367 650 733 3) 0) (float (bigpos 664 419 244 4) 2) (float (bigpos 57 958 249) 5)) (float (bigpos 772 619 636) -9) math-sub math-besJ1 math-ln-raw 1 math-negp calcFunc-re math-neg t (cplx 0 2)] 9]) (defalias 'math-poly-eval #[(x coefs) "@A@ \f\"\" )" [coefs accum math-add math-mul x] 5]) (defalias 'calcFunc-bern #[(n &optional x) "!\n! !\"!,\":> !!!!" [x math-zerop calc-symbolic-mode math-floatp math-inexact-result math-build-polynomial-expr math-bernoulli-coefs n math-num-natnump math-reject-arg natnump math-float math-bernoulli-number math-trunc] 4]) (defalias 'calcFunc-euler #[(n &optional x) " ! \"\fs \"! \"\" \f\"\"\f\"\f!cN\f!N p  \" \"\"\"p \"B\"\f\". \" : \" \"\"" [math-num-natnump n math-reject-arg natnump x math-add 1 n1 math-bernoulli-coefs coefs math-div math-pow 2 fac -1 k x1 x2 math-numberp calc-symbolic-mode math-floatp math-inexact-result math-mul math-sub math-build-polynomial-expr calcFunc-collect math-reduce-vec vec mapcar #[(c) "T\n \"\"\"\"\"" [k math-mul fac c math-sub math-pow x1 x2] 7] calcFunc-euler (float 5 -1) (frac 1 2)] 7]) (defalias 'math-bernoulli-coefs #[(n) " !C !\f   SYP\f Z\" !\" :A!C\nB \"\n." [calcFunc-bern n coefs math-trunc nn k term nil coef calc-prefer-frac 0 math-div math-mul math-bernoulli-number math-float] 5]) (defalias 'math-bernoulli-number #[(n) "UUÇć Y\n \f== \\\"\fm\\\nS_\"\f@\"\"\fA\fB\nS\"\n\n\"\" B \n\"B T. ZZ8" [n 2 1 (frac -1 2) 0 math-bernoulli-cache-size sum nk fact nil ofact math-bernoulli-b-cache p t calc-prefer-frac calc-display-working-message lots math-do-working "bernoulli B" math-mul math-add math-div math-sub (frac 1 2) math-bernoulli-B-cache] 6]) (byte-code "ć" [((frac -174611 (bigpos 0 200 291 698 662 857 802)) (frac 43867 (bigpos 0 944 170 217 94 109 5)) (frac -3617 (bigpos 0 880 842 622 670 10)) (frac 1 (bigpos 600 249 724 74)) (frac -691 (bigpos 0 368 674 307 1)) (frac 1 (bigpos 160 900 47)) (frac -1 (bigpos 600 209 1)) (frac 1 30240) (frac -1 720) (frac 1 12) 1) math-bernoulli-b-cache ((frac -174611 330) (frac 43867 798) (frac -3617 510) (frac 7 6) (frac -691 2730) (frac 5 66) (frac -1 30) (frac 1 42) (frac -1 30) (frac 1 6) 1) math-bernoulli-B-cache 11 math-bernoulli-cache-size] 1) (defalias 'calcFunc-utpb #[(x n p) " \f\fEEF! \f\f\"\"#" [math-expand-formulas math-normalize calcFunc-betaI p x + - n 1 math-add math-sub] 8]) (put (quote calcFunc-utpb) (quote math-expandable) t) (defalias 'calcFunc-ltpb #[(x n p) " \f #\"" [math-sub 1 calcFunc-utpb x n p] 6]) (put (quote calcFunc-ltpb) (quote math-expandable) t) (defalias 'calcFunc-utpc #[(chisq v) "\fEEE!\f\"\"\"" [math-expand-formulas math-normalize calcFunc-gammaQ / v 2 chisq math-div] 6]) (put (quote calcFunc-utpc) (quote math-expandable) t) (defalias 'calcFunc-ltpc #[(chisq v) "\fEEE!\f\"\"\"" [math-expand-formulas math-normalize calcFunc-gammaP / v 2 chisq math-div] 6]) (put (quote calcFunc-ltpc) (quote math-expandable) t) (defalias 'calcFunc-utpf #[(f v1 v2) "\f\fEEE\fEEF!\f\f\"\"\"\f\"\"#" [math-expand-formulas math-normalize calcFunc-betaI / v2 + * v1 f 2 math-div math-add math-mul] 9]) (put (quote calcFunc-utpf) (quote math-expandable) t) (defalias 'calcFunc-ltpf #[(f v1 v2) " \f #\"" [math-sub 1 calcFunc-utpf f v1 v2] 6]) (put (quote calcFunc-ltpf) (quote math-expandable) t) (defalias 'calcFunc-utpn #[(x mean sdev) "E\nDEEDEE!\"\n \"\"!\"\"" [math-expand-formulas math-normalize / + 1 calcFunc-erf - mean x * sdev calcFunc-sqrt 2 math-mul math-add (float 1 0) math-div math-sub math-sqrt-2 (float 5 -1)] 11]) (put (quote calcFunc-utpn) (quote math-expandable) t) (defalias 'calcFunc-ltpn #[(x mean sdev) "E\nDEEDEE!\"\n \"\"!\"\"" [math-expand-formulas math-normalize / + 1 calcFunc-erf - x mean * sdev calcFunc-sqrt 2 math-mul math-add (float 1 0) math-div math-sub math-sqrt-2 (float 5 -1)] 11]) (put (quote calcFunc-ltpn) (quote math-expandable) t) (defalias 'calcFunc-utpp #[(n x) " \fE! \f\"" [math-expand-formulas math-normalize calcFunc-gammaP x n] 4]) (put (quote calcFunc-utpp) (quote math-expandable) t) (defalias 'calcFunc-ltpp #[(n x) " \fE! \f\"" [math-expand-formulas math-normalize calcFunc-gammaQ x n] 4]) (put (quote calcFunc-ltpp) (quote math-expandable) t) (defalias 'calcFunc-utpt #[(tt v) "\f\fEEE\fEF!\f\f!\"\"\f\"#" [math-expand-formulas math-normalize calcFunc-betaI / v + ^ tt 2 (float 5 -1) math-div math-add math-sqr (float 5 -1)] 9]) (put (quote calcFunc-utpt) (quote math-expandable) t) (defalias 'calcFunc-ltpt #[(tt v) " \f\"\"" [math-sub 1 calcFunc-utpt tt v] 5]) (put (quote calcFunc-ltpt) (quote math-expandable) t)