misaki/SUB_WAVELET
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

4

Browse Source
This commit is contained in:
misaki 2025-04-17 18:53:13 +08:00
parent 372da7c10a
commit 8cfa32cc86
2 changed files with 21 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
Fortran/SUB_appcoef.f90
View File

@ -56,23 +56,30 @@
Lo_D = [0.111540743350080,0.494623890398385,0.751133908021578,0.315250351709243,& Lo_D = [0.111540743350080,0.494623890398385,0.751133908021578,0.315250351709243,&
-0.226264693965169,-0.129766867567096,0.0975016055870794,0.0275228655300163,& -0.226264693965169,-0.129766867567096,0.0975016055870794,0.0275228655300163,&
-0.0315820393180312,0.000553842200993802,0.00477725751101065,-0.00107730108499558] -0.0315820393180312,0.000553842200993802,0.00477725751101065,-0.00107730108499558]
Hi_D = [-0.00107730108499558,-0.00477725751101065,0.000553842200993802,0.0315820393180312,0.0275228655300163,-0.0975016055870794,& Hi_D = [-0.00107730108499558,&
-0.129766867567096,0.226264693965169,0.315250351709243,-0.751133908021578,0.494623890398385,-0.111540743350080] -0.00477725751101065,0.000553842200993802,0.0315820393180312,0.0275228655300163,&
-0.0975016055870794,&
-0.129766867567096,0.226264693965169,0.315250351709243,&
-0.751133908021578,0.494623890398385,-0.111540743350080]
case('db7') case('db7')
lf = 14 lf = 14
allocate(Lo_D(lf),Hi_D(lf)) allocate(Lo_D(lf),Hi_D(lf))
Lo_D = [0.0778520540850624,0.396539319482306,0.729132090846555,0.469782287405359,-0.143906003929106,& Lo_D = [0.0778520540850624,0.396539319482306,0.729132090846555,0.469782287405359,&
-0.143906003929106,&
-0.224036184994166,0.0713092192670500,0.0806126091510659,-0.0380299369350346,& -0.224036184994166,0.0713092192670500,0.0806126091510659,-0.0380299369350346,&
-0.0165745416310156,0.0125509985560138,0.000429577973004703,-0.00180164070399983,0.000353713800001040] -0.0165745416310156,0.0125509985560138,0.000429577973004703,&
-0.00180164070399983,0.000353713800001040]
Hi_D = [0.000353713800001040,0.00180164070399983,0.000429577973004703,-0.0125509985560138,& Hi_D = [0.000353713800001040,0.00180164070399983,0.000429577973004703,-0.0125509985560138,&
-0.0165745416310156,0.0380299369350346,0.0806126091510659,-0.0713092192670500,& -0.0165745416310156,0.0380299369350346,0.0806126091510659,-0.0713092192670500,&
-0.224036184994166,0.143906003929106,0.469782287405359,-0.729132090846555,0.396539319482306,-0.0778520540850624] -0.224036184994166,0.143906003929106,0.469782287405359,&
-0.729132090846555,0.396539319482306,-0.0778520540850624]
case('db8') case('db8')
lf = 16 lf = 16
allocate(Lo_D(lf),Hi_D(lf)) allocate(Lo_D(lf),Hi_D(lf))
Lo_D = [0.0544158422430816,0.312871590914466,0.675630736298013,0.585354683654869,-0.0158291052560239,& Lo_D = [0.0544158422430816,0.312871590914466,0.675630736298013,0.585354683654869,&
-0.0158291052560239,&
-0.284015542962428,0.000472484573997973,0.128747426620186,-0.0173693010020221,& -0.284015542962428,0.000472484573997973,0.128747426620186,-0.0173693010020221,&
-0.0440882539310647,0.0139810279170155,0.00874609404701566,& -0.0440882539310647,0.0139810279170155,0.00874609404701566,&
-0.00487035299301066,-0.000391740372995977,0.000675449405998557,-0.000117476784002282] -0.00487035299301066,-0.000391740372995977,0.000675449405998557,-0.000117476784002282]
@ -91,8 +98,10 @@
case('fk6') case('fk6')
lf = 6 lf = 6
allocate(Lo_D(lf),Hi_D(lf)) allocate(Lo_D(lf),Hi_D(lf))
Lo_D = [0.427915032422310,0.812919643136907,0.356369511070187,-0.146438681272577,-0.0771777574069701,0.0406258144232379] Lo_D = [0.427915032422310,0.812919643136907,0.356369511070187,&
Hi_D = [0.0406258144232379,0.0771777574069701,-0.146438681272577,-0.356369511070187,0.812919643136907,-0.427915032422310] -0.146438681272577,-0.0771777574069701,0.0406258144232379]
Hi_D = [0.0406258144232379,0.0771777574069701,-0.146438681272577,&
-0.356369511070187,0.812919643136907,-0.427915032422310]
case('fk8') case('fk8')
lf = 8 lf = 8

6
Fortran/SUB_wavedec.f90
View File

@ -44,10 +44,12 @@
case('db6') case('db6')
lf = 12 lf = 12
allocate(Lo_D(lf),Hi_D(lf)) allocate(Lo_D(lf),Hi_D(lf))
Lo_D = [-0.00107730108499558,0.00477725751101065,0.000553842200993802,-0.0315820393180312,0.0275228655300163,0.0975016055870794,& Lo_D = [-0.00107730108499558,0.00477725751101065,0.000553842200993802,&
-0.0315820393180312,0.0275228655300163,0.0975016055870794,&
-0.129766867567096,-0.226264693965169,0.315250351709243,0.751133908021578,0.494623890398385,0.111540743350080] -0.129766867567096,-0.226264693965169,0.315250351709243,0.751133908021578,0.494623890398385,0.111540743350080]
Hi_D = [-0.111540743350080,0.494623890398385,-0.751133908021578,0.315250351709243,0.226264693965169,-0.129766867567096,& Hi_D = [-0.111540743350080,0.494623890398385,-0.751133908021578,0.315250351709243,0.226264693965169,-0.129766867567096,&
-0.0975016055870794,0.0275228655300163,0.0315820393180312,0.000553842200993802,-0.00477725751101065,-0.00107730108499558] -0.0975016055870794,0.0275228655300163,0.0315820393180312,0.000553842200993802,&
-0.00477725751101065,-0.00107730108499558]
case('db7') case('db7')
lf = 14 lf = 14