lisp/calc/calcalg3.el

38    (let ((func (if (calc-is-hyperbolic) 'calcFunc-wroot 'calcFunc-root)))
60 		       'calcFunc-wmaximize 'calcFunc-maximize)
62 		     'calcFunc-wminimize 'calcFunc-minimize)))
95 	 (calc-enter-result 1 "rati" (list 'calcFunc-ratint data (calc-top 1)))
96        (calc-enter-result 1 "poli" (list 'calcFunc-polint data
114    (let ((func (if (calc-is-inverse) 'calcFunc-xfit
115 		 (if (calc-is-hyperbolic) 'calcFunc-efit
116 		   'calcFunc-fit)))
184 				    (calcFunc-reduce
186 				     (calcFunc-map
194 				    (calcFunc-reduce
196 				     (calcFunc-map
204 				    (calcFunc-reduce
206 				     (calcFunc-map
209 					'(calcFunc-lambda
212 				      (calcFunc-map
222 			      (list 'calcFunc-exp calc-curve-model)
229 					  (cons 1 (cdr (calcFunc-map
303 		    (let ((with-y (eq (car-safe calc-curve-model) 'calcFunc-eq)))
551 		(setq high (calcFunc-incr high 10))
711 			      (or (calcFunc-deriv (car p)
732 	     (deriv (calcFunc-deriv expr '(var DUMMY var-DUMMY) nil t))
754 		      (setq low (calcFunc-incr low 1 high)))
756 		      (setq high (calcFunc-incr high -1 low)))
778 (defun calcFunc-root (expr var guess)
781 (defun calcFunc-wroot (expr var guess)
1018 	 (xi (calcFunc-idn 1 n))
1082 		       (list 'calcFunc-mrow '(var line-xi line-xi) (1+ m)))
1083 		 (list 'calcFunc-mrow '(var line-p line-p) (1+ m)))))
1191 (defun calcFunc-minimize (expr var guess)
1198 (defun calcFunc-wminimize (expr var guess)
1205 (defun calcFunc-maximize (expr var guess)
1213 (defun calcFunc-wmaximize (expr var guess)
1226 (defun calcFunc-polint (data x)
1233       (cons 'vec (mapcar (function (lambda (x) (calcFunc-polint data x)))
1239 (put 'calcFunc-polint 'math-expandable t)
1242 (defun calcFunc-ratint (data x)
1249       (cons 'vec (mapcar (function (lambda (x) (calcFunc-ratint data x)))
1255 (put 'calcFunc-ratint 'math-expandable t)
1314 (defun calcFunc-ninteg (expr var lo hi)
1320       (math-neg (calcFunc-ninteg expr var hi lo))
1373 				  (calcFunc-scf (math-abs (car res))
1454 (defun calcFunc-fit (expr vars &optional coefs data)
1459 (defun calcFunc-efit (expr vars &optional coefs data)
1464 (defun calcFunc-xfit (expr vars &optional coefs data)
1471 ;; calcFunc-fitvar, calcFunc-fitparam and calcFunc-fitdummy
1527 			      (if (eq (car-safe expr) 'calcFunc-eq) 1 0))
1545 				  (list 'calcFunc-fitparam
1554 				  (list 'calcFunc-fitvar
1560     (or (eq (car-safe expr) 'calcFunc-eq)
1561 	(setq expr (list 'calcFunc-eq (list 'calcFunc-fitvar v) expr)))
1567 	    expr (math-rewrite (list 'calcFunc-fitmodel expr)
1571       (or (and (eq (car-safe expr) 'calcFunc-fitsystem)
1682 		  (setq covar (calcFunc-diag 0 (1- (length beta))))
1729 		(setq vec (cons (list 'calcFunc-eq (car cp) (car bp)) vec)))
1738 		    (setq vec (cons (list 'calcFunc-fitvar n) vec)
1742 		    (setq vec (cons (list 'calcFunc-fitparam n) vec)
1754 			     (eq (car-safe (car p)) 'calcFunc-fitdummy)
1761 		   (list 'calcFunc-utpc chisq (- n mm))
1766 (defun calcFunc-fitvar (x)
1773 (defun calcFunc-fitparam (x)
1780 (defun calcFunc-fitdummy (x)
1785 (defun calcFunc-hasfitvars (expr)
1788     (if (eq (car expr) 'calcFunc-fitvar)
1790       (apply 'max (mapcar 'calcFunc-hasfitvars (cdr expr))))))
1792 (defun calcFunc-hasfitparams (expr)
1795     (if (eq (car expr) 'calcFunc-fitparam)
1797       (apply 'max (mapcar 'calcFunc-hasfitparams (cdr expr))))))