macro Interpolationfunc(size) // //real size; //{ // ifstream sizin("E.txt"); // sizin >> size; //} real[int] E0(size); { ifstream Ein("E.txt"); Ein >> E0; } real[int] xkfil1(size); { ifstream xkin("xkfil.txt"); xkin >> xkfil1; } real[int] E1(size); real p1 = 3; real Emin = 1e-6; for(int i=0; i < size; i++){ E1(i) = xkfil1(i) ^ (Emin + p1*E0(i)); } {ofstream Eout("E.txt"); Eout << E1 << endl; } //End