mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

(calc-curve-fit): Add "plot" indicator.

Browse Source
This commit is contained in:
Jay Belanger 2007-08-04 04:33:07 +00:00
parent fa92d805be
commit def4f741fc
1 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lisp/calc/calcalg3.el
View File

@ -134,9 +134,12 @@
"P prefix = plot result"
"' = alg entry, $ = stack, u = Model1, U = Model2")))
(while (not calc-curve-model)
(message "Fit to model: %s:%s"
(nth which msgs)
(if homog " h" ""))
(message
(if plot
"Fit to model (plot): %s:%s"
"Fit to model: %s:%s")
(nth which msgs)
(if homog " h" ""))
(setq key (read-char))
(cond ((= key ?\C-g)
(keyboard-quit))
@ -145,13 +148,15 @@
((memq key '(?h ?H))
(setq homog (not homog)))
((= key ?P)
(let ((data (calc-top 1)))
(if (or
(calc-is-hyperbolic)
(calc-is-inverse)
(not (= (length data) 3)))
(setq plot "Can't plot")
(setq plot data))))
(if plot
(setq plot nil)
(let ((data (calc-top 1)))
(if (or
(calc-is-hyperbolic)
(calc-is-inverse)
(not (= (length data) 3)))
(setq plot "Can't plot")
(setq plot data)))))
((progn
(if (eq key ?\$)
(setq n 1)