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



Зарегистрирован: 22.02.2014
Сообщения: 31
Откуда: как и все

СообщениеДобавлено: Чт Авг 30, 2018 11:09 pm Ответить с цитатой Вернуться к началу

Про TimeFrameSet и TimeFrameRestore и TimeFrameExpand всё понятно.

Но почему-то не рисует на минутке.) ЕМА пробовал рисует, там остатки в коде.


Код:
Plot(C, "", colorBlack, styleCandle);

///////////////"Coral Trend"********************************

//SetBarsRequired(ceil(3.5 * sm)) ;   // minimum lookback required for stability //

sm = Param("Smoothing Period",21,1,50,1);
cd = Param("Constant D",0.05,0.02,1.5,0.01);//

TimeFrameSet(in5Minute);

di = (sm - 1.0) / 2.0 + 1.0;
c1 = 2 / (di + 1.0);
c2 = 1 - c1;
c3 = 3.0 * (cd * cd + cd * cd * cd);
c4 = -3.0 * (2.0 * cd * cd + cd + cd * cd * cd);
c5 = 3.0 * cd + 1.0 + cd * cd * cd + 3.0 * cd * cd;

src = Close;
i1=0;
i2=0;
i3=0;
i4=0;
i5=0;
i6=0;


for(i=1;i<BarCount;i++)
{

i1[i] = c1[i]*src[i] + c2[i]*i1[i-1];
i2[i] = c1[i]*i1[i] + c2[i]*i2[i-1];
i3[i] = c1[i]*i2[i] + c2[i]*i3[i-1];
i4[i] = c1[i]*i3[i] + c2[i]*i4[i-1];
i5[i] = c1[i]*i4[i] + c2[i]*i5[i-1];
i6[i] = c1[i]*i5[i] + c2[i]*i6[i-1];

}

bfr = -cd*cd*cd*i6 + c3*(i5) + c4*(i4) + c5*(i3);

//Periods = Param("Periods", 15, 2, 300, 1, 10 );
//bfr =  EMA( C, Periods );

TimeFrameRestore();

bfr    = TimeFrameExpand( bfr, in5Minute );

color = IIf(bfr>Ref(bfr,-1),colorGreen,colorRed);

Plot( bfr,"Coral Trend Indicator", color, styleDots|styleThick);
Посмотреть профиль Отправить личное сообщение
000
Site Admin


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

СообщениеДобавлено: Пт Авг 31, 2018 10:28 am Ответить с цитатой Вернуться к началу

Код:

for(i = 100; i < BarCount; i++)
{
   i1[i] = Nz(c1[i]*src[i] + c2[i]*i1[i-1]);
   i2[i] = Nz(c1[i]*i1[i] + c2[i]*i2[i-1]);
   i3[i] = Nz(c1[i]*i2[i] + c2[i]*i3[i-1]);
   i4[i] = Nz(c1[i]*i3[i] + c2[i]*i4[i-1]);
   i5[i] = Nz(c1[i]*i4[i] + c2[i]*i5[i-1]);
   i6[i] = Nz(c1[i]*i5[i] + c2[i]*i6[i-1]);
}

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


 Перейти:   



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


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

File Attachment © by Meik Sievertsen