mirror of
https://github.com/triqs/dft_tools
synced 2024-11-01 11:43:47 +01:00
2200e2680f
- gf<cartesian_product<imfreq,imfreq>> was not correct when out bounds. Fixed evaluator. - tensor_proxy : fix the trait for algebra which was incorrect. - TODO: clean code (repetition, put in mesh some windowing).
66 lines
1.6 KiB
C++
66 lines
1.6 KiB
C++
#define TRIQS_ARRAYS_ENFORCE_BOUNDCHECK
|
|
#include <triqs/gfs.hpp>
|
|
using namespace triqs::gfs;
|
|
using namespace triqs::arrays;
|
|
#define TEST(X) std::cout << BOOST_PP_STRINGIZE((X)) << " ---> "<< (X) <<std::endl<<std::endl;
|
|
|
|
int main() {
|
|
|
|
try {
|
|
|
|
auto m = gf_mesh<retime>{0,10,99,full_bins};
|
|
auto G = gf<cartesian_product<retime,retime>> { {m,m}, {2,2}};
|
|
auto G2 = G;
|
|
|
|
auto gg = gf<retime> { {m}, {2,2}};
|
|
|
|
triqs::clef::placeholder<0> t_;
|
|
triqs::clef::placeholder<1> tp_;
|
|
|
|
array<double,2> A(2,2);
|
|
A(t_,tp_) << t_ - 3*tp_;
|
|
std::cout <<A << std::endl ;
|
|
|
|
std::cout << G.data().shape() << 2*G(0,0)<<std::endl;
|
|
|
|
auto xx =eval ( G(t_,tp_), t_=2, tp_=1.2);
|
|
//xx =0;
|
|
std::cout << eval ( gg(t_), t_=2)<< std::endl ;
|
|
|
|
double beta = 1;
|
|
double wmin=0.;
|
|
double wmax=1.0;
|
|
int n_im_freq=100;
|
|
|
|
auto G_w_wn2 = gf<cartesian_product<imfreq,imfreq>>( {gf_mesh<imfreq>(beta, Fermion, n_im_freq), gf_mesh<imfreq>(beta, Fermion, n_im_freq)}, {2,2});
|
|
|
|
auto zz = G_w_wn2(t_,tp_);
|
|
//std::cout << std::get<0>(zz.childs).data() << std::endl ;
|
|
auto yy = eval ( zz, t_=2, tp_=3);
|
|
//std::cout << yy.indexmap()<< std::endl ;
|
|
std::cout << yy << std::endl ;
|
|
//std::cout << eval ( zz, t_=2, tp_=3)<< std::endl ;
|
|
//std::cout << eval ( G_w_wn2(t_,tp_), t_=2, tp_=3)<< std::endl ;
|
|
|
|
//std::cout << eval ( G(t_,tp_), t_=2, tp_=1.2)<< std::endl ;
|
|
//G(t_,tp_) << t_ - 3*tp_;
|
|
//G2(t_,tp_) << t_ + 3*tp_;
|
|
|
|
//G2(t_,tp_) << 2* G(t_,tp_);
|
|
|
|
TEST( G(1,1) );
|
|
TEST( G[G.mesh()(1,1) ]);
|
|
TEST( G.on_mesh(1,1));
|
|
|
|
//G2(t_,tp_) << G(tp_,t_);
|
|
TEST( G(2,1) );
|
|
TEST( G2(1,2) );
|
|
TEST( G(1,2) );
|
|
TEST( G2(2,1) );
|
|
|
|
//TEST( G2(2,1,3) ); // should not compile
|
|
|
|
}
|
|
TRIQS_CATCH_AND_ABORT;
|
|
}
|