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/Reduced-row-echelon-form/PicoLisp/reduced-row-echelon-form.l
+++ b/Task/Reduced-row-echelon-form/PicoLisp/reduced-row-echelon-form.l
@ -0,0 +1,23 @@
+(de reducedRowEchelonForm (Mat)
+   (let (Lead 1  Cols (length (car Mat)))
+      (for (X Mat X (cdr X))
+         (NIL
+            (loop
+               (T (seek '((R) (n0 (get R 1 Lead))) X)
+                  @ )
+               (T (> (inc 'Lead) Cols)) ) )
+         (xchg @ X)
+         (let D (get X 1 Lead)
+            (map
+               '((R) (set R (/ (car R) D)))
+               (car X) ) )
+         (for Y Mat
+            (unless (== Y (car X))
+               (let N (- (get Y Lead))
+                  (map
+                     '((Dst Src)
+                        (inc Dst (* N (car Src))) )
+                     Y
+                     (car X) ) ) ) )
+         (T (> (inc 'Lead) Cols)) ) )
+   Mat )