mirror of
https://github.com/TREX-CoE/Sherman-Morrison.git
synced 2024-08-25 06:31:44 +02:00
![François Coppens](/assets/img/avatar_default.png)
TODO: Calls from C/C++ are still broken because inside the MaponiA3 algo there is compensation for the fact that Fortran sends it's arrays in column-major order. This must be resolved by transposeing S_inv before it is passed to MaponiA3 and remove the compensations made there.
21 lines
814 B
Mathematica
21 lines
814 B
Mathematica
Sold = dlmread('Slater_old.dat');
|
|
Sold_inv = dlmread('Slater_old_inv.dat');
|
|
S = dlmread('Slater.dat');
|
|
S_inv = dlmread('Slater_inv.dat');
|
|
|
|
printf("\n")
|
|
printf("======================================\n")
|
|
printf("OLD Slater-matrix and inverse\n")
|
|
printf("--------------------------------------\n")
|
|
printf("Determinant of S x S_inv : %f\n", det(Sold*Sold_inv))
|
|
printf("Trace of S x S_inv : %f\n", trace(Sold*Sold_inv))
|
|
printf("Norm of S x S_inv : %f\n", norm(Sold*Sold_inv))
|
|
|
|
printf("\n")
|
|
printf("NEW Slater-matrix and inverse\n")
|
|
printf("--------------------------------------\n")
|
|
printf("Determinant of S x S_inv : %f\n", det(S*S_inv))
|
|
printf("Trace of S x S_inv : %f\n", trace(S*S_inv))
|
|
printf("Norm of S x S_inv : %f\n", norm(S*S_inv))
|
|
printf("======================================\n")
|