Избранное трейдера 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: