Numeric error propagation: Difference between revisions
m
Use symbols to make the code more readable.
(Add Common Lisp implementation.) |
m (Use symbols to make the code more readable.) |
||
Line 477:
(format stream "~,2F ± ~,2F" (uncertain-number-value n) (uncertain-number-uncertainty n)))
(defun
(let* ((value1 (uncertain-number-value n1))
(value2 (uncertain-number-value n2))
Line 491:
:uncertainty (uncertain-number-uncertainty n)))
(defun
(
(defun
(let* ((value1 (uncertain-number-value n1))
(value2 (uncertain-number-value n2))
Line 510:
:uncertainty (uncertain-number-uncertainty n)))
(defun
(
(defun
(let* ((base-value (uncertain-number-value base))
(uncertainty-ratio (/ (uncertain-number-uncertainty base) base-value))
Line 525:
(x2 (make-uncertain-number :value 200 :uncertainty 2.2))
(y2 (make-uncertain-number :value 100 :uncertainty 2.3))
(d (
(format t "d = ~A~%" d)))</lang>
{{out}}
|