Список форумов AmiSite.ru AmiSite.ru
Форум по Ами
 FAQ  •  Поиск  •  Пользователи  •  Группы   •  Регистрация  •  Профиль  •  Войти и проверить личные сообщения  •  Вход
 Размер позиции на графике Следующая тема
Предыдущая тема
Начать новую тему  Ответить на тему
Автор Сообщение
lesser



Зарегистрирован: 11.07.2010
Сообщения: 7

СообщениеДобавлено: Вт Сен 29, 2015 10:10 pm Ответить с цитатой Вернуться к началу

Здравствуйте ,

Помогите, пожалуйста, с реализацией идеи :
1. отобразить размер позиции ( long: +15 или short: -9) на графике, и среднюю цену входа в позицию
2. нарисовать внизу график торговой позиции

Если можно без циклов, так как с циклами очень тормозят графики.

Спасибо.
Посмотреть профиль Отправить личное сообщение
000
Site Admin


Зарегистрирован: 10.12.2007
Сообщения: 9106

СообщениеДобавлено: Вт Сен 29, 2015 11:26 pm Ответить с цитатой Вернуться к началу

Код:

Buy = ...;
Short = ...;
Sell = ...;
Cover = ...;
PS = 5; // тут следует задать размер позиции
ApplyStop(stopTypeLoss, ...;
ApplyStop(stopTypeProfit, ...);
Equity(1, 0);

Plot(C, "Close", colorBlack, styleCandle);

PlotShapes(IIf(Buy, shapeUpArrow, shapeNone), colorGreen, 0, L, -12);
PlotShapes(IIf(Short, shapeDownArrow, shapeNone), colorRed, 0, H, -12);
PlotShapes(IIf(Sell, shapeHollowDownArrow, shapeNone), colorGreen, 0, H, -12);
PlotShapes(IIf(Cover, shapeHollowUpArrow, shapeNone), colorRed, 0, L, -12);

pos = Flip(Buy, Sell) + -1*Flip(Short, Cover);
Plot(pos, "pos", colorBlue, styleOwnScale,  minvalue = -1*LastValue(Highest(PS)), maxvalue = 10*LastValue(Highest(PS)));

for(i = 0; i < BarCount; i++)
{
   if(Buy[i])
      PlotText("Buy\n" + "Price=" + NumToStr(BuyPrice[i], 1.4) + "\n" + "PosSize=" + NumToStr(PS[i], 1.0), i, L[i], colorGreen, Null, -30);
   if(Short[i])
      PlotText("Short\n" + "Price=" + NumToStr(ShortPrice[i], 1.4) + "\n" + "PosSize=" + NumToStr(PS[i], 1.0), i, H[i], colorRed, Null, 50);
   if(Sell[i])
      PlotText("Sell\n" + "Price=" + NumToStr(ShortPrice[i], 1.4), i, H[i], colorGreen, Null, 50);
   if(Cover[i])
      PlotText("Cover\n" + "Price=" + NumToStr(ShortPrice[i], 1.4), i, L[i], colorRed, Null, -30);
}

_________________
ceterum censeo carthaginem esse delendam
Удачи. Олег.
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
Показать сообщения:      
Начать новую тему  Ответить на тему


 Перейти:   



Следующая тема
Предыдущая тема
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Вы не можете вкладывать файлы
Вы не можете скачивать файлы


Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Часовой пояс: GMT + 3

File Attachment © by Meik Sievertsen