用S变换做精细时变滤波论文（推荐五篇）

第一篇：用S变换做精细时变滤波论文

一、引言

地震信号的频谱是时变的，其中的噪音更是各个时段各不相同。要想将这些各时段频谱不同的噪音准确干净地滤掉而又不影响有效信号，最有效的办法是构造随时间变化的滤波器。

目前，地震信号的滤波是由快速傅里叶变换完成的，由于快速傅里叶变换的局限性及其与时间的无关性，使得用其完成时变滤波有一定困难，也很不准确。

有鉴于此，笔者尝试应用s变换对地震记录进行时变滤波，取得了较为理想的效果。

二、S变换的基本原理

1996年，美国地球物理学家Stockwell在前人成果的基础上提出了一种新的时频分析方法一S变换，它组合了短时傅里叶变换和小波变换的优点，同时避免了其不足，因而很快被应用于地震信号的时频分析领域。

Stockwell等在文献中对S变换作了详细的阐述。

S变换的一维正变换定义。

S变换的定义式可用的傅里叶频移谱H(a+ f)表示为：

S变换是以Morlet小波为基本小波的连续小波变换的延伸。在S变换中，基本小波是由简谐波与Gaussian函数的乘积构成的，基本小波中的简谐波在时间域仅作伸缩变换，而Gaussian函数则进行伸缩和平移。这一点与连续小波变换不同。在连续小波变换中，简谐波与Gaussian函数进行同样的伸缩和平移。与连续小波变换，短时傅里叶变换等时间一频率域分析方法相比，S变换有其独特的优点，如信号的S变换的时一频谱的分辨率与频率（即尺度）有关，且与其傅里叶谱保持直接的联系，基本小波不必满足容许性条件等等。

在S变换中，基本小波函数见文軌。

三、S变换应用于地震信号的时变滤波

实际采集到的地震信号往往受到客观因素的干扰而存在噪音。这些噪音往往同有效信号一样，频率是随时间变化的，且常常与有效信号或在时间域或在频率域相互混叠。去除这些干扰信号而不使有效信号受到影响，用传统方法是比较困难的。

s变换的最大优点是能精确地标定信号在各个时刻的频谱。目前常用于地震信号的时频分析。那么，它能否用于地震数据的精确去噪处理呢？理论上说，既然s变换是一种小波变换，甚至是更合理的小波变换，而小波变换目前已经广泛地应用于地震信号的处理。而且S变换能够精确地标定信号在各个时刻的频谱，那么它就能精确地表达有效信号和噪音在频率域各个时刻的特征。只要我们滤除各个时刻噪音的频谱成分，就可以达到精确去噪的目的。由此我们不难得出结论，S变换用于地震数据的去噪处理是没有问题的。

为了运用S变换精确去除地震信号中的噪音，我们用VC++语言编制了S变换的去噪程序，程序包括6个步骤:①将地震纪录用快速傅里叶变换变换到频率域;②用式(2)将其变换到S域;③输出具有代表性的某道的S谱;④由S谱确定各个时段要滤除的噪音范围；⑤在S域将各个时段噪音频段冲零;⑥用式(4)通过快速傅里叶变换将S域中的数据反变换到时间域。

我们用这个程序进行了理论模型运算和地震数据试算。

四、理论模型计算

为了验证S变换的去噪效果，我们构造了一个256个样点、米样间隔4ms、频率为25Hz的谐波序列(图1右边实线所表示的波形)，在这个序列的100ms处加载了80ms、75Hz的谐波，在340ms处加载了160ms、50Hz的谐波，构成了一个时变、频变的理论地震道模型（图1右边虚线所表示的波形)。其中75Hz和50Hz是我们要滤除的频率成分。

首先对理论模型地震道作S变换，得到了图1左边各个时刻的频谱(我们称之为S谱)。由图1可以看出，25、50和75Hz的频率成分在S谱上得到了精确的表达。

下面的工作是滤去50和75Hz频率成分的信号。图1右端点划线表示的波形是用S变换滤波得到的信号序列。与实线表示的25Hz谐波信号对比可以发现50和75Hz的频率成分被有效地滤去了，25Hz信号得到了较好的恢复。

理论模型的运算表明，应用S变换能够很好地完成某时间段、某频率信号的滤除工作。换言之，S变换能够定时、定频的完成噪音的定点清除任务。

五、地震数据试算

为了验证S变换对实际地震数据中噪音的定点清除能力，我们用实际地震数据进行了试算。图2-a是某地区经传统滤波处理后的地震记录。由图2-a可以看出:31~76道的0.5~1.5s时段之间存在线性干扰。由于它的频谱成分与地震信号相近，故用传统滤波方法清除不了。

我们在这张地震记录上用S变换的方法试图去除线性干扰。图2-b是S变换去噪后的结果图。从图2-b可以看出，S变换较干净地去除了31~76道之间的线性干扰，而地震有效信号基本没有受到影响。由此说明，用S变换方法定点清除地震记录中的噪音是可行的。

六、结论

笔者对s变换的应用作了推广，给出了用s变换定点清除地震记录中噪音的方法。S变换用于地震信号滤波，可同时考虑时间域和频率域特征，克服了传统窗口傅里叶方法易出现的吉普斯效应。本算例表明，S变换可望成为地震资料处理中去噪的有力工具。

第二篇：新手初次用excel做调查问卷时注意事项总结

新手初次用excel做调查问卷时注意事项总结（附上自己做到培训调查表格）

对excel的使用非常不熟悉的，这是我第一次尝试用excel来做调查问卷。从excelhome论坛里找一些大家上传分享的表格，一步一步的摸索，模仿着写了代码，花了两个星期看视频和泡论坛，终于能把问卷，数据，统计这三个表格都做出来了。对其他人来说可能是很简单的一份调查问卷，但希望能帮助到其他跟我一样不知道“宏”“数组公式”“代码编程”的初学者。以一个初学者的角度分享一下，在这个调查问卷中学习到的东西：

1.在“问卷”中，学会用“窗体”工具栏上的“按钮”、“分组框”、“选项按钮”、“复选框”（重点：一个问题就要用一个“分组框”。比如“年龄”这一项，先拖出一个“分组框”，将它修改为“年龄”。然后，必须是在分组框中拖拉出一个按钮来，并将按钮名修改为相应的调查项内容。比如“年龄”中我有ABCD四个调查项，所以要在分组框里拖拉出四个“选项按钮”按钮。）

2.右键点击“选项按钮”、“复选框”，在出现菜单里选“设置单元格格式”，点击“单元格链接”，选择相应的单元格。我在“问卷”的表格中，每个按钮和复选框都对应地选择链接在“c102:bg102”这个区域。单项选择题我用“选项按钮”，多项选择题我用“复选框”。（重点：在同一个分组框里的“选项按钮”只用对一个按钮设置一次“设置单元格格式”，其他的就会跟着默认好了。而在同一个分组框里的“复选框”就要每一个都要设置“设置单元格格式”才行。）

3.点击“窗体”工具栏上的“按钮”键，在表格里拖出一个按键，然后就会出现“指定宏”的窗口，点击“新建”，进入了“Visual Basic编辑器”。我用了以下代码（很长啊，谁能帮忙简化一下吗？其实，我还没完全弄懂这个代码全部意思的）。输入完成后退出“Visual Basic编辑器”。右键点击刚才拖出一个按键，选择“编辑”，输入“提交”。

Sub 保存()

r = Sheet3.Cells(65536, 1).End(xlUp).Row + 1

If r < 4 Then r = 4

With Sheet3

.Cells(r, 1)= Range(“A2”)

.Cells(r, 2)= Range(“d102”)

.Cells(r, 3)= Range(“e102”)

.Cells(r, 4)= Range(“f102”)

.Cells(r, 5)= Range(“g102”)

.Cells(r, 6)= Range(“h102”)

.Cells(r, 7)= Range(“i102”)

.Cells(r, 8)= Range(“j102”)

.Cells(r, 9)= Range(“k102”)

.Cells(r, 10)= Range(“l102”)

.Cells(r, 11)= Range(“m102”)

.Cells(r, 12)= Range(“n102”)

.Cells(r, 13)= Range(“o102”)

.Cells(r, 14)= Range(“p102”)

.Cells(r, 15)= Range(“q102”)

.Cells(r, 16)= Range(“r102”)

.Cells(r, 17)= Range(“s102”)

.Cells(r, 18)= Range(“t102”)

.Cells(r, 19)= Range(“u102”)

.Cells(r, 20)= Range(“v102”)

.Cells(r, 21)= Range(“w102”)

.Cells(r, 22)= Range(“x102”)

.Cells(r, 23)= Range(“y102”)

.Cells(r, 24)= Range(“z102”)

.Cells(r, 25)= Range(“aa102”)

.Cells(r, 26)= Range(“ab102”)

.Cells(r, 27)= Range(“ac102”)

.Cells(r, 28)= Range(“ad102”)

.Cells(r, 29)= Range(“a102”)

.Cells(r, 30)= Range(“af102”)

.Cells(r, 31)= Range(“ag102”)

.Cells(r, 32)= Range(“ah102”)

.Cells(r, 33)= Range(“ai102”)

.Cells(r, 34)= Range(“aj102”)

.Cells(r, 35)= Range(“ak102”)

.Cells(r, 36)= Range(“al102”)

.Cells(r, 37)= Range(“am102”)

.Cells(r, 38)= Range(“an102”)

.Cells(r, 39)= Range(“ao102”)

.Cells(r, 40)= Range(“ap102”)

.Cells(r, 41)= Range(“aq102”)

.Cells(r, 42)= Range(“ar102”)

.Cells(r, 43)= Range(“as102”)

.Cells(r, 44)= Range(“at102”)

.Cells(r, 45)= Range(“au102”)

.Cells(r, 46)= Range(“av102”)

.Cells(r, 47)= Range(“aw102”)

.Cells(r, 48)= Range(“ax102”)

.Cells(r, 49)= Range(“ay102”)

.Cells(r, 50)= Range(“az102”)

.Cells(r, 51)= Range(“ba102”)

.Cells(r, 52)= Range(“bb102”)

.Cells(r, 53)= Range(“bc102”)

.Cells(r, 54)= Range(“bd102”)

.Cells(r, 55)= Range(“be102”)

.Cells(r, 56)= Range(“bf102”)

.Cells(r, 57)= Range(“bg102”)

.Cells(r, 58)= Range(“b91”)

End With

Range(“c102:bg102”).ClearContents

MsgBox “谢谢参与，信息已经保存”

End Sub

4.每次按“提交”，“问卷”里的内容就会对应出现在“数据表（明细）”里。为了统计有几份问卷，我用了“=COUNTA(valuel)”来统计。我的需要问卷大约是100份左右，所以我把计算的区域定为这样“=COUNTA(A5:A168)”。

5.在“数据统计”表中，用到了“=COUNTIF(range，criteria)”。比如我要算年龄的A项目有多少人选，就是“=COUNTIF(数据表（明细）!B5:B150,1)”。我的多项选择题，比如“您在班组日常工作中遇到的主要问题？”有八个选择可以选，只要被选择了，就会显示“TRUR”表示该项被选择了，计算时我就用“=COUNTIF('数据表(明细)'!J5:J150,“TRUE”)”(重点：输入公式后，要同时按下“ctr+shift+enter”才可以产生数组公式。开始时，输入公式后我直接就按“enter”，公式是这样的：=COUNTIF(数据表!B5:B150,1)；而同时按下“ctr+shift+enter”，就会出现了个大括号，变成这样： {=COUNTIF(数据表!B5:B150,1)})

以上，就是我在做表时心得总结了。这个表格还有能完善的地方，但我的技术有限，目前就只能做到这样了。希望大家能给些指点，让做个类型的问卷能更省事和快捷o(∩_∩)o...

第三篇：小组微格教学教案封面(每小组装订时,做封面用)

赣 南 师 范 学 院

系别：教育科学学院 组长： 组员：

微 格 教 学 教 案 微

班级： 20 年

月

组别：第 组

第四篇：做管理项目就象用杀毒软件论文（本站推荐）

一天到一家公司拜访一位老总，席间偶然谈起这家公司电脑中病毒泛滥，弄得许多电脑不敢使用。由于我一直对电脑技术颇有业余兴趣，就自告奋勇地提出要教他们杀毒。主人同意之后，我就开始在一台电脑上操作示范。我先用公司现有的杀毒软件进行查杀，杀掉了部分病毒。然后我又从互联网站上下载了若干软件，轮番查杀。有的软件只能防不能杀，有的软件一个病毒也查不出来，有的软件查出病毒却杀不了，有的软件杀不了几个病毒，却造成电脑出现种种异象，比如死机。尽管如此，这些杀毒软件还是功劳不小，杀掉了不少病毒，电脑可以正常使用了。然后我又对各个杀毒软件进行分别处理，留下了个别经证明能查杀病毒的软件，面对那些干不了活的甚至造成电脑死机的软件，试过就删了。还有几个病毒无论用哪个软件都杀不掉，最后我只好删掉有毒文件。

查杀病毒示范做完之后，我就和老总坐下来谈公司管理，老总就谈起以前也请过管理顾问来做诊断和治疗，可是那些项目做完之后，许多问题依然存在，弄得大家很失望，老总问我这是怎么回事。我顺手就把杀毒软件和管理项目做了比较，说明各个管理项目就象一个个杀毒软件，每一个项目至少只能解决管理中的一部分问题，不能指望引入一了一套管理项目，就可以一劳永逸地解决所有问题。不少人一开始对某些管理项目（比如ISO9000）抱有不切实际的幻想，指望它们能包医百病；一旦事实证明并不是那么回事，他们又对所有管理项目一概怀疑和排斥，觉得还是自己凭经验治理的好。

我就接触过一个老板，开始是不顾公司一片混乱，哭着喊着非要搞ISO9000不可，劝都劝不住。因为他觉得一搞ISO9000，一切都会好起来。后来刚开始搞ISO9000，他一听说ISO9000基本上不涉及财务，不能帮助他解决财务管理中的问题，大大出乎他的意料，立马就对ISO9000失去了兴趣。后来人们花了九牛二虎之力总算把这家管理混乱的公司的ISO9000做完了，而且通过了认证，这位老板却一点感谢没有；反而觉得公司里还有很多问题，ISO9000没做好，连费用都不想付，证书也不想拿，而在管理上却基本上回到了老路上去。

不少类似企业好不容易走上了“法治”轨道，略受挫折，就又一头扎回到“人治”的轨道，而且再也不肯回头，让人觉得真是可悲又可笑。

其实各个管理项目又岂止是不能解决所有问题？有的项目还根本不适合你和企业，至少是不适合现阶段下的你的企业，如果硬要导入，说不定会使你的企业“死机”呢！

有的管理项目，恐怕也只能“查”，不能“杀”；可以帮您诊断企业一些毛病，至于解决问题，对不起，恐怕您得另请高明。再者，现在人们推出的各种管理项目五花八门，即使您的企业把这些所有的项目都“做”了，也不可能解决您企业所有的问题，就象将现有的全部杀毒软件都用上，也有可能无法解决全部病毒一样。

您在企业实施的各种管理项目，还存在一个互相衔接、配套的问题，否则就会互相抵销或冲突。这也象各种杀毒软件一样，不能随便混用。有一次我在一台已经安装了某种杀毒软件的电脑上运行另一个杀毒软件，结果一运行就死机，三番五次，不知原因。后来我把电脑原先的杀毒软件卸载掉，新的杀毒软件才得以顺利运行。

最后，您的企业要做什么管理项目，需要一番认真调查，深入了解和系统思考，这一点可不象运行杀毒软件那样，可以不管三七二十一，拿过来试一下再说。

胡乱做一个管理项目，有时不仅无助于企业，还会有害于企业，使企业付出代价。至少，做一个无效的管理项目，即使无害，你也是要花一笔顾问费的。

总之，企业要导入某一个管理项目，一定要事先进行认真调查，深入了解和系统思考。要考虑以下因素：

1）这套管理项目是否确实适合于本企业？

2）这套管理项目用来解决哪些问题？

3）这套管理项目不能解决哪些问题？

4）这套管理项目与其他管理是否兼容、如何兼容？

5）对于通过管理项目实在解决不了的问题，您是否有决心和信心整个端掉染病的个人或群体？

如果您充分考虑了以上问题，我们认为您已经在实施管理项目之前有了充分的思想准备，实施项目的主观因素已经成熟了。