Lines Matching refs:nth
198 (math-add (math-abs (nth 1 a)) (math-abs (nth 2 a))))
200 (nth 1 a))
202 (math-abs-approx (nth 1 a)))
204 (math-max (math-abs (nth 2 a)) (math-abs (nth 3 a))))
252 (setq vec (nth 2 (car p)))
254 (let ((v (nth 1 (car p))))
261 (let ((st (assq (nth 1 (car vec))
264 ((eq (nth 1 (car vec)) 'pos)
269 ((eq (nth 1 (car vec)) 'nonneg)
286 (nth 2 (car v))
320 (math-check-known-scalarp (nth 1 a)))
324 (or (assq (nth 2 a) math-decls-cache)
329 ((memq 'scalar (nth 1 decl))
332 (symbolp (nth 2 a))
333 (boundp (nth 2 a))
334 (setq val (symbol-value (nth 2 a))))
349 (math-check-known-matrixp (nth 1 a)))
353 (or (assq (nth 2 a) math-decls-cache)
358 ((memq 'matrix (nth 1 decl))
361 (symbolp (nth 2 a))
362 (boundp (nth 2 a))
363 (setq val (symbol-value (nth 2 a))))
373 (math-check-known-square-matrixp (nth 1 a)))
379 (math-check-known-square-matrixp (nth 1 a))
380 (math-check-known-square-matrixp (nth 2 a))))
383 (or (assq (nth 2 a) math-decls-cache)
388 ((memq 'sqmatrix (nth 1 decl))
391 (boundp (nth 2 a))
392 (setq val (symbol-value (nth 2 a))))
399 ((memq 'matrix (nth 1 decl))
451 ((math-known-posp (nth 2 a)) 4)
452 ((math-known-negp (nth 3 a)) 1)
453 ((Math-zerop (nth 2 a)) 6)
454 ((Math-zerop (nth 3 a)) 3)
457 (if (math-known-realp (nth 1 a)) 7 15))
460 (cond ((Math-realp (nth 1 a))
463 (math-possible-signs (nth 2 a)
465 (math-add origin (nth 1 a))
466 (nth 1 a))))
467 (math-possible-signs (nth 2 a)
469 (math-sub origin (nth 1 a))
470 (math-neg (nth 1 a))))))
471 ((Math-realp (nth 2 a))
473 (nth 2 a)
474 (math-neg (nth 2 a)))))
475 (math-possible-signs (nth 1 a)
480 (let ((s1 (math-possible-signs (nth 1 a) origin))
481 (s2 (math-possible-signs (nth 2 a))))
495 (nth 1 a)
501 (Math-realp (nth 1 a)))
503 (if (Math-zerop (nth 1 a))
505 (math-possible-signs (nth 2 a)
507 (nth 1 a))))
509 (math-possible-signs (nth 2 a)
510 (math-div (nth 1 a)
512 (if (Math-negp (nth 1 a)) (math-neg-signs s) s)))
513 ((and (memq (car a) '(* /)) (Math-realp (nth 2 a)))
514 (let ((s (math-possible-signs (nth 1 a)
516 (math-mul (or origin 0) (nth 2 a))
517 (math-div (or origin 0) (nth 2 a))))))
518 (if (Math-negp (nth 2 a)) (math-neg-signs s) s)))
528 (let ((s1 (math-possible-signs (nth 1 a)))
529 (s2 (math-possible-signs (nth 2 a))))
539 (let ((s1 (math-possible-signs (nth 1 a)))
540 (s2 (math-possible-signs (nth 2 a))))
546 ((Math-integerp (nth 2 a))
547 (if (math-evenp (nth 2 a))
553 (let ((s2 (math-possible-signs (nth 2 a))))
561 (let ((s1 (math-possible-signs (nth 1 a))))
566 (let ((s1 (math-possible-signs (nth 1 a))))
578 (math-known-posp (nth 2 a))))
579 (if (math-known-nonnegp (nth 1 a))
580 (math-possible-signs (nth 1 a) 1)
583 (let ((s1 (math-possible-signs (nth 1 a))))
591 (if (math-known-realp (nth 1 a)) 7 15)))))
600 (cond ((eq (nth 2 a) 'var-pi)
604 ((eq (nth 2 a) 'var-e)
608 ((eq (nth 2 a) 'var-inf) 4)
609 ((eq (nth 2 a) 'var-uinf) 13)
610 ((eq (nth 2 a) 'var-i) 8)
615 (or (assq (nth 2 a) math-decls-cache)
619 (memq 'int (nth 1 decl))
622 (if (nth 2 decl)
623 (math-possible-signs (nth 2 decl) origin)
624 (if (memq 'real (nth 1 decl))
662 (if (equal (nth 2 a) (nth 3 a))
663 (math-possible-types (nth 2 a))
666 (if (math-known-realp (nth 1 a)) 15 63))
668 (if (math-zerop (nth 1 a)) 16 32))
670 (if (or (Math-equal (nth 2 a) (math-quarter-circle nil))
671 (Math-equal (nth 2 a)
676 (let* ((t1 (math-possible-types (nth 1 a) num))
677 (t2 (math-possible-types (nth 2 a) num))
694 (let* ((t1 (math-possible-types (nth 1 a) num))
695 (t2 (math-possible-types (nth 2 a) num))
726 (math-possible-types (nth 1 a)))
728 (let* ((t1 (math-possible-types (nth 1 a) num))
729 (t2 (math-possible-types (nth 2 a) num))
731 (if (and (<= t2 3) (math-known-nonnegp (nth 2 a)) (< t1 16))
741 (if (and (math-known-nonnegp (nth 1 a))
742 (math-known-posp (nth 2 a)))
746 (let ((t1 (math-possible-signs (nth 1 a))))
758 (math-known-nonnegp (or (nth 2 a) 0))))
762 (math-known-nonnegp (or (nth 2 a) 0))))
767 (let ((t1 (math-possible-types (nth 1 a))))
773 (let ((t1 (math-possible-types (nth 1 a))))
778 (cond ((memq (nth 2 a) '(var-e var-pi var-phi var-gamma)) 8)
779 ((eq (nth 2 a) 'var-inf) 1)
780 ((eq (nth 2 a) 'var-i) 16)
785 (or (assq (nth 2 a) math-decls-cache)
788 (cond ((memq 'int (nth 1 decl))
790 ((memq 'numint (nth 1 decl))
792 ((memq 'frac (nth 1 decl))
794 ((memq 'rat (nth 1 decl))
796 ((memq 'float (nth 1 decl))
798 ((nth 2 decl)
799 (math-possible-types (nth 2 decl)))
800 ((memq 'real (nth 1 decl))
808 (or (> (nth 2 a) 0)
811 (if (math-known-evenp (nth 1 a))
812 (math-known-num-integerp (nth 2 a))
813 (if (math-known-num-integerp (nth 1 a))
814 (math-known-evenp (nth 2 a)))))
816 (or (and (math-known-evenp (nth 1 a))
817 (math-known-evenp (nth 2 a)))
818 (and (math-known-oddp (nth 1 a))
819 (math-known-oddp (nth 2 a)))))
821 (math-known-evenp (nth 1 a)))))
827 (and (<= (nth 2 a) 0)
830 (or (and (math-known-evenp (nth 1 a))
831 (math-known-oddp (nth 2 a)))
832 (and (math-known-oddp (nth 1 a))
833 (math-known-evenp (nth 2 a)))))
835 (math-known-oddp (nth 1 a)))))
922 (setq range (nth 2 (or (assq (nth 2 expr) math-decls-cache)
924 (setq range (nth 2 (assq (car-safe expr) math-decls-cache))))
954 (nth 1 a)
955 (if (math-posp (nth 2 a))
956 (math-sub (nth 2 a) (math-half-circle nil))
957 (math-add (nth 2 a) (math-half-circle nil)))))
959 (if (math-zerop (nth 1 a))
961 (list 'mod (math-sub (nth 2 a) (nth 1 a)) (nth 2 a))))
963 (list 'sdev (math-neg (nth 1 a)) (nth 2 a)))
965 (math-make-intv (aref [0 2 1 3] (nth 1 a))
966 (math-neg (nth 3 a))
967 (math-neg (nth 2 a))))
972 (math-sub (math-neg (nth 1 a)) (nth 2 a)))
974 (math-sub (nth 2 a) (nth 1 a)))
976 (math-okay-neg (nth 1 a)))
977 (list (car a) (math-neg (nth 1 a)) (nth 2 a)))
979 (math-okay-neg (nth 2 a)))
980 (list (car a) (nth 1 a) (math-neg (nth 2 a))))
982 (or (math-objectp (nth 1 a))
983 (and (eq (car (nth 1 a)) '*)
984 (math-objectp (nth 1 (nth 1 a))))))
985 (list (car a) (math-neg (nth 1 a)) (nth 2 a)))
987 (or (math-objectp (nth 2 a))
988 (and (eq (car (nth 2 a)) '*)
989 (math-objectp (nth 1 (nth 2 a))))))
990 (list (car a) (nth 1 a) (math-neg (nth 2 a))))
991 ((and (eq (car a) 'var) (memq (nth 2 a) '(var-uinf var-nan)))
994 (nth 1 a))
1002 (list 'float (Math-integer-neg (nth 1 a)) (nth 2 a)))
1027 (math-add (nth 1 aa) (nth 1 bb))
1028 (math-add (nth 2 aa) (nth 2 bb)))))
1036 (math-make-sdev (math-add (nth 1 a) (nth 1 b))
1037 (math-hypot (nth 2 a) (nth 2 b)))
1040 (math-make-sdev (math-add (nth 1 a) b) (nth 2 a)))))
1044 (math-make-sdev (math-add a (nth 1 b)) (nth 2 b)))
1047 (math-make-intv (logior (logand (nth 1 a) (nth 1 b))
1048 (if (equal (nth 2 a)
1050 (logand (nth 1 a) 2) 0)
1051 (if (equal (nth 2 b)
1053 (logand (nth 1 b) 2) 0)
1054 (if (equal (nth 3 a) '(var inf var-inf))
1055 (logand (nth 1 a) 1) 0)
1056 (if (equal (nth 3 b) '(var inf var-inf))
1057 (logand (nth 1 b) 1) 0))
1058 (math-add (nth 2 a) (nth 2 b))
1059 (math-add (nth 3 a) (nth 3 b)))
1063 (math-make-intv (nth 1 a)
1064 (math-add (nth 2 a) b)
1065 (math-add (nth 3 a) b)))))
1070 (math-make-intv (nth 1 b)
1071 (math-add a (nth 2 b))
1072 (math-add a (nth 3 b))))
1075 (math-add (nth 1 a) (nth 1 b)))
1077 (let ((parts (math-date-parts (nth 1 a))))
1081 (math-add (nth 1 parts)
1082 (nth 2 parts))
1084 (math-mul (nth 1 b) 3600)
1085 (math-add (math-mul (nth 2 b) 60)
1086 (nth 3 b))))
1089 (list 'date (math-add (nth 1 a) b)))
1095 (equal (nth 2 a) (nth 2 b)))
1096 (math-make-mod (math-add (nth 1 a) (nth 1 b)) (nth 2 a)))
1099 (math-make-mod (math-add (nth 1 a) b) (nth 2 a)))
1102 (math-make-mod (math-add a (nth 1 b)) (nth 2 b)))
1111 (let* ((s (math-add (nth 3 a) (nth 3 b)))
1112 (m (math-add (nth 2 a) (nth 2 b)))
1113 (h (math-add (nth 1 a) (nth 1 b))))
1123 (let* ((s (math-add (nth 3 a) (nth 3 b)))
1124 (m (math-add (nth 2 a) (nth 2 b)))
1125 (h (math-add (nth 1 a) (nth 1 b))))
1134 (math-add (math-add a (nth 1 b))
1135 (nth 2 b)))
1137 (math-sub (math-add a (nth 1 b))
1138 (nth 2 b)))
1140 (eq (car-safe (nth 1 b)) '+)
1141 (math-sub (math-sub a (nth 1 (nth 1 b)))
1142 (nth 2 (nth 1 b))))
1151 (if (or (memq (nth 2 inf) '(var-uinf var-nan))
1152 (memq (nth 2 inf2) '(var-uinf var-nan)))
1162 (memq (nth 1 b) '(2 3))
1163 (equal (nth 2 b) '(neg (var inf var-inf))))
1164 (list 'intv 3 (nth 2 b) a)
1167 (memq (nth 1 b) '(1 3))
1168 (equal (nth 3 b) '(var inf var-inf)))
1169 (list 'intv 3 a (nth 3 b))
1176 (let ((temp (math-combine-sum (nth 2 a) b nil nil t)))
1178 (math-add (nth 1 a) temp))))
1180 (let ((temp (math-combine-sum (nth 2 a) b t nil t)))
1182 (math-add (nth 1 a) temp))))
1195 (list 'calcFunc-idn (math-add (nth 1 a) (nth 1 b))))
1197 (math-add (math-mimic-ident (nth 1 a) b) b))
1199 (math-add (nth 1 a) b))))
1203 (math-add a (math-mimic-ident (nth 1 b) a)))
1205 (math-add a (nth 1 b)))))
1224 (math-mul (nth 1 a) (nth 1 b))
1225 (math-fix-circular (math-add (nth 2 a) (nth 2 b)))))
1229 (math-sub (math-mul (nth 1 a) (nth 1 b))
1230 (math-mul (nth 2 a) (nth 2 b)))
1231 (math-add (math-mul (nth 1 a) (nth 2 b))
1232 (math-mul (nth 2 a) (nth 1 b)))))))
1237 (if (= (length (nth 1 a)) (length b))
1240 (if (= (length (nth 1 a)) 2)
1244 (if (= (length (nth 1 a)) (length b))
1249 (nth 1 (math-mul-mats (list 'vec a) b))
1259 (math-make-sdev (math-mul (nth 1 a) (nth 1 b))
1260 (math-hypot (math-mul (nth 2 a) (nth 1 b))
1261 (math-mul (nth 2 b) (nth 1 a))))
1264 (math-make-sdev (math-mul (nth 1 a) b)
1265 (math-mul (nth 2 a) b)))))
1269 (math-make-sdev (math-mul a (nth 1 b)) (math-mul a (nth 2 b))))
1273 (math-make-intv (nth 1 a)
1274 (math-mul (nth 2 a) b)
1275 (math-mul (nth 3 a) b))))
1280 (let ((lo (math-mul a (nth 2 b)))
1281 (hi (math-mul a (nth 3 b))))
1283 (setq lo (list 'intv (if (memq (nth 1 b) '(2 3)) 3 0) lo lo)))
1285 (setq hi (list 'intv (if (memq (nth 1 b) '(1 3)) 3 0) hi hi)))
1287 (nth 2 lo) (and (or (memq (nth 1 b) '(2 3))
1288 (math-infinitep (nth 2 lo)))
1289 (memq (nth 1 lo) '(2 3)))
1290 (nth 3 lo) (and (or (memq (nth 1 b) '(2 3))
1291 (math-infinitep (nth 3 lo)))
1292 (memq (nth 1 lo) '(1 3)))
1293 (nth 2 hi) (and (or (memq (nth 1 b) '(1 3))
1294 (math-infinitep (nth 2 hi)))
1295 (memq (nth 1 hi) '(2 3)))
1296 (nth 3 hi) (and (or (memq (nth 1 b) '(1 3))
1297 (math-infinitep (nth 3 hi)))
1298 (memq (nth 1 hi) '(1 3))))))
1301 (equal (nth 2 a) (nth 2 b)))
1302 (math-make-mod (math-mul (nth 1 a) (nth 1 b)) (nth 2 a)))
1305 (math-make-mod (math-mul (nth 1 a) b) (nth 2 a)))
1308 (math-make-mod (math-mul a (nth 1 b)) (nth 2 b)))
1318 (math-make-float (math-mul (nth 1 a) (nth 1 b))
1319 (+ (nth 2 a) (nth 2 b))))
1322 (math-make-float (math-mul (nth 1 a) (nth 1 a))
1323 (+ (nth 2 a) (nth 2 a))))
1326 (and (or (Math-anglep (nth 2 a))
1327 (and (equal (nth 2 a) '(neg (var inf var-inf)))
1329 (memq (nth 1 a) '(0 1)))))
1330 (or (Math-anglep (nth 3 a))
1331 (and (equal (nth 3 a) '(var inf var-inf))
1333 (memq (nth 1 a) '(0 2)))))))
1345 (and (equal (nth 2 b) '(neg (var inf var-inf)))
1346 (memq (nth 1 b) '(2 3))
1347 (setq aa (nth 2 b)))
1348 (and (equal (nth 3 b) '(var inf var-inf))
1349 (memq (nth 1 b) '(1 3))
1350 (setq bb (nth 3 b)))
1378 (math-neg (math-mul (nth 1 a) b)))
1380 (math-neg (math-mul a (nth 1 b))))
1382 (math-mul (nth 1 a)
1383 (math-mul (nth 2 a) b)))
1385 (Math-looks-negp (nth 2 a))
1386 (not (and (eq (car-safe b) '^) (Math-looks-negp (nth 2 b))))
1389 (list '^ (nth 1 a) (math-neg (nth 2 a))))))
1391 (Math-looks-negp (nth 2 b))
1392 (not (and (eq (car-safe a) '^) (Math-looks-negp (nth 2 a))))
1393 (not (math-known-matrixp (nth 1 b)))
1395 (list '^ (nth 1 b) (math-neg (nth 2 b))))))
1398 (let ((temp (math-combine-prod (nth 2 a) b t nil t)))
1400 (math-mul (nth 1 a) temp)
1401 (math-div (math-mul (nth 1 a) b) (nth 2 a)))))
1403 (math-div (math-mul a (nth 1 b)) (nth 2 b)))
1406 (or (Math-numberp (nth 1 b))
1407 (Math-numberp (nth 2 b)))
1408 (math-add (math-mul a (nth 1 b))
1409 (math-mul a (nth 2 b))))
1412 (or (Math-numberp (nth 1 b))
1413 (Math-numberp (nth 2 b)))
1414 (math-sub (math-mul a (nth 1 b))
1415 (math-mul a (nth 2 b))))
1417 (Math-numberp (nth 1 b))
1419 (math-mul (nth 1 b) (math-mul a (nth 2 b))))
1424 (list 'calcFunc-idn (math-mul (nth 1 a) (nth 1 b))))
1426 (list 'calcFunc-idn (math-mul (nth 1 a) b)))
1428 (math-mul (nth 1 a) b))))
1432 (list 'calcFunc-idn (math-mul a (nth 1 b))))
1434 (math-mul a (nth 1 b)))))
1439 (nth 1 (nth 1 a))
1440 (nth 1 b))
1444 (nth 1 (nth 1 a)) b)
1447 (math-mul (nth 1 (nth 1 a)) b))))
1451 (list 'calcFunc-idn (math-mul (nth 1 a)
1452 (nth 1 (nth 1 b)))
1455 (list 'calcFunc-idn (math-mul a (nth 1 (nth 1 b)))
1458 (math-mul a (nth 1 (nth 1 b))))))
1466 (let ((temp (math-combine-prod a (nth 1 b) nil nil t)))
1468 (math-mul temp (nth 2 b)))))
1492 (math-zerop (nth 1 a)))
1493 (list '* (list 'cplx 0 (calcFunc-sign (nth 2 a))) b))
1495 (list '* (list 'polar 1 (nth 2 a)) b)))))
1514 (math-div (nth 1 a) (nth 1 b))
1515 (math-fix-circular (math-sub (nth 2 a)
1516 (nth 2 b))))))
1519 (list 'cplx (math-div (nth 1 a) b)
1520 (math-div (nth 2 a) b)))
1526 (math-add (math-mul (nth 1 a) (nth 1 b))
1527 (math-mul (nth 2 a) (nth 2 b)))
1528 (math-sub (math-mul (nth 2 a) (nth 1 b))
1529 (math-mul (nth 1 a) (nth 2 b))))
1530 (math-add (math-sqr (nth 1 b))
1531 (math-sqr (nth 2 b))))))))
1539 (if (= (length (nth 1 a)) n1)
1558 (let ((x (math-div (nth 1 a) (nth 1 b))))
1560 (math-div (math-hypot (nth 2 a)
1561 (math-mul (nth 2 b) x))
1562 (nth 1 b))))
1565 (math-make-sdev (math-div (nth 1 a) b) (math-div (nth 2 a) b))
1570 (let ((x (math-div a (nth 1 b))))
1572 (math-div (math-mul (nth 2 b) x) (nth 1 b)))))
1576 (math-make-intv (nth 1 a)
1577 (math-div (nth 2 a) b)
1578 (math-div (nth 3 a) b))))
1580 (if (or (Math-posp (nth 2 b))
1581 (and (Math-zerop (nth 2 b)) (or (memq (nth 1 b) '(0 1))
1586 (math-make-intv (aref [0 2 1 3] (nth 1 b))
1587 (math-div a (nth 3 b))
1588 (math-div a (nth 2 b)))))
1589 (if (or (Math-negp (nth 3 b))
1590 (and (Math-zerop (nth 3 b)) (or (memq (nth 1 b) '(0 2))
1598 (if (or (Math-posp (nth 2 b))
1599 (and (Math-zerop (nth 2 b)) (or (memq (nth 1 b) '(0 1))
1602 (lo (math-div a (nth 2 b)))
1603 (hi (math-div a (nth 3 b))))
1605 (setq lo (list 'intv (if (memq (nth 1 b) '(2 3)) 3 0)
1608 (setq hi (list 'intv (if (memq (nth 1 b) '(1 3)) 3 0)
1611 (nth 2 lo) (and (or (memq (nth 1 b) '(2 3))
1612 (and (math-infinitep (nth 2 lo))
1613 (not (math-zerop (nth 2 b)))))
1614 (memq (nth 1 lo) '(2 3)))
1615 (nth 3 lo) (and (or (memq (nth 1 b) '(2 3))
1616 (and (math-infinitep (nth 3 lo))
1617 (not (math-zerop (nth 2 b)))))
1618 (memq (nth 1 lo) '(1 3)))
1619 (nth 2 hi) (and (or (memq (nth 1 b) '(1 3))
1620 (and (math-infinitep (nth 2 hi))
1621 (not (math-zerop (nth 3 b)))))
1622 (memq (nth 1 hi) '(2 3)))
1623 (nth 3 hi) (and (or (memq (nth 1 b) '(1 3))
1624 (and (math-infinitep (nth 3 hi))
1625 (not (math-zerop (nth 3 b)))))
1626 (memq (nth 1 hi) '(1 3)))))
1627 (if (or (Math-negp (nth 3 b))
1628 (and (Math-zerop (nth 3 b)) (or (memq (nth 1 b) '(0 2))
1636 (equal (nth 2 a) (nth 2 b)))
1637 (math-make-mod (math-div-mod (nth 1 a) (nth 1 b) (nth 2 a))
1638 (nth 2 a)))
1641 (math-make-mod (math-div-mod (nth 1 a) b (nth 2 a)) (nth 2 a)))
1644 (math-make-mod (math-div-mod a (nth 1 b) (nth 2 b)) (nth 2 b)))
1684 (if (and (math-zerop (nth 2 b))
1686 (nth 2 b) '(neg (var inf var-inf)))
1687 (if (and (math-zerop (nth 3 b))
1689 (nth 3 b) '(var inf var-inf)))
1726 (math-div-isolate-trig-term (nth 1 expr))
1727 (math-div-isolate-trig (nth 2 expr)))
1748 (or (Math-looks-negp (nth 2 b)) (Math-equal-int a 1))
1750 (list '^ (nth 1 b) (math-neg (nth 2 b))))))
1752 (math-neg (math-div (nth 1 a) b)))
1754 (math-neg (math-div a (nth 1 b))))
1756 (math-div (nth 1 a) (math-mul (nth 2 a) b)))
1758 (or (math-known-scalarp (nth 1 b) t)
1759 (math-known-scalarp (nth 2 b) t))
1760 (math-div (math-mul a (nth 2 b)) (nth 1 b)))
1762 (math-mul (math-make-frac (nth 2 b) (nth 1 b)) a))
1764 (or (Math-numberp (nth 1 a))
1765 (Math-numberp (nth 2 a)))
1767 (math-add (math-div (nth 1 a) b)
1768 (math-div (nth 2 a) b)))
1770 (or (Math-numberp (nth 1 a))
1771 (Math-numberp (nth 2 a)))
1773 (math-sub (math-div (nth 1 a) b)
1774 (math-div (nth 2 a) b)))
1786 (list 'calcFunc-idn (math-div (nth 1 a) (nth 1 b))))
1788 (list 'calcFunc-idn (math-div (nth 1 a) b)))
1790 (math-div (nth 1 a) b))))
1794 (list 'calcFunc-idn (math-div a (nth 1 b))))
1796 (math-div a (nth 1 b)))))
1811 (let ((c (math-combine-prod (nth 1 a) (nth 1 b) nil t t)))
1813 (math-div (math-mul c (nth 2 a)) (nth 2 b))))
1814 (let ((c (math-combine-prod (nth 1 a) b nil t t)))
1816 (math-mul c (nth 2 a)))))
1818 (let ((c (math-combine-prod a (nth 1 b) nil t t)))
1820 (math-div c (nth 2 b))))
1831 (math-zerop (nth 2 b))))
1838 (math-zerop (nth 3 b))))
1844 (math-negp (nth 2 b)) (math-posp (nth 3 b)))
1870 (if (math-negp (nth 2 a))
1875 (math-make-mod (nth 1 a) b))
1912 (math-negp (nth 2 b))
1913 (math-posp (nth 3 b)))
1921 (math-make-mod 1 (nth 2 a))
1941 (integerp (nth 2 b))
1942 (<= (nth 2 b) 10)
1943 (let ((root (math-nth-root a (nth 2 b))))
1944 (and root (math-ipow root (nth 1 b))))))
1962 (math-known-matrixp (nth 1 a))
1963 (math-known-matrixp (nth 2 a)))
1967 (and (not (math-known-scalarp (nth 1 a)))
1968 (not (math-known-scalarp (nth 2 a)))))))
1970 (math-known-square-matrixp (nth 1 a))
1971 (math-known-square-matrixp (nth 2 a)))
1972 (math-mul (math-pow-fancy (nth 2 a) -1)
1973 (math-pow-fancy (nth 1 a) -1))
1977 (math-known-nonnegp (nth 1 a))
1978 (math-known-nonnegp (nth 2 a))))
1979 (math-mul (math-pow (nth 1 a) b)
1980 (math-pow (nth 2 a) b)))
1983 (math-known-nonnegp (nth 2 a))))
1984 (math-div (math-pow (nth 1 a) b)
1985 (math-pow (nth 2 a) b)))
1987 (math-known-nonnegp (nth 1 a))
1988 (not (math-equal-int (nth 1 a) 1)))
1989 (math-mul (math-pow (nth 1 a) b)
1990 (math-pow (math-div 1 (nth 2 a)) b)))
1993 (math-known-nonnegp (nth 1 a))))
1994 (math-pow (nth 1 a) (math-mul (nth 2 a) b)))
1997 (math-known-nonnegp (nth 1 a))))
1998 (math-pow (nth 1 a) (math-div b 2)))
2000 (math-known-evenp (nth 2 a))
2002 (math-known-realp (nth 1 a)))
2003 (math-abs (math-pow (nth 1 a) (math-mul (nth 2 a) b))))
2013 (math-known-realp (nth 1 a))
2015 (math-pow (nth 1 a) b))
2020 (math-mul (math-pow -1 b) (math-pow (nth 1 a) b)))
2047 (if (math-equal-int (nth 3 a) 1)
2056 (list 'calcFunc-idn (math-pow (nth 1 a) b)))
2064 (let* ((ln (math-ln-raw (math-float (nth 1 a))))
2066 (math-float (math-mul (nth 1 b) ln)))))
2071 (math-hypot (math-mul (nth 2 a)
2072 (math-div (nth 1 b) (nth 1 a)))
2073 (math-mul (nth 2 b) ln))))))
2074 (let ((pow (math-pow (nth 1 a) (nth 1 b))))
2078 (math-hypot (math-mul (nth 2 a)
2079 (math-div (nth 1 b) (nth 1 a)))
2080 (math-mul (nth 2 b) (calcFunc-ln
2081 (nth 1 a)))))))))
2085 (let ((pow (math-pow (nth 1 a) (math-sub b 1))))
2086 (math-make-sdev (math-mul pow (nth 1 a))
2087 (math-mul pow (math-mul (nth 2 a) b)))))
2088 (math-make-sdev (math-pow (nth 1 a) b)
2089 (math-mul (math-pow (nth 1 a) (math-add b -1))
2090 (math-mul (nth 2 a) b)))))
2094 (pow (calcFunc-exp (math-mul (nth 1 b) ln))))
2095 (math-make-sdev pow (math-mul pow (math-mul (nth 2 b) ln))))))
2099 (Math-posp (nth 2 a))
2100 (and (math-zerop (nth 2 a))
2103 (Math-negp (nth 3 a))
2104 (and (math-zerop (nth 3 a))
2109 (let ((calc-infinite-mode (if (math-zerop (nth 3 a)) -1 1)))
2110 (math-sort-intv (nth 1 a)
2111 (math-pow (nth 2 a) b)
2112 (math-pow (nth 3 a) b))))
2115 (math-sort-intv (nth 1 b)
2116 (math-pow a (nth 2 b))
2117 (math-pow a (nth 3 b))))
2120 (or (and (not (Math-negp (nth 2 a)))
2121 (not (Math-negp (nth 2 b))))
2122 (and (Math-posp (nth 2 a))
2123 (not (Math-posp (nth 3 b))))))
2124 (let ((lo (math-pow a (nth 2 b)))
2125 (hi (math-pow a (nth 3 b))))
2127 (setq lo (list 'intv (if (memq (nth 1 b) '(2 3)) 3 0) lo lo)))
2129 (setq hi (list 'intv (if (memq (nth 1 b) '(1 3)) 3 0) hi hi)))
2131 (nth 2 lo) (and (or (memq (nth 1 b) '(2 3))
2132 (math-infinitep (nth 2 lo)))
2133 (memq (nth 1 lo) '(2 3)))
2134 (nth 3 lo) (and (or (memq (nth 1 b) '(2 3))
2135 (math-infinitep (nth 3 lo)))
2136 (memq (nth 1 lo) '(1 3)))
2137 (nth 2 hi) (and (or (memq (nth 1 b) '(1 3))
2138 (math-infinitep (nth 2 hi)))
2139 (memq (nth 1 hi) '(2 3)))
2140 (nth 3 hi) (and (or (memq (nth 1 b) '(1 3))
2141 (math-infinitep (nth 3 hi)))
2142 (memq (nth 1 hi) '(1 3))))))
2144 (equal (nth 2 a) (nth 2 b)))
2145 (math-make-mod (math-pow-mod (nth 1 a) (nth 1 b) (nth 2 a))
2146 (nth 2 a)))
2148 (math-make-mod (math-pow-mod (nth 1 a) b (nth 2 a)) (nth 2 a)))
2150 (math-make-mod (math-pow-mod a (nth 1 b) (nth 2 b)) (nth 2 b)))
2164 (if (eq (nth 2 x) 2)
2166 (and (eq (nth 2 x) 4)
2168 (setq x (nth 1 x))
2169 (% (if (consp x) (nth 1 x) x) 4))))
2171 (if (>= (nth 2 x) 0)
2173 (if (= (nth 2 x) -1)
2175 (setq x (nth 1 x))
2176 (and (= (% (if (consp x) (nth 1 x) x) 10) 5) 2))
2177 (if (= (nth 2 x) -2)
2179 (setq x (nth 1 x)
2180 x (% (if (consp x) (nth 1 x) x) 100))
2215 (let ((lo (nth 2 a))
2216 (lom (memq (nth 1 a) '(2 3)))
2217 (hi (nth 3 a))
2218 (him (memq (nth 1 a) '(1 3)))
2220 (if (= (setq res (math-compare (nth 2 b) lo)) -1)
2221 (setq lo (nth 2 b) lom (memq (nth 1 b) '(2 3)))
2223 (setq lom (or lom (memq (nth 1 b) '(2 3))))))
2224 (if (= (setq res (math-compare (nth 3 b) hi)) -1)
2225 (setq hi (nth 3 b) him (memq (nth 1 b) '(1 3)))
2227 (setq him (or him (memq (nth 1 b) '(1 3))))))
2295 (math-hypot (nth 1 a) (nth 2 a)))
2297 (nth 1 a))
2302 (math-hypot (nth 1 a) (nth 2 a))
2304 (math-abs (nth 1 a))
2307 (list 'sdev (math-abs (nth 1 a)) (nth 2 a)))
2311 (let* ((nlo (math-neg (nth 2 a)))
2312 (res (math-compare nlo (nth 3 a))))
2314 (math-make-intv (if (memq (nth 1 a) '(0 1)) 2 3) 0 nlo))
2316 (math-make-intv (if (eq (nth 1 a) 0) 2 3) 0 nlo))
2318 (math-make-intv (if (memq (nth 1 a) '(0 2)) 2 3)
2319 0 (nth 3 a)))))))
2337 (cons (car a) (cons (nth 1 a) (mapcar 'math-float (nthcdr 2 a)))))
2339 (math-numberp (nth 1 a)))
2340 (list (car a) (math-float (nth 1 a))
2341 (list 'calcFunc-float (nth 2 a))))
2343 (eq (car (nth 1 a)) '*)
2344 (math-numberp (nth 1 (nth 1 a))))
2345 (list '* (math-float (nth 1 (nth 1 a)))
2346 (list 'calcFunc-float (list '/ (nth 2 (nth 1 a)) (nth 2 a)))))
2365 (cond ((eq (car a) 'frac) (math-quotient (nth 1 a) (nth 2 a)))
2366 ((eq (car a) 'cplx) (math-trunc (nth 1 a)))
2368 ((eq (car a) 'hms) (list 'hms (nth 1 a) 0 0))
2369 ((eq (car a) 'date) (list 'date (math-trunc (nth 1 a))))
2371 (if (math-messy-integerp (nth 2 a))
2372 (math-trunc (math-make-mod (nth 1 a) (math-trunc (nth 2 a))))
2373 (math-make-mod (math-trunc (nth 1 a)) (nth 2 a))))
2375 (math-make-intv (+ (if (and (equal (nth 2 a) '(neg (var inf var-inf)))
2376 (memq (nth 1 a) '(0 1)))
2378 (if (and (equal (nth 3 a) '(var inf var-inf))
2379 (memq (nth 1 a) '(0 2)))
2381 (if (and (Math-negp (nth 2 a))
2382 (Math-num-integerp (nth 2 a))
2383 (memq (nth 1 a) '(0 1)))
2384 (math-add (math-trunc (nth 2 a)) 1)
2385 (math-trunc (nth 2 a)))
2386 (if (and (Math-posp (nth 3 a))
2387 (Math-num-integerp (nth 3 a))
2388 (memq (nth 1 a) '(0 2)))
2389 (math-add (math-trunc (nth 3 a)) -1)
2390 (math-trunc (nth 3 a)))))
2438 (and (math-zerop (nth 2 a))
2439 (math-zerop (nth 3 a))))
2442 ((eq (car a) 'date) (list 'date (math-floor (nth 1 a))))
2444 (math-make-intv (+ (if (and (equal (nth 2 a) '(neg (var inf var-inf)))
2445 (memq (nth 1 a) '(0 1)))
2447 (if (and (equal (nth 3 a) '(var inf var-inf))
2448 (memq (nth 1 a) '(0 2)))
2450 (math-floor (nth 2 a))
2451 (if (and (Math-num-integerp (nth 3 a))
2452 (memq (nth 1 a) '(0 2)))
2453 (math-add (math-floor (nth 3 a)) -1)
2454 (math-floor (nth 3 a)))))
2505 (and (math-zerop (nth 2 a))
2506 (math-zerop (nth 3 a))))
2509 ((eq (car a) 'date) (list 'date (math-ceiling (nth 1 a))))
2511 (math-make-intv (+ (if (and (equal (nth 2 a) '(neg (var inf var-inf)))
2512 (memq (nth 1 a) '(0 1)))
2514 (if (and (equal (nth 3 a) '(var inf var-inf))
2515 (memq (nth 1 a) '(0 2)))
2517 (if (and (Math-num-integerp (nth 2 a))
2518 (memq (nth 1 a) '(0 1)))
2519 (math-add (math-floor (nth 2 a)) 1)
2520 (math-ceiling (nth 2 a)))
2521 (math-ceiling (nth 3 a))))
2572 ((eq (car a) 'date) (list 'date (math-round (nth 1 a))))
2613 (eq (nth 1 x) 0))
2615 (list 'float (nth 1 x) (- 1 (math-numdigs (nth 1 x)))))
2622 (eq (nth 1 x) 0))
2624 (math-normalize (+ (nth 2 x) (1- (math-numdigs (nth 1 x))))))
2638 (math-make-frac (math-scale-int (nth 1 x) n) (nth 2 x))
2639 (math-make-frac (nth 1 x) (math-scale-int (nth 2 x) (- n)))))
2641 (math-make-float (nth 1 x) (+ (nth 2 x) n)))
2645 (calcFunc-scf (nth 1 x) n)
2646 (calcFunc-scf (nth 2 x) n))))
2650 (calcFunc-scf (nth 1 x) n)
2651 (nth 2 x))))
2655 (nth 1 x)
2656 (calcFunc-scf (nth 2 x) n)
2657 (calcFunc-scf (nth 3 x) n))))
2666 (if (< (nth 2 n) 10)
2688 (+ (nth 2 x)
2689 (- (math-numdigs (nth 1 x))
2692 (if (Math-integerp (nth 1 x))
2717 (math-add (math-sqr (nth 1 a))
2718 (math-sqr (nth 2 a))))
2720 (math-sqr (nth 1 a)))
2767 (Math-objectp (nth 1 a)))
2768 (setq amult (nth 1 a)
2769 a (nth 2 a)))
2771 (Math-objectp (nth 2 a)))
2772 (setq amult (if (Math-integerp (nth 2 a))
2773 (list 'frac 1 (nth 2 a))
2774 (math-div 1 (nth 2 a)))
2775 a (nth 1 a)))
2778 a (nth 1 a)))))
2781 (Math-objectp (nth 1 b)))
2782 (setq bmult (nth 1 b)
2783 b (nth 2 b)))
2785 (Math-objectp (nth 2 b)))
2786 (setq bmult (if (Math-integerp (nth 2 b))
2787 (list 'frac 1 (nth 2 b))
2788 (math-div 1 (nth 2 b)))
2789 b (nth 1 b)))
2792 b (nth 1 b)))))
2828 (math-looks-negp (nth 2 a)))
2829 (math-mul (math-pow (nth 1 a) (math-neg (nth 2 a))) b))
2832 (math-looks-negp (nth 2 b)))
2833 (math-mul a (math-pow (nth 1 b) (math-neg (nth 2 b)))))
2840 (Math-numberp (nth 2 a))))
2841 (setq apow (nth 2 a)
2842 a (nth 1 a)))
2845 a (nth 1 a)))
2848 (Math-numberp (nth 1 a))))
2849 (setq apow (nth 1 a)
2852 (Math-lessp (nth 1 a) (nth 2 a))
2857 (Math-numberp (nth 2 b))))
2858 (setq bpow (nth 2 b)
2859 b (nth 1 b)))
2862 b (nth 1 b)))
2865 (Math-numberp (nth 1 b))))
2866 (setq bpow (nth 1 b)
2869 (Math-lessp (nth 1 b) (nth 2 b))
2904 (setq ua (if (eq (nth 1 a) (car ua))
2906 (nth 1 (assq (aref (symbol-name (nth 1 a))
2909 ub (if (eq (nth 1 b) (car ub))
2911 (nth 1 (assq (aref (symbol-name (nth 1 b))
3057 (math-commutative-collect (nth 1 b) neg)
3058 (math-commutative-collect (nth 2 b) neg))
3061 (math-commutative-collect (nth 1 b) neg)
3062 (math-commutative-collect (nth 2 b) (not neg)))