Commit | Line | Data |
---|---|---|
3132f345 CW |
1 | ;;; calc-help.el --- help display functions for Calc, |
2 | ||
ba318903 | 3 | ;; Copyright (C) 1990-1993, 2001-2014 Free Software Foundation, Inc. |
3132f345 CW |
4 | |
5 | ;; Author: David Gillespie <daveg@synaptics.com> | |
e8fff8ed | 6 | ;; Maintainer: Jay Belanger <jay.p.belanger@gmail.com> |
136211a9 EZ |
7 | |
8 | ;; This file is part of GNU Emacs. | |
9 | ||
662c9c64 | 10 | ;; GNU Emacs is free software: you can redistribute it and/or modify |
7c671b23 | 11 | ;; it under the terms of the GNU General Public License as published by |
662c9c64 GM |
12 | ;; the Free Software Foundation, either version 3 of the License, or |
13 | ;; (at your option) any later version. | |
7c671b23 | 14 | |
136211a9 | 15 | ;; GNU Emacs is distributed in the hope that it will be useful, |
7c671b23 GM |
16 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
17 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 | ;; GNU General Public License for more details. | |
19 | ||
20 | ;; You should have received a copy of the GNU General Public License | |
662c9c64 | 21 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
136211a9 | 22 | |
3132f345 | 23 | ;;; Commentary: |
136211a9 | 24 | |
3132f345 | 25 | ;;; Code: |
136211a9 EZ |
26 | |
27 | ;; This file is autoloaded from calc-ext.el. | |
136211a9 | 28 | |
42c76e34 | 29 | (require 'calc-ext) |
136211a9 EZ |
30 | (require 'calc-macs) |
31 | ||
a61506a7 | 32 | ;; Declare functions which are defined elsewhere. |
16d9f896 | 33 | (declare-function Info-goto-node "info" (nodename &optional fork strict-case)) |
a61506a7 JB |
34 | (declare-function Info-last "info" ()) |
35 | ||
36 | ||
136211a9 EZ |
37 | (defun calc-help-prefix (arg) |
38 | "This key is the prefix for Calc help functions. See calc-help-for-help." | |
39 | (interactive "P") | |
40 | (or calc-dispatch-help (sit-for echo-keystrokes)) | |
41 | (let ((key (calc-read-key-sequence | |
42 | (if calc-dispatch-help | |
43 | "Calc Help options: Help, Info, Tutorial, Summary; Key, Function; ?=more" | |
44 | (format "%s (Type ? for a list of Calc Help options)" | |
45 | (key-description (this-command-keys)))) | |
46 | calc-help-map))) | |
47 | (setq key (lookup-key calc-help-map key)) | |
48 | (message "") | |
49 | (if key | |
50 | (call-interactively key) | |
bf77c646 | 51 | (beep)))) |
136211a9 EZ |
52 | |
53 | (defun calc-help-for-help (arg) | |
54 | "You have typed `h', the Calc help character. Type a Help option: | |
55 | ||
56 | B calc-describe-bindings. Display a table of all key bindings. | |
57 | H calc-full-help. Display all `?' key messages at once. | |
58 | ||
59 | I calc-info. Read the Calc manual using the Info system. | |
60 | T calc-tutorial. Read the Calc tutorial using the Info system. | |
61 | S calc-info-summary. Read the Calc summary using the Info system. | |
62 | ||
63 | C calc-describe-key-briefly. Look up the command name for a given key. | |
64 | K calc-describe-key. Look up a key's documentation in the manual. | |
65 | F calc-describe-function. Look up a function's documentation in the manual. | |
66 | V calc-describe-variable. Look up a variable's documentation in the manual. | |
67 | ||
68 | N calc-view-news. Display Calc history of changes. | |
69 | ||
70 | C-c Describe conditions for copying Calc. | |
71 | C-d Describe how you can get a new copy of Calc or report a bug. | |
72 | C-w Describe how there is no warranty for Calc." | |
73 | (interactive "P") | |
74 | (if calc-dispatch-help | |
75 | (let (key) | |
76 | (save-window-excursion | |
77 | (describe-function 'calc-help-for-help) | |
78 | (select-window (get-buffer-window "*Help*")) | |
79 | (while (progn | |
80 | (message "Calc Help options: Help, Info, ... press SPC, DEL to scroll, C-g to cancel") | |
81 | (memq (car (setq key (calc-read-key t))) | |
82 | '(? ?\C-h ?\C-? ?\C-v ?\M-v))) | |
83 | (condition-case err | |
84 | (if (memq (car key) '(? ?\C-v)) | |
85 | (scroll-up) | |
86 | (scroll-down)) | |
87 | (error (beep))))) | |
88 | (calc-unread-command (cdr key)) | |
89 | (calc-help-prefix nil)) | |
90 | (let ((calc-dispatch-help t)) | |
bf77c646 | 91 | (calc-help-prefix arg)))) |
136211a9 EZ |
92 | |
93 | (defun calc-describe-copying () | |
94 | (interactive) | |
749dadb5 | 95 | (calc-info-goto-node "Copying")) |
136211a9 EZ |
96 | |
97 | (defun calc-describe-distribution () | |
98 | (interactive) | |
749dadb5 | 99 | (calc-info-goto-node "Reporting Bugs")) |
136211a9 EZ |
100 | |
101 | (defun calc-describe-no-warranty () | |
102 | (interactive) | |
749dadb5 | 103 | (calc-info-goto-node "Copying") |
136211a9 EZ |
104 | (let ((case-fold-search nil)) |
105 | (search-forward " NO WARRANTY")) | |
106 | (beginning-of-line) | |
bf77c646 | 107 | (recenter 0)) |
136211a9 EZ |
108 | |
109 | (defun calc-describe-bindings () | |
110 | (interactive) | |
111 | (describe-bindings) | |
6df9b6d7 | 112 | (with-current-buffer "*Help*" |
22101fbb | 113 | (let ((inhibit-read-only t)) |
2061942c JB |
114 | (goto-char (point-min)) |
115 | (when (search-forward "Major Mode Bindings:" nil t) | |
116 | (delete-region (point-min) (point)) | |
117 | (insert "Calc Mode Bindings:")) | |
118 | (when (search-forward "Global bindings:" nil t) | |
119 | (forward-line -1) | |
120 | (delete-region (point) (point-max))) | |
121 | (goto-char (point-min)) | |
122 | (while | |
123 | (re-search-forward | |
124 | "\n[a-z] [0-9]\\( .*\n\\)\\([a-z] [0-9]\\1\\)*[a-z] \\([0-9]\\)\\1" | |
125 | nil t) | |
126 | (let ((dig1 (char-after (1- (match-beginning 1)))) | |
127 | (dig2 (char-after (match-beginning 3)))) | |
128 | (delete-region (match-end 1) (match-end 0)) | |
129 | (goto-char (match-beginning 1)) | |
d355a0b7 | 130 | (delete-char -1) |
2061942c JB |
131 | (delete-char 5) |
132 | (insert (format "%c .. %c" (min dig1 dig2) (max dig1 dig2))))) | |
133 | (goto-char (point-min))))) | |
136211a9 EZ |
134 | |
135 | (defun calc-describe-key-briefly (key) | |
136 | (interactive "kDescribe key briefly: ") | |
bf77c646 | 137 | (calc-describe-key key t)) |
136211a9 | 138 | |
c478ee0e JB |
139 | (defvar Info-history) |
140 | ||
136211a9 EZ |
141 | (defun calc-describe-key (key &optional briefly) |
142 | (interactive "kDescribe key: ") | |
143 | (let ((defn (if (eq (key-binding key) 'calc-dispatch) | |
144 | (let ((key2 (calc-read-key-sequence | |
145 | (format "Describe key briefly: %s-" | |
146 | (key-description key)) | |
147 | calc-dispatch-map))) | |
148 | (setq key (concat key key2)) | |
149 | (lookup-key calc-dispatch-map key2)) | |
150 | (if (eq (key-binding key) 'calc-help-prefix) | |
151 | (let ((key2 (calc-read-key-sequence | |
152 | (format "Describe key briefly: %s-" | |
153 | (key-description key)) | |
154 | calc-help-map))) | |
155 | (setq key (concat key key2)) | |
156 | (lookup-key calc-help-map key2)) | |
157 | (key-binding key)))) | |
158 | (inv nil) | |
c478ee0e JB |
159 | (hyp nil) |
160 | calc-summary-indentation) | |
136211a9 EZ |
161 | (while (or (equal key "I") (equal key "H")) |
162 | (if (equal key "I") | |
163 | (setq inv (not inv)) | |
164 | (setq hyp (not hyp))) | |
165 | (setq key (read-key-sequence (format "Describe key%s:%s%s " | |
166 | (if briefly " briefly" "") | |
167 | (if inv " I" "") | |
168 | (if hyp " H" ""))) | |
169 | defn (key-binding key))) | |
170 | (let ((desc (key-description key)) | |
171 | target) | |
172 | (if (string-match "^ESC " desc) | |
173 | (setq desc (concat "M-" (substring desc 4)))) | |
174 | (while (string-match "^M-# \\(ESC \\|C-\\)" desc) | |
175 | (setq desc (concat "M-# " (substring desc (match-end 0))))) | |
241d447b JB |
176 | (if (string-match "\\(DEL\\|\\LFD\\|RET\\|SPC\\|TAB\\)" desc) |
177 | (setq desc (replace-match "<\\&>" nil nil desc))) | |
136211a9 | 178 | (if briefly |
6df9b6d7 | 179 | (let ((msg (with-current-buffer (get-buffer-create "*Calc Summary*") |
136211a9 EZ |
180 | (if (= (buffer-size) 0) |
181 | (progn | |
182 | (message "Reading Calc summary from manual...") | |
fcda5138 JB |
183 | (require 'info nil t) |
184 | (with-temp-buffer | |
185 | (Info-mode) | |
186 | (Info-goto-node "(Calc)Summary") | |
187 | (goto-char (point-min)) | |
188 | (forward-line 1) | |
189 | (copy-to-buffer "*Calc Summary*" | |
190 | (point) (point-max))) | |
191 | (setq buffer-read-only t))) | |
7b907635 JB |
192 | (goto-char (point-min)) |
193 | (setq case-fold-search nil) | |
194 | (re-search-forward "^\\(.*\\)\\[\\.\\. a b") | |
195 | (setq calc-summary-indentation | |
196 | (- (match-end 1) (match-beginning 1))) | |
136211a9 EZ |
197 | (goto-char (point-min)) |
198 | (setq target (if (and (string-match "[0-9]\\'" desc) | |
199 | (not (string-match "[d#]" desc))) | |
200 | (concat (substring desc 0 -1) "0-9") | |
201 | desc)) | |
202 | (if (re-search-forward | |
203 | (format "\n%s%s%s%s[ a-zA-Z]" | |
204 | (make-string (+ calc-summary-indentation 9) | |
205 | ?\.) | |
206 | (if (string-match "M-#" desc) " " | |
207 | (if inv | |
208 | (if hyp "I H " " I ") | |
209 | (if hyp " H " " "))) | |
210 | (regexp-quote target) | |
211 | (make-string (max (- 6 (length target)) 0) | |
212 | ?\ )) | |
213 | nil t) | |
214 | (let (pt) | |
215 | (beginning-of-line) | |
216 | (forward-char calc-summary-indentation) | |
217 | (setq pt (point)) | |
218 | (end-of-line) | |
219 | (buffer-substring pt (point))))))) | |
220 | (if msg | |
221 | (let ((args (substring msg 0 9)) | |
222 | (keys (substring msg 9 19)) | |
223 | (prompts (substring msg 19 38)) | |
224 | (notes "") | |
225 | (cmd (substring msg 40)) | |
226 | msg) | |
227 | (if (string-match "\\` +" args) | |
228 | (setq args (substring args (match-end 0)))) | |
229 | (if (string-match " +\\'" args) | |
230 | (setq args (substring args 0 (match-beginning 0)))) | |
231 | (if (string-match "\\` +" keys) | |
232 | (setq keys (substring keys (match-end 0)))) | |
233 | (if (string-match " +\\'" keys) | |
234 | (setq keys (substring keys 0 (match-beginning 0)))) | |
235 | (if (string-match " [0-9,]+\\'" prompts) | |
236 | (setq notes (substring prompts (1+ (match-beginning 0))) | |
237 | prompts (substring prompts 0 (match-beginning 0)))) | |
238 | (if (string-match " +\\'" prompts) | |
239 | (setq prompts (substring prompts 0 (match-beginning 0)))) | |
240 | (if (string-match "\\` +" prompts) | |
241 | (setq prompts (substring prompts (match-end 0)))) | |
242 | (setq msg (format | |
243 | "%s: %s%s`%s'%s%s %s%s" | |
244 | (if (string-match | |
245 | "\\`\\(calc-[-a-zA-Z0-9]+\\) *\\(.*\\)\\'" | |
246 | cmd) | |
247 | (prog1 (math-match-substring cmd 1) | |
248 | (setq cmd (math-match-substring cmd 2))) | |
249 | defn) | |
250 | args (if (equal args "") "" " ") | |
251 | keys | |
252 | (if (equal prompts "") "" " ") prompts | |
253 | (if (equal cmd "") "" " => ") cmd)) | |
254 | (message "%s%s%s runs %s%s" | |
255 | (if inv "I " "") (if hyp "H " "") desc | |
256 | msg | |
257 | (if (equal notes "") "" | |
258 | (format " (?=notes %s)" notes))) | |
259 | (let ((key (calc-read-key t))) | |
260 | (if (eq (car key) ??) | |
261 | (if (equal notes "") | |
262 | (message "No notes for this command") | |
263 | (while (string-match "," notes) | |
264 | (aset notes (match-beginning 0) ? )) | |
265 | (setq notes (sort (car (read-from-string | |
266 | (format "(%s)" notes))) | |
267 | '<)) | |
268 | (with-output-to-temp-buffer "*Help*" | |
269 | (princ (format "%s\n\n" msg)) | |
270 | (set-buffer "*Calc Summary*") | |
271 | (re-search-forward "^ *NOTES") | |
272 | (while notes | |
273 | (re-search-forward | |
274 | (format "^ *%d\\. " (car notes))) | |
275 | (beginning-of-line) | |
276 | (let ((pt (point))) | |
277 | (forward-line 1) | |
278 | (or (re-search-forward "^ ? ?[0-9]+\\. " nil t) | |
279 | (goto-char (point-max))) | |
280 | (beginning-of-line) | |
281 | (princ (buffer-substring pt (point)))) | |
282 | (setq notes (cdr notes))) | |
d5d105e8 | 283 | (help-print-return-message))) |
136211a9 EZ |
284 | (calc-unread-command (cdr key))))) |
285 | (if (or (null defn) (integerp defn)) | |
286 | (message "%s is undefined" desc) | |
287 | (message "%s runs the command %s" | |
288 | desc | |
289 | (if (symbolp defn) defn (prin1-to-string defn)))))) | |
290 | (if inv (setq desc (concat "I " desc))) | |
291 | (if hyp (setq desc (concat "H " desc))) | |
292 | (calc-describe-thing desc "Key Index" nil | |
bf77c646 | 293 | (string-match "[A-Z][A-Z][A-Z]" desc)))))) |
136211a9 | 294 | |
6fb690e2 JB |
295 | (defvar calc-help-function-list nil |
296 | "List of functions provided by Calc.") | |
297 | ||
298 | (defvar calc-help-variable-list nil | |
299 | "List of variables provided by Calc.") | |
300 | ||
301 | (defun calc-help-index-entries (&rest indices) | |
302 | "Create a list of entries from the INDICES in the Calc info manual." | |
303 | (let ((entrylist '()) | |
304 | entry) | |
305 | (require 'info nil t) | |
306 | (while indices | |
307 | (condition-case nil | |
308 | (with-temp-buffer | |
309 | (Info-mode) | |
310 | (Info-goto-node (concat "(Calc)" (car indices) " Index")) | |
311 | (goto-char (point-min)) | |
312 | (while (re-search-forward "\n\\* \\(.*\\): " nil t) | |
313 | (setq entry (match-string 1)) | |
314 | (if (and (not (string-match "<[1-9]+>" entry)) | |
315 | (not (string-match "(.*)" entry)) | |
316 | (not (string= entry "Menu"))) | |
317 | (unless (assoc entry entrylist) | |
318 | (setq entrylist (cons entry entrylist)))))) | |
319 | (error nil)) | |
320 | (setq indices (cdr indices))) | |
321 | entrylist)) | |
322 | ||
136211a9 EZ |
323 | (defun calc-describe-function (&optional func) |
324 | (interactive) | |
6fb690e2 | 325 | (unless calc-help-function-list |
c740ee8b | 326 | (setq calc-help-function-list |
6fb690e2 | 327 | (calc-help-index-entries "Function" "Command"))) |
136211a9 | 328 | (or func |
6fb690e2 | 329 | (setq func (completing-read "Describe function: " |
c740ee8b | 330 | calc-help-function-list |
6fb690e2 | 331 | nil t))) |
136211a9 EZ |
332 | (if (string-match "\\`calc-." func) |
333 | (calc-describe-thing func "Command Index") | |
6fb690e2 | 334 | (calc-describe-thing func "Function Index"))) |
136211a9 EZ |
335 | |
336 | (defun calc-describe-variable (&optional var) | |
337 | (interactive) | |
6fb690e2 | 338 | (unless calc-help-variable-list |
c740ee8b | 339 | (setq calc-help-variable-list |
6fb690e2 | 340 | (calc-help-index-entries "Variable"))) |
136211a9 | 341 | (or var |
6fb690e2 JB |
342 | (setq var (completing-read "Describe variable: " |
343 | calc-help-variable-list | |
344 | nil t))) | |
345 | (calc-describe-thing var "Variable Index")) | |
136211a9 EZ |
346 | |
347 | (defun calc-describe-thing (thing where &optional target not-quoted) | |
348 | (message "Looking for `%s' in %s..." thing where) | |
349 | (let ((savewin (current-window-configuration))) | |
749dadb5 | 350 | (calc-info-goto-node where) |
136211a9 EZ |
351 | (or (let ((case-fold-search nil)) |
352 | (re-search-forward (format "\n\\* +%s: \\(.*\\)\\." | |
353 | (regexp-quote thing)) | |
354 | nil t)) | |
355 | (and (string-match "\\`\\([a-z ]*\\)[0-9]\\'" thing) | |
356 | (re-search-forward (format "\n\\* +%s[01]-9: \\(.*\\)\\." | |
357 | (substring thing 0 -1)) | |
358 | nil t) | |
359 | (setq thing (format "%s9" (substring thing 0 -1)))) | |
360 | (progn | |
749dadb5 JB |
361 | (if Info-history |
362 | (Info-last)) | |
136211a9 EZ |
363 | (set-window-configuration savewin) |
364 | (error "Can't find `%s' in %s" thing where))) | |
365 | (let (Info-history) | |
366 | (Info-goto-node (buffer-substring (match-beginning 1) (match-end 1)))) | |
367 | (or (let ((case-fold-search nil)) | |
2ad05c22 JB |
368 | (or (re-search-forward (format "\\[`%s'\\]\\|(`%s')\\|\\<The[ \n]`%s'" |
369 | (or target thing) | |
370 | (or target thing) | |
371 | (or target thing)) nil t) | |
136211a9 EZ |
372 | (and not-quoted |
373 | (let ((case-fold-search t)) | |
374 | (search-forward (or target thing) nil t))) | |
375 | (search-forward (format "`%s'" (or target thing)) nil t) | |
376 | (search-forward (or target thing) nil t))) | |
377 | (let ((case-fold-search t)) | |
2ad05c22 JB |
378 | (or (re-search-forward (format "\\[`%s'\\]\\|(`%s')\\|\\<The[ \n]`%s'" |
379 | (or target thing) | |
380 | (or target thing) | |
381 | (or target thing)) nil t) | |
136211a9 EZ |
382 | (search-forward (format "`%s'" (or target thing)) nil t) |
383 | (search-forward (or target thing) nil t)))) | |
384 | (beginning-of-line) | |
bf77c646 | 385 | (message "Found `%s' in %s" thing where))) |
136211a9 EZ |
386 | |
387 | (defun calc-view-news () | |
388 | (interactive) | |
86e100a6 GM |
389 | (calc-quit) |
390 | (view-emacs-news) | |
391 | (re-search-forward "^\*+ .*\\<Calc\\>" nil t)) | |
136211a9 | 392 | |
c478ee0e JB |
393 | (defvar calc-help-long-names '((?b . "binary/business") |
394 | (?g . "graphics") | |
395 | (?j . "selection") | |
396 | (?k . "combinatorics/statistics") | |
397 | (?u . "units/statistics"))) | |
398 | ||
136211a9 EZ |
399 | (defun calc-full-help () |
400 | (interactive) | |
401 | (with-output-to-temp-buffer "*Help*" | |
af5a5f3d | 402 | (princ "GNU Emacs Calculator.\n") |
0a2bf0fa | 403 | (princ " By Dave Gillespie.\n") |
23d0be64 | 404 | (princ (format " %s\n\n" emacs-copyright)) |
136211a9 EZ |
405 | (princ "Type `h s' for a more detailed summary.\n") |
406 | (princ "Or type `h i' to read the full Calc manual on-line.\n\n") | |
407 | (princ "Basic keys:\n") | |
408 | (let* ((calc-full-help-flag t)) | |
c740ee8b JB |
409 | (mapc (function (lambda (x) (princ (format " %s\n" x)))) |
410 | (nreverse (cdr (reverse (cdr (calc-help)))))) | |
411 | (mapc (function (lambda (prefix) | |
412 | (let ((msgs (condition-case err | |
413 | (funcall prefix) | |
414 | (error nil)))) | |
415 | (if (car msgs) | |
416 | (princ | |
417 | (if (eq (nth 2 msgs) ?v) | |
418 | "\n`v' or `V' prefix (vector/matrix) keys: \n" | |
419 | (if (nth 2 msgs) | |
420 | (format | |
421 | "\n`%c' prefix (%s) keys:\n" | |
422 | (nth 2 msgs) | |
423 | (or (cdr (assq (nth 2 msgs) | |
424 | calc-help-long-names)) | |
425 | (nth 1 msgs))) | |
426 | (format "\n%s-modified keys:\n" | |
427 | (capitalize (nth 1 msgs))))))) | |
428 | (mapcar (function (lambda (x) | |
429 | (princ (format " %s\n" x)))) | |
430 | (car msgs))))) | |
431 | '(calc-inverse-prefix-help | |
432 | calc-hyperbolic-prefix-help | |
433 | calc-inv-hyp-prefix-help | |
d8b01fef | 434 | calc-option-prefix-help |
c740ee8b JB |
435 | calc-a-prefix-help |
436 | calc-b-prefix-help | |
437 | calc-c-prefix-help | |
438 | calc-d-prefix-help | |
439 | calc-f-prefix-help | |
440 | calc-g-prefix-help | |
441 | calc-h-prefix-help | |
442 | calc-j-prefix-help | |
443 | calc-k-prefix-help | |
6f16becc | 444 | calc-l-prefix-help |
c740ee8b JB |
445 | calc-m-prefix-help |
446 | calc-r-prefix-help | |
447 | calc-s-prefix-help | |
448 | calc-t-prefix-help | |
449 | calc-u-prefix-help | |
450 | calc-v-prefix-help | |
451 | calc-shift-Y-prefix-help | |
452 | calc-shift-Z-prefix-help | |
453 | calc-z-prefix-help))) | |
d5d105e8 | 454 | (help-print-return-message))) |
136211a9 | 455 | |
136211a9 EZ |
456 | (defun calc-h-prefix-help () |
457 | (interactive) | |
458 | (calc-do-prefix-help | |
459 | '("Help; Bindings; Info, Tutorial, Summary; News" | |
460 | "describe: Key, C (briefly), Function, Variable") | |
bf77c646 | 461 | "help" ?h)) |
136211a9 EZ |
462 | |
463 | (defun calc-inverse-prefix-help () | |
464 | (interactive) | |
465 | (calc-do-prefix-help | |
466 | '("I + S (arcsin), C (arccos), T (arctan); Q (square)" | |
467 | "I + E (ln), L (exp), B (alog: B^X); f E (lnp1), f L (expm1)" | |
468 | "I + F (ceiling), R (truncate); a S (invert func)" | |
469 | "I + a m (match-not); c h (from-hms); k n (prev prime)" | |
470 | "I + f G (gamma-Q); f e (erfc); k B (etc., lower-tail dists)" | |
471 | "I + V S (reverse sort); V G (reverse grade)" | |
472 | "I + v s (remove subvec); v h (tail)" | |
473 | "I + t + (alt sum), t M (mean with error)" | |
474 | "I + t S (pop std dev), t C (pop covar)") | |
bf77c646 | 475 | "inverse" nil)) |
136211a9 EZ |
476 | |
477 | (defun calc-hyperbolic-prefix-help () | |
478 | (interactive) | |
479 | (calc-do-prefix-help | |
480 | '("H + S (sinh), C (cosh), T (tanh); E (exp10), L (log10)" | |
481 | "H + F (float floor), R (float round); P (constant \"e\")" | |
482 | "H + a d (total derivative); k c (permutations)" | |
483 | "H + k b (bern-poly), k e (euler-poly); k s (stirling-2)" | |
484 | "H + f G (gamma-g), f B (beta-B); v h (rhead), v k (rcons)" | |
485 | "H + v e (expand w/filler); V H (weighted histogram)" | |
486 | "H + a S (general solve eqn), j I (general isolate)" | |
487 | "H + a R (widen/root), a N (widen/min), a X (widen/max)" | |
488 | "H + t M (median), t S (variance), t C (correlation coef)" | |
489 | "H + c f/F/c (pervasive float/frac/clean)") | |
bf77c646 | 490 | "hyperbolic" nil)) |
136211a9 EZ |
491 | |
492 | (defun calc-inv-hyp-prefix-help () | |
493 | (interactive) | |
494 | (calc-do-prefix-help | |
495 | '("I H + S (arcsinh), C (arccosh), T (arctanh)" | |
496 | "I H + E (log10), L (exp10); f G (gamma-G)" | |
497 | "I H + F (float ceiling), R (float truncate)" | |
498 | "I H + t S (pop variance)" | |
499 | "I H + a S (general invert func); v h (rtail)") | |
bf77c646 | 500 | "inverse-hyperbolic" nil)) |
136211a9 | 501 | |
d8b01fef JB |
502 | (defun calc-option-prefix-help () |
503 | (interactive) | |
504 | (calc-do-prefix-help | |
505 | '("") | |
506 | "option" nil)) | |
136211a9 EZ |
507 | |
508 | (defun calc-f-prefix-help () | |
509 | (interactive) | |
510 | (calc-do-prefix-help | |
511 | '("miN, maX; Hypot; Im, Re; Sign; [, ] (incr/decr)" | |
512 | "Gamma, Beta, Erf, besselJ, besselY" | |
513 | "SHIFT + int-sQrt; Int-log, Exp(x)-1, Ln(x+1); arcTan2" | |
514 | "SHIFT + Abssqr; Mantissa, eXponent, Scale" | |
515 | "SHIFT + incomplete: Gamma-P, Beta-I") | |
bf77c646 | 516 | "functions" ?f)) |
136211a9 EZ |
517 | |
518 | ||
519 | (defun calc-s-prefix-help () | |
520 | (interactive) | |
521 | (calc-do-prefix-help | |
522 | '("Store, inTo, Xchg, Unstore; Recall, 0-9; : (:=); = (=>)" | |
ec249c71 | 523 | "Let; Copy, K=copy constant; Declare; Insert, Perm; Edit" |
136211a9 EZ |
524 | "Negate, +, -, *, /, ^, &, |, [, ]; Map" |
525 | "SHIFT + Decls, GenCount, TimeZone, Holidays; IntegLimit" | |
526 | "SHIFT + LineStyles, PointStyles, plotRejects; Units" | |
527 | "SHIFT + Eval-, AlgSimp-, ExtSimp-, FitRules") | |
bf77c646 | 528 | "store" ?s)) |
136211a9 EZ |
529 | |
530 | (defun calc-r-prefix-help () | |
531 | (interactive) | |
532 | (calc-do-prefix-help | |
aa255da9 JB |
533 | '("digits 0-9: recall, same as `s r 0-9'" |
534 | "Save to register, Insert from register") | |
535 | "recall/register" ?r)) | |
136211a9 EZ |
536 | |
537 | ||
538 | (defun calc-j-prefix-help () | |
539 | (interactive) | |
540 | (calc-do-prefix-help | |
541 | '("Select, Additional, Once; eVal, Formula; Rewrite" | |
542 | "More, Less, 1-9, Next, Previous" | |
543 | "Unselect, Clear; Display; Enable; Breakable" | |
544 | "' (replace), ` (edit), +, -, *, /, RET (grab), DEL" | |
545 | "SHIFT + swap: Left, Right; maybe: Select, Once" | |
546 | "SHIFT + Commute, Merge, Distrib, jump-Eqn, Isolate" | |
547 | "SHIFT + Negate, & (invert); Unpack") | |
bf77c646 | 548 | "select" ?j)) |
136211a9 EZ |
549 | |
550 | ||
551 | (defun calc-a-prefix-help () | |
552 | (interactive) | |
553 | (calc-do-prefix-help | |
554 | '("Simplify, Extended-simplify, eVal; \" (exp-formula)" | |
555 | "eXpand, Collect, Factor, Apart, Norm-rat" | |
556 | "GCD, /, \\, % (polys); Polint" | |
557 | "Derivative, Integral, Taylor; _ (subscr)" | |
558 | "suBstitute; Rewrite, Match" | |
559 | "SHIFT + Solve; Root, miN, maX; Poly-roots; Fit" | |
560 | "SHIFT + Map; Tabulate, + (sum), * (prod); num-Integ" | |
561 | "relations: =, # (not =), <, >, [ (< or =), ] (> or =)" | |
562 | "logical: & (and), | (or), ! (not); : (if)" | |
563 | "misc: { (in-set); . (rmeq)") | |
bf77c646 | 564 | "algebra" ?a)) |
136211a9 EZ |
565 | |
566 | ||
567 | (defun calc-b-prefix-help () | |
568 | (interactive) | |
569 | (calc-do-prefix-help | |
14467b99 | 570 | '("And, Or, Xor, Diff, Not; Wordsize, Clip" |
136211a9 EZ |
571 | "Lshift, Rshift, roTate; SHIFT + signed Lshift, Rshift" |
572 | "SHIFT + business: Pv, Npv, Fv, pMt, #pmts, raTe, Irr" | |
573 | "SHIFT + business: Sln, sYd, Ddb; %ch") | |
bf77c646 | 574 | "binary/bus" ?b)) |
136211a9 EZ |
575 | |
576 | ||
577 | (defun calc-c-prefix-help () | |
578 | (interactive) | |
579 | (calc-do-prefix-help | |
580 | '("Deg, Rad, HMS; Float; Polar/rect; Clean, 0-9; %" | |
581 | "SHIFT + Fraction") | |
bf77c646 | 582 | "convert" ?c)) |
136211a9 EZ |
583 | |
584 | ||
585 | (defun calc-d-prefix-help () | |
586 | (interactive) | |
587 | (calc-do-prefix-help | |
588 | '("Group, \",\"; Normal, Fix, Sci, Eng, \".\"; Over" | |
589 | "Radix, Zeros, 2, 8, 0, 6; Hms; Date; Complex, I, J" | |
590 | "Why; Line-nums, line-Breaks; <, =, > (justify); Plain" | |
a579b36f | 591 | "\" (strings); Truncate, [, ]; SPC (refresh), RET, @" |
136211a9 | 592 | "SHIFT + language: Normal, One-line, Big, Unformatted" |
0010f033 | 593 | "SHIFT + language: C, Pascal, Fortran; TeX, LaTeX, Eqn" |
f8377426 | 594 | "SHIFT + language: Yacas, X=Maxima, A=Giac" |
136211a9 | 595 | "SHIFT + language: Mathematica, W=Maple") |
bf77c646 | 596 | "display" ?d)) |
136211a9 EZ |
597 | |
598 | ||
599 | (defun calc-g-prefix-help () | |
600 | (interactive) | |
601 | (calc-do-prefix-help | |
602 | '("Fast; Add, Delete, Juggle; Plot, Clear; Quit" | |
603 | "Header, Name, Grid, Border, Key; View-commands, X-display" | |
604 | "x-axis: Range, Title, Log, Zero; lineStyle" | |
605 | "SHIFT + y-axis: Range, Title, Log, Zero; pointStyle" | |
606 | "SHIFT + Print; Device, Output-file; X-geometry" | |
607 | "SHIFT + Num-pts; Command, Kill, View-trail" | |
608 | "SHIFT + 3d: Fast, Add; CTRL + z-axis: Range, Title, Log") | |
bf77c646 | 609 | "graph" ?g)) |
136211a9 EZ |
610 | |
611 | ||
612 | (defun calc-k-prefix-help () | |
613 | (interactive) | |
614 | (calc-do-prefix-help | |
615 | '("GCD, LCM; Choose (binomial), Double-factorial" | |
616 | "Random, random-Again, sHuffle" | |
617 | "Factors, Prime-test, Next-prime, Totient, Moebius" | |
618 | "Bernoulli, Euler, Stirling" | |
619 | "SHIFT + Extended-gcd" | |
620 | "SHIFT + dists: Binomial, Chi-square, F, Normal" | |
621 | "SHIFT + dists: Poisson, student's-T") | |
bf77c646 | 622 | "combinatorics" ?k)) |
136211a9 EZ |
623 | |
624 | ||
625 | (defun calc-m-prefix-help () | |
626 | (interactive) | |
627 | (calc-do-prefix-help | |
628 | '("Deg, Rad, HMS; Frac; Polar; Inf; Alg, Total; Symb; Vec/mat" | |
cfb79865 | 629 | "Working; Xtensions; Mode-save; preserve Embedded modes" |
136211a9 | 630 | "SHIFT + Shifted-prefixes, mode-Filename; Record; reCompute" |
d2605269 | 631 | "SHIFT + simplify: Off, Num, basIc, Algebraic, Bin, Ext, Units") |
bf77c646 | 632 | "mode" ?m)) |
136211a9 EZ |
633 | |
634 | ||
635 | (defun calc-t-prefix-help () | |
636 | (interactive) | |
637 | (calc-do-prefix-help | |
638 | '("Display; Fwd, Back; Next, Prev, Here, [, ]; Yank" | |
639 | "Search, Rev; In, Out; <, >; Kill; Marker; . (abbrev)" | |
640 | "SHIFT + time: Now; Part; Date, Julian, Unix, Czone" | |
641 | "SHIFT + time: newWeek, newMonth, newYear; Incmonth" | |
642 | "SHIFT + time: +, - (business days)" | |
643 | "digits 0-9: store-to, same as `s t 0-9'") | |
bf77c646 | 644 | "trail/time" ?t)) |
136211a9 EZ |
645 | |
646 | ||
647 | (defun calc-u-prefix-help () | |
648 | (interactive) | |
649 | (calc-do-prefix-help | |
650 | '("Simplify, Convert, Temperature-convert, Base-units" | |
651 | "Autorange; Remove, eXtract; Explain; View-table; 0-9" | |
6f16becc | 652 | "Define, Undefine, Get-defn, Permanent" |
136211a9 EZ |
653 | "SHIFT + View-table-other-window" |
654 | "SHIFT + stat: Mean, G-mean, Std-dev, Covar, maX, miN" | |
655 | "SHIFT + stat: + (sum), - (asum), * (prod), # (count)") | |
bf77c646 | 656 | "units/stat" ?u)) |
136211a9 | 657 | |
6f16becc | 658 | (defun calc-l-prefix-help () |
603823f5 | 659 | (interactive) |
6f16becc JB |
660 | (calc-do-prefix-help |
661 | '("Quantity, DB level, Np level" | |
d71990a1 JB |
662 | "+, -, *, /" |
663 | "Scientific pitch notation, Midi number, Frequency" | |
664 | ) | |
6f16becc | 665 | "log units" ?l)) |
136211a9 EZ |
666 | |
667 | (defun calc-v-prefix-help () | |
668 | (interactive) | |
669 | (calc-do-prefix-help | |
670 | '("Pack, Unpack, Identity, Diagonal, indeX, Build" | |
671 | "Row, Column, Subvector; Length; Find; Mask, Expand" | |
8350f087 | 672 | "Transpose, Arrange, reVerse; Head, Kons; rNorm" |
136211a9 EZ |
673 | "SHIFT + Det, & (inverse), LUD, Trace, conJtrn, Cross" |
674 | "SHIFT + Sort, Grade, Histogram; cNorm" | |
675 | "SHIFT + Apply, Map, Reduce, accUm, Inner-, Outer-prod" | |
676 | "SHIFT + sets: V (union), ^ (intersection), - (diff)" | |
677 | "SHIFT + sets: Xor, ~ (complement), Floor, Enum" | |
678 | "SHIFT + sets: : (span), # (card), + (rdup)" | |
679 | "<, =, > (justification); , (commas); [, {, ( (brackets)" | |
680 | "} (matrix brackets); . (abbreviate); / (multi-lines)") | |
bf77c646 | 681 | "vec/mat" ?v)) |
136211a9 | 682 | |
42c76e34 JB |
683 | (provide 'calc-help) |
684 | ||
bf77c646 | 685 | ;;; calc-help.el ends here |