20 | | RV xy=x; xy.add(y); |
21 | | |
22 | | enorm<fsqmat> f1;f1.set_rv ( xy ); |
23 | | enorm<fsqmat> f2;f2.set_rv ( xy ); |
24 | | enorm<fsqmat> f3;f3.set_rv(y); |
25 | | |
26 | | f1.set_parameters ( "4 3",mat ( "0.4 0.3; 0.3 0.4" ) ); |
27 | | f2.set_parameters ( "1 3",mat ( "0.3 -0.2; -0.2 0.3" ) ); |
28 | | f3.set_parameters ( "2",mat("0.4") ); |
29 | | |
| 17 | RV x ( "{x }", "1" ); |
| 18 | RV y ( "{y }", "1" ); |
| 19 | |
| 20 | RV xy = x; |
| 21 | xy.add ( y ); |
| 22 | |
| 23 | enorm<fsqmat> f1; |
| 24 | f1.set_rv ( xy ); |
| 25 | enorm<fsqmat> f2; |
| 26 | f2.set_rv ( xy ); |
| 27 | enorm<fsqmat> f3; |
| 28 | f3.set_rv ( y ); |
| 29 | |
| 30 | f1.set_parameters ( "4 3", mat ( "0.4 0.3; 0.3 0.4" ) ); |
| 31 | f2.set_parameters ( "1 3", mat ( "0.3 -0.2; -0.2 0.3" ) ); |
| 32 | f3.set_parameters ( "2", mat ( "0.4" ) ); |
| 33 | |
31 | | mepdf A1(&f1); |
32 | | mepdf A2(&f2); |
33 | | mepdf A3(&f3); |
34 | | A ( 0 ) =&A1; |
35 | | A ( 1 ) =&A2; |
36 | | A ( 2 ) =&A3; |
37 | | |
38 | | int Npoints=100; |
39 | | mat x_grid(1,Npoints); |
40 | | x_grid.set_row(0,linspace ( -2.0, 4.0, Npoints )); |
41 | | mat y_grid(1,Npoints); |
42 | | y_grid.set_row(0,linspace ( -2.0, 4.0, Npoints )); |
43 | | |
44 | | mat Grid (2,Npoints*Npoints); |
45 | | Grid.set_submatrix ( 0,0, kron(x_grid,ones(1,Npoints)) ); |
46 | | Grid.set_submatrix ( 1,0, kron(ones(1,Npoints), y_grid) ); |
47 | | |
| 35 | mepdf A1 ( &f1 ); |
| 36 | mepdf A2 ( &f2 ); |
| 37 | mepdf A3 ( &f3 ); |
| 38 | A ( 0 ) = &A1; |
| 39 | A ( 1 ) = &A2; |
| 40 | A ( 2 ) = &A3; |
| 41 | |
| 42 | int Npoints = 100; |
| 43 | mat x_grid ( 1, Npoints ); |
| 44 | x_grid.set_row ( 0, linspace ( -2.0, 4.0, Npoints ) ); |
| 45 | mat y_grid ( 1, Npoints ); |
| 46 | y_grid.set_row ( 0, linspace ( -2.0, 4.0, Npoints ) ); |
| 47 | |
| 48 | mat Grid ( 2, Npoints*Npoints ); |
| 49 | Grid.set_submatrix ( 0, 0, kron ( x_grid, ones ( 1, Npoints ) ) ); |
| 50 | Grid.set_submatrix ( 1, 0, kron ( ones ( 1, Npoints ), y_grid ) ); |
| 51 | |
59 | | |
60 | | vec Res1 = M.evallog_m(Grid); |
61 | | mat Res2 = ((emix*)MP)->evallog_M(Grid); |
62 | | |
63 | | it_file it("merger_iter_test.it"); |
64 | | it << Name("Npoints") << Npoints; |
65 | | it << Name("Grid") << Grid; |
66 | | it << Name("Res1") << Res1; |
67 | | it << Name("Res2") << Res2; |
| 64 | |
| 65 | vec Res1 = M.evallog_m ( Grid ); |
| 66 | mat Res2 = ( ( emix* ) MP )->evallog_M ( Grid ); |
| 67 | |
| 68 | it_file it ( "merger_iter_test.it" ); |
| 69 | it << Name ( "Npoints" ) << Npoints; |
| 70 | it << Name ( "Grid" ) << Grid; |
| 71 | it << Name ( "Res1" ) << Res1; |
| 72 | it << Name ( "Res2" ) << Res2; |