lapackTest.js 
Author Message
 lapackTest.js

   qr=.30!:7  NB. QR
   cn=.30!:6  NB. Reciprical of condition numbers
   bl=.30!:4  NB. Balance
   hs=.30!:5  NB. Hessenberg
   sd=.30!:0  NB. svd
   mn=.30!:1  NB. norms
   lu=.30!:2  NB. PLU
   ev=.30!:3  NB. Eigvector-value finder
   ch=.30!:8  NB. Cholesky
   sh=.30!:9  NB. Schur

   a =. 2 2 $ 0 6 _1 5
   b =. 2 2 $ _95 120 _80 101
   ab =. a +/ .* b
   ba =. b +/ .* a
   p =. a+b
   bb =. 2 2 $ 480 606 _305 385
   aa =. 3 3 $ 1 2 3 4 0 5 3.14159 0.70707 0.00001



   m =. i. 0 0
   m =. m,'y. =. 30!:2 y.'
   m =. m,'y. =. (>0&{y.) +/ .* (>1&{y.) +/ .* (>2&{y.)'
   m =. m :''
   lutest =. (m ; ]) f.

   n =. i. 0 0
   n =. n,'a =. 30!:3 y.'
   n =. n,'b =. y. +/ .* (> 1 { a)'
   n =. n,'c =. |: (|: b ) % (;>0{a)'
   n =.n,'y. =. ((1{a),<c)'
   evtest =. n : '' f.

   s =. i. 0 0

   s =. s,'svd=:30!:0 y.'
   s =. s,'u =:>&(0&{) svd'



   s =. s,'y. =. u +/ .* w +/ .* vt'
   s =. s : ''
   sdtest =. (s  ; ]) f.




   hstest  aa
   '1I' mn aa
   evtest  aa
   svdtest aa
   lutest  aa
   shtest  aa



Sat, 23 Dec 1995 14:05:56 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. JS-EAI with *JS*-callback

2. js.exception 3279.js

3. NB. gray.js: a J verb that generates a grayscale postscript image from a 2d array

4. profile.js

5. J script file profile.js

6. JS valueOf() in RB ?

7. JS for functional programming?

8. JS for functional programming?

9. prefs.js question

10. JS / VRML / HTML / camera binding

11. help: js generated vrml

12. my big CLASSPATH confusion (J. and JS. dont work in CP2.1 / NS405)

 

 
Powered by phpBB® Forum Software