(setf constant 2.997e8)
(defun choose (&optional (s nil))
(cond ((consp s) (if (zerop (random 2)) (choose (car s)) (choose (cdr s)))) ((numberp s) s) ((symbolp s) (choose (eval s))) (t (- (random 256) 128))))
(defun choose-vector (&optional (s nil))
(cond ((consp s) (cond ((= (length s) 3) s) ((zerop (random 2)) (choose (car s))) (t (choose (cdr s))))) ((numberp s) s) ((symbolp s) (choose (eval s))) (t (- (random 256) 128))))
(defun circuit
(gravity constant Gravity ε0 (&optional (Capacitance (3.65e-7 . 1.0e-2)) (Linductance 2.5e-3) (frequency (9.55078230802572e5 . 3.58e6)) (Resistance (1.0e0 . 6.8e9)) Q (ω (3.49065850398866e0 . 3.76991118430775e2)) (Icurrent (1.2e-1 . 1.5e1)) (Voltage (1.2e0 . 1.17e2)) (velocity 3.12928e1) (acceleration (3.57632e0 . 9.8e0)) ) ) (list (choose constant) (choose Gravity) (choose &epsilon) (choose Capacitance) (choose Linductance) (choose frequency) (choose Resistance) (choose Q) (choose ω) (choose Icurrent) (choose Voltage) (choose-vector velocity) (choose-vector acceleration) ) )
(defun setlen (vector &optional (len 1))
(let ((oldlen (sqrt (apply #'+ (mapcar #'* vector vector)))) (factor (/ len oldlen))) (mapcar #'* vector (make-list (length vector) :initial-element factor))))