hankel1.m

Fast Hankel Transform Algorithm

  0.41396841136470921454E-04
  0.50564046316342118052E-04
  0.61753575721436104002E-04
  0.75428141719150856360E-04
  0.92118338007583430976E-04
  0.11251534681498950364E-03
  0.13740856459760000547E-03
  0.16783029354650548710E-03
  0.20495440270807768974E-03
  0.25032223970649432505E-03
  0.30567824291028637771E-03
  0.37332275750272562662E-03
  0.45584569317397240131E-03
  0.55667758728412204596E-03
  0.67965842762967730497E-03
  0.82989825334180589590E-03
  0.10130793883812590737E-02
  0.12367998790718090669E-02
  0.15094441288791659965E-02
  0.18422782918639890679E-02
  0.22476208557991408411E-02
  0.27421062075955880862E-02
  0.33437164053099180556E-02
  0.40768527847886001578E-02
  0.49675073471938113734E-02
  0.60511176276551595712E-02
  0.73646815739407444149E-02
  0.89588637538056889453E-02
  0.10885052122857430054E-01
  0.13213887638701850638E-01
  0.16013879136554731025E-01
  0.19379495481742049084E-01
  0.23395566125555520426E-01
  0.28179341735834879251E-01
  0.33820790606197338735E-01
  0.40444641201110451134E-01
  0.48109746447546619663E-01
  0.56899341828119280595E-01
  0.66751684235759015107E-01
  0.77591144073115236868E-01
  0.89047612974465659152E-01
  0.10065405918556659393E+00
  0.11140105420732690500E+00
  0.12006932932879070541E+00
  0.12458597468885210247E+00
  0.12268765549548429905E+00
  0.11115942050671910601E+00
  0.87319954786645864742E-01
  0.48465000302246638575E-01
 -0.49561566373757083917E-02
 -0.69471081820978636268E-01
 -0.13351269533458298699E+00
 -0.17957507285653320772E+00
 -0.18191106295048839470E+00
 -0.12098476462017759836E+00
  0.57914272269164483384E-02
  0.15348128813633118983E+00
  0.23522097310698558692E+00
  0.15150400266403860061E+00
 -0.82790857821451305232E-01
 -0.27115431040159521103E+00
 -0.13312798063762890100E+00
  0.22420582796659790925E+00
  0.23042922487820899358E+00
 -0.25728138031301517330E+00
 -0.14755494381924760816E+00
  0.36119355267312441837E+00
 -0.24353715522887228739E+00
  0.38114547256147109089E-01
  0.82736503214593373756E-01
 -0.10914677811197480428E+00
  0.89643285228612118454E-01
 -0.60977888159322063411E-01
  0.37801231818370660542E-01
 -0.22438621211053739329E-01
  0.13156278189915569798E-01
 -0.77896933116771488112E-02
  0.47370324617059750630E-02
 -0.29965293695965681403E-02
  0.19878544860469768082E-02
 -0.13869827135561199356E-02
  0.10157400415733200925E-02
 -0.77631830897451124893E-03
  0.61460402632747919080E-03
 -0.50020690522478944255E-03
  0.41570616801530989705E-03
 -0.35086447759715891749E-03
  0.29949364033671969747E-03
 -0.25773573414907620556E-03
  0.22310488448276601017E-03
 -0.19394286742651010405E-03
  0.16910356690987170454E-03
 -0.14776630535110279563E-03
  0.12932306435161670878E-03
 -0.11330886340153000630E-03
  0.99357870873694533213E-04
 -0.87175171695487733894E-04
  0.76518203465147482511E-04
 -0.67184226920608184730E-04
  0.59001625485470532949E-04
 -0.51823700437172301393E-04
  0.45524131447897800190E-04
 -0.39993558219308811687E-04
  0.35136924058234570150E-04
 -0.30871356264610351938E-04
  0.27124444492712818783E-04
 -0.23832821622649580026E-04
  0.20940974022723349952E-04
 -0.18400228343346008335E-04
  0.16167881311147351016E-04
 -0.14206450345841819494E-04
  0.12483025923096489624E-04
 -0.10968708114345040680E-04
  0.96381137476371433619E-05
 -0.84689451209231461783E-05
  0.74416131426310713740E-05
 -0.65389076895947963034E-05
  0.57457083047103120349E-05
 -0.50487298647161201493E-05
  0.44362992864155191501E-05
 -0.38981597741651851768E-05
  0.34252990553006400639E-05
 -0.30097983612462208859E-05
  0.26446996057275441348E-05
 -0.23238887351302340716E-05
  0.20419933647589090787E-05
 -0.17942928642745300170E-05
  0.15766392837610099303E-05
 -0.13853878318735780200E-05
  0.12173358208997559817E-05
 -0.10696690610117151049E-05
  0.93991475334313001620E-06
 -0.82590006822179900410E-06
  0.72571573986650604055E-06
 -0.63768409395308406728E-06
  0.56033096589579911757E-06
 -0.49236101932854606775E-06
  0.43263604794155821972E-06
 -0.38015590945392312373E-06
  0.33404177953802387996E-06
 -0.29352143989559692218E-06
  0.25791634724263857612E-06
 -0.22663026755387299218E-06
  0.19913929019334100136E-06
 -0.17498305605429440553E-06
  0.15375705002049011184E-06
 -0.13510582667935480436E-06
  0.11871705693399870160E-06
 -0.10431629758749350038E-06
  0.91662396276475694184E-07
 -0.80543453607028647290E-07
  0.70773274428481856046E-07
 -0.62188249446989189968E-07
  0.54644615505335029221E-07
 -0.48016048443646231508E-07
  0.42191547784261369808E-07
 -0.37073577780952398937E-07
  0.32576433988135847120E-07
 -0.28624808133909398953E-07
  0.25152527127147581427E-07
 -0.22101444936595110588E-07
  0.19420468820503340806E-07
 -0.17064703711658711163E-07
  0.14994700450203629605E-07
 -0.13175795208633650552E-07
  0.11577529007302610104E-07
 -0.10173137628831489796E-07
  0.89391034277419880612E-08
 -0.78547615254943383801E-08
  0.69019537690386798258E-08
 -0.60647246504485460851E-08
  0.53290541108617648523E-08
 -0.46826227654829832319E-08
  0.41146056122897838021E-08
 -0.36154907601472161940E-08
  0.31769201408808051073E-08
 -0.27915495445014601903E-08
  0.24529256362912200658E-08
 -0.21553778928767579448E-08
  0.18939236446342600392E-08
 -0.16641846353897590312E-08
  0.14623137046133780063E-08
 -0.12849303645740829450E-08
  0.11290641920775340868E-08
 -0.99210508606754888054E-09
  0.87175955886335064848E-09
 -0.76601232990455893213E-09
  0.67309257867770258852E-09
 -0.59144429108839117984E-09
  0.51970020258742657674E-09
 -0.45665890207353687588E-09
  0.40126471338250552359E-09
 -0.35259001730495680327E-09
  0.30981971788986289322E-09
 -0.27223759293244408980E-09
  0.23921430022514762304E-09
 -0.21019683877088560052E-09
  0.18469928839465210504E-09
 -0.16229467261876449390E-09
  0.14260780857078909327E-09
 -0.12530902424439949164E-09
  0.11010863790384879428E-09
 -0.96752107149079824750E-10
  0.85015766394465004630E-10
 -0.74703081400610626905E-10
  0.65641358155343214620E-10
 -0.57678850985617859679E-10
  0.50682221459754282741E-10
 -0.44534305525909120100E-10
  0.39132151504364007283E-10
 -0.34385296082594761887E-10
  0.30214249439239317785E-10
 -0.26549164124680559140E-10
  0.23328665408564599349E-10
 -0.20498823510896081544E-10
  0.18012250506600650469E-10
 -0.15827306778509629286E-10
  0.13907403728951850551E-10
 -0.12220391074163700618E-10
  0.10738018462452050425E-10
 -0.94354624003716234485E-11
  0.82909105640953193728E-11
 -0.72851965346947523766E-11
  0.64014788411436639934E-11
 -0.56249589367146987257E-11
  0.49426333858928202302E-11
 -0.43430761116809759680E-11
  0.38162470568545827330E-11
 -0.33533240552467311054E-11
  0.29465550976975220819E-11
 -0.25891285186428910646E-11
  0.22750589294212621855E-11
 -0.19990869881930792011E-11
  0.17565913281172699705E-11
 -0.15435111689614020217E-11
  0.13562783161689700960E-11
 -0.11917574086305238998E-11
  0.10471934145827610682E-11
 -0.92016549643814607864E-12
  0.80854647197038528016E-12
 -0.71046719298279401734E-12
  0.62428524494839663246E-12
 -0.54855744348363701401E-12
  0.48201566709453555482E-12
 -0.42354562149103289211E-12
  0.37216817985480538490E-12
 -0.32702298658923321260E-12
  0.28735404998800310208E-12
 -0.25249708256169828971E-12
  0.22186837702370389530E-12
 -0.19495503165314128815E-12
  0.17130636135177430412E-12
 -0.15052635056794931119E-12
  0.13226702170589389284E-12
 -0.11622260796808300942E-12
  0.10212443304988860003E-12
 -0.89736411943535084833E-13
  0.78851097509314687508E-13
 -0.69286206610625636538E-13
  0.60881567639821682927E-13
 -0.53496438318744010298E-13
  0.47007148858659282416E-13
 -0.41305031012602458038E-13
  0.36294598340360191951E-13
 -0.31891947213064369610E-13
  0.28023351780988580919E-13
 -0.24624029376283279094E-13
  0.21637055676372050574E-13
 -0.19012411461508211104E-13
  0.16706145003659701281E-13
 -0.14679636060291389006E-13
  0.12898949148078830678E-13
 -0.11334265266611379683E-13
  0.99593825558268706535E-14
 -0.87512775252863140427E-14
  0.76897195077421143642E-14
 -0.67569318807328292835E-14
  0.59372943830891981248E-14
 -0.52170815413984568005E-14
  0.45842328261723863703E-14
 -0.40281506888097158469E-14
  0.35395230973258291850E-14
 -0.31101675990681859105E-14
  0.27328942991223000800E-14
 -0.24013854598749791415E-14
  0.21100897055373030150E-14
 -0.18541290599993040151E-14
  0.16292172612908320081E-14
 -0.14315879847593459752E-14
  0.12579317730060459754E-14
 -0.11053406164233719234E-14
  0.97125925629132513426E-15
 -0.85344239496416429968E-15
  0.74991709659831521783E-15
 -0.65894974879250159170E-15
  0.57901703188703568188E-15
 -0.50878040978025863482E-15
  0.44706371509062259811E-15
 -0.39283345331036878858E-15
  0.34518149612852799007E-15
 -0.30330987410939582363E-15
  0.26651741406787180955E-15
 -0.23418799737396022297E-15
  0.20578024256254929268E-15
 -0.18081843947571900690E-15
  0.15888458312267581200E-15
 -0.13961137385800899984E-15
  0.12267606666074510376E-15
 -0.10779506651556279801E-15
  0.94719179391603797610E-16
 -0.83229439292786975771E-16
  0.73133441500293154255E-16
 -0.64262120604484965377E-16
  0.56466919371882109638E-16
 -0.49617301037651720597E-16
  0.43598563364994760812E-16
 -0.38309917866133909996E-16
  0.33662802019951652661E-16
 -0.29579396223041629810E-16
  0.25991320639354369445E-16
 -0.22838490126158601174E-16
  0.20068108061152711033E-16
 -0.17633782221571330287E-16
  0.15494747909989438574E-16
 -0.13615185317456429361E-16
  0.11963619692670830272E-16
 -0.10512394272558709913E-16
  0.92372071480646483496E-17
 -0.81167043096073984687E-17
  0.71321220574247113037E-17
 -0.62669727886873747397E-17
  0.55067688996430172615E-17
 -0.48387801793162163364E-17
  0.42518206321314128635E-17
 -0.37360611596341719162E-17
  0.32828649645187700314E-17
 -0.28846429206752079096E-17
  0.25347264873153391346E-17
 -0.22272560390247178611E-17
  0.19570827417369101585E-17
 -0.17196823314652230881E-17
  0.15110793519499210062E-17
 -0.13277805825221979748E-17
  0.11667165413822330724E-17
 -0.10251900847168659743E-17
  0.90083124090830315999E-18
 -0.79155752349720990603E-18
  0.69553905830937584557E-18
 -0.61116794077226843712E-18
  0.53703131028706945667E-18
 -0.47188769076765341320E-18
  0.41464620115119749872E-18
 -0.36434828774274431505E-18
  0.32015167248500091253E-18
 -0.28131624835279290921E-18
  0.24719168567911820595E-18
 -0.21720654187174320654E-18
  0.19085869215550189721E-18
 -0.16770692109721899111E-18
  0.14736353410746910352E-18
 -0.12948786519216900428E-18
  0.11378057223455149305E-18
 -0.99978624276428549682E-19
  0.87850896856935804010E-19
 -0.77194301650481244444E-19
  0.67830385593241861930E-19
 -0.59602342548611573044E-19
  0.52372387468676202365E-19
 -0.46019449077998791288E-19
  0.40437142440414807125E-19
 -0.35531987457892000724E-19
  0.31221843469976618630E-19
 -0.27434533741424270108E-19
  0.24106636804928459342E-19
 -0.21182424419102399996E-19
  0.18612928356413968765E-19
 -0.16355120393022199627E-19
  0.14371191768318589670E-19
 -0.12627920047644379558E-19
  0.11096112785317059883E-19
 -0.97501186719036165739E-20
  0.85673979808058807363E-20
 -0.75281451224231245595E-20
  0.66149569855872109159E-20
 -0.58125415113657893624E-20
  0.51074616176521397340E-20
 -0.44879101854824920831E-20
  0.39435123390814399527E-20
 -0.34651517093082292638E-20
  0.30448177717368800233E-20
 -0.26754717030230440586E-20
  0.23509285093699011334E-20
 -0.20657534540814548706E-20
  0.18151710504142631532E-20
 -0.15949850948474660527E-20
  0.14015083996708770500E-20
 -0.12315010469494319376E-20
  0.10821161305372590522E-20
 -0.95085207960662486644E-21
  0.83551076750596628203E-21
 -0.73416070535124345550E-21
  0.64510470249568779156E-21
 -0.56685144894552668532E-21
  0.49809054123125183129E-21
 -0.43767053435643358195E-21
  0.38457965596782228367E-21
 -0.33792886257541818238E-21
  0.29693695347390241880E-21
 -0.26091749061412948769E-21
  0.22926730418560010001E-21
 -0.20145639198759520765E-21
  0.17701904387406560389E-21
 -0.15554604225258168932E-21
  0.13667780796729550641E-21
 -0.12009837779858251158E-21
  0.10553011379060780116E-21
 -0.92729055585803990884E-22
  0.81480836646395174933E-22
 -0.71597094891875700200E-22
  0.62912317547278588468E-22
 -0.55281068025898321612E-22
  0.48575549320856098216E-22
 -0.42683463880645999618E-22
  0.37506134255287311446E-22
 -0.32956852260392350507E-22
  0.28959427878761049247E-22
 -0.25446913153691919200E-22
  0.22360480394754259887E-22
 -0.19648436888446069881E-22
  0.17265359799157371192E-22
 -0.15171336029025659557E-22
  0.13331293566397819119E-22
 -0.11714413365284629986E-22
  0.10293612991331600087E-22
 -0.90450942661818855010E-23
  0.79479472072663889120E-23
 -0.69838025973983943288E-23
  0.61365260759698707238E-23
 -0.53919477932897098293E-23
  0.47376234574340661915E-23
 -0.41626240529454467843E-23
  0.36573513415638608941E-23
 -0.32133750545472298724E-23
  0.28232876298439711191E-23
 -0.24805746766402519629E-23
  0.21795021088492381699E-23
 -0.19150207966391389939E-23
  0.16826867531148651179E-23
 -0.14785926095987099109E-23
  0.12993065708576839773E-23
 -0.11418169017687040810E-23
  0.10034812450227850599E-23
 -0.88198046609572075136E-24
  0.77527684778131062791E-24
 -0.68157678580025223715E-24
  0.59929859006652480651E-24
 -0.52704590637343920302E-24
  0.46358624111797927966E-24
 -0.40783289235105509668E-24
  0.35882870194420578191E-24
 -0.31573129057568951175E-24
  0.27780031811537501369E-24
 -0.24438721059930989498E-24
  0.21492709123302868776E-24
 -0.18893185489531158875E-24
  0.16598283447655300523E-24
 -0.14572197983278360944E-24
  0.12784189795680629463E-24
 -0.11207611655384429414E-24
  0.98190635833986939235E-25
 -0.85977069575473510383E-25
  0.75247618025397713641E-25
 -0.65832296928724367365E-25
  0.57578153084183532562E-25
 -0.50349088175171190647E-25
  0.44024756065989681357E-25
 -0.38498191971011007846E-25
  0.33673291115583042791E-25
 -0.29463411791224339510E-25
  0.25791217847239958719E-25
 -0.22588731181811621204E-25
  0.19796670767579898895E-25
 -0.17363295672276158774E-25
  0.15243569288426309447E-25
 -0.13398787953334260281E-25
  0.11796045820480120133E-25
 -0.10407147490908270710E-25
  0.92071944889040744035E-26
 -0.81731249295591442672E-26
  0.72825159703487444195E-26
 -0.65131006447129183541E-26
  0.58430301262485386924E-26
 -0.52513930081011199285E-26
  0.47187919679302219783E-26
 -0.42284069142292412393E-26
  0.37676954747502728537E-26
 -0.33299134001135826479E-26
  0.29143004338630110718E-26
 -0.25243668234065648260E-26
  0.21646903157623978348E-26
 -0.18376734028052161580E-26
  0.15423017366879009263E-26
 -0.12758944190588119779E-26
  0.10371662830395429178E-26
 -0.82748173500706471962E-27
  0.64909427840638429032E-27
 -0.50234666376562531025E-27
  0.38452110973130778698E-27
 -0.29091636205058451455E-27
  0.21678009467166822096E-27
 -0.15874578619111640200E-27
  0.11537394235020309101E-27
 -0.86900364189788941857E-28
  0.74355723662636970071E-28
 -0.78471428315427385396E-28
  0.98949852128730596091E-28
 -0.13427202805922251023E-27
  0.18174242734021449278E-27
 -0.23763619609508699858E-27
  0.29778198107110528091E-27
 -0.35868369680655068529E-27
  0.41844766665021181973E-27
 -0.47660851066880372752E-27
  0.53287774452581460041E-27
 -0.58588249858342115784E-27
  0.63294098597067369917E-27
 -0.67092689718604759703E-27
  0.69754161721794173542E-27
 -0.71229292612293631973E-27
  0.71678213553979546309E-27
 -0.71422093211775989035E-27
  0.70847857438160299782E-27
 -0.70324864718393631473E-27
  0.70176504791510964044E-27
 -0.70696084721646144402E-27
  0.72149205056137611593E-27
];
Y=YBASE/B;
YF=feval(funname,Y);
z1=WT1.'*YF;
%
%  Finally correct for the factor of 1/B.
%
z1=z1/B;