mirror of
https://gitlab.com/scemama/QCaml.git
synced 2024-08-30 16:23:41 +02:00
n_state
This commit is contained in:
parent
7a44c8bf64
commit
04caf1930c
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user