hankelwt.m

这是在网上下的一个东东

%
%  [WT0,WT1]=hankelwts()
%
%  Returns the weights for the Hankel transforms of order 0 and 1.
%
%  Based on Walt Anderson's Fortran code, which was published in:
%
%  Anderson, W. L., 1979, Computer Program Numerical Integration of Related
%  Hankel Transforms of Orders 0 and 1 by Adaptive Digital Filtering.
%  Geophysic, 44(7):1287-1305.
%
function [WT0,WT1]=hankelwts()
%
%  Next, setup the weights.
%
WT0=[
  0.21035620538389819885E-28
 -0.12644693616088940552E-13
  0.46157312567885668321E-13
 -0.27987033742576678494E-13
  0.54657649654108409156E-13
 -0.26529331099287291499E-13
  0.56749134340673213135E-13
 -0.21572768289772080733E-13
  0.58318460867739760925E-13
 -0.15465892848687829700E-13
  0.60573024556529743179E-13
 -0.85025312590830646706E-14
  0.63880180611476449908E-13
 -0.56596576350102877128E-15
  0.68485006047914070374E-13
  0.85728977321682762439E-14
  0.74650681546818133979E-13
  0.19208372932613381433E-13
  0.82693454289757706437E-13
  0.31701165629228998860E-13
  0.93000040396952081623E-13
  0.46490696394179916916E-13
  0.10604419444905640479E-12
  0.64112165895974571186E-13
  0.12240608340017008854E-12
  0.85217767515070225126E-13
  0.14279579404871719178E-12
  0.11060266069684630524E-12
  0.16808202030984049793E-12
  0.14123670281595459178E-12
  0.19932710117763080694E-12
  0.17830320429641190908E-12
  0.23782981967994220694E-12
  0.22324626027650970672E-12
  0.28517768171070337866E-12
  0.27782855757859949941E-12
  0.34331077352335570356E-12
  0.34420197641399489491E-12
  0.41459976123278392377E-12
  0.42499381982249688902E-12
  0.50194116319499513568E-12
  0.52341213107734220974E-12
  0.60887371932475596308E-12
  0.64337432538102752823E-12
  0.73972052807969328662E-12
  0.78966429788659195358E-12
  0.89976265596232089469E-12
  0.96812431295714248033E-12
  0.10954511874715580138E-11
  0.11858893754914550946E-11
  0.13346662261643230004E-11
  0.14516734901185850330E-11
  0.16270332417806469835E-11
  0.17761192965262209981E-11
  0.19843094598657728049E-11
  0.21722251127126358340E-11
  0.24208558013562638359E-11
  0.26558665246211218806E-11
  0.29542133130007581834E-11
  0.32464334551104291636E-11
  0.36058072230543221354E-11
  0.39676082798212998573E-11
  0.44018068787207206107E-11
  0.48483162182209038194E-11
  0.53741760778847699533E-11
  0.59238861421284167256E-11
  0.65619559488550109069E-11
  0.72374683888302430790E-11
  0.80128318647926483616E-11
  0.88417664804021047188E-11
  0.97850472788000974558E-11
  0.10801152249024990298E-10
  0.11949741288775620211E-10
  0.13194249255521529763E-10
  0.14593803746893311587E-10
  0.16117088182600741411E-10
  0.17823362499440759998E-10
  0.19686960839662181492E-10
  0.21768042712348459703E-10
  0.24047127453754399616E-10
  0.26586169224245549843E-10
  0.29372566166660639848E-10
  0.32471120715874496926E-10
  0.35876995485484108464E-10
  0.39659090711123993131E-10
  0.43821451522206353096E-10
  0.48438566886024388833E-10
  0.53524764256840081139E-10
  0.59161909123775483693E-10
  0.65376353273289546079E-10
  0.72259490983916676274E-10
  0.79851856505621554776E-10
  0.88256972132554113981E-10
  0.97532219231111761839E-10
  0.10779639493701439540E-09
  0.11912700941828918848E-09
  0.13166195190543400137E-09
  0.14550289515667290553E-09
  0.16081145810919829686E-09
  0.17771842706736448843E-09
  0.19641479168712890847E-09
  0.21706652163468219836E-09
  0.23990084518390418007E-09
  0.26512635046403231588E-09
  0.29301487204485379059E-09
  0.32382671796405940321E-09
  0.35788852978338560143E-09
  0.39552347102192978760E-09
  0.43712543089936042400E-09
  0.48309404739375797825E-09
  0.53390563500721587301E-09
  0.59005295736900699180E-09
  0.65211327580989620296E-09
  0.72069283339348376395E-09
  0.79649244503723412979E-09
  0.88025670846750671949E-09
  0.97283758951862838429E-09
  0.10751484374562240226E-08
  0.11882260626931209546E-08
  0.13131897062580609792E-08
  0.14513021636655630472E-08
  0.16039339435115999074E-08
  0.17726240632935599375E-08
  0.19590497332198700268E-08
  0.21650875406672578739E-08
  0.23927891159868709863E-08
  0.26444435360147638239E-08
  0.29225595734392348364E-08
  0.32299302912485969586E-08
  0.35696226515762041770E-08
  0.39450454481729238111E-08
  0.43599472612559631445E-08
  0.48184890913636877388E-08
  0.53252519017629532640E-08
  0.58853155833436851597E-08
  0.65042776355473761329E-08
  0.71883404192425699700E-08
  0.79443429030829021263E-08
  0.87798585629591097164E-08
  0.97032425780220928695E-08
  0.10723743227689399320E-07
  0.11851567478400949647E-07
  0.13098009332253010086E-07
  0.14475537424021579590E-07
  0.15997944513720238914E-07
  0.17680461540553181382E-07
  0.19539933354871179973E-07
  0.21594964684505000780E-07
  0.23866128306162058448E-07
  0.26376149610345229076E-07
  0.29150154762698309478E-07
  0.32215902055657983021E-07
  0.35604079260985092872E-07
  0.39348591789544360374E-07
  0.43486920453657868292E-07
  0.48060478694380069026E-07
  0.53115044437493142888E-07
  0.58701201380017479006E-07
  0.64874861635712681668E-07
  0.71697809408859342572E-07
  0.79238334805050121668E-07
  0.87571902294266750180E-07
  0.96781920558355529704E-07
  0.10696056312048640378E-06
  0.11820970459254829996E-06
  0.13064192692376749733E-06
  0.14438165911984879199E-06
  0.15956640998357920017E-06
  0.17634815657222329376E-06
  0.19489485336503760544E-06
  0.21539212473518470874E-06
  0.23804511154682969141E-06
  0.26308053514448537707E-06
  0.29074895589985508713E-06
  0.32132729115584617374E-06
  0.35512157675298091583E-06
  0.39247003960676882480E-06
  0.43374647340783931675E-06
  0.47936398879211592319E-06
  0.52977913903701991577E-06
  0.58549649799821895163E-06
  0.64707370170465826468E-06
  0.71512703747583724585E-06
  0.79033760405820345763E-06
  0.87345813593705873095E-06
  0.96532052953043588492E-06
  0.10668441762993300587E-05
  0.11790451573234470162E-05
  0.13030464193827640161E-05
  0.14400890071820729325E-05
  0.15915444905568059534E-05
  0.17589286853766969218E-05
  0.19439168303884759854E-05
  0.21483603476946079820E-05
  0.23743053781113989137E-05
  0.26240132540945578888E-05
  0.28999831372928098690E-05
  0.32049770257732388059E-05
  0.35420474020978068237E-05
  0.39145677786671023699E-05
  0.43262664657480666650E-05
  0.47812638810077579977E-05
  0.52841137925459449193E-05
  0.58398488901504216978E-05
  0.64540311583956847791E-05
  0.71328075387126483640E-05
  0.78829714540444842174E-05
  0.87120307957926337232E-05
  0.96282830690788715692E-05
  0.10640898433258409191E-04
  0.11760011483484689510E-04
  0.12996822677619209683E-04
  0.14363710437469910021E-04
  0.15874355032820411062E-04
  0.17543875501207770228E-04
  0.19388980961051210830E-04
  0.21428137844875080257E-04
  0.23681754714302638776E-04
  0.26172386518181301401E-04
  0.28924960326686671307E-04
  0.31967024811679323171E-04
  0.35329025959273332330E-04
  0.39044611784553647914E-04
  0.43150969087563300697E-04
  0.47689195631023510063E-04
  0.52704711454198507913E-04
  0.58247713449355698436E-04
  0.64373677739542765810E-04
  0.71143914895687183756E-04
  0.78626183537770216584E-04
  0.86895368472094227166E-04
  0.96034230136811580777E-04
  0.10613423286950590218E-03
  0.11729646026571620215E-03
  0.12963262680752149015E-03
  0.14326619585462989793E-03
  0.15833361521503999387E-03
  0.17498568260644121238E-03
  0.19338905472215898854E-03
  0.21372791490647819607E-03
  0.23620581621746139576E-03
  0.26104771814107751186E-03
  0.28850223750643329973E-03
  0.31884413578705622606E-03
  0.35237706800135917308E-03
  0.38943662007281590462E-03
  0.43039366566958368833E-03
  0.47565807487700027594E-03
  0.52568281303167982161E-03
  0.58096846836193664822E-03
  0.64206825611437718954E-03
  0.70959354469423893946E-03
  0.78421996374912559657E-03
  0.86669414659246905939E-03
  0.95784118347590099622E-03
  0.10585728435434579864E-02
  0.11698966653840010659E-02
  0.12929259749833240008E-02
  0.14288909657393959393E-02
  0.15791508896276298946E-02
  0.17452075486231769744E-02
  0.19287201026563420645E-02
  0.21315214730933669356E-02
  0.23556362776736309780E-02
  0.26033007312297349808E-02
  0.28769842725422829777E-02
  0.31794136300501061286E-02
  0.35135987233342810820E-02
  0.38828616256736492134E-02
  0.42908672540316900729E-02
  0.47416579734868603835E-02
  0.52396893384671194144E-02
  0.57898709851889693795E-02
  0.63976070720003401851E-02
  0.70688437831027441105E-02
  0.78101127966257229834E-02
  0.86285849757206656285E-02
  0.95321125348557418644E-02
  0.10529286971052299882E-01
  0.11629470426845669312E-01
  0.12842853010275019979E-01
  0.14180454004084899408E-01
  0.15654168426849128515E-01
  0.17276700258609969246E-01
  0.19061578784670331344E-01
  0.21022951738450229575E-01
  0.23175536220878610594E-01
  0.25534136813168170632E-01
  0.28113470567056909888E-01
  0.30927161344728969217E-01
  0.33987341082207328524E-01
  0.37302669043183162012E-01
  0.40877565846017260842E-01
  0.44708454582277110112E-01
  0.48782456555642082774E-01
  0.53070463888373879680E-01
  0.57525214796560822372E-01
  0.62068889249144526543E-01
  0.66590986905823254527E-01
  0.70926870977039285782E-01
  0.74857621553299974471E-01
  0.78074664211727651253E-01
  0.80188872113380424422E-01
  0.80676406709186576638E-01
  0.78917673064227769619E-01
  0.74124063016304961304E-01
  0.65458647531413310938E-01
  0.51957717257333460581E-01
  0.32847972741848592559E-01
  0.74970763258312700383E-02
 -0.23866128698945488634E-01
 -0.60174943784761181220E-01
 -0.98178997988506697125E-01
 -0.13281477972726110637E+00
 -0.15546285697725620301E+00
 -0.15639821579874499391E+00
 -0.12430498665290500016E+00
 -0.54868159863436967438E-01
  0.46862558991703072431E-01
  0.15112182958062059246E+00
  0.21193155344105990556E+00
  0.16951341358877961008E+00
  0.13861974203314799889E-01
 -0.18693504518381348634E+00
 -0.24558896069253360883E+00
 -0.53092694018998139172E-01
  0.25199984157985949595E+00
  0.19682248760574280744E+00
 -0.20143336189691599114E+00
 -0.24584508272586030886E+00
  0.34335593140766357267E+00
 -0.47700665106262918336E-01
 -0.20966284735074519618E+00
  0.25090851237942479734E+00
 -0.16764126613351920669E+00
  0.74951997868967626393E-01
 -0.16951351027511458308E-01
 -0.88285242013749955919E-02
  0.16167873561835501006E-01
 -0.15564117559925290737E-01
  0.12513111252163700016E-01
 -0.92993152469780984010E-02
  0.66505259967794931597E-02
 -0.46677074086718837662E-02
  0.32488855455568548675E-02
 -0.22555291085446750252E-02
  0.15668752111009150857E-02
 -0.10911324863680910667E-02
  0.76253830490409491537E-03
 -0.53525405778204085232E-03
  0.37771045672146697511E-03
 -0.26825282115352968703E-03
  0.19202652749967551236E-03
 -0.13882137232089440237E-03
  0.10159989178100049974E-03
 -0.75497250626312589804E-04
  0.57141729200529359656E-04
 -0.44191609676806338589E-04
  0.35017761995785832974E-04
 -0.28484969541399899885E-04
  0.23801048173241150913E-04
 -0.20412749240321660898E-04
  0.17933634897918600856E-04
 -0.16093677807779768610E-04
  0.14703946920177649808E-04
 -0.13632085400878389976E-04
  0.12785408514801159958E-04
 -0.12099103232765920005E-04
  0.11527807463720849231E-04
 -0.11039642499677090445E-04
  0.10612147244787119201E-04
 -0.10229546722558040478E-04
  0.98808019172690629615E-05
 -0.95581362683731644660E-05
  0.92559894628748428139E-05
 -0.89703680398349605195E-05
  0.86984392262176360162E-05
 -0.84381998993781744882E-05
  0.81881850397080960968E-05
 -0.79472759767526677708E-05
  0.77146204892770847038E-05
 -0.74895903346701209313E-05
  0.72717128455631313132E-05
 -0.70605952027200397989E-05
  0.68558909586342899260E-05
 -0.66573078263653524112E-05
  0.64646106359474119065E-05
 -0.62775967052488337714E-05
  0.60960690045641779074E-05
 -0.59198350149128057049E-05