tirons
/
lemma_mirror
mirror of https://github.com/LemmaSoftware/Lemma.git
Watch 1
Star 0
Fork 0
Code Issues 0 Releases 0 Wiki Activity
Lemma is an Electromagnetics API
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
11 Commits
6 Branches
Tree: d93ff67056
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'd93ff67056'
${ noResults }
lemma_mirror/LemmaCore/src/FHTKey.cpp

FHTKey.cpp 22KB
History Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359 
  1. /* This file is part of Lemma, a geophysical modelling and inversion API.

  2.  * More information is available at http://lemmasoftware.org

  3.  */

  4. 

  5. /* This Source Code Form is subject to the terms of the Mozilla Public

  6.  * License, v. 2.0. If a copy of the MPL was not distributed with this

  7.  * file, You can obtain one at http://mozilla.org/MPL/2.0/.

  8.  */

  9. 

  10. /**

  11.  * @file

  12.  * @date      02/11/2014 03:42:53 PM

  13.  * @version   $Id$

  14.  * @author    Trevor Irons (ti)

  15.  * @email     Trevor.Irons@xri-geo.com

  16.  * @copyright Copyright (c) 2014, XRI Geophysics, LLC

  17.  * @copyright Copyright (c) 2014, Trevor Irons

  18.  */

  19. 

  20. #include "FHTKey.h"

  21. 

  22. namespace Lemma {

  23. 

  24.     // ====================  FRIEND METHODS  =====================

  25. 

  26.     std::ostream &operator<<(std::ostream &stream, const FHTKey &ob) {

  27. 

  28.         stream << *(HankelTransform*)(&ob);

  29. 

  30.         return stream;

  31.     }

  32. 

  33. 

  34.     // ====================  STATIC CONST MEMBERS     ============

  35. 

  36.     const Eigen::Matrix<Real, 201, 3>  FHTKey::WT201 =

  37.         ( Eigen::Matrix<Real, 201, 3>()   <<

  38.         // Base                   J0                      J1

  39.           4.1185887075357082e-06, 1.5020099209519960e-03, 4.7827871332506182e-10

  40.         , 4.6623077830484039e-06,-1.0381698214761684e-02,-2.9784175503440788e-09

  41.         , 5.2778064058937756e-06, 3.6840860097595164e-02, 9.7723832770897220e-09

  42.         , 5.9745606155328603e-06,-8.9903380392274704e-02,-2.2382340996085809e-08

  43.         , 6.7632974390298035e-06, 1.7082286536833860e-01, 4.0446774329470848e-08

  44.         , 7.6561600412698171e-06,-2.7115749656836280e-01,-6.1734815854553919e-08

  45.         , 8.6668946776271221e-06, 3.7649328091859574e-01, 8.3293912185608189e-08

  46.         , 9.8110623273521872e-06,-4.7220778569122657e-01,-1.0249453502284080e-07

  47.         , 1.1106278265924788e-05, 5.4778211089647089e-01, 1.1780779749909977e-07

  48.         , 1.2572483264760042e-05,-5.9823516853035097e-01,-1.2870061460834850e-07

  49.         , 1.4232250593579901e-05, 6.2345791612185331e-01, 1.3559243438349901e-07

  50.         , 1.6111133551969887e-05,-6.2650436648257724e-01,-1.3921010821521872e-07

  51.         , 1.8238058880617237e-05, 6.1197225351173345e-01, 1.4065745722769670e-07

  52.         , 2.0645772109076137e-05,-5.8470173866140451e-01,-1.4074881908375281e-07

  53.         , 2.3371341696506312e-05, 5.4911055789616858e-01, 1.4051720878600928e-07

  54.         , 2.6456729726989950e-05,-5.0878861684860843e-01,-1.4040746687777830e-07

  55.         , 2.9949437945688260e-05, 4.6652106345430200e-01, 1.4127886061686993e-07

  56.         , 3.3903239082024059e-05,-4.2426478870289325e-01,-1.4315595655055356e-07

  57.         , 3.8379004719130766e-05, 3.8339538911933357e-01, 1.4689283208027915e-07

  58.         , 4.3445642455208216e-05,-3.4472344791723936e-01,-1.5210916706348747e-07

  59.         , 4.9181156785051293e-05, 3.0876891466890510e-01, 1.5989801550138741e-07

  60.         , 5.5673850034776868e-05,-2.7570439368364807e-01,-1.6940918407911260e-07

  61.         , 6.3023681838995322e-05, 2.4562331000974616e-01, 1.8227089415749844e-07

  62.         , 7.1343808090545215e-05,-2.1839207265400126e-01,-1.9695856878603369e-07

  63.         , 8.0762323056016586e-05, 1.9393194321380827e-01, 2.1603952427106760e-07

  64.         , 9.1424231478173270e-05,-1.7198162962644575e-01,-2.3691320619292838e-07

  65.         , 1.0349368102719458e-04, 1.5242270280410272e-01, 2.6369843208466607e-07

  66.         , 1.1715648947091054e-04,-1.3494945901825492e-01,-2.9202021404039016e-07

  67.         , 1.3262300547161834e-04, 1.1946763189654602e-01, 3.2852445086324662e-07

  68.         , 1.5013134705348249e-04,-1.0565870880444576e-01,-3.6589094553627693e-07

  69.         , 1.6995106759902750e-04, 9.3482355548033913e-02, 4.1487501036863030e-07

  70.         , 1.9238730581535294e-04,-8.2612525279836244e-02,-4.6327136995173986e-07

  71.         , 2.1778548356175115e-04, 7.3077763526174969e-02, 5.2852697369750518e-07

  72.         , 2.4653662386513240e-04,-6.4536481281701225e-02,-5.9034983719954077e-07

  73.         , 2.7908337099788406e-04, 5.7096310621587334e-02, 6.7710211611560898e-07

  74.         , 3.1592680530155527e-04,-5.0384859605213800e-02,-7.5512942807901028e-07

  75.         , 3.5763415767542709e-04, 4.4599557396733047e-02, 8.7062473466409799e-07

  76.         , 4.0484754250000483e-04,-3.9316995063444334e-02,-9.6788530918130449e-07

  77.         , 4.5829384344501882e-04, 3.4838544754296139e-02, 1.1222658353725904e-06

  78.         , 5.1879590436097246e-04,-3.0664946477420088e-02,-1.2417228058919743e-06

  79.         , 5.8728519754599128e-04, 2.7221072240291456e-02, 1.4493467036899140e-06

  80.         , 6.6481616442494776e-04,-2.3901586108434601e-02,-1.5932456559208080e-06

  81.         , 7.5258244942583781e-04, 2.1281566646364738e-02, 1.8747045814274419e-06

  82.         , 8.5193527698548301e-04,-1.8612484595521447e-02,-2.0433320340041385e-06

  83.         , 9.6440425461164468e-04, 1.6655386303461400e-02, 2.4285695351967146e-06

  84.         , 1.0917209222795108e-03,-1.4472420076504743e-02,-2.6179926456520528e-06

  85.         , 1.2358454107222641e-03, 1.3057747649606617e-02, 3.1511729661391781e-06

  86.         , 1.3989966190390965e-03,-1.1226286001060300e-02,-3.3492412032881268e-06

  87.         , 1.5836863762264436e-03, 1.0266818557930830e-02, 4.0964186613549959e-06

  88.         , 1.7927581125735061e-03,-8.6738022421653585e-03,-4.2758275751239154e-06

  89.         , 2.0294306362957340e-03, 8.1103368670848164e-03, 5.3371197552207799e-06

  90.         , 2.2973476893787268e-03,-6.6573628142085938e-03,-5.4435423773626499e-06

  91.         , 2.6006340455800008e-03, 6.4551189810889585e-03, 6.9725766921672099e-06

  92.         , 2.9439590142573526e-03,-5.0524015117839084e-03,-6.9045562968161745e-06

  93.         , 3.3326083277104117e-03, 5.1989014270506263e-03, 9.1397025436977438e-06

  94.         , 3.7725655187922052e-03,-3.7597430078747883e-03,-8.7148373033635960e-06

  95.         , 4.2706040416570154e-03, 4.2640545165292636e-03, 1.2029590806160379e-05

  96.         , 4.8343915539089625e-03,-2.6994965688974474e-03,-1.0927976968519436e-05

  97.         , 5.4726079656493079e-03, 3.5928000560587229e-03, 1.5912526719455299e-05

  98.         , 6.1950790728715292e-03,-1.8061291289989019e-03,-1.3582559661331659e-05

  99.         , 7.0129278325854246e-03, 3.1436470898586703e-03, 2.1176226828087565e-05

  100.         , 7.9387456086585442e-03,-1.0244200001620755e-03,-1.6678205993448338e-05

  101.         , 8.9867860248264830e-03, 2.8888297674091743e-03, 2.8384979250408712e-05

  102.         , 1.0173184409377162e-02,-3.0605070741955765e-04,-2.0132088397797457e-05

  103.         , 1.1516206210016314e-02, 2.8125907445050334e-03, 3.8372045311188108e-05

  104.         , 1.3036528203437736e-02, 3.9337862066047565e-04,-2.3702184335455945e-05

  105.         , 1.4757556829019875e-02, 2.9102041487017727e-03, 5.2385308850007940e-05

  106.         , 1.6705788547622769e-02, 1.1170884769911178e-03,-2.6854373943701261e-05

  107.         , 1.8911217773465227e-02, 3.1876763415953362e-03, 7.2318581557902158e-05

  108.         , 2.1407798659484324e-02, 1.9097806429850762e-03,-2.8535361884516687e-05

  109.         , 2.4233967845691123e-02, 3.6621020321465411e-03, 1.0108123118106823e-04

  110.         , 2.7433236218606032e-02, 2.8203783587849949e-03,-2.6788477540644352e-05

  111.         , 3.1054858792331431e-02, 4.3626885599390430e-03, 1.4319185407094621e-04

  112.         , 3.5154593024557458e-02, 3.9050024915686802e-03,-1.8108424211338017e-05

  113.         , 3.9795557242315927e-02, 5.3324923486866077e-03, 2.0573561552327273e-04

  114.         , 4.5049202393557801e-02, 5.2303399394270488e-03, 3.6361648565843316e-06

  115.         , 5.0996412085361466e-02, 6.6309348458396984e-03, 2.9991264692859609e-04

  116.         , 5.7728747844643331e-02, 6.8775540687037451e-03, 4.8993332079278846e-05

  117.         , 6.5349858773045680e-02, 8.3371689988226087e-03, 4.4354733854670903e-04

  118.         , 7.3977077298642363e-02, 8.9468564745410102e-03, 1.3589101811995494e-04

  119.         , 8.3743225592195963e-02, 1.0554326601376745e-02, 6.6515823521273764e-04

  120.         , 9.4798660459030126e-02, 1.1562765604509096e-02, 2.9451991608624389e-04

  121.         , 1.0731358818908403e-01, 1.3414536265660639e-02, 1.0105553806271136e-03

  122.         , 1.2148068500391276e-01, 1.4879837399735491e-02, 5.7533964792254050e-04

  123.         , 1.3751806344428075e-01, 1.7084241336519569e-02, 1.5535077418254303e-03

  124.         , 1.5567263036799733e-01, 1.9088092654441269e-02, 1.0621193133794828e-03

  125.         , 1.7622388825676111e-01, 2.1768513715084332e-02, 2.4128970258747457e-03

  126.         , 1.9948823835583873e-01, 2.4416120601223806e-02, 1.8929698186109245e-03

  127.         , 2.2582385189647586e-01, 2.7711234465350204e-02, 3.7800177772191607e-03

  128.         , 2.5563618439697788e-01, 3.1127164234404547e-02, 3.2937343278959356e-03

  129.         , 2.8938421793905067e-01, 3.5184140220277452e-02, 5.9612179800391544e-03

  130.         , 3.2758752752368947e-01, 3.9497913113638941e-02, 5.6295935320552241e-03

  131.         , 3.7083428029819565e-01, 4.4449762157204989e-02, 9.4422526803168080e-03

  132.         , 4.1979029080811425e-01, 4.9758433269983887e-02, 9.4810228247137925e-03

  133.         , 4.7520927168614446e-01, 5.5667457114992429e-02, 1.4979159139973408e-02

  134.         , 5.3794443759467447e-01, 6.1949790434151823e-02, 1.5745093424331037e-02

  135.         , 6.0896164107289685e-01, 6.8682064905571841e-02, 2.3708966370000140e-02

  136.         , 6.8935424252422239e-01, 7.5616743950118387e-02, 2.5740590762136872e-02

  137.         , 7.8035994327803426e-01, 8.2584983563572259e-02, 3.7232782843117498e-02

  138.         , 8.8337984088275090e-01, 8.9193635262987042e-02, 4.1225008900614292e-02

  139.         , 1.0000000000000000e+00, 9.4874686942005279e-02, 5.7507103212277359e-02

  140.         , 1.1320158709991752e+00, 9.8891681869094042e-02, 6.4044642846235691e-02

  141.         , 1.2814599321940212e+00, 1.0004294654495730e-01, 8.6091796551857253e-02

  142.         , 1.4506329812931589e+00, 9.7016844329802857e-02, 9.4717139804457451e-02

  143.         , 1.6421395578187052e+00, 8.7789596149914384e-02, 1.2172497389177185e-01

  144.         , 1.8589280418463421e+00, 7.0509767592855419e-02, 1.2853597000398900e-01

  145.         , 2.1043360464154781e+00, 4.2778853484849347e-02, 1.5450777327408322e-01

  146.         , 2.3821418024579781e+00, 3.5584532926218175e-03, 1.4755964090969320e-01

  147.         , 2.6966223273530128e+00,-4.7210453264879347e-02, 1.5621399202016978e-01

  148.         , 3.0526192726543444e+00,-1.0489787743225988e-01, 1.1147620703185755e-01

  149.         , 3.4556134647626755e+00,-1.6020950407348281e-01, 7.7489831356083380e-02

  150.         , 3.9118092861497971e+00,-1.9459781573132096e-01,-2.7628266850147711e-02

  151.         , 4.4282301962435247e+00,-1.8490774599542381e-01,-1.0198730178317840e-01

  152.         , 5.0128268625854631e+00,-1.0754165020025190e-01,-2.2039889971111640e-01

  153.         , 5.6745995670177445e+00, 3.6037727487476613e-02,-2.1185762869925318e-01

  154.         , 6.4237367714291338e+00, 1.9759013047489976e-01,-1.6052415083152241e-01

  155.         , 7.2717719763787807e+00, 2.6132313321851336e-01, 9.1649025798681089e-02

  156.         , 8.2317612875478190e+00, 1.1713996822458939e-01, 2.3792823877700942e-01

  157.         , 9.3184844237807365e+00,-1.8758779281301441e-01, 2.6075777853738125e-01

  158.         , 1.0548672261378394e+01,-3.0238114997462151e-01,-1.5662188259001042e-01

  159.         , 1.1941264417849103e+01, 4.8163135684567732e-02,-2.8932081756330175e-01

  160.         , 1.3517700840802913e+01, 3.6399529664885466e-01, 1.3148519116247689e-02

  161.         , 1.5302251891207787e+01,-1.4910233461562913e-01, 4.2691302759079564e-01

  162.         , 1.7322392002874359e+01,-2.6373490348543854e-01,-4.0005050006489040e-01

  163.         , 1.9609222670922968e+01, 4.0362661807718703e-01, 1.1513789407450359e-01

  164.         , 2.2197951281441636e+01,-3.1409794650104578e-01, 9.3748244358717620e-02

  165.         , 2.5128433154258410e+01, 1.8179369405131079e-01,-1.6037231301955096e-01

  166.         , 2.8445785143962375e+01,-9.0738718042631769e-02, 1.5071857939129532e-01

  167.         , 3.2201080245997971e+01, 4.2946487545160242e-02,-1.2120369075996129e-01

  168.         , 3.6452133901787732e+01,-2.0586135807067835e-02, 9.4110656079982341e-02

  169.         , 4.1264394108610787e+01, 1.0392667161913182e-02,-7.3742238434584328e-02

  170.         , 4.6711949038112273e+01,-5.6117848068723023e-03, 5.9038567576124905e-02

  171.         , 5.2878667676447755e+01, 3.2402025511569896e-03,-4.8288117528475852e-02

  172.         , 5.9859491047029913e+01,-1.9858724388273777e-03, 4.0197054299576880e-02

  173.         , 6.7761893895170928e+01, 1.2807317326135252e-03,-3.3919787720641081e-02

  174.         , 7.6707539338295589e+01,-8.6253791756068252e-04, 2.8918247156763971e-02

  175.         , 8.6834151956244213e+01, 6.0296590782143555e-04,-2.4845271759013743e-02

  176.         , 9.8297638159222487e+01,-4.3548936996943465e-04, 2.1470449751150148e-02

  177.         , 1.1127448647797397e+02, 3.2375891570874245e-04,-1.8635828020057092e-02

  178.         , 1.2596448473034971e+02,-2.4698212240059978e-04, 1.6229579362363859e-02

  179.         , 1.4259379589698909e+02, 1.9279062274925971e-04,-1.4170085406786529e-02

  180.         , 1.6141844006140866e+02,-1.5357911509105972e-04, 1.2396084121011890e-02

  181.         , 1.8272823602144376e+02, 1.2453787849367440e-04,-1.0860414401084047e-02

  182.         , 2.0685126325595743e+02,-1.0255126402954421e-04, 9.5259444245356633e-03

  183.         , 2.3415891294197226e+02, 8.5558482209476271e-05,-8.3628577447233381e-03

  184.         , 2.6507160578622688e+02,-7.2170928476334345e-05, 7.3468029551253195e-03

  185.         , 3.0006526470124555e+02, 6.1436863283080017e-05,-6.4576043210966359e-03

  186.         , 3.3967864197737873e+02,-5.2693349406473615e-05, 5.6783439955994880e-03

  187.         , 3.8452161375783919e+02, 4.5471255142623729e-05,-4.9946949167265437e-03

  188.         , 4.3528456951608860e+02,-3.9433284158653591e-05, 4.3944258108608806e-03

  189.         , 4.9274904109325632e+02, 3.4332971164795619e-05,-3.8670264019660858e-03

  190.         , 5.5779973493719069e+02,-2.9987212220165472e-05, 3.4034180355556670e-03

  191.         , 6.3143815278803334e+02, 2.6257657435614391e-05,-2.9957260668529964e-03

  192.         , 7.1479801051045558e+02,-2.3037978256349448e-05, 2.6370977166248776e-03

  193.         , 8.0916269245647072e+02, 2.0245071331016652e-05,-2.3215540117372982e-03

  194.         , 9.1598501008114988e+02,-1.7812925644382519e-05, 2.0438677474690805e-03

  195.         , 1.0369095690092008e+03, 1.5688305607849465e-05,-1.7994616759226389e-03

  196.         , 1.1737980889093292e+03,-1.3827679492110470e-05, 1.5843226896713463e-03

  197.         , 1.3287580659938624e+03, 1.2195005442258958e-05,-1.3949288614414647e-03

  198.         , 1.5041752194232211e+03,-1.0760110818279243e-05, 1.2281869708886250e-03

  199.         , 1.7027502211507524e+03, 9.4974857670959145e-06,-1.0813786997088304e-03

  200.         , 1.9275402746900081e+03,-8.3853711343938338e-06, 9.5211407460757294e-04

  201.         , 2.1820061829391980e+03, 7.4050612540713192e-06,-8.3829103020448140e-04

  202.         , 2.4700656297055034e+03,-6.5403682860228500e-06, 7.3806018220987763e-04

  203.         , 2.7961534952362003e+03, 5.7772102413267325e-06,-6.4979406671247244e-04

  204.         , 3.1652901343571971e+03,-5.1032933218796731e-06, 5.7206022901230412e-04

  205.         , 3.5831586684094545e+03, 4.5078641320869195e-06,-5.0359764543483573e-04

  206.         , 4.0561924809477755e+03,-3.9815111951817114e-06, 4.4329604122300101e-04

  207.         , 4.5916742642604040e+03, 3.5159993210292339e-06,-3.9017773206623073e-04

  208.         , 5.1978481416012310e+03,-3.1041249680128287e-06, 3.4338166974098888e-04

  209.         , 5.8840465913361650e+03, 2.7395854235553632e-06,-3.0214941633163506e-04

  210.         , 6.6608341270911405e+03,-2.4168587823583312e-06, 2.6581280850704716e-04

  211.         , 7.5401699459601114e+03, 2.1310948134441218e-06,-2.3378310479588391e-04

  212.         , 8.5355920488578286e+03,-1.8780185742021288e-06, 2.0554143583887405e-04

  213.         , 9.6624256676814348e+03, 1.6538488252707735e-06,-1.8063040107732216e-04

  214.         , 1.0938019208165191e+04,-1.4552318768651144e-06, 1.5864667598176302e-04

  215.         , 1.2382011340936813e+04, 1.2791890865306748e-06,-1.3923451235168759e-04

  216.         , 1.4016633352832258e+04,-1.1230741959148155e-06, 1.2208003098625932e-04

  217.         , 1.5867051413382505e+04, 9.8453630538596172e-07,-1.0690622166177854e-04

  218.         , 1.7961754025908867e+04,-8.6148574493190796e-07, 9.3468580362568137e-05

  219.         , 2.0332990628312182e+04, 7.5206242699701732e-07,-8.1551328581234316e-05

  220.         , 2.3017268096126892e+04,-6.5460810334682633e-07, 7.0964174631531072e-05

  221.         , 2.6055912791858576e+04, 5.6764451596029765e-07,-6.1539592468666665e-05

  222.         , 2.9495706813754354e+04,-4.8985884555184997e-07, 5.3130609116145443e-05

  223.         , 3.3389608239508460e+04, 4.2009674106879252e-07,-4.5609105983126460e-05

  224.         , 3.7797566453568354e+04,-3.5736212641225517e-07, 3.8864648584181207e-05

  225.         , 4.2787445110585410e+04, 3.0082215969939671e-07,-3.2803856352344075e-05

  226.         , 4.8436066944688770e+04,-2.4981510481639669e-07, 2.7350296775876261e-05

  227.         , 5.4830396510166145e+04, 2.0385823466866512e-07,-2.2444816150805301e-05

  228.         , 6.2068879062685897e+04,-1.6265189071584773e-07, 1.8046076281584239e-05

  229.         , 7.0262956194088882e+04, 1.2607416700611311e-07,-1.4130826937491561e-05

  230.         , 7.9538781555028458e+04,-9.4158417913450858e-08, 1.0693106849359383e-05

  231.         , 9.0039163080228551e+04, 6.7043911217063425e-08,-7.7412053314530284e-06

  232.         , 1.0192576161830177e+05,-4.4891090827293947e-08, 5.2910576443698300e-06

  233.         , 1.1538157981559623e+05, 2.7761325666544702e-08,-3.3552268362550323e-06

  234.         , 1.3061377957221285e+05,-1.5480404355710375e-08, 1.9282956206367452e-06

  235.         , 1.4785687144693290e+05, 7.5327300141098751e-09,-9.7253712572058755e-07

  236.         , 1.6737632511421290e+05,-3.0524770418657847e-09, 4.1100807632959352e-07

  237.         , 1.8947265645880660e+05, 9.5877856096830783e-10,-1.3553176263207053e-07

  238.         , 2.1448605423174356e+05,-2.0575286298055636e-10, 3.0748587523233524e-08

  239.         , 2.4280161749832361e+05, 2.2414416956474645e-11,-3.5668195345476294e-09 ).finished();

  240. 

  241.     // ====================  LIFECYCLE     =======================

  242. 

  243.     //--------------------------------------------------------------------------------------

  244.     //       Class:  FHTKey

  245.     //      Method:  FHTKey

  246.     // Description:  constructor (protected)

  247.     //--------------------------------------------------------------------------------------

  248.     FHTKey::FHTKey (const std::string& name) : HankelTransform(name) {

  249. 

  250.     }  // -----  end of method FHTKey::FHTKey  (constructor)  -----

  251. 

  252. 

  253.     //--------------------------------------------------------------------------------------

  254.     //       Class:  FHTKey

  255.     //      Method:  New()

  256.     // Description:  public constructor

  257.     //--------------------------------------------------------------------------------------

  258.     FHTKey* FHTKey::New() {

  259.         FHTKey*  Obj = new FHTKey("FHTKey");

  260.         Obj->AttachTo(Obj);

  261.         return Obj;

  262.     }

  263. 

  264.     //--------------------------------------------------------------------------------------

  265.     //       Class:  FHTKey

  266.     //      Method:  ~FHTKey

  267.     // Description:  destructor (protected)

  268.     //--------------------------------------------------------------------------------------

  269.     FHTKey::~FHTKey () {

  270. 

  271.     }  // -----  end of method FHTKey::~FHTKey  (destructor)  -----

  272. 

  273.     //--------------------------------------------------------------------------------------

  274.     //       Class:  FHTKey

  275.     //      Method:  Delete

  276.     // Description:  public destructor

  277.     //--------------------------------------------------------------------------------------

  278.     void FHTKey::Delete() {

  279.         this->DetachFrom(this);

  280.     }

  281. 

  282.     //--------------------------------------------------------------------------------------

  283.     //       Class:  FHTKey

  284.     //      Method:  Release

  285.     // Description:  destructor (protected)

  286.     //--------------------------------------------------------------------------------------

  287.     void FHTKey::Release() {

  288.         delete this;

  289.     }

  290. 

  291. 

  292.     //--------------------------------------------------------------------------------------

  293.     //       Class:  FHTKey

  294.     //      Method:  Zgauss

  295.     //--------------------------------------------------------------------------------------

  296.     Complex FHTKey::Zgauss ( const int &ikk, const EMMODE &imode,

  297.                             const int &itype, const Real &rho,

  298.                             const Real &wavef, KernelEm1DBase *Kernel ) {

  299.  		return Zans(0, Kernel->GetManagerIndex());

  300.     }		// -----  end of method FHTKey::ComputeRelated  -----

  301. 

  302. 

  303.     //--------------------------------------------------------------------------------------

  304.     //       Class:  FHTKey

  305.     //      Method:  ComputeRelated

  306.     //--------------------------------------------------------------------------------------

  307.     void FHTKey::ComputeRelated ( const Real& rho, KernelEm1DBase* Kernel ) {

  308.         return ;

  309.     }		// -----  end of method FHTKey::ComputeRelated  -----

  310. 

  311.     //--------------------------------------------------------------------------------------

  312.     //       Class:  FHTKey

  313.     //      Method:  ComputeRelated

  314.     //--------------------------------------------------------------------------------------

  315.     void FHTKey::ComputeRelated ( const Real& rho, std::vector< KernelEm1DBase* > KernelVec ) {

  316.         return ;

  317.     }		// -----  end of method FHTKey::ComputeRelated  -----

  318. 

  319.     //--------------------------------------------------------------------------------------

  320.     //       Class:  FHTKey

  321.     //      Method:  ComputeRelated

  322.     //--------------------------------------------------------------------------------------

  323.     void FHTKey::ComputeRelated ( const Real& rho, KernelEM1DManager* KernelManager ) {

  324. 

  325.         //kernelVec = KernelManager->GetSTLVector();

  326.         int nrel = (int)(KernelManager->GetSTLVector().size());

  327.         Eigen::Matrix<Complex, 201, Eigen::Dynamic > Zwork;

  328.         // TODO, if we want to allow lagged, then 1 below should be nlag

  329.         Zans= Eigen::Matrix<Complex, Eigen::Dynamic, Eigen::Dynamic>::Zero(1, nrel);

  330.         Zwork.resize(201, nrel);

  331.         VectorXr lambda = WT201.col(0).array()/rho;

  332.         int NumFun = 0;

  333.         int idx = 0;

  334. 

  335.         // Get Kernel values

  336.         for (int ir=0; ir<lambda.size(); ++ir) {

  337.             // irelated loop

  338.             ++NumFun;

  339.             KernelManager->ComputeReflectionCoeffs(lambda(ir), idx, rho);

  340.             for (int ir2=0; ir2<nrel; ++ir2) {

  341.                 // Zwork* needed due to sign convention of filter weights

  342.  			    Zwork(ir, ir2) = std::conj(KernelManager->GetSTLVector()[ir2]->RelBesselArg(lambda(ir)));

  343.             }

  344. 

  345.         }

  346. 

  347.         // We diverge slightly from Key here, each kernel is evaluated seperately, whereby instead

  348.         // they prefer to sum them. The reason is that all those terms have been removed from the kernels

  349.         // in the interests of making them as generic and reusable as possible. This approach requires slightly

  350.         // more multiplies, but the same number of kernel evaluations, which is the expensive part.

  351.         // Inner product and scale

  352.         for (int ir2=0; ir2<nrel; ++ir2) {

  353.             Zans(0, ir2) = Zwork.col(ir2).dot(WT201.col(KernelManager->GetSTLVector()[ir2]->GetBesselOrder() + 1))/rho;

  354.         }

  355. 

  356.         return ;

  357.     }		// -----  end of method FHTKey::ComputeRelated  -----

  358. 

  359. }		// -----  end of Lemma  name  -----