summaryrefslogtreecommitdiff
path: root/examples/usaStatic.hs
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2007-10-02 18:59:50 +0000
committerAlberto Ruiz <aruiz@um.es>2007-10-02 18:59:50 +0000
commit42bec1ac9911131b552f66779203eb599a86563d (patch)
treec4aefaedb21730644fcd4d2f85d830fe4d4daf07 /examples/usaStatic.hs
parentd925bada507562250a75587c409bdb35bbbc6ed8 (diff)
lapack real and complex unpacked QR
Diffstat (limited to 'examples/usaStatic.hs')
-rw-r--r--examples/usaStatic.hs36
1 files changed, 0 insertions, 36 deletions
diff --git a/examples/usaStatic.hs b/examples/usaStatic.hs
deleted file mode 100644
index 619af8f..0000000
--- a/examples/usaStatic.hs
+++ /dev/null
@@ -1,36 +0,0 @@
1{-# OPTIONS -fno-monomorphism-restriction #-}
2
3import Static
4import Numeric.LinearAlgebra
5
6
7x = $(vec [1,2])
8
9y = $(vec [5,7])
10
11z a = vec [a,a]
12
13w = $(vec [1,2,3])
14
15cx = $(covec [1,2,3])
16
17
18t3 = $(tdim 3)
19
20crm33 = createml t3 t3 3 3
21
22rot a = crm33 [a,0,0,0,a,0,0,0,1]
23
24--q = x |+| y |+| $(z 5)
25
26m = $(mat 2 3 [1..6])
27
28n = $(mat 3 5 [1..15])
29
30infixl 7 <*>
31(<*>) = prod
32
33r1 = m <*> n
34r2 = strans (strans n <*> strans m)
35
36--r' = prod n m