Lines Matching refs:nth
98 (let ((r (math-normalize (nth 1 a)))
99 (th (math-normalize (nth 2 a))))
118 (if (math-zerop (nth 1 a))
119 (nth 1 a)
120 (let ((sc (calcFunc-sincos (nth 2 a))))
122 (math-mul (nth 1 a) (nth 1 sc))
123 (math-mul (nth 1 a) (nth 2 sc))))))
168 (cond ((and (Math-lessp 180 (nth 1 a)) (not (eq dir 1)))
170 ((or (Math-lessp -180 (nth 1 a)) (eq dir -1))
214 (list 'cplx (nth 1 a) (math-neg (nth 2 a))))
216 (list 'polar (nth 1 a) (math-neg (nth 2 a))))
220 (nth 1 a))
228 (setq aa (calcFunc-conj (nth 1 a))
229 bb (calcFunc-conj (nth 2 a)))
240 (math-neg (calcFunc-conj (nth 1 a))))
253 (calcFunc-arctan2 (nth 2 a) (nth 1 a)))
255 (nth 2 a))
280 (eq (nth 1 val) 0)
281 (Math-equal (nth 1 val) (math-quarter-circle nil))))))
289 (nth 1 a))
291 (math-mul (nth 1 a) (calcFunc-cos (nth 2 a))))
296 (calcFunc-re (nth 1 a)))
302 (setq aa (calcFunc-re (nth 1 a))
303 bb (calcFunc-re (nth 2 a)))
311 (math-mul (calcFunc-im (nth 1 a))
312 (calcFunc-im (nth 2 a)))))))
314 (math-known-realp (nth 2 a)))
315 (math-div (calcFunc-re (nth 1 a)) (nth 2 a)))
317 (math-neg (calcFunc-re (nth 1 a))))
326 (nth 2 a))
328 (math-mul (nth 1 a) (calcFunc-sin (nth 2 a))))
334 (math-neg (calcFunc-im (nth 1 a))))
340 (setq aa (calcFunc-im (nth 1 a))
341 bb (calcFunc-im (nth 2 a)))
348 (math-add (math-mul (calcFunc-re (nth 1 a)) bb)
349 (math-mul aa (calcFunc-re (nth 2 a)))))))
351 (math-known-realp (nth 2 a)))
352 (math-div (calcFunc-im (nth 1 a)) (nth 2 a)))
354 (math-neg (calcFunc-im (nth 1 a))))