123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293 |
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- #include "hankeltransformhankel2.h"
- #include "hankeltransformgaussianquadrature.h"
- #include "kernelem1d.h"
- #include "layeredearthem.h"
-
- using namespace Lemma;
-
- int main() {
-
-
- LayeredEarthEM *Earth = LayeredEarthEM::New();
- VectorXcr sigma(3);
- sigma << 0., .1, 0.01;
- VectorXr thick(1);
- thick << 10;
- Earth->SetNumberOfLayers(3);
- Earth->SetLayerConductivity(sigma);
- Earth->SetLayerThickness(thick);
-
-
-
- DipoleSource *dipole = DipoleSource::New();
- dipole->SetMoment(2);
- dipole->SetType(MAGNETICDIPOLE);
- dipole->SetPolarisation(ZPOLARISATION);
- dipole->SetLocation(0,0,0);
- dipole->SetNumberOfFrequencies(1);
- dipole->SetFrequency(0,1000);
- dipole->SetPhase(0);
-
- KernelEm1D *Kernel = KernelEm1D::New();
- Kernel->Initialise(Earth);
- Kernel->SetUpSource(dipole, 0);
- Kernel->SetUpReceiver(-0.4);
-
-
-
- std::cout.precision(10);
-
- Hankel2 *dig = Hankel2::New();
-
-
-
-
-
-
-
-
-
-
-
-
-
- Earth->Delete();
- dig->Delete();
-
- dipole->Delete();
- Kernel->Delete();
- return EXIT_SUCCESS;
- }
|