;ELC ;;; compiled by amu@mit.edu on Wed Dec 18 01:19:37 1996 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/calc-2.02e/calc-vec.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-vec.el' was compiled for Emacs 19.29 or later")) (byte-code "!!" [require calc-ext calc-macs] 2) (defalias 'calc-Need-calc-vec #[nil "" [nil] 1]) (defalias 'calc-display-strings #[(n) "!" [calc-do #[nil " ĉ$ł!" [message calc-change-mode calc-display-strings n t "Displaying vectors of integers as quoted strings." "Displaying vectors of integers normally."] 6]] 2 nil "P"]) (defalias 'calc-pack #[(n) "!" [calc-do #[nil " !!:2@=2A2A@=@!!  \"  \\\\ \"#-" [n 1 2 nn prefix-numeric-value calc-top-n mode vec error "Packing mode must be an integer or vector of integers" calc-pack-size num calc-top-list items calc-enter-result -1 "pack" calc-pack-items] 7]] 2 nil "P"]) (defalias 'calc-pack-size #[(mode) ":2#@!\n@!_A \nU/!0\n)Y:ȞABɇ" [mode 1 size error "Vector of integers expected" calc-pack-size 0 "Zero dimensions not allowed" ((-3 . 3) (-13 . 1) (-14 . 3) (-15 . 6)) 2] 4]) (defalias 'calc-pack-items #[(mode items) ":TANA! G\fVE\nS  A\f\nZšA\"B@\"-@ \"Y^ BU @! A@! 8! @! A@! 8! B!!։= @E @ A@EE 8EE!U @! B @= @ @!! B>) @!@!!A\" B' !D) @=: A@= @%=& A@'=()&\\%^'GS*&z(z*'GSUz!*S*Y&%A%@%('A'@'D\")B)z).BU @! A@! B @! A@!! @ A@EE!UG @!  A@!  B @!  A@! ! @ A@!5 A@ED A@!!EEDE!U @ A@9%%!d%!9!r9!{%9\"!!*U @ A@?@@!?!A?!B@?\"ҁC!@!?!!D@?E*E>- @ A@FGG!G@=G!(F!F@=F!(HI\\GF#+!*J=uK A@!EҁL! @!\\ A@!\\ՁM B! @!o A@!o!N BO> @! A@!PQ @! A@\" @! A@!!ՁPR @D A@E!ҁS\"" [mode calc-pack-size size items len nil new p row 0 calc-pack-items vec -3 math-objvecp 2 math-num-integerp math-realp hms error "Seconds must be real" "Hours and minutes must be integers" math-normalize + calc-angle-mode rad * (hms 1 0 0) (hms 0 1 0) (hms 0 0 1) -13 date "Date value must be real" calcFunc-date (-14 -15) math-integerp "Components must be integers" math-dt-to-date x vx y vy z n "Vectors must be the same length" -1 cplx math-objectp "Components must be real" (cplx 0 1) -2 math-anglep polar 1 calcFunc-exp math-to-radians-2 math-quarter-circle -4 sigma math-scalarp math-make-sdev "Error component must be real" "Mean component must be real or complex" -5 m a math-posp math-make-mod "Modulus must be positive" calcFunc-makemod (-6 -7 -8 -9) hi lo math-make-intv 9 -10 math-zerop "Denominator must not be zero" frac calcFunc-fdiv (-11 -12) calcFunc-scf math-float calcFunc-float "Invalid packing mode: %d"] 11]) (defalias 'calc-unpack #[(mode) "!" [calc-do #[nil "! \"#)" [t calc-unpack-with-type calc-pop-push-record-list 1 "unpk" calc-unpack-item mode prefix-numeric-value calc-top] 6]] 2 nil "P"]) (defalias 'calc-unpack-type #[(item) "= GS=A@ZĞA#!" [item vec intv 9 ((cplx . -1) (polar . -2) (hms . -3) (sdev . -4) (mod . -5) (frac . -10) (float . -11) (date . -13)) error "Argument must be a composite object"] 2]) (defalias 'calc-unpack-item #[(mode item) "* > ! =! @=' AA AVɉ\n \f CV @!\f B @\" A{ @!\fUm! @\"\" X S@ A BC = @ BD  \" ,= \")BDU = A!U = A!U  = A@!!!U/ =+ A@! A@!?)ȉE\"! =mɉ !\" A` @\" @\"B\" A@!B!?\"B!+BDU =} A = !A : @> D!U > : @> !A!U = A DU = A!> = AA DU  =\f A : @> D!U; =7 A@ 8!D!UT =P ! !D!\"" [mode item (frac float cplx polar vec hms date sdev mod intv) math-objvecp var error "Argument must be a composite object or function call" intv 0 nil row new type dims calc-unpack-type calc-unpack-item "Inconsistent types or dimensions in vector elements" append vec calc-unpack-with-type pair -3 hms "Argument must be an HMS form" -13 date "Argument must be a date form" -14 math-date-to-dt math-floor -15 math-integerp res y x -1 cplx polar math-complex (bigpos bigneg frac float) "Argument must be a complex number" -2 (cplx polar) math-polar -4 sdev -5 mod "Argument must be a modulo form" (-6 -7 -8 -9) -10 frac (bigpos bigneg) 1 "Argument must be a rational number" -11 float math-normalize 2 "Expected a floating-point number" -12 calcFunc-mant calcFunc-xpon "Invalid unpacking mode: %d"] 6]) (byte-code "" [nil calc-unpack-with-type] 1) (defalias 'calc-diag #[(n) "!" [calc-do #[nil " ! !E!D#" [calc-enter-result 1 "diag" n calcFunc-diag calc-top-n prefix-numeric-value] 7]] 2 nil "P"]) (defalias 'calc-ident #[(n) "!" [calc-do #[nil " = Ă !E#" [calc-enter-result 0 "idn" n (calcFunc-idn 1) calcFunc-idn 1 prefix-numeric-value] 7]] 2 nil "NDimension of identity matrix = "]) (defalias 'calc-index #[(n &optional stack) "!" [calc-do #[nil ":!B#!D#" [stack calc-enter-result 3 "indx" calcFunc-index calc-top-list-n 0 prefix-numeric-value n] 6]] 2 nil "NSize of vector = \nP"]) (defalias 'calc-build-vector #[(n) "!" [calc-do #[nil "!!E#" [calc-enter-result 1 "bldv" calcFunc-cvec calc-top-n prefix-numeric-value n] 7]] 2 nil "NSize of vector = "]) (defalias 'calc-cons #[(arg) "!" [calc-do #[nil " \f#\f#" [calc-is-hyperbolic calc-binary-op "rcns" calcFunc-rcons arg "cons" calcFunc-cons] 4]] 2 nil "P"]) (defalias 'calc-head #[(arg) "!" [calc-do #[nil "   # # ! # #" [calc-is-inverse calc-is-hyperbolic calc-unary-op "rtai" calcFunc-rtail arg "tail" calcFunc-tail "rhed" calcFunc-rhead "head" calcFunc-head] 4]] 2 nil "P"]) (defalias 'calc-tail #[(arg) " \n!" [calc-invert-func calc-head arg] 2 nil "P"]) (defalias 'calc-vlength #[(arg) "!" [calc-do #[nil " \f#\f#" [calc-is-hyperbolic calc-unary-op "dims" calcFunc-mdims arg "len" calcFunc-vlen] 4]] 2 nil "P"]) (defalias 'calc-arrange-vector #[(n) "!" [calc-do #[nil "!!E#" [calc-enter-result 1 "arng" calcFunc-arrange calc-top-n prefix-numeric-value n] 7]] 2 nil "NNumber of columns = "]) (defalias 'calc-vector-find #[(arg) "!" [calc-do #[nil "!B !C\" #)" [calcFunc-find calc-top-list-n 2 func calc-enter-result "find" arg append prefix-numeric-value] 7]] 2 nil "P"]) (defalias 'calc-subvector #[nil "!" [calc-do #[nil " !B#!B#" [calc-is-inverse calc-enter-result 3 "rsvc" calcFunc-rsubvec calc-top-list-n "svec" calcFunc-subvec] 6]] 2 nil nil]) (defalias 'calc-reverse-vector #[(arg) "!" [calc-do #[nil " #" [calc-unary-op "rev" calcFunc-rev arg] 4]] 2 nil "P"]) (defalias 'calc-mask-vector #[(arg) "!" [calc-do #[nil " #" [calc-binary-op "vmsk" calcFunc-vmask arg] 4]] 2 nil "P"]) (defalias 'calc-expand-vector #[(arg) "!" [calc-do #[nil " !B##" [calc-is-hyperbolic calc-enter-result 3 "vexp" calcFunc-vexp calc-top-list-n calc-binary-op arg] 6]] 2 nil "P"]) (defalias 'calc-sort #[nil "\"" [calc-do #[nil " !D#!D#" [calc-is-inverse calc-enter-result 1 "rsrt" calcFunc-rsort calc-top-n "sort" calcFunc-sort] 6] 14023] 3 nil nil]) (defalias 'calc-grade #[nil "\"" [calc-do #[nil " !D#!D#" [calc-is-inverse calc-enter-result 1 "rgrd" calcFunc-rgrade calc-top-n "grad" calcFunc-grade] 6] 14258] 3 nil nil]) (defalias 'calc-histogram #[(n) "\"" [calc-do #[nil "!!!F#!!E#" [calc-hyperbolic-flag calc-enter-result 2 "hist" calcFunc-histogram calc-top-n 1 prefix-numeric-value n] 8] 14633] 3 nil "NNumber of bins: "]) (defalias 'calc-transpose #[(arg) "!" [calc-do #[nil " #" [calc-unary-op "trn" calcFunc-trn arg] 4]] 2 nil "P"]) (defalias 'calc-conj-transpose #[(arg) "!" [calc-do #[nil " #" [calc-unary-op "ctrn" calcFunc-ctrn arg] 4]] 2 nil "P"]) (defalias 'calc-cross #[(arg) "!" [calc-do #[nil " #" [calc-binary-op "cros" calcFunc-cross arg] 4]] 2 nil "P"]) (defalias 'calc-remove-duplicates #[(arg) "!" [calc-do #[nil " #" [calc-unary-op "rdup" calcFunc-rdup arg] 4]] 2 nil "P"]) (defalias 'calc-set-union #[(arg) "!" [calc-do #[nil " %" [calc-binary-op "unio" calcFunc-vunion arg (vec) calcFunc-rdup] 6]] 2 nil "P"]) (defalias 'calc-set-intersect #[(arg) "!" [calc-do #[nil " %" [calc-binary-op "intr" calcFunc-vint arg (vec) calcFunc-rdup] 6]] 2 nil "P"]) (defalias 'calc-set-difference #[(arg) "!" [calc-do #[nil " %" [calc-binary-op "diff" calcFunc-vdiff arg (vec) calcFunc-rdup] 6]] 2 nil "P"]) (defalias 'calc-set-xor #[(arg) "!" [calc-do #[nil " %" [calc-binary-op "xor" calcFunc-vxor arg (vec) calcFunc-rdup] 6]] 2 nil "P"]) (defalias 'calc-set-complement #[(arg) "!" [calc-do #[nil " #" [calc-unary-op "cmpl" calcFunc-vcompl arg] 4]] 2 nil "P"]) (defalias 'calc-set-floor #[(arg) "!" [calc-do #[nil " #" [calc-unary-op "vflr" calcFunc-vfloor arg] 4]] 2 nil "P"]) (defalias 'calc-set-enumerate #[(arg) "!" [calc-do #[nil " #" [calc-unary-op "enum" calcFunc-venum arg] 4]] 2 nil "P"]) (defalias 'calc-set-span #[(arg) "!" [calc-do #[nil " #" [calc-unary-op "span" calcFunc-vspan arg] 4]] 2 nil "P"]) (defalias 'calc-set-cardinality #[(arg) "!" [calc-do #[nil " #" [calc-unary-op "card" calcFunc-vcard arg] 4]] 2 nil "P"]) (defalias 'calc-unpack-bits #[(arg) "!" [calc-do #[nil " \f#\f#" [calc-is-inverse calc-unary-op "bpck" calcFunc-vpack arg "bupk" calcFunc-vunpack] 4]] 2 nil "P"]) (defalias 'calc-pack-bits #[(arg) " \n!" [calc-invert-func calc-unpack-bits arg] 2 nil "P"]) (defalias 'calc-rnorm #[(arg) "!" [calc-do #[nil " #" [calc-unary-op "rnrm" calcFunc-rnorm arg] 4]] 2 nil "P"]) (defalias 'calc-cnorm #[(arg) "!" [calc-do #[nil " #" [calc-unary-op "cnrm" calcFunc-cnorm arg] 4]] 2 nil "P"]) (defalias 'calc-mrow #[(n &optional nn) "!" [calc-do #[nil ":!B#!U%!D#W9![E#!E#" [nn calc-enter-result 2 "mrow" calcFunc-mrow calc-top-list-n prefix-numeric-value n 0 1 "getd" calcFunc-getdiag calc-top-n "rrow" calcFunc-mrrow] 7]] 2 nil "NRow number: \nP"]) (defalias 'calc-mcol #[(n &optional nn) "!" [calc-do #[nil ":!B#!U%!D#W9![E#!E#" [nn calc-enter-result 2 "mcol" calcFunc-mcol calc-top-list-n prefix-numeric-value n 0 1 "getd" calcFunc-getdiag calc-top-n "rcol" calcFunc-mrcol] 7]] 2 nil "NColumn number: \nP"]) (defalias 'calcFunc-mdims #[(m) " ! \" !B" [math-vectorp m math-reject-arg vectorp vec math-mat-dimens] 3]) (defalias 'math-map-vec #[(f a) " !\f A\"B\f !" [math-vectorp a vec mapcar f] 4]) (defalias 'math-dimension-error #[nil "!\"" [calc-record-why "*Dimension error" signal wrong-type-argument nil] 3]) (defalias 'calcFunc-vec #[(&rest objs) " B" [vec objs] 2]) (defalias 'calcFunc-cvec #[(obj &rest dims) " \n\"" [math-make-vec-dimen obj dims] 3]) (defalias 'math-make-vec-dimen #[(obj dims) "2@!,A !$@ A\"\"!B@ \"B@\" " [dims natnump math-numberp obj vec copy-sequence make-list math-make-vec-dimen math-reject-arg fixnatnump] 7]) (defalias 'calcFunc-head #[(vec) ":@=AA@\"D" [vec calc-record-why vectorp calcFunc-head] 3]) (defalias 'calcFunc-tail #[(vec) ":@=AAAB\"D" [vec calc-record-why vectorp calcFunc-tail] 3]) (defalias 'calcFunc-cons #[(head tail) ":@=\nABB\"\nE" [tail vec head calc-record-why vectorp calcFunc-cons] 3]) (defalias 'calcFunc-rhead #[(vec) ":!@=!A!!GZá)\"D" [vec copy-sequence 2 nil calc-record-why vectorp calcFunc-rhead] 4]) (defalias 'calcFunc-rtail #[(vec) ":@=AGS8\"D" [vec calc-record-why vectorp calcFunc-rtail] 3]) (defalias 'calcFunc-rcons #[(head tail) ":@= C\"\" E" [head vec append tail calc-record-why vectorp calcFunc-rcons] 3]) (defalias 'math-map-vec-2 #[(f a b) " !T\n!9 A,\nA  @\n@\"\fB 3 \f)B AN @\n\"\fB;\f)B\n!u\nAo \n@\"\fB\\\f)B \n\"" [math-vectorp a b nil v math-dimension-error f vec] 3]) (defalias 'math-reduce-vec #[(f a) " !& A$ A@ A! \n @\"\n)ć " [math-vectorp a accum f 0] 3]) (defalias 'math-reduce-cols #[(f a) " !\f A A@G$B " [math-matrixp a vec math-reduce-cols-col-step f 1] 6]) (defalias 'math-reduce-cols-col-step #[(f a col cols) " W \f@8\fA$ \fT $B" [col cols math-reduce-cols-row-step f a math-reduce-cols-col-step] 6]) (defalias 'math-reduce-cols-row-step #[(f tot col a) "\n \f@8\"\fA$ " [a math-reduce-cols-row-step f tot col] 6]) (defalias 'math-dot-product #[(a b) "A A+@ @\"A A( @ @\"\" )Ň" [a b math-mul accum math-add 0] 5]) (defalias 'calcFunc-vlen #[(v) " !\n GS !Ç D" [math-vectorp v math-objectp 0 calcFunc-vlen] 2]) (defalias 'calcFunc-mrow #[(mat n) ":@=\"=G!G8A@>1˂2\"8A@>ĈD\"#!VV[\":i@=o\"8z\"" [n vec math-map-vec #[(x) " \n\"" [calcFunc-mrow mat x] 3] intv math-constp calcFunc-subvec mat math-add 2 (2 3) 0 1 3 (1 3) math-check-integer math-reject-arg fixposintp vectorp "*Index out of range"] 7]) (defalias 'calcFunc-subscr #[(mat n &optional m) " \n\" \n! \" \" " [calcFunc-mrow mat n m math-num-integerp calcFunc-mcol] 3]) (defalias 'math-mat-col #[(mat n) " A\"B" [vec mapcar #[(x) " " [x n] 2] mat] 4]) (defalias 'calcFunc-mcol #[(mat n) ":@=\"!=3!3!-\"\"!BVG\":U@=[\"!tA@GW{\"x8\"" [n vec calcFunc-trn math-map-vec #[(x) " \n\"" [calcFunc-mcol mat x] 3] intv math-constp math-matrixp mat #[(x) " \n\"" [calcFunc-mrow x n] 3] calcFunc-mrow math-check-integer 0 math-reject-arg fixposintp vectorp math-mat-col "*Index out of range"] 4]) (defalias 'math-mat-less-row #[(mat n) "X \nA\n@\nAS\"B" [n 0 mat math-mat-less-row] 4]) (defalias 'calcFunc-mrrow #[(mat n) " ! V GW \"" [math-check-integer n 0 mat math-mat-less-row] 3]) (defalias 'math-mat-less-col #[(mat n) " A\"B" [vec mapcar #[(x) " \n\"" [math-mat-less-row x n] 3] mat] 4]) (defalias 'calcFunc-mrcol #[(mat n) " !' V'\f!# \fA@GW'\f \"\f \"" [math-check-integer n 0 math-matrixp mat math-mat-less-col math-mat-less-row] 3]) (defalias 'calcFunc-getdiag #[(mat) " ! A\"B \" D" [math-square-matrixp mat vec math-get-diag-step 1 calc-record-why square-matrixp calcFunc-getdiag] 4]) (defalias 'math-get-diag-step #[(row n) " @8A T\"B" [row n math-get-diag-step] 4]) (defalias 'math-transpose #[(mat) " A@G\nSV \n\" B *B" [nil mat col m 0 math-mat-col vec] 3]) (defalias 'calcFunc-trn #[(mat) " ! ! ! ! ! \"" [math-vectorp mat math-matrixp math-transpose math-col-matrix math-numberp math-reject-arg matrixp] 3]) (defalias 'calcFunc-ctrn #[(mat) "\n!!" [calcFunc-conj calcFunc-trn mat] 3]) (defalias 'calcFunc-pack #[(mode els) ":\f@=\"\f:(\f@=(\fA(\fA2\f2\f\"ȏ" [els vec math-reject-arg vectorp mode fixnump err (byte-code " !\nGSU \nA\"\n\"" [calc-pack-size mode els calc-pack-items math-reject-arg "*Wrong number of elements"] 3) ((error (byte-code " \nA@\"" [math-reject-arg els err] 3)))] 3]) (defalias 'calcFunc-unpack #[(mode thing) "\n\"ŏ" [mode math-reject-arg fixnump err (byte-code "\n \"B" [vec calc-unpack-item mode thing] 4) ((error (byte-code " \nA@\"" [math-reject-arg thing err] 3)))] 3]) (defalias 'calcFunc-unpackt #[(mode thing) " \f\")" [pair calc-unpack-with-type calcFunc-unpack mode thing] 3]) (defalias 'calcFunc-arrange #[(vec cols) " \"\f!_\f!C X%^G YM  SȡBC '\\BC+" [math-check-fixnum cols t math-vectorp vec math-flatten-vector flat mat nil next 0] 4]) (defalias 'math-flatten-vector #[(vec) " ! A\"\" C" [math-vectorp vec apply append mapcar math-flatten-vector] 5]) (defalias 'calcFunc-vconcat #[(a b) "\n E!" [math-normalize | a b] 4]) (defalias 'calcFunc-vconcatrev #[(a b) "\n E!" [math-normalize | b a] 4]) (defalias 'calcFunc-append #[(v1 v2) " !\n! \nA\" \nE" [math-vectorp v1 v2 append calcFunc-append] 3]) (defalias 'calcFunc-appendrev #[(v1 v2) " \n\"" [calcFunc-append v2 v1] 3]) (defalias 'math-copy-matrix #[(m) " A@! A\"B !" [math-vectorp m vec mapcar copy-sequence] 4]) (defalias 'calcFunc-diag #[(a &optional n) "  ! !J$ GTU$ E !?= ƜGTU= E A GS#BY \"#B D" [n math-check-fixnum math-vectorp a calcFunc-diag math-matrixp 1 vec math-diag-step 0 make-list] 5]) (defalias 'calcFunc-idn #[(a &optional n) "\n!\n\"\n\" \n\"\nD" [n math-vectorp a math-reject-arg numberp calcFunc-diag calc-matrix-mode calcFunc-idn] 3]) (defalias 'math-mimic-ident #[(a m) " ! GS\" !$ !! A\"B !" [math-square-matrixp m calcFunc-idn a math-vectorp math-zerop vec mapcar #[(x) " ! \" " [math-vectorp x math-mimic-ident a] 3] math-dimension-error] 4]) (defalias 'math-diag-step #[(a n m) " W\" @ ZS\"BB AT #B" [n m vec make-list 0 a math-diag-step] 6]) (defalias 'calcFunc-index #[(n &optional start incr) " ! ! #!  ! g YC SY_  B >\"' TX_  B Z\"C  Y V  B Sn Y B S) )B" [math-messy-integerp n math-float calcFunc-index math-trunc start incr math-check-fixnum nil vec 0 math-add 1 math-mul 2 -1 i] 6]) (defalias 'calcFunc-find #[(vec x &optional start) " \"\fÉW\"@ @\"U@TA&JK)" [start math-check-fixnum t 1 math-reject-arg posp vec n math-compare x 0] 4]) (defalias 'calcFunc-subvec #[(vec start &optional end) " \" \"!\"GS X. \\\\ X; \\\\  VH XL˂q   Xm ZZ! Ρ)B)" [math-check-fixnum start t end 0 math-vectorp vec math-reject-arg vectorp len 1 (vec) copy-sequence chop nil] 4]) (defalias 'calcFunc-rsubvec #[(vec start &optional end) " \" \"!\"GS X. \\\\ X; \\\\  VH XMk  S!\f \fΡ \"*)" [math-check-fixnum start t end 0 math-vectorp vec math-reject-arg vectorp len 1 copy-sequence chop tail nil append] 4]) (defalias 'calcFunc-rev #[(vec) " ! A!B \"" [math-vectorp vec reverse math-reject-arg vectorp] 3]) (defalias 'calcFunc-vmask #[(mask vec) " ! !Ç\f ! \" !& \"\f!1\f\" G\fGU< \f A\fAZ @!?\f@\fB\f?\f)B" [math-numberp mask math-zerop (vec) vec math-vectorp math-reject-arg vectorp math-constp constp math-dimension-error nil new] 3]) (defalias 'calcFunc-vexp #[(mask vec &optional filler) " ! \" ! \"!#\"-! \n Aq @!] NA@PU @\nB\n1A@i @\nB\n1\n*B" [math-vectorp mask math-reject-arg vectorp math-constp constp vec nil filler fvec new math-zerop] 4]) (defalias 'calcFunc-rnorm #[(a) ":(@=(!(! \"\"\"\"\"D" [a vec math-constp math-matrixp math-reduce-vec math-max math-map-vec calcFunc-cnorm math-abs calc-record-why vectorp calcFunc-rnorm] 5]) (defalias 'calcFunc-cnorm #[(a) ":%@=%!%! \"\"\"\"D" [a vec math-constp math-matrixp math-reduce-vec math-max math-reduce-cols math-add-abs calc-record-why vectorp calcFunc-cnorm] 5]) (defalias 'math-add-abs #[(a b) "\n! !\"" [math-add math-abs a b] 4]) (defalias 'calcFunc-sort #[(vec) " ! A!\"B \"" [math-vectorp vec sort copy-sequence math-beforep math-reject-arg vectorp] 4]) (defalias 'calcFunc-rsort #[(vec) " ! A!\"B \"" [math-vectorp vec sort copy-sequence math-beforep math-reject-arg vectorp] 4]) (defalias 'calcFunc-grade #[(grade-vec) " ! GS\n!A\")B \"" [math-vectorp grade-vec len vec sort calcFunc-index math-grade-beforep math-reject-arg vectorp] 4]) (defalias 'calcFunc-rgrade #[(grade-vec) " ! GS\n!A\")B \"" [math-vectorp grade-vec len vec sort calcFunc-index math-grade-beforep math-reject-arg vectorp] 4]) (defalias 'math-grade-beforep #[(i j) " \n8 \n8\"" [math-beforep i grade-vec j] 4]) (defalias 'calcFunc-histogram #[(vec wts &optional n) "  : @= \" :0 @=0 G GU0 !;\"\" :I @= \f A@\f\f!p\f!\f\f!U\fWU\f\fH A @ \"IU\"-B" [n wts 1 vec math-reject-arg vectorp math-dimension-error natnump fixnatnump make-vector 0 nil bin wp wvec vp res math-floor math-add append] 6]) (defalias 'calcFunc-vunion #[(a b) ":\f@>D!\":,@>4CF!A\"A\"!" [a (bigpos bigneg frac float cplx polar hms date sdev intv mod) vec math-vectorp math-reject-arg vectorp b calcFunc-rdup append] 4]) (defalias 'calcFunc-vint #[(a b) " !N\n!N !A\n!AC J\nJ @\n@\"1 A @\n@\"UD @\fB A\nA\f) !\n!\"!" [math-simple-set a b calcFunc-rdup vec math-beforep math-compare 0 calcFunc-vcompl calcFunc-vunion] 6]) (defalias 'calcFunc-vdiff #[(a b) " !Y\n!Y !A\n!AC U\n1\n@ @\"1\nA!\nI @\n@\"UI A\nA @\fB A\f) !\n\"!" [math-simple-set a b calcFunc-rdup vec math-beforep math-compare 0 calcFunc-vcompl calcFunc-vunion] 5]) (defalias 'calcFunc-vxor #[(a b) " !b\n!b !A\n!AC !\n^ >\n2 @\n@\"> @\fB A S @\n@\"US AX\n@\fB\nA\f) !\n! \n\n\n\"!  \"!\"*" [math-simple-set a b calcFunc-rdup vec math-beforep math-compare 0 calcFunc-vcompl cb ca calcFunc-vunion] 7]) (defalias 'calcFunc-vcompl #[(a) " !C AX @8ǚ% @A@>@ @A@>4˂5\\ @8F\nB @8 @A@>SĂT\fϚe Up \\F\nB\n!+" [math-prepare-set a vec (neg (var inf var-inf)) 2 closed prev (neg (var inf var-inf)) (2 3) intv (0 1) 1 0 3 (0 2) (var inf var-inf) (var inf var-inf) math-clean-set] 5]) (defalias 'calcFunc-vspan #[(a) " !A* GS 8 A@A@\"\nA@\"\\ A@8\n8#)ȇ" [math-prepare-set a last math-make-intv logand 2 1 3 (intv 2 0 0)] 6]) (defalias 'calcFunc-vfloor #[(a &optional always-vec) " !C ÉA@A@@8@8\f>L !L\f\"L !L \" !\f>p !p\f\"p !p \" ! \"8\"U  \"U\f F\nB\n\n\"-" [math-prepare-set a vec nil mask b prev p 2 3 (0 1) math-infinitep logior math-num-integerp math-add 1 math-ceiling (0 2) math-sub math-floor math-compare 0 -1 intv math-clean-set always-vec] 5]) (defalias 'calcFunc-vcard #[(a) " \" ! \" A< @=2 @8 @8\"\"\")" [calcFunc-vfloor a t math-constp math-reject-arg "*Set must be finite" 0 count intv math-add math-sub 3 2 1] 6]) (defalias 'calcFunc-venum #[(a) " \" ! \" AUAA@=MA@8A@8\"\"A@8\"AAA *" [calcFunc-vfloor a t math-constp math-reject-arg "*Set must be finite" nil next p intv calcFunc-index math-add math-sub 3 2 1] 8]) (defalias 'calcFunc-vpack #[(a) " \"A* A@= A@8 A@!* A@\" Ay @=l @8˚T @8!\" - @8T! @8!\"\" - @!\" - )" [calcFunc-vfloor a t math-negp intv 2 math-reject-arg posp 0 accum 3 (var inf var-inf) math-sub math-power-of-2 math-add] 8]) (defalias 'calcFunc-vunpack #[(a &optional w) " ! \"\f \f\" ! ! ! 1 \"2 =>ЂP:LA!P! [Ԃ\\ gՂhGCSYH=S}YH=SSUZZZZZZFB{ FB!.\n" [math-num-integerp a math-reject-arg integerp w math-clip math-messy-integerp math-trunc 2 calc-number-radix math-negp neg math-sub -1 aa 0 "" math-format-bignum-binary math-format-binary str 49 48 zero one len vec pos nil pos2 1 intv 3 (var inf var-inf) math-clean-set] 6]) (defalias 'calcFunc-rdup #[(a) " !X : @> D !! \" A!\"\n\nAS\n@\nA@\"UJ\nAA,\nA\n.) B !!" [math-simple-set a (bigpos bigneg frac float cplx polar hms date sdev intv mod) vec math-vectorp math-reject-arg vectorp sort copy-sequence math-beforep p math-compare 0 math-clean-set math-prepare-set] 4]) (defalias 'math-prepare-set #[(a) ":\f@>D(!\"A!\"B\n  A A@= A@!x A@A@>o A@8 A@8\"Uo AA. A 0 A@\". 8: 8@> 8@= 8ך 8ؚ A@\" A A@ A@F A 0  AA A@8Љ 88\"\n>\n= A@A@> 8A@> A  A@8 88\"\n  A@A@ A@8Љ 88\"UO 8A@P\"\"\n>e A@A@f\n>v 8A@w\"\"\\ A@8\n= A@8 88F AAAB*" [a (bigpos bigneg frac float cplx polar hms date sdev intv mod) vec math-vectorp math-reject-arg vectorp sort copy-sequence math-beforep nil res p intv math-intv-constp (0 1 2) math-compare 2 3 0 constp 1 (bigpos bigneg frac float hms) date (var inf var-inf) (neg (var inf var-inf)) realp (-1 2) (0 2) (0 1) logand logior (1 0 2) (-1 0 2)] 11]) (defalias 'math-clean-set #[(a &optional always-vec) "A3 A@=, A@8 A@8\"U, A A@8 AAAMA@=M MA@N*" [a nil res p intv math-compare 2 3 0 always-vec] 5]) (defalias 'math-simple-set #[(a) ":\f@>=?1:1@=1A/@= ?" [a (bigpos bigneg frac float cplx polar hms date sdev intv mod) intv vec] 2]) (defalias 'calcFunc-cross #[(a b) "=ZGUZ =U GUU8 8\"8 8\"\"8 A@\"A@ 8\"\"A@ 8\"8 A@\"\"F \"\"" [a vec 4 b math-sub math-mul 2 3 math-reject-arg "*Three-vector expected"] 8]) (defalias 'math-read-brackets #[(space-sep close) " ? = $ =) ȇ \n  ̚> ͚B΂EЍ); \n \n ڍ); \"  = \n\"+\" ̚ ͚' GVABA@  =!$ ނ$F) L L =L\"L 蚃: C!B) L =L\" =U -" [space-sep math-check-for-commas math-read-token exp-token space exp-data close end (vec) exp-pos exp-old-pos exp-keep-spaces "\\dots" "\\ldots" (vec (neg (var inf var-inf))) syntax (math-read-vector) vals save-exp-data save-exp-token save-exp-old-pos save-exp-pos nil vals2 error-exp-old-pos error-exp-pos (math-read-vector) assoc (("\\ldots") ("\\dots") (";")) throw 2 calcFunc-mul ")" (var inf var-inf) math-read-expr-level 0 exp2 intv 3 "Expected `]'" ";" vec math-read-matrix] 6]) (defalias 'math-check-for-commas #[(&optional balancing) " S YR Ƃ\nT#R\nHU2 V2 R\nH>B T\nH> S Z\nd\nd\nHU*" [0 exp-pos pos count string-match balancing "[],[{}()<>]" "[],[{}()]" exp-str 44 (91 123 40 60) (93 125 41 62)] 5]) (defalias 'math-read-vector #[nil "!C\f= \f=^ɚ^\n^˚^̚^͚@ \f=L @!C )\n*B" [math-read-expr-level 0 val last exp-token space math-read-token end exp-data ";" close "\\dots" "\\ldots" "," rest vec] 3]) (defalias 'math-read-matrix #[(mat) " = C " [exp-data ";" math-read-token exp-token space mat math-read-vector] 2])