บันทึกประจำวัน 30/1/2019

30/1/2019
Function BSC(side,S, K, r, q, sigma, T)

Dim dOne, dTwo, Nd1, Nd2

    dOne = (Log(S / K) + (r - q + 0.5 * sigma ^ 2) * T) / (sigma * Sqr(T))
    dTwo = dOne - sigma * Sqr(T)
if side = "C" then
    Nd1 = Application.NormSDist(dOne)
    Nd2 = Application.NormSDist(dTwo)
else if side = "P" then
    Nd1 = Application.NormSDist(-dOne)
    Nd2 = Application.NormSDist(-dTwo)
end if
    BSC = Exp(-q * T) * S * Nd1 - Exp(-r * T) * K * Nd2
End Function
function ได้ค่าไม่ตรงกับแบบเดิม

ขาย DDD เพราะขึ้นแรงมากโดยไม่มีอะไรสนับสนุน
ขาย S50Z19 KZM 2@1075.6

ยังไม่ได้ทำ Jitta เลยวันนี้
กำลังอ่านทำความเข้าใจหนังสือ Options อยู่