Back to Basics

출처 : http://www.math.cmu.edu/users/shreve/

The Dirac delta or Dirac's delta is a mathematical construct introduced by the British theoretical physicist Paul Dirac. Informally, it is a function representing an infinitely sharp peak bounding unit area: a function δ(x) that has the value zero everywhere except at x = 0 where its value is infinitely large in such a way that its total integral is 1. It is a continuous analogue of the discrete..

'정규누적확률분포(p151) Function CND(Z As Double) Dim a1 As Double Dim a2 As Double Dim a3 As Double Dim a4 As Double Dim a6 As Double Dim L As Double Dim K As Double a1 = 0.31938153 a2 = -0.356563782 a3 = 1.781477937 a4 = -1.821255978 a5 = 1.330274429 L = Abs(Z) K = 1 / (1 + 0.2316419 * L) CND = 1 - 1 / Sqr(2 * 3.1415926) * Exp(-L ^ 2 / 2) * _ (a1 * K + a2 * K ^ 2 + a3 * K ^ 3 + a4 * K ^ 4 + a5 * K ^ 5..

Sub test() Dim i As Double Dim n As Double Dim s As Sheet1 Dim start As Integer start = 0 n = 100 Set s = Sheet1 Randomize For i = 1 To n s.Cells(i, 1) = Rnd If s.Cells(i, 1) > 0.5 Then s.Cells(i, 2) = 1 Else s.Cells(i, 2) = -1 End If Next i s.Range("C1") = start For i = 1 To n start = start + s.Cells(i + 1, 2) s.Cells(i + 1, 3) = start Next i End Sub

' Do-until 이용 Sub find_end_of_data() Dim s As Worksheet Dim r As Long Dim cnt As Long Set s = Sheet1 r = 1 Do Until s.Cells(r, 1) = "" If s.Cells(r, 1) "" Then cnt = cnt + 1 End If r = r + 1 Loop Debug.Print " 데이터의 갯수는:", cnt End Sub ' Range 이용 Sub find_end_of_data2() Dim s As Worksheet Dim rngData As Range Dim cnt As Long Set s = Sheet1 Set rngData = s.Range(s.Range("B1"), s.Range("B1").End(xlD..

Sub lagged_correl() '// Automating Calculation of Lagged Cross Correlations between Variables Const ROWEND = 417 '// change value as your own Const ROWBEGIN = 2 '// change value as your own Const COLBEGIN = 2 '// change value as your own Const OBS = 31 '// change value as your own Dim s As Worksheet Dim s3 As Worksheet Dim lags Dim rng(1 To OBS) As Range Dim rng1 As Range, rng2 As Range Dim col ..

'입력된 셀 값을 받아서 재 입력하기 Sub B_S() Dim col As Long Dim i As Long Dim a() As Long ReDim a(1 To 11) col = 1 For i = 1 To 11 a(i) = Sheet1.Cells(i, col).Value Range("C1").Cells(i, col) = a(i) Next End Sub

Industry |증권사, FICC에 왜 목 매나 기사입력 2008-04-27 17:36 ■정인석 굿모닝신한증권 채권/ FICC 상무■ 아직은 초기 단계. 규모의 문제로 시간이 해결해 줄 수 있을 것이다. 현재로서는 DLS에 주력하지만 나름대로 전략을 갖고 있다. ■성철현 우리투자증권 Non에쿼티 센터장■ 국내증권사 최초로 FICC를 키워온 만큼 인력, 시스템, 상품과 가격결정능력을 갖췄다. ABN암로와 어떤 결론이 나더라도 자체적으로 성장하기 위한 준비는 돼 있다. ■마득락 대우증권 FICC부 상무■ 대우증권의 강점은 운용 트레이딩 능력이 뛰어나다는 것이다. 이런 백그라운드를 바탕으로 다양한 상품을 만들고 고객에게 제시할 수 있다. ■곽의영 우리투자증권 FICC파생팀 부장■ 남이 하니 따라하는 것은 금..