ÐÏࡱá>þÿ  þÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ; @TEXT( 'forwrdr.dat') = FSRATE; ENDDATA !-------------------------------------------------; SETS: TWO/1..2/:; VYTM( PORM, TWO): YTM2; ! Period 2 YTM's; MXS( PORM, PORM, PORM)|&1#GE# &2 #AND# &2 #GE# &3: PRICE; ! Price of a ZCB of maturity i, in period j, state k; ENDSETS ! Short rate ratios must be constant (Note: C/B=B/A <=> C=BB/A); @FOR( STATE( J, K)| K #GT# 2: FSRATE( J, K) = FSRATE( J, K -1) * FSRATE( J, K-1)/ FSRATE( J, K-2); @FREE( FSRATE( J, K)); ); ! Compute prices for each maturity in each period and state; @FOR( MXS( I, J, K)| J #EQ# I: @FREE( PRICE( I, I, K)); PRICE( I, I, K) = 1/( 1 + FSRATE( I, K)); ); @FOR( MXS( I, J, K) | J #LT# I: @FREE( PRICE( I, J, K)); PRICE( I, J, K) = .5 * ( PRICE(I, J + 1, K) + PRICE(I, J + 1, K + 1))/( 1 + FSRATE( J, K)); ); ! For each maturity, price in period 1 must be consistent with its YTM; @FOR( PORM( I): PRICE( I, 1, 1)*( 1 + YTM( I))^I = 1; ); ! Compute period 2 YTM's for each maturity; @FOR( VYTM( I, K)| I #GT# 1: YTM2( I, K) = (1/ PRICE( I, 2, K)^(1/( I-1))) - 1; ); ! Match the volatilities for each maturity; @FOR( PORM( I)| I #GT# 1: .5 * @LOG( YTM2( I, 2)/ YTM2( I, 1)) = VOL( I); ); END MODEL: SETS: ! Black/Derman/Toy binomial interest rate model(BDTCALB); ! Calibrate it to a given yield curve and volatilities; PORM/1..5/: ! (INPUTS:)For each maturity; YTM, ! Yield To Maturity of Zero Coupon Bond; VOL; ! Volatility of Yield To Maturity of ZCB; STATE( PORM, PORM)| &1 #GE# &2: FSRATE; ! (OUTPUT:)Future short rate in period j, state k; ENDSETS DATA: YTM = .08, .0812, .0816, .0818, .0814; VOL = 0, .1651, .1658, .1688, .1686; ! Write the forward rates to a fileþÿÿÿýÿÿÿþÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRoot EntryÿÿÿÿÿÿÿÿïCONTENTSÿÿÿÿÿÿÿÿÿÿÿÿïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ þÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRoot Entryÿÿÿÿÿÿÿÿ*0_šîÏ»òÀð^@8”hfþÄ @ Contentsÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿÿÿýÿÿÿþÿÿÿ þÿÿÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  !"#$%&'(þÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ1 must be consistent with its YTM;\cf2 \par \cf1 @FOR\cf2 ( PORM( I): \par PRICE( I, 1, 1)*( 1 + YTM( I))^I = 1; \par ); \par \cf3 ! Compute period 2 YTM's for each maturity;\cf2 \par \cf1 @FOR\cf2 ( VYTM( I, K)| I #GT# 1: \par YTM2( I, K) = (1/ PRICE( I, 2, K)^(1/( I-1))) - 1; \par ); \par \cf3 ! Match the volatilities for each maturity;\cf2 \par \cf1 @FOR\cf2 ( PORM( I)| I #GT# 1: \par .5 * \cf1 @LOG\cf2 ( YTM2( I, 2)/ YTM2( I, 1)) = VOL( I); \par ); \par \cf1 END\cf2 \par \par } ì‹{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Courier New;}} {\colortbl ;\red0\green0\blue255;\red0\green0\blue0;\red0\green175\blue0;} \viewkind4\uc1\pard\cf1\f0\fs20 MODEL\cf2 : \par \cf1 SETS\cf2 : \par \cf3 ! Black/Derman/Toy binomial interest rate model(BDTCALB);\cf2 \par \cf3 ! Calibrate it to a given yield curve and volatilities;\cf2 \par PORM/1..5/: \cf3 ! (INPUTS:)For each maturity;\cf2 \par YTM, \cf3 ! Yield To Maturity of Zero Coupon Bond;\cf2 \par VOL; \cf3 ! Volatility of Yield To Maturity of ZCB;\cf2 \par STATE( PORM, PORM)| &1 #GE# &2: \par FSRATE; \cf3 ! (OUTPUT:)Future short rate in period j, state k;\cf2 \par \cf1 ENDSETS\cf2 \par \cf1 DATA\cf2 : \par YTM = .08, .0812, .0816, .0818, .0814; \par VOL = 0, .1651, .1658, .1688, .1686; \par \cf3 ! Write the forward rates to a file;\cf2 \par \cf1 @TEXT\cf2 ( 'forwrdr.dat') = FSRATE; \par \cf1 ENDDATA\cf2 \par \cf3 !-------------------------------------------------;\cf2 \par \cf1 SETS\cf2 : \par TWO/1..2/:; \par VYTM( PORM, TWO): YTM2; \cf3 ! Period 2 YTM's;\cf2 \par MXS( PORM, PORM, PORM)|&1#GE# &2 #AND# &2 #GE# &3: \par PRICE; \cf3 ! Price of a ZCB of maturity i, in period j, state k;\cf2 \par \cf1 ENDSETS\cf2 \par \cf3 ! Short rate ratios must be constant \par (Note: C/B=B/A <=> C=BB/A);\cf2 \par \cf1 @FOR\cf2 ( STATE( J, K)| K #GT# 2: \par FSRATE( J, K) = \par FSRATE( J, K -1) * FSRATE( J, K-1)/ FSRATE( J, K-2); \par \cf1 @FREE\cf2 ( FSRATE( J, K)); \par ); \par \cf3 ! Compute prices for each maturity in each period and state;\cf2 \par \cf1 @FOR\cf2 ( MXS( I, J, K)| J #EQ# I: \par \cf1 @FREE\cf2 ( PRICE( I, I, K)); \par PRICE( I, I, K) = 1/( 1 + FSRATE( I, K)); ); \par \cf1 @FOR\cf2 ( MXS( I, J, K) | J #LT# I: \par \cf1 @FREE\cf2 ( PRICE( I, J, K)); \par PRICE( I, J, K) = .5 * ( PRICE(I, J + 1, K) + PRICE(I, J + 1, K + 1))/( 1 + FSRATE( J, K)); \par ); \par \cf3 ! For each maturity, price in period