Changeset 4131 for trunk/lisp/calc/calcalg3.el
- Timestamp:
- 07/29/06 07:48:34 (2 years ago)
- Files:
-
- trunk/lisp/calc/calcalg3.el (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/lisp/calc/calcalg3.el
r4037 r4131 103 103 (defvar calc-curve-model) 104 104 (defvar calc-curve-coefnames) 105 106 (defvar calc-curve-fit-history nil 107 "History for calc-curve-fit.") 105 108 106 109 (defun calc-curve-fit (arg &optional calc-curve-model … … 260 263 (calc-dollar-used 0) 261 264 (calc-hashes-used 0)) 262 (setq calc-curve-model (calc-do-alg-entry "" "Model formula: ")) 265 (setq calc-curve-model (calc-do-alg-entry "" "Model formula: " 266 nil 'calc-curve-fit-history)) 263 267 (if (/= (length calc-curve-model) 1) 264 268 (error "Bad format"))
