第一篇：用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）對于通過管理項目實在解決不了的問題，您是否有決心和信心整個端掉染病的個人或群體？

如果您充分考慮了以上問題，我們認為您已經在實施管理項目之前有了充分的思想準備，實施項目的主觀因素已經成熟了。