9792019林怡伶 (歷史模擬法 a=0.05 )

數值資料

1901     8431.978  

1902     8431.978

1903     8431.978

1904     8431.978

1905     8431.978

1906     8431.978

1907     8431.978

1908     8431.978

1909     8431.978

1910     8431.978

1911     8431.978

1912     8431.978

1913     8431.978

1914     8431.978

1915     8431.978

1916     8431.978

1917     8431.978

1918     8431.978

1919     8431.978

1920     8431.978

1921     8431.978

1922     8431.978

1923     8431.978

1924     8431.978

1925     8431.978

1926     8431.978

1927     8431.978

1928     8431.978

1929     8431.978

1930     8431.978

1931     8431.978

1932     8431.978

1933     8431.978

1934     8431.978

1935     8431.978

1936     8431.978

1937     8420.188

1938     8420.188

1939     8380.058

1940     8380.058

1941     8380.058

1942     8380.058

1943     8380.058

1944     8355.639

1945     8355.639

1946     8355.639

1947     8353.833

1948     8353.833

1949     8353.833

1950     8380.058

1951     8380.058

1952     8380.058

1953     8380.058

1954     8380.058

1955     8380.058

1956     8380.058

1957     8380.058

1958     8380.058

1959     8380.058

1960     8380.058

1961     8380.058

1962     8380.058

1963     8380.058

1964     8380.058

1965     8380.058

1966     8380.058

1967     8380.058

1968     8380.058

1969     8380.058

1970     8380.058

1971     8380.058

1972     8380.058

1973     8380.058

1974     8380.058

指令檔

open b-g

#VAR求算方法--歷史模擬法#

series VaR=NA

smpl 1 1900

#迴圈從1901筆到1974筆

loop for j=1901..1974

  scalar w=1000000

  scalar sigma=sd(Y)

  scalar r=quantile(Y,0.05)

  #原smpl 1到1900  $t2+1 表最後一筆資料+1為求1901之VaR#

  scalar k2=$t2+1

  #VaR公式

  VaR[k2]=-w*r/100

#筆數 起始 各加1筆 

smpl +1 +1

end loop

smpl full