Избранное трейдера Nikolay
День сто седьмой.
Всем Трейдерам и пользователям Смартлаба привет!
Представляем Вашему вниманию, текущую ситуацию на рынке E-mini S&P500, в которую включены: 400 промышленных корпораций, 20 транспортных, 40 финансовых и 40 коммунальных. Почти все компании обращаются на NYSE, однако присутствуют и те, которые торгуются на AMEX и Nasdaq.

Индекс S&P 500 является широко признанным барометром фондового рынка США и является эталоном, используемым большинством инвестиционных специалистов. Фьючерс E-mini S&P 500 позволяют эффективно покупать или продавать чрезвычайно хорошо диверсифицированный портфель акций, в зависимости от вашего мнения об общем фондовом рынке.


Здравствуйте дорогие друзья!
Тема этого обновления — работа со своей моделью улыбки.
Эту версию мне помог создать Дмитрий Новиков. Помогал с формулой расчета, обсуждали юзабилити, ну и конечно же помог отловить баги и глюки, касаемые модельной улыбки. Мы с ним обкатали 2 версии пока не получилась эта окончательная третья версия. Так что спасибо ему большое за всё.
В текущей версии, на самом деле 2 модели улыбки.
1. Это моя, которой я давно пользуюсь. Нарисована в виде оранжевых маркеров (точек) на диаграмме (1).

Рассчитывал так, брал базу улыбки с 2010 по 2016 годы и рассчитывал относительное отклонение страйков с дельтами 0,1 0,25 и -0,1 от центрального в процентах. Рассортировывал по папачкам, каждая из них это срок сколько осталось до экспирации дней и в каждой из них считал среднее значение. Так я получил среднее отклонение интересующих мне страйков от центрального. А зная волу центрального и сколько дней до экспирации, не сложно высчитать волу страйков с дельтами 0,1 0,25 и -0,1.

Public Sub UpdateRTDFunction()
Dim wks As Worksheet
Dim rngFormula As Range, cell As Range
With [Application]
.EnableEvents = False
.ScreenUpdating = False
End With
For Each [wks] In ThisWorkbook.Worksheets
On Error Resume Next
Set [rngFormula] = [wks].Cells.SpecialCells(xlCellTypeFormulas)
On Error GoTo 0
If [rngFormula] Is Nothing Then: Exit Sub
For Each [cell] In [rngFormula]
If InStr(1, [cell].Formula, "RTD") > 0 Then
If InStr(1, [cell].Formula, ", ,") > 0 Then
[cell].Formula = Replace([cell].Formula, ", ,", ",""tos.rtd"",", 1)
Else
[cell].Formula = Replace([cell].Formula, ",,", ",""tos.rtd"",", 1)
End If
End If
Next [cell]
[wks].Calculate
Next [wks]
Set [rngFormula] = Nothing
With [Application]
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub
Нажимаем Alt+F8, создаем новый макрос, вставляем код, запускаем макрос — профитВсем привет.
Решил выложить в открытый доступ базу данных тиков с CME, которая накапливалась за последние годы, и обновляется по итогу дня.
85.25.211.62
login: smartlab
pass: smartlabpass
Ссылки на торрент: http://ge.tt/1Ql8j3Y2
№2: app.box.com/s/h0dhmkif0fhnvlpzdp8ma89c1ysv876t
seconds (int32) — кол-во секунд с начала суток по Чикаго.
milliseconds (int32)
price (int32)
volume (int32)
bestBidPrice (sbyte) — расстояние в тиках между price и реальной ценой BidPrice
bestAskPrice (sbyte) - расстояние в тиках между price и реальной ценой AskPrice
bestBidSize (int32) — доступно с июня 2015
bestAskSize (int32) - доступно с июня 2015
Создаем класс Tick: