Lines Matching defs:hms
41 (list 'hms
45 (list 'hms 24 0 0))))))
47 (defun calc-to-hms (arg)
54 (calc-unary-op ">hms" 'calcFunc-hms arg))))
56 (defun calc-from-hms (arg)
59 (calc-to-hms arg))
62 (defun calc-hms-notation (fmt)
63 (interactive "sHours-minutes-seconds format (hms, @ ' \", etc.): ")
67 (calc-change-mode 'calc-hms-format
74 (setq-default calc-hms-format calc-hms-format)) ; for minibuffer
156 (defun calc-hms-mode ()
159 (calc-change-mode 'calc-angle-mode 'hms)
266 (defun math-normalize-hms (a)
301 (list 'hms h m s)))
304 (defun math-to-hms (a &optional ang) ; [X R] [Public]
305 (cond ((eq (car-safe a) 'hms) a)
307 (math-make-sdev (math-to-hms (nth 1 a))
308 (math-to-hms (nth 2 a))))
310 (list 'calcFunc-hms a))
312 (math-neg (math-to-hms (math-neg a) ang)))
314 (math-to-hms (math-div a (math-pi-over-180)) 'deg))
323 (list 'hms
327 (defun calcFunc-hms (h &optional m s)
335 (math-add (math-to-hms h)
336 (list 'hms 0 m s))
337 (math-to-hms (math-add h
343 (defun math-from-hms (a &optional ang) ; [R X] [Public]
344 (cond ((not (eq (car-safe a) 'hms))
348 (math-make-sdev (math-from-hms (nth 1 a) ang)
349 (math-from-hms (nth 2 a) ang))
354 (math-neg (math-from-hms (math-neg a) ang)))
356 (math-mul (math-from-hms a 'deg) (math-pi-over-180)))
1094 (if (eq (car-safe date) 'hms)
1099 (if (eq (car-safe date) 'hms)
1104 (if (eq (car-safe date) 'hms)
1111 (cons 'hms (nthcdr 3 dt))
1112 (list 'hms 0 0 0))))
1119 (if (and (eq (car-safe hour) 'hms) (not minute))
1200 ((eq (car zone) 'hms)
1201 (math-round (math-mul (math-from-hms zone 'deg) 3600)))
1483 (if (eq (car-safe b) 'hms)
1485 (setq b (math-div (math-from-hms b 'deg) 24))
1591 (eq (car-safe (nth 2 (car h))) 'hms)
1592 (eq (car-safe (nth 3 (car h))) 'hms))
1596 (setq hours (math-div (car h) '(hms 24 0 0)))