lisp/calc/calc-forms.el

52 	   (calc-unary-op ">rad" 'calcFunc-rad arg)
53 	 (calc-unary-op ">deg" 'calcFunc-deg arg))
54      (calc-unary-op ">hms" 'calcFunc-hms arg))))
165   (calc-date-zero-args "now" 'calcFunc-now arg))
175 		      (list (nth arg '(nil calcFunc-year calcFunc-month
176 					   calcFunc-day calcFunc-hour
177 					   calcFunc-minute calcFunc-second
178 					   calcFunc-weekday calcFunc-yearday
179 					   calcFunc-time))
187    (calc-enter-result arg "date" (cons 'calcFunc-date (calc-top-list-n arg)))))
191   (calc-date-one-arg "juln" 'calcFunc-julian arg))
195   (calc-date-one-arg "unix" 'calcFunc-unixtime arg))
199   (calc-date-zero-args "zone" 'calcFunc-tzone arg))
205        (calc-enter-result 3 "tzcv" (cons 'calcFunc-tzconv (calc-top-list-n 3)))
217      (calc-enter-result 1 "tzcv" (list 'calcFunc-tzconv
222   (calc-date-one-arg "nwwk" 'calcFunc-newweek arg))
226   (calc-date-one-arg "nwmn" 'calcFunc-newmonth arg))
230   (calc-date-one-arg "nwyr" 'calcFunc-newyear arg))
234   (calc-date-one-arg "incm" 'calcFunc-incmonth arg))
239    (calc-binary-op "bus+" 'calcFunc-badd arg)))
244    (calc-binary-op "bus-" 'calcFunc-bsub arg)))
310 	 (list 'calcFunc-hms a))
327 (defun calcFunc-hms (h &optional m s)
351 		 (list 'calcFunc-rad a)
352 	       (list 'calcFunc-deg a)))))
1061 (defun calcFunc-now (&optional zone)
1066 	    (math-add date (math-div (math-sub (calcFunc-tzone nil date)
1067 					       (calcFunc-tzone zone date))
1071       (append (list 'calcFunc-now) (and zone (list zone))))))
1073 (defun calcFunc-year (date)
1076 (defun calcFunc-month (date)
1079 (defun calcFunc-day (date)
1082 (defun calcFunc-weekday (date)
1089 (defun calcFunc-yearday (date)
1093 (defun calcFunc-hour (date)
1098 (defun calcFunc-minute (date)
1103 (defun calcFunc-second (date)
1108 (defun calcFunc-time (date)
1114 (defun calcFunc-date (date &optional month day hour minute second)
1146 (defun calcFunc-julian (date &optional zone)
1151 		    (math-sub date (math-div (calcFunc-tzone zone date)
1157 					   (math-div (calcFunc-tzone zone date)
1161 (defun calcFunc-unixtime (date &optional zone)
1165 	(list 'date (math-sub date (math-div (calcFunc-tzone zone date)
1169 		  (calcFunc-tzone zone date))
1196 (defun calcFunc-tzone (&optional zone date)
1203 	     (math-add (calcFunc-tzone (nth 1 zone) date)
1204 		       (calcFunc-tzone (nth 2 zone) date)))
1206 	     (math-sub (calcFunc-tzone (nth 1 zone) date)
1207 		       (calcFunc-tzone (nth 2 zone) date)))
1212 		   (calcFunc-tzone (math-add (nth 1 found)
1221 		     (calcFunc-tzone nil date)
1225 	(calcFunc-tzone (calc-var-value 'var-TimeZone) date)
1272 	(calcFunc-tzone tz date)))))
1277   (or date (setq date (nth 1 (calcFunc-now))))
1293 (defun calcFunc-dsadj (date &optional zone)
1299 		     (calcFunc-tzone)
1309 (defun calcFunc-tzconv (date z1 z2)
1311       (nth 1 (calcFunc-tzconv (list 'date date) z1 z2))
1312     (calcFunc-unixtime (calcFunc-unixtime date z1) z2)))
1375     (math-sub (nth 1 (calcFunc-newweek (math-add zeroth day))) zeroth)))
1377 (defun calcFunc-pwday (date &optional day weekday)
1389 (defun calcFunc-newweek (date &optional weekday)
1399   (list 'date (math-sub date (calcFunc-weekday (math-sub date weekday)))))
1401 (defun calcFunc-newmonth (date &optional day)
1414 (defun calcFunc-newyear (date &optional day)
1429 (defun calcFunc-incmonth (date &optional step)
1436 	 (extra (calcFunc-idiv month 12))
1448 (defun calcFunc-incyear (date &optional step)
1449   (calcFunc-incmonth date (math-mul (or step 1) 12)))
1453 (defun calcFunc-bsub (a b)
1458 	  (math-neg (calcFunc-bsub b a))
1464     (calcFunc-badd a (math-neg b))))
1468 (defun calcFunc-badd (a b)
1472 	(calcFunc-badd b a))
1482 		    (calcFunc-badd a b))))
1488 		(calcFunc-badd a b))
1492 (defun calcFunc-holiday (a)
1614 		 (setq limit (calcFunc-vint (car h) '(intv 3 1 2737)))
1634       (let ((year (calcFunc-year date))
1637 	(or (eq (calcFunc-in year (nth 4 math-holidays-cache)) 1)
1695 	   (or (eq (calcFunc-in day days) 1)
1697 	   (while (eq (calcFunc-in day days) 1)
1735 (defun calcFunc-sdev (x sigma)
1747       (math-normalize (list 'calcFunc-makemod n m)))))
1769 	     ((memq (car n) '(* ^ var calcFunc-subscr))
1772 (defun calcFunc-makemod (n m)
1800 (defun calcFunc-intv (mask lo hi)
1873 		    (append '(calcFunc-lambda) (cdr str1) (list str2)))))
1879 			 (append '(calcFunc-lambda)