tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Numeric-error-propagation/PicoLisp/numeric-error-propagation-2.l
+++ b/Task/Numeric-error-propagation/PicoLisp/numeric-error-propagation-2.l
@ -0,0 +1,12 @@
+(de distance (X1 Y1 X2 Y2)
+   (**
+      (+ (** (- X1 X2) 2.0) (** (- Y1 Y2) 2.0))
+      0.5 ) )
+
+(prinl "Distance: "
+   (unc
+      (distance
+         (unc 100. 1.1)
+         (unc 50. 1.2)
+         (unc 200. 2.2)
+         (unc 100. 2.3) ) ) )