LCPQ
/
QCaml
mirror of https://gitlab.com/scemama/QCaml.git
10
1
Fork 0
Code Releases Activity

n_state

This commit is contained in:
Anthony Scemama 2019-02-28 16:08:28 +01:00
parent 7a44c8bf64
commit 04caf1930c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Utils/Davidson.ml
View File

@ -4,7 +4,7 @@ type t
let make
?guess
?(n_states=8)
?(n_states=1)
?(n_iter=10)
?(threshold=1.e-6)
diagonal
@ -37,7 +37,7 @@ let make
)
|> Util.normalize
in
List.init m (fun i -> random_vector i)
List.init m (fun i -> random_vector (i+1))
in
let pick_new u =
@ -73,7 +73,7 @@ let make
matrix_prod (
u_new_ortho
|> Mat.of_col_vecs_list
|> Matrix.sparse_of_mat )
|> Matrix.dense_of_mat )
|> Matrix.to_mat
|> Mat.to_col_vecs_list
in