Mercurial > hg > jslab
annotate src/scheme/genmodel.scm @ 8:5e3cbbf173aa tip
Reorganise some more
| author | samer |
|---|---|
| date | Fri, 05 Apr 2019 22:41:58 +0100 |
| parents | bf79fb79ee13 |
| children |
| rev | line source |
|---|---|
| samer@0 | 1 ; Test noisy linear mixtures |
| samer@0 | 2 ; first version using NoisyLinearSource |
| samer@0 | 3 |
| samer@0 | 4 (put "mix.p" 0.08) |
| samer@0 | 5 (put "mix.gauss.mean" 0) |
| samer@0 | 6 (put "mix.gauss.variance" 0.1) |
| samer@0 | 7 (put "noise.mean" 0) |
| samer@0 | 8 (put "noise.variance" 0.05) |
| samer@0 | 9 |
| samer@0 | 10 (node "v1" |
| samer@0 | 11 (addtask (NoisyLinearSource. 8 16)) |
| samer@0 | 12 |
| samer@0 | 13 (load-generator (viewable "noise")) |
| samer@0 | 14 (load-generator (viewable "source")) |
| samer@0 | 15 ) |
| samer@0 | 16 |
| samer@0 | 17 ; scheme version |
| samer@0 | 18 |
| samer@0 | 19 (node "v2" |
| samer@0 | 20 (let* |
| samer@0 | 21 ( (n 8) |
| samer@0 | 22 (m 16) |
| samer@0 | 23 (x (VVector. "x" n)) |
| samer@0 | 24 (A (Matrix. "A" m n)) |
| samer@0 | 25 (e (VVector. "e" m)) |
| samer@0 | 26 (y (VVector. "y" m)) |
| samer@0 | 27 (g1 (VGenerator. "source")) |
| samer@0 | 28 (g2 (VGenerator. "noise")) |
| samer@0 | 29 ) |
| samer@0 | 30 (addtasks |
| samer@0 | 31 (GenerateVector. x g1) |
| samer@0 | 32 (GenerateVector. e g2) |
| samer@0 | 33 (MatrixTimesVector. y A x) |
| samer@0 | 34 (VectorPlusEqualsVector. y e) |
| samer@0 | 35 (Ops.update x) |
| samer@0 | 36 (Ops.update y) |
| samer@0 | 37 (Ops.update e) |
| samer@0 | 38 ) |
| samer@0 | 39 ) |
| samer@0 | 40 (load-generator (viewable "noise")) |
| samer@0 | 41 (load-generator (viewable "source")) |
| samer@0 | 42 ) |
| samer@0 | 43 |