噗少女夢工廠

一個Plurk的養成遊戲
第二輪結局:

第一輪結局

天氣概況~2011/08/28~南瑪都颱風海陸警報~

文章出自 ptt.cc ID: caterlanse #1EMPu7Wn (TY_Research)

南瑪都颱風順利掠過呂宋島東北角~進入巴士海峽~

在通過時受地型影響導致了一些不規則的偏移~

進入巴士海峽後結構重整的過程中也持續有東西擺動現象~

不過如同昨天所提到的~大方向是順著北側跟它結合的東風波倒槽向北移動~

整個路線拉直後還是北上~短暫偏西過去後接著又是偏東拉回來~

這種搖擺北上的大趨勢目前看起來仍然不變~

北邊的高壓受到華中短波槽以及塔拉斯颱風的夾擊已經北抬東退~

原本就對南瑪都影響有限~目前看起來就更弱了~

東南邊雖然有另一個低緯度西伸的高壓~但是仍對南瑪都沒有明顯引導作用~

因此颱風只能繼續順著倒槽向北緩慢移動~

值得注意的是~預報模式大多認為這個倒槽在明天以後會趨於消失~

颱風環流型態不再有往北突出的情況~而是預測變得圓圓的~

這表示南瑪都最後的引導依據也將消失~加上已經靠近陸地~被地形卡住~

因此各家預報顯示的~在台灣上空打轉耗到消散的可能性的確存在~

目前的資料來看~南瑪都應該今天移動還是較快一些~

預估大概今天傍晚以前颱風暴風圈就會開始接觸恆春半島~

東南部東部的風雨今天白天會逐漸增強~南部地區的降雨也將增多~

北部東北部持續受到外圍環流影響~有一陣一陣的強陣風以及陣雨現象~

綜合現在各家的看法仍然認為中心會選擇往恆春以東移動~

今晚到明晨間暴風圈影響範圍繼續北擴到屏東~台東以及花蓮南部等地~

這些地方風雨顯著~尤其是台東花蓮等地~

高屏地區降雨也會比白天更明顯一些~台南到雲嘉一帶也將逐漸有較多的降雨出現~

北部東北部陣風陣雨現象亦將更為頻密加強~

看起來今天只有中部的天氣相對好一些~但晚間開始下雨的機會也是頗大~

明天上午颱風中心就會接近東南部近海~暴風圈影響範圍預估會擴大到花蓮中北部~

南部地區也將進入強風範圍內~不過受到山脈阻擋的情況下~

風雨的程度應該還是比東部相對弱一些~

明天白天颱風繼續北上~有可能在明天晚間會登陸台東到花蓮之間~

或是繼續貼著沿海北移~登陸的可能性看起來應該大一些~地形會吸引颱風登陸~

因此花東地區以及恆春半島明天一整天應該會是風雨交加~

宜蘭基隆台北桃園等地陸續進入強風範圍內~風雨情況也應該會頗為顯著~

中部以南地區明晚要開始注意颱風從海峽進來的西北風跟西南風交會的現象~

一但明顯發生就會產生劇烈降雨的機會~

雲圖上看起來南瑪都西南側有大量的雲雨帶水氣~這一點不得不防~

颱風靠近後目前的預報來看會持續被地形卡住~

因此有機會產生結構副中心的轉移~特別是中心登陸的話發生的可能性更大~

如果環流中心真的轉移到西岸~而且速度仍然緩慢的話~

務必要小心類似莫拉克的強輻合帶建立而給中南部迎風面帶來持續強降雨~

會不會發生還不能準確掌握~明天到後天之間颱風登陸後結構的變化必須密切觀察~

這個颱風很可能會一直影響到週三(31號)以後~直到它消散或是有其他力量把它帶走~

因此提醒大家千萬要注意颱風長時間停留可能造成的災害發生~提早做好準備~

南瑪都的結構在昨天通過呂宋島時遭到一定程度的破壞~

不過如預期的進入巴士海峽後有重整的趨勢~

強度雖然不會再回到強烈颱風~但應該會保持在相當的水準

雷達上仍可見到清楚的螺旋雨帶以及眼牆結構~

因此對它千萬不能掉以輕心~特別是颱風可能直撲的台東花蓮到恆春半島等地~

中心靠近時風雨仍會相當強勁~

以上先簡單供參考~再度提醒大家及早做好防颱準備囉~

天氣概況~2011/08/26~南瑪都緩慢北移~週末靠近台灣東南~

文章出自 ptt.cc ID: caterlanse #1ELl_U45 (TY_Research)

馬上就要進去開會~先來關心一下南瑪都颱風的最新變化~

昨天提到南瑪都的眼牆已經差不多建立完整~

配合持續良好的環境~果然過去24小時內強度明顯提升~

由雲圖外觀也可以看得出來它有大幅度的增強~

螺旋雲系結構完整~CDO紮實飽滿~颱風眼也在今天凌晨過後清楚可見~

颱風暴風範圍仍然小了一些~不過卻讓它更顯示出小而猛的型態~

北側在台灣附近的冷心低壓逐漸打開它北側的外流通道~

南側也持續存在南亞高壓帶來的往南外流~

垂直風切偏弱~海溫偏高~環境對於南瑪都來說仍然相當有利~

預估未來強度仍有再增強的空間~範圍也會有擴大的趨勢~

一直要到他開始發展雙眼牆的結構~威力才會達到頂~

應該會變成一個強烈颱風~JTWC也有機會升為5級颱風~

大家最關心的颱風動態方面則不是太好的情況~

過去一天因為冷心低壓快速西進~顯示高壓往西伸展的情況較為明顯~

而且這個冷心低壓在中低層也呈現明顯的東風波動狀態 (原本的擾動95W跟它重疊)

東風波的前位效果(颱風位於深厚東風波的西南方)讓缺乏引導的南瑪都偏西移動~

可以看成是有點東北頂頭風對颱風造成壓制的現象~

因此南瑪都並未如先前預估的隨內力旋轉而北飄~反而是一路西進~

一直走到呂宋島東方海面~也就是大概今天凌晨過後~

隨著東風波(冷心低壓)來到它的北方~重位效果(東風波在颱風正北)開始慢慢出現~

吸引南瑪都出現北偏的現象~預估這個趨勢今天白天會漸趨明顯~

由於過去這段期間西進的程度太大~因此南瑪都北轉後~勢必會更靠近台灣~

今天到明天之間南瑪都將逐漸朝北北西或偏北方向移動~

在呂宋島東北角外海通過後朝向巴士海峽東部前進~並且繼續靠近台灣東南海面~

移動速度應該不會很快~因為南瑪都本身一直是缺乏引導的~

北上的因素是屬於東風波重位的吸引~加上颱風本身內力的運動所產生~

明天週六(27號)逐漸進入巴士海峽~

後天週日(28號)應該會接近恆春半島東南方~

到了下週一(29號)時颱風中心就有可能相當靠近台灣東岸~

目前的預報大概是這樣的情況~但是稍微東一點或西一點仍可能會有微妙的變化~

來到台灣附近後更要擔心的是昨天也有提到的情況~

就是被塔拉斯颱風給牽制住而不走了~

萬一真如今天凌晨ECMWF以及JMA預報形式圖所顯示的狀況~

在台灣東岸打轉3~4天的話~造成的影響可就會相當的嚴重~

颱風真的很靠近的話~地形的作用也很有機會拖住颱風移動的腳步~

因此對於南瑪都週末一直到下週前半的變化以及影響都要特別加以注意~

最好的情況仍是颱風北上時比較遠離東岸~並且逐漸被塔拉斯往東牽引而去~

不過對台灣的天氣仍難免會有所影響~

今天受到東風波動~也就是冷心低壓的影響~

從東邊海面上會有一些降水回波往陸地移進來~不過看起來比較零散~

實際帶來的降雨應該是不多~也不會很明顯

要特別注意的可能還是冷心低壓造成大氣不穩定度提高~午後熱對流發展會比較旺盛~

昨天台灣各地的風速都比較大~熱對流還沒長大就被吹的東倒西歪~

今天東風波動本體已經來到台灣附近~

風速反而是小了許多(位於氣壓低谷內)~加上大氣不穩定且水氣增多~

熱對流應該要比昨天來得容易發展增強~

山區發展起來後往平地擴散的機會也很高~因此午後出門記得要多留意雷達上的變化~

前往山區活動特別要小心強對流產生的強降雨~

明天隨著颱風北上進入巴士海峽東部~外圍環流跟東風波動結合將為迎風面帶來降雨~

包括北部東半部以及恆春半島明天的降雨應該都會陸續增多~

可能一開始還不是很明顯~時間越晚降雨將有趨於增加的情況~

中部南部雲量也會逐漸變多~主要的降雨仍是在午後的熱對流發展擴散所造成~

東部東南部的沿海以及海上的風浪今晚到明天有逐漸增強的趨勢~

明晚以後包括東北部以及西南部沿海的風浪也都會有提升的情況~

週日颱風對台灣的天氣影響會更大~颱風警報也應該會陸續發布~

提醒週末有安排活動的朋友務必要特別注意颱風的變化~

比較詳細的影響情況可能再觀察一下今天到明天的情況後再來聊~

塔拉斯颱風現在沒空管它~只好先讓它放牛吃草去~XD

以上簡單供參考囉~

一個圓謊圓了六年卻又不能戳破的祕密...

作者 FeAm (冷作絕望)
看板 Gossiping
標題 Re: [新聞] 一個圓謊圓了六年卻又不能戳破的祕密...
時間 Fri Jul 29 17:22:09 2011
───────────────────────────────────────

※ 引述《hedonic (黑東尼克)》之銘言：

http://www.youtube.com/watch?v=Jcs7hA5iwZE

片長實在太長，以下是幫沒時間看的人做簡單懶人包


1. 高致病性禽流感病毒 H5N1, H5N2 已經 " 在地化 "
結合在一起變成新種變種病毒

2. 禽流感病毒已傳染給豬隻 (達14.9%）
只要傳染給豬隻代表有可能從豬身上繼續傳染給哺乳類

3. 學者調查台灣北中南的養雞場 " 工作人員 "
其中有 20% 的人對禽流感血清疫苗產生陽性反應
20% 之中更有 66 個人確定已經感染 H5N2



事件部份：


1. 早在2004年、2006年就發現禽流感疫情，也有媒體報導
但政府都用「是候鳥傳染」當作藉口，在媒體面前上演清洗電線桿的可笑戲碼

2. 2006年為了加入ＷＨＯ，為了把「積極防治禽流感」當作入會宣傳
明明疫情已爆發卻不敢聲張怕沒辦法入會

3. 學者提出學術研究報告，卻因為出資者是農委會，不敢聲張
該份報告也被河蟹，農委會檢驗所的紀錄消失無蹤

4. 雞農困於每次發生疫情都會被撲殺加上雞價掉落，不敢直言
但私底下自己都會接種疫苗讓死亡率降低
這種做法卻變成另一種傳染源，讓雞隻感染率大增
（ = 我們吃的雞可能都是遭受過感染的病雞）

5. 導演長期自行解剖雞隻，自行送檢驗所追蹤
並有一些被政府隱匿的證據報告是由匿名者提供

6. 2008年五月（馬政府初上任）發生六萬隻雞暴斃事件
農委會告訴媒體這不是H5N2禽流感而是另一種「新城病毒」
但防檢局又發了篇新聞稿說「不是新城雞瘟，原因不明」
真正的答案是變種病毒

7. 然而台灣沒有回報給OIE（世界動物衛生組織）任何情報
農委會反而在12月把「新城病毒」從甲級降到乙級

8. 2010年一月發生大量疫情，發現H5N2
家畜衛生所連續做了兩次試驗，檢測後發現28間養雞場都呈現陽性反應
指數都遠遠超過國際標準（測出：2.54 vs. OIE：1.2）

9. 2010年五月媒體舉發，農委會卻全部否認
告訴大家「這是低病原，沒有人死掉就代表不嚴重」
檢驗報告卻被列為「公務機密」不讓外部檢閱

10. 導演訪問農委會防疫檢驗局局長
局長表示「沒有大量的死亡疫情報告，不算有病毒」

11. 農委會私底下開了兩次會議和眾學者 "商量" 兩次試驗該怎麼辦
與會者包括台大獸醫系教授等等，眾學者卻同意：

12. 為了掩蓋疫情，農委會竟然想出「獨步全球的檢驗實驗」
重新買了六十隻中雞想做出新的實驗報告
讓指數掉回正常值再回報給OIE
（現在OIE官方網站上面台灣的正常數字正是這份 "新" 報告）

13. 導演和記者分別打電話給當時的參與學者，所有的學者都推說不清楚不知道
紀錄片後半段就是當時參加會議時的所有人全部都在推托的電聯紀錄...
而經調查當時與會教授大半都有拿政府的補助經費...

14. 家畜衛生實驗室所長承認做了六十隻中雞的實驗
也承認沒把最之前所作的兩次指數超常的報告交給OIE
對於屏東大量雞隻死亡的案件，卻告訴導演「你先把攝影機轉掉」

15. 六年來跨越兩大政黨輪替的禽流感
從一開始的低致病性，演變成高致病性
最後演變成台灣官員篡改數字交給國際組織聲稱一切沒問題
成為不能戳的祕密



片尾導演告訴大家可從蛋價來判斷禽流感是否正在發生

感謝 ic6413 的解說：

影片是說禽流感發生 >> 產蛋率下降
蛋雞不大會有雞隻死亡，因為關在籠子裡傳染得慢

若一天沒有人敢說真話，民眾始終要自求多福...


收到詢問信，轉載不用附ID還請直接轉錄

Plurk用文字頁面：http://paste.plurk.com/show/582040/



※ 引述《madaco (忘記如何說話...)》之銘言：
: 卦在哪？？？
: 在這...
: http://tw.nextmedia.com/animation/h1n1
: 尤其是後面那段
: 防疫部門竄改防疫標準

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.27.110.3

Optimizing VBA

資料出處: http://www.cpearson.com/excel/optimize.htm

This page lists some suggestions and strategies for optimizing your Visual Basic For Applications (VBA) code, so that it will run faster.   There are few absolute rules for optimizing VBA;  you'll see the best increases in performance by streamlining the basic logic.

Accessing Cells In A Range You do not need to use the .Cells method to access specific cells in a range.  For example, you can use Range("MyRange")(1,2)   rather than Range("MyRange").Cells(1,2) See Alan Beban's explanation of this method for more details. Related to this is the shortcut method of refering to cells.  VBA will allow you reference cells with [A1] rather than Range("A1"). While the [A1] syntax is easier to type, it is slower to execute than the Range("A1") syntax. Calculation Mode Normally, Excel will recalculate a cell or a range of cells when that cell's or range's precedents have changed.  This may  cause your workbook to recalculate too often, which will slow down performance.  You can prevent Excel from recalculating the workbook by using the statement: Application.Calculation = xlCalculationManual At the end of your code, you can set the calculation mode back to automatic with the statement: Application.Calculation = xlCalculationAutomatic Remember, though, that when the calculation mode is xlCalculationManual, Excel doesn't update values in cells.  If your macro relies on an updated cell value, you must force a Calculate event, with the .Calculate method, which may be applied to either a specific range (Range("MyRange").Calculate) or to the entire workbook (Calculate). Collection Indexes An individual item of a collection object may be accessed by either its name or by its index into the collection.  For example, if you have three worksheets ("Sheet1", "Sheet2", and "Sheet3")  in a workbook ("MyWorkbook"), you can reference "Sheet2" with either Worksheets("Sheet2")  or Worksheets(2) In general, the index number method (Worksheets(2)) is considerably faster than the index name method (Worksheets("Sheet2")). However, the number and order of items in a collection may change, so it is usually safer and easier to refer to items in a collection by their name, rather than their index number. Constants Whenever you can, declare values as constants, rather than variables.   Since their values never change, they are evaluated only once when your code is compiled, rather than each time they are used at run time. Early Binding This is closely tied with Specific Object Type Declaration.  If you're going to work with another application, such as Word, declare your OLE object directly, rather than as an Object type variable.  By doing so, a great deal of overhead is done at compile time ("Early Binding") rather than at run time ("Late Binding").   For example, use Dim WordObj As Word.Application        rather than Dim WordObj As Object Also see Using Variables (Properly) In VBA. FOR EACH Loops When looping through a collection it is usually faster than the FOR EACH statement rather than using the index.  For example, the first code loop is faster than the second: Dim WS as Worksheet For Each WS In Worksheets     MsgBox WS.Name Next WS Dim i as Integer For i = 1 To Worksheets.Count     MsgBox Worksheets(i).Name Next i Range Objects Not Selection Object Generally, it is not necessary to select a range before working with it.  For example, it is more efficient to use Range("A1").Font.Bold = True Rather than Range("A1").Select Selection.Font.Bold = True Screen Updating You can turn off screen updating so that Excel does not update the screen image as your code executes.  This can greatly speed up your code. Application.ScreenUpdating = FALSE Be sure to restore the setting to True at the end of your macro.  Older version of Excel would automatically restore the setting; Excel97 does not. Simple Objects Rather Than Compound Objects If you've got to make repeated references to an object, such a range, declare an object of that type, set it to the target object, and then use your object to refer to the target.   For example, Dim MyCell As Range Set MyCell = Workbooks("Book2").Worksheets("Sheet3").Range("C3")'.... MyCell.Value = 123 By referring directly to MyCell , VBA can access the object directly, rather than resolving the complete path to the object each time.  This method is useful only when you are accessing an object several times during code execution. Specific Object Type Declaration If possible avoid using the Object or Variant data types.  These data types require considerable overhead to determine their types.  Instead, use explicit data types, such as Dim MySheet As Worksheet  rather than Dim MySheet As Object   Or Dim NumRows As Long rather than Dim NumRows As Variant This is especially true with index variables in For Next loops, since a Variant type has to be re-evaluated each iteration of the loop. Also see Using Variables (Properly) In VBA. WITH Statements If you are using several statement in a row that apply to the same object, use a WITH statement, rather than fully qualifying the object each time.  For example, With Worksheets("Sheet1").Range("A1")     .Font.Bold = True     .Value = 123 End With Worksheet Functions You can use Excel's standard worksheet functions in your VBA code, rather than writing the functions in VBA.  Since these are fully executable instructions in native code, rather than interpreted VBA code, they run much faster.  For example, use MySum = Application.WorksheetFunction.Sum(Range("A1:A100"))    rather than For Each C In Range("A1:A100")     MySum = MySum + C.Value Next C