Lemma is an Electromagnetics API
Vous ne pouvez pas sélectionner plus de 25 sujets Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.

Hantenna.cpp 8.4KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253
  1. // ===========================================================================
  2. //
  3. // Filename: hantenna.cpp
  4. //
  5. // Created: 10/07/2010 08:57:04 AM
  6. // Modified: 11 April 2018
  7. // Compiler: Tested with g++, icpc, and MSVC 2017
  8. //
  9. // Author: Trevor Irons (ti)
  10. //
  11. // Copyright (C) 2012,2018 Trevor Irons
  12. //
  13. // Organisation: Lemma Software
  14. //
  15. // Email: Trevor.Irons@lemmasoftware.org
  16. //
  17. // ===========================================================================
  18. /**
  19. @file
  20. @author Trevor Irons
  21. @date 10/07/2010
  22. $Id$
  23. **/
  24. #include "LemmaCore"
  25. #include "FDEM1D"
  26. #include "timer.h"
  27. #if defined(__clang__)
  28. /* Clang/LLVM. ---------------------------------------------- */
  29. const char* compiler = "clang";
  30. const char* ver = __VERSION__;
  31. #elif defined(__ICC) || defined(__INTEL_COMPILER)
  32. /* Intel ICC/ICPC. ------------------------------------------ */
  33. const char* compiler = "icpc";
  34. #elif defined(__GNUC__) || defined(__GNUG__)
  35. /* GNU GCC/G++. --------------------------------------------- */
  36. const char* compiler = "gcc (GCC) ";// __VERSION__;
  37. const char* ver = __VERSION__;
  38. #elif defined(_MSC_VER)
  39. /* Microsoft Visual Studio. --------------------------------- */
  40. const char* compiler = "msvc ";
  41. const int ver = _MSC_FULL_VER;
  42. #elif defined(__PGI)
  43. /* Portland Group PGCC/PGCPP. ------------------------------- */
  44. const char* compiler = "pgc";
  45. #endif
  46. using namespace Lemma;
  47. std::vector<Real> readinpfile(const std::string& fname);
  48. std::vector<std::string> readinpfile2(const std::string& fname);
  49. int main(int argc, char** argv) {
  50. const char *buildString = __DATE__ ", " __TIME__;
  51. std::cout
  52. << "===========================================================================\n"
  53. << "Lemma " << LEMMA_VERSION << "\n"
  54. << "[" << compiler << " " << ver << " " << buildString << "]\n"
  55. << "This program is part of Lemma, a geophysical modelling and inversion API. \n"
  56. << " This Source Code Form is subject to the terms of the Mozilla Public\n"
  57. << " License, v. 2.0. If a copy of the MPL was not distributed with this\n"
  58. << " file, You can obtain one at http://mozilla.org/MPL/2.0/. \n"
  59. << "Copyright (C) 2018 Lemma Software \n"
  60. << "More information may be found at: https://lemmasoftware.org\n"
  61. << " info@lemmasoftware.org\n"
  62. << "===========================================================================\n\n"
  63. << "Hantenna calculates the harmonic H field from polygonal wire loop sources\n";
  64. if (argc < 5) {
  65. std::cout << "usage: hantenna.exe trans.inp cond.inp points.inp config.inp \n";
  66. exit(0);
  67. }
  68. #ifdef LEMMAUSEOMP
  69. std::cout << "OpenMP is using " << omp_get_max_threads() << " threads" << std::endl;
  70. #endif
  71. std::vector<Real> Trans = readinpfile(std::string(argv[1]));
  72. std::vector<Real> CondMod = readinpfile(std::string(argv[2]));
  73. std::vector<Real> Points = readinpfile(std::string(argv[3]));
  74. std::vector<std::string> config = readinpfile2(std::string(argv[4]));
  75. //////////////////////////////////////
  76. // Define transmitter
  77. auto trans = PolygonalWireAntenna::NewSP();
  78. trans->SetNumberOfPoints((int)(Trans[0]));
  79. int ip=1;
  80. for ( ; ip<=(int)(Trans[0])*2; ip+=2) {
  81. trans->SetPoint(ip/2, Vector3r (Trans[ip], Trans[ip+1], -1e-3));
  82. }
  83. trans->SetNumberOfFrequencies(1);
  84. trans->SetFrequency(0, Trans[ip]);
  85. trans->SetCurrent(Trans[ip+1]);
  86. trans->SetMinDipoleRatio(atof(config[1].c_str()));
  87. trans->SetMinDipoleMoment(atof(config[2].c_str()));
  88. trans->SetMaxDipoleMoment(atof(config[3].c_str()));
  89. /////////////////////////////////////
  90. // Field calculations
  91. auto receivers = FieldPoints::NewSP();
  92. int nx = (int)Points[0];
  93. int ny = (int)Points[1];
  94. int nz = (int)Points[2];
  95. Real ox = Points[3];
  96. Real oy = Points[4];
  97. Real oz = Points[5];
  98. Vector3r loc;
  99. VectorXr dx(nx-1);
  100. VectorXr dy(ny-1);
  101. VectorXr dz(nz-1);
  102. ip = 6;
  103. int ir = 0;
  104. for ( ; ip <6+nx-1; ++ip) {
  105. dx[ir] = Points[ip];
  106. ++ir;
  107. }
  108. ir = 0;
  109. for ( ; ip <6+ny-1+nx-1; ++ip) {
  110. dy[ir] = Points[ip];
  111. ++ir;
  112. }
  113. ir = 0;
  114. for ( ; ip <6+nz-1+ny-1+nx-1; ++ip) {
  115. dz[ir] = Points[ip];
  116. ++ir;
  117. }
  118. receivers->SetNumberOfPoints(nx*ny*nz);
  119. ir = 0;
  120. Real pz = oz;
  121. for (int iz=0; iz<nz; ++iz) {
  122. Real py = oy;
  123. for (int iy=0; iy<ny; ++iy) {
  124. Real px = ox;
  125. for (int ix=0; ix<nx; ++ix) {
  126. loc << px, py, pz;
  127. receivers->SetLocation(ir, loc);
  128. if (ix < nx-1) px += dx[ix];
  129. ++ ir;
  130. }
  131. if (iy<ny-1) py += dy[iy];
  132. }
  133. if (iz<nz-1) pz += dz[iz];
  134. }
  135. ////////////////////////////////////
  136. // Define model
  137. auto earth = LayeredEarthEM::NewSP();
  138. VectorXcr sigma;
  139. VectorXr thick;
  140. earth->SetNumberOfLayers(static_cast<int>(CondMod[0])+1);
  141. sigma.resize(static_cast<int>(CondMod[0])+1); sigma(0) = 0; // airlayer
  142. thick.resize(static_cast<int>(CondMod[0])-1);
  143. int ilay=1;
  144. for ( ; ilay/2<CondMod[0]-1; ilay+=2) {
  145. sigma(ilay/2+1) = 1./CondMod[ilay];
  146. thick(ilay/2) = CondMod[ilay+1];
  147. }
  148. sigma(ilay/2+1) = 1./ CondMod[ilay];
  149. earth->SetLayerConductivity(sigma);
  150. if (thick.size() > 0) earth->SetLayerThickness(thick);
  151. auto EmEarth = EMEarth1D::NewSP();
  152. EmEarth->AttachWireAntenna(trans);
  153. EmEarth->AttachLayeredEarthEM(earth);
  154. EmEarth->AttachFieldPoints(receivers);
  155. EmEarth->SetFieldsToCalculate(H);
  156. EmEarth->SetHankelTransformMethod(string2Enum<HANKELTRANSFORMTYPE>(config[0]));
  157. ///////////////////////////////////////////////
  158. // Keep track of time
  159. jsw_timer timer;
  160. timer.begin();
  161. clock_t launch = clock();
  162. EmEarth->CalculateWireAntennaFields(true); // true=status bar
  163. Real paTime = timer.end();
  164. std::cout << "\n\n===========================================\ncalc. real time: " << paTime/60. << "\t[m]\n";
  165. std::cout << "calc. user time: " << (clock()-launch)/CLOCKS_PER_SEC/60. << "\t[CPU m]"
  166. << std::endl;
  167. ////////////////////////////////////
  168. // Report
  169. std::fstream hrep("hfield.yaml", std::ios::out);
  170. std::fstream hreal("hfield.dat", std::ios::out);
  171. hrep << *EmEarth << std::endl;
  172. hrep.close();
  173. //hreal << *trans << std::endl;
  174. //hreal << *earth << std::endl;
  175. hreal << "// Right hand coordinate system, z is positive down\n";
  176. hreal << "// x[m]\ty[m]\tz[m]\tHx[A/m]\tHy[A/m]\tHz[A/m]\n";
  177. hreal.precision(8);
  178. int i=0;
  179. for (int iz=0; iz<nz; ++iz) {
  180. for (int iy=0; iy<ny; ++iy) {
  181. for (int ix=0; ix<nx; ++ix) {
  182. hreal << receivers->GetLocation(i).transpose() << "\t";
  183. //hreal << receivers->GetHfield(0, i).transpose() << "\n"; ( complex, notation )
  184. hreal << receivers->GetHfield(0, i).transpose().real() << "\t";
  185. hreal << receivers->GetHfield(0, i).transpose().imag() << "\n";
  186. ++i;
  187. }
  188. }
  189. }
  190. hreal.close();
  191. // Clean up
  192. }
  193. std::vector<Real> readinpfile(const std::string& fname) {
  194. std::string buf;
  195. char dump[255];
  196. std::vector<Real> vals;
  197. std::fstream input(fname.c_str(), std::ios::in);
  198. if (input.fail()) {
  199. std::cerr << "Input file " << fname << " failed to open\n";
  200. exit(EXIT_FAILURE);
  201. }
  202. while (input >> buf) {
  203. if (buf.substr(0,2) == "//") {
  204. input.getline(dump, 255);
  205. } else {
  206. vals.push_back( atof(buf.c_str() ));
  207. }
  208. }
  209. return vals;
  210. }
  211. std::vector<std::string> readinpfile2(const std::string& fname) {
  212. std::string buf;
  213. char dump[255];
  214. std::vector<std::string> vals;
  215. std::fstream input(fname.c_str(), std::ios::in);
  216. if (input.fail()) {
  217. std::cerr << "Input file " << fname << " failed to open\n";
  218. exit(EXIT_FAILURE);
  219. }
  220. while (input >> buf) {
  221. if (buf.substr(0,2) == "//") {
  222. input.getline(dump, 255);
  223. } else {
  224. vals.push_back( std::string(buf.c_str() ));
  225. }
  226. }
  227. return vals;
  228. }