|
@@ -932,15 +932,17 @@ namespace Lemma {
|
932
|
932
|
}
|
933
|
933
|
break;
|
934
|
934
|
case H:
|
935
|
|
- //std::cout << "Fuck me gently with a chainsaw..." << std::endl;
|
|
935
|
+ std::cout << "Fuck me gently with a chainsaw..." << std::endl;
|
936
|
936
|
//std::cout << f.cols() << "\t" << f.rows() << std::endl;
|
937
|
937
|
//std::cout << "kern" << KernelManager->GetRAWKernel(ik[5]);
|
|
938
|
+ //std::cout << "Inputs\t" << TM << "\t" << rho << "\t" << wavef << "\t" << ik[5] << "\t" << KernelManager->GetRAWKernel(ik[5])<< std::endl;
|
|
939
|
+ //Hankel->Zgauss(5, TM, 0, rho, wavef, nullptr);
|
938
|
940
|
f(5) = Hankel->Zgauss(5, TM, 0, rho, wavef, KernelManager->GetRAWKernel(ik[5]));
|
939
|
941
|
f(6) = Hankel->Zgauss(6, TM, 1, rho, wavef, KernelManager->GetRAWKernel(ik[6]));
|
940
|
942
|
f(7) = Hankel->Zgauss(7, TE, 0, rho, wavef, KernelManager->GetRAWKernel(ik[7]))*KernelManager->GetRAWKernel(ik[7])->GetZs()/KernelManager->GetRAWKernel(ik[7])->GetZm();
|
941
|
943
|
f(8) = Hankel->Zgauss(8, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[8]))*KernelManager->GetRAWKernel(ik[8])->GetZs()/KernelManager->GetRAWKernel(ik[8])->GetZm();
|
942
|
944
|
f(9) = Hankel->Zgauss(9, TE, 1, rho, wavef, KernelManager->GetRAWKernel(ik[9]))*KernelManager->GetRAWKernel(ik[9])->GetZs()/KernelManager->GetRAWKernel(ik[9])->GetZm();
|
943
|
|
- //std::cout << "HARDER!!!!" << std::endl;
|
|
945
|
+ std::cout << "HARDER!!!!" << std::endl;
|
944
|
946
|
if (std::abs(Pol[1]) > 0) {
|
945
|
947
|
this->Receivers->AppendHfield(ifreq, irec,
|
946
|
948
|
Pol[1]*QPI*(sps*f(5)+c2p*f(6)/rho-cps*f(7)+c2p*f(8)/rho)*Moment,
|