【正文】 delta_t) q_up = (r down) / (r * (up down)) q_down = 1 / r q_up Dim OptionReturnEnd() As Double Dim OptionReturnMiddle() As Double ReDim OptionReturnEnd(n + 1) ? For State = 0 To n OptionReturnEnd(State) = (X S * _ up ^ State * down ^ (n State), 0) Next State For Index = n 1 To 0 Step 1 ReDim OptionReturnMiddle(Index) For State = 0 To Index OptionReturnMiddle(State) = (X S * _ up ^ State * down ^ (Index State), _ q_down * OptionReturnEnd(State) + _ q_up * OptionReturnEnd(State + 1)) Next State ReDim OptionReturnEnd(Index) For State = 0 To Index OptionReturnEnd(State) = OptionReturnMiddle(State) Next State Next Index AmericanPut = OptionReturnMiddle(0) End Function 南開大學(xué)經(jīng)濟學(xué)院金融學(xué)系 周愛民（ ） 舉例 ? 下面用一個例子來講解具體的操作步驟： ? 例 假設(shè)一只股票的當(dāng)前價格為 50元，股票的波動性為 σ=30%， rf =8%，運用上面定義的Americanput函數(shù)計算執(zhí)行價格 X=50元，有效期為半年，且子時間段取為 n=20的美式看跌期權(quán)的價格。 圖 建立 Excel工作表 ? 具體操作步驟如下： ? 1．建立一個 Excel工作表 將上面例子中的基本信息輸入，如圖 。 南開大學(xué)經(jīng)濟學(xué)院金融學(xué)系 周愛民（ ） ? 2．加載宏 選擇 C10單元格，單擊【工具】菜單中的【宏】命令，系統(tǒng)出現(xiàn)一個子菜單。 ? 3．輸入程序 單擊子菜單中【 Visual Basic編輯器】或按【 Alt+F11】鍵，進入【 Microsoft Visual Basic】窗口。單擊【插入】 /【模塊】命令，系統(tǒng)出現(xiàn)一個空白編輯框，然后在其中輸入上面的程序。如圖 。 南開大學(xué)經(jīng)濟學(xué)院金融學(xué)系 周愛民（ ） 圖 American Put 函數(shù)的 Microsoft Visual Basic程序代碼窗口 南開大學(xué)經(jīng)濟學(xué)院金融學(xué)系 周愛民（ ） ? 4．定義函數(shù) ? 編完程序后，單擊上圖工具欄中的【調(diào)試】 /【編譯 VBAproject(L)】，確定程序是否編寫無誤。確定無誤后，則單擊工具欄中的圖標(biāo)，返回Excel工作表。確定 C10單元格被選定，然后單擊【插入】菜單中的【函數(shù)】，系統(tǒng)彈出【粘貼函數(shù)】對話框。在【函數(shù)分類】中選擇【用戶定義】，在【函數(shù)名】中選擇【 AmericanPut】函數(shù)，確定后即得到圖 。確定后，會彈出函數(shù)參數(shù)的對話框，在對話框里輸入相應(yīng)的參數(shù)，單擊確定。對話框如圖 。 南開大學(xué)經(jīng)濟學(xué)院金融學(xué)系 周愛民（ ） 圖 插入函數(shù)對話框 圖 AmericanPut函數(shù)對話框 南開大學(xué)經(jīng)濟學(xué)院金融學(xué)系 周愛民（ ） 注意： ? 此對話框里共包括六個參數(shù)，注意右側(cè)的滾動軸，確保所有的參數(shù)都正確填寫，才能保證得出可靠地結(jié)果。確定后，便出現(xiàn)最后的結(jié)果，如圖。 南開大學(xué)經(jīng)濟學(xué)院金融學(xué)系 周愛民（ ） 圖 最后計算結(jié)果圖示 南開大學(xué)經(jīng)濟學(xué)院金融學(xué)系 周愛民（ ） ? 靜夜四無鄰，荒居舊業(yè)貧。 , February 11, 2023 ? 雨中黃葉樹，燈下白頭人。 21:15:2921:15:2921:152/11/2023 9:15:29 PM ? 1以我獨沈久，愧君相見頻。 :15:2921:15Feb2311Feb23 ? 1故人江海別，幾度隔山川。 21:15:2921:15:2921:15Saturday, February 11, 2023 ? 1乍見翻疑夢，相悲各問年。 :15:2921:15:29February 11, 2023 ? 1他鄉(xiāng)生白發(fā)，舊國見青山。 2023年 2月 11日星期六 下午 9時 15分 29秒 21:15: ? 1比不了得就不比，得不到的就不要。 。 2023年 2月 下午 9時 15分 :15February 11, 2023 ? 1行動出成果，工作出財富。 2023年 2月 11日星期六 9時 15分 29秒 21:15:2911 February 2023 ? 1做前，能夠環(huán)視四周；做時，你只能或者最好沿著以腳為起點的射線向前。 下午 9時 15分 29秒 下午 9時 15分 21:15: ? 沒有失敗，只有暫時停止成功！。 , February 11, 2023 ? 很多事情努力了未必有結(jié)果，但是不努力卻什么改變也沒有。 21:15:2921:15:2921:152/11/2023 9:15:29 PM ? 1成功就是日復(fù)一日那一點點小小努力的積累。 :15:2921:15Feb2311Feb23 ? 1世間成事，不求其絕對圓滿，留一份不足，可得無限完美。 21:15:2921:15:2921:15Saturday, February 11, 2023 ? 1不知香積寺，數(shù)里入云峰。 :15:2921:15:29February 11, 2023 ? 1意志堅強的人能把世界放在手中像泥塊一樣任意揉捏。 2023年 2月 11日星期六 下午 9時 15分 29秒 21:15: ? 1楚塞三湘接，荊門九派通。 。 2023年 2月 下午 9時 15分 :15February 11, 2023 ? 1少年十五二十時，步行奪得胡馬騎。 2023年 2月 11日星期六 9時 15分 29秒 21:15:2911 February 2023 ? 1空山新雨后，天氣晚來秋。 下午 9時 15分 29秒 下午 9時 15分 21:15: ? 楊柳散和風(fēng)，青山澹吾慮。 , February 11, 2023 ? 閱讀一切好書如同和過去最杰出的人談話。 21:15:2921:15:2921:152/11/2023 9:15:29 PM ? 1越是沒有本領(lǐng)的就越加自命不凡。 :15:2921:15Feb2311Feb23 ? 1越是無能的人，越喜歡挑剔別人的錯兒。 21:15:2921:15:2921:15Saturday, February 11, 2023 ? 1知人者智，自知者明。勝人者有力，自勝者強。 :15:2921:15:29February 11, 2023 ? 1意志堅強的人能把世界放在手中像泥塊一樣任意揉捏。 2023年 2月 11日星期六 下午 9時 15分 29秒 21:15: ? 1最具挑戰(zhàn)性的挑戰(zhàn)莫過于提升自我。 2023年 2月 下午 9時 15分 :15February 11, 2023 ? 1業(yè)余生活要有意義，不要越軌。 2023年 2月 11日星期六 9時 15分 29秒 21:15:2911 February 2023 ? 1一個人即使已登上頂峰，也仍要自強不息。 下午 9時 15分 29秒 下午 9時 15分 21:15: MOMODA POWERPOINT Lorem ipsum dolor sit amet, consectetur adipiscing elit. Fusce id urna blandit, eleifend nulla ac, fringilla purus. Nulla iaculis tempor felis ut cursus. 感 謝 您 的 下 載 觀 看 專家告訴