山寨机中的战斗机！	程序优化工程师到底对IT界有没有贡献

参与有分 !!!! 寻找小波变换算法的代码

楼主ALong_Yue（）2001-11-09 13:29:45 在 VC/MFC / 图形处理/算法提问

哪位有小波变换算法的代码,请提供下载地址,或发到:alongg@sina.com 问题点数：20、回复次数：16Top

1 楼yjf7888（seeking a place 找工作了location:Chengdu）回复于 2001-11-09 13:53:40 得分 0

在SOHU用“图形图象”或“IMAGE PROCESSING”搜一下，很多的，我试过。Top

2 楼ALong_Yue（）回复于 2001-11-09 15:42:01 得分 0

太多了.太浪费时间了.帮忙啊!!
Top

3 楼ALong_Yue（）回复于 2001-11-09 16:42:35 得分 0

我急需,请帮帮我Top

4 楼Xcoder（流浪狗）回复于 2001-11-09 17:06:47 得分 0

有一本红宝书，名叫《C语言数值算法大全》，我可以在5天后把算法给你。Top

5 楼rami（瓦西里.扎伊采夫）回复于 2001-11-09 17:33:59 得分 0

我也在找。关于小波的源码太少了。站点倒是有一个比较好的。过几天给你。Top

6 楼ALong_Yue（）回复于 2001-11-10 08:06:11 得分 0

谢谢两位了Top

7 楼ALong_Yue（）回复于 2001-11-12 08:42:40 得分 0

大家帮忙Top

8 楼ALong_Yue（）回复于 2001-11-13 08:10:15 得分 0

没人知道吗?Top

9 楼mathe（）回复于 2001-11-13 11:36:41 得分 0

http://duz.home.chinaren.com/math/Dwt.zipTop

10 楼ALong_Yue（）回复于 2001-11-14 13:00:54 得分 0

谢谢 mathe()　.
但是,提供的下载地址,缺少头文件:dctdll.h
Top

11 楼ALong_Yue（）回复于 2001-11-15 10:56:54 得分 0

up.
up.
up.Top

12 楼Xcoder（流浪狗）回复于 2001-11-15 14:47:19 得分 10

//wt1:对数组a进行4系数离散小波变换
//wtstep指向daub4;
//匆忙中可能有不少笔误，请包涵
void wt1(float a[],unsigned long n,int isign,void(*wtstep)(float[],unsigned long,int)){

unsigned long nn;
if(n<4)return;
if(isign>=0){for(nn=n;nn>=4;NN>>=1)(*wtstep)(a,nn,isign);}
else{for(nn=4;nn<=n;nn<<=1)(*wtstep)(a,nn,isign);}
}

#define c0 0.4829629131445341
#define c1 0.8365163037378079
#define c0 0.2241438680420134
#define c0 -0.1294095225512604

void daub4(float a[],unsigned long n,int isign){
float *wksp;
unsigned long nh,nh1,i,j;

if(n<4)return;
wksp=new int[n+1];
nh1=(nh=n>>1)+1;
if(isign>=0){
for(i=1,j=1;j<=n-3;j+=2,i++){
wksp[i]=c0*a[j]+c1*a[j+1]+c2*a[j+2]+c3*a[j+3];
wksp[i+nh]=c3*a[j]-c2*a[j+1]+c1*a[j+2]-c0*a[j+3];
}
wksp[i]=c0*a[n-1]+c1*a[n]+c2*a[1]+c3*a[2];
wksp[i+nh]=c3*a[n-1]-c2*a[n]+c1*a[1]-c0*a[2];
}
else{
wksp[1]=c2*a[nh]+c1*a[n]+c0*a[1]+c3*a[nh1];
wksp[2]=c3*a[nh]-c0*a[n]+c1*a[1]-c2*a[nh1];
for(i=1,j=3;i<nh;i++){
wksp[j++]=c2*a[i]+c1*a[i+nh]+c0*a[i+1]+c3*a[i+nh1];
wksp[j++]=c3*a[i]-c0*a[i+nh]+c1*a[i+1]-c2*a[i+nh1];
}
}
for(i=1;i<=n;i++)a[i]=wksp[i];
delete wksp[];
}

Top

13 楼ysdesigned（清泉）回复于 2001-11-15 15:31:06 得分 0

我的毕业论文做过，不过我只做了24位的处理，在client端变化压缩也可反反变化，在server端反变化,给你Top

14 楼ALong_Yue（）回复于 2001-11-15 15:46:20 得分 0

请发到:
wangkanlong@21cn.comTop

15 楼ALong_Yue（）回复于 2001-11-16 12:57:58 得分 0

没反应了！！！！？？？？？Top

16 楼ysdesigned（清泉）回复于 2001-11-16 14:11:34 得分 10

给你了alongg@sina.com wangkanlong@21cn.com 现在两个都发了Top