[24.01.2016 0:48:05] V: Как делишки?
[26.01.2016 13:26:21] n r: да все супер я же в черногории божественная страна
[25.09.2016 0:00:58] V: Привет.Наташ
[25.09.2016 0:01:33] n r: Приветики
[25.09.2016 0:06:00] n r: как жизнь молодая как дети?
[25.09.2016 0:45:36] V: Сложно в двух словах)
[25.09.2016 0:46:29] n r: Понятно
[25.09.2016 0:55:19] V: А ты то как?
[25.09.2016 2:22:23] n r: да у меня всё супер я же в Черногории
[26.09.2016 3:05:13] n r: Младший тоже здесь женился
[26.09.2016 11:04:24] V: Да, ладно, супер! Он отучился выходит и к тебе приехал?
[27.09.2016 1:19:18] n r: да приехал начал работать всё хорошо
[27.09.2016 23:33:33] V: Молодцы!
[01.10.2016 22:14:02] Va: а кем работает?
[01.10.2016 23:15:53] n r: Бабушкой
[29.10.2016 1:03:59] V: Это как?
[29.10.2016 1:15:37] V: Т.е. Ты ему все оплачиваешь типо чтоли?
[29.10.2016 9:37:05] n r: Я получаю деньги у другой семьи за то что смотрю за ребёнком стираю главу готовлю кашу
Бесконечно твержу, что золото торгую среднесрочно-долгосрочно по двум трендовым системам. Обе рассчитывают на продолжительные тренды от трех недель до полугода.
Текущая ситуация мне показалась интересной для того, чтобы ее проанализировать используя статистически подход. Возьмем за основу мою систему, я называю ее Динозавр :-), торгующую фьючерс GD на ФОРТС. Торгует он золото и в лонг, и в шорт. Сейчас система в лонге почти календарный месяц. Но я знаю точное количество минут (рабочих минут на ФОРТС) в позиции и буду работать с этими данными.
Бэктестинг системы за 8,5 лет показывает, что в лонг удачных сделок (сделок с прибылью) 46,88%, а убыточных соответственно 53,12%.
Получается, что месяц назад я совершил сделку с 46,88% на победу. Но прошло время, цена ходила ниже цены моей покупки, выше цены моей покупки и на данный момент находится примерно по цене входа – 1270$. Стоп передвинулся, что означает, что в случае неудачи я потеряю меньше, чем был изначальный риск.
# Created by SciFi, 2016 runUnluck <- function(n) { runArray <- numeric(10000) for(i in 1:10000) { runArray[i] <- sum(rle(sample(c(-1, 1), 1000, TRUE))$lengths == n) } hist(runArray, main="Гистограмма") mean(runArray) }
> source("D:\\Dropbox\\R\\RunUnluck.r") > runUnluck(6) [1] 7.8161 > runUnluck(2) [1] 125.2208 > runUnluck(3) [1] 62.4047 > runUnluck(4) [1] 31.179 > runUnluck(5) [1] 15.6559 > runUnluck(6) [1] 7.7635 > runUnluck(7) [1] 3.8831 > runUnluck(8) [1] 1.9382 > runUnluck(9) [1] 0.9738 > runUnluck(10) [1] 0.4922