AmiSite.ru :: Просмотр темы

Посмотри http://amisite.ru/phpBB2/viewtopic.php?p=10459#10459, там в коде последнего сообщеня на странице ( TD Clone Point...) некое подобие переменных фракталов. Может подойдёт?

Посмотреть профиль Отправить личное сообщение

ZVV

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

Добавлено: Вт Ноя 08, 2016 12:14 pm

Ответить с цитатой Вернуться к началу

Почему-то для Амиброкера очень трудно найти такой простой индикатор. Я вообще-то найти ничего не смог, и написал "очень трудно" потому, что а вдруг есть, а я просто не нашел.

Вот простой индикатор по 5 барам, менять количество баров нельзя(не умею так сделать а мне и не надо было).

Цитата:

FrUp = H > Ref(H, -1) AND H > Ref(H, -2) AND H > Ref(H, 1) AND H > Ref(H, 2);
FrDwn = L < Ref(L, -1) AND L < Ref(L, -2) AND L < Ref(L, 1) AND L < Ref(L, 2);

PlotShapes(IIf(FrUp,shapeUpTriangle,shapeNone),colorAqua,0,L,Offset=50) ;
PlotShapes(IIf(FrDwn ,shapeDownTriangle,shapeNone),colorPink,0,L,Offset=20) ;

Вопрос: при перемещении графика верхние треугольники смещаются по графику, налезают на свечи. Как написать, чтобы они были неподвижные?

Посмотреть профиль Отправить личное сообщение

DMITRY

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

Добавлено: Вт Ноя 08, 2016 1:51 pm

Ответить с цитатой Вернуться к началу

Поменять L на H.

Код:

PlotShapes(IIf(FrUp,shapeUpTriangle,shapeNone),colorAqua,0,h,Offset=50) ;

Посмотреть профиль Отправить личное сообщение

ZVV

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

Добавлено: Вт Ноя 08, 2016 2:23 pm

Ответить с цитатой Вернуться к началу

DMITRY писал(а):

Поменять L на H.

Код:

PlotShapes(IIf(FrUp,shapeUpTriangle,shapeNone),colorAqua,0,h,Offset=50) ;

Рукалицо

Спасибо!

Посмотреть профиль Отправить личное сообщение

il-ir

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

Добавлено: Чт Ноя 10, 2016 12:50 pm

Ответить с цитатой Вернуться к началу

Сделать встроенную функцию - не подходит?
Аналогично тому, что в справке, которая будет перебирать массив каждый раз заново?

Посмотреть профиль Отправить личное сообщение

il-ir

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

Добавлено: Чт Ноя 10, 2016 8:31 pm

Ответить с цитатой Вернуться к началу

уф-ф.
Сделал.
На размерности 2 даже совпадает Smile

Так как версия тестовая Smile

то оставил исходный код для расчёта и отображения фрактала с периодом 2 - что бы посмотреть, что стрелки совпадают.
Надеюсь, это то, что хотелось.

Код:

Код:

//первые четыре оператора - для сверки данных :)

FrUp1 = H > Ref(H, -1) AND H > Ref(H, -2) AND H > Ref(H, 1) AND H > Ref(H, 2);
FrDwn1 = L < Ref(L, -1) AND L < Ref(L, -2) AND L < Ref(L, 1) AND L < Ref(L, 2);

PlotShapes(IIf(FrUp1,shapeUpTriangle,shapeNone),colorAqua,0,H,Offset=50) ;
PlotShapes(IIf(FrDwn1 ,shapeDownTriangle,shapeNone),colorPink,0,L,Offset=50) ;

//далее код для расчёта фрактала с изменяемой размерностью
function FRUp(input, frn)
{
for( i = 0; i < frn; i++ )
{
result[ i ] = 0;
}
for( i = frn; i < BarCount-frn; i++ )
{
   result[ i ] = 1;
   for( j = 1; j <= frn; j++ )
   {
      result[ i ] = result[ i ] AND (input[ i - j ] < input[ i ]) AND (input[ i + j ] < input[ i ]);
   }

}
return result;
}

function FrDwn(input, frn)
{
for( i = 0; i < frn; i++ )
{
result[ i ] = 0;
}
for( i = frn; i < BarCount-frn; i++ )
{
   result[ i ] = 1;
   for( j = 1; j <= frn; j++ )
   {
      result[ i ] = result[ i ] AND (input[ i - j ] > input[ i ]) AND (input[ i + j ] > input[ i ]);
   }

}
return result;
}

PlotShapes(IIf(FRUp(High, Param("FrUp period", 2, 1, 10, 1)), shapeHollowSmallUpTriangle, shapeNone), colorGreen, 0, High, Offset=10);
PlotShapes(IIf(FrDwn(Low, Param("FrDown period", 2, 1, 10, 1)), shapeHollowSmallDownTriangle, shapeNone), colorRed, 0, Low, Offset=10);

Посмотреть профиль Отправить личное сообщение

DMITRY

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

Добавлено: Сб Ноя 12, 2016 6:51 am

Ответить с цитатой Вернуться к началу

Можно проще Smile

Код:

per = Param("period",2,1,10,1);
FRUp = H > Ref(HHV(H,per),-1) AND H > Ref(HHV(H,per),per);
FRDw = L < Ref(LLV(L,per),-1) AND L < Ref(LLV(L,per),per);
PlotShapes(IIf(FrUp,shapeUpTriangle,shapeNone),colorAqua,0,H,Offset=20);
PlotShapes(IIf(FrDw,shapeDownTriangle,shapeNone),colorPink,0,L,Offset=20);

Посмотреть профиль Отправить личное сообщение

Иван2112

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

Добавлено: Пт Июн 04, 2021 3:01 pm

Ответить с цитатой Вернуться к началу

Azazello писал(а):

вот еще вариант перекодировал из метастока

код
FRUp = (H >= Ref(H,-1) AND H >= Ref(H,-2) AND H >= Ref(H,1) AND H > Ref(H,2));
FRDw = (L < Ref(L,-1) AND L <= Ref(L,-2) AND L <= Ref(L,1) AND L < Ref(L,2));
PlotShapes(IIf(FrUp,shapeUpTriangle,shapeNone),colorAqua,0,H,Offset=10);
PlotShapes(IIf(FrDw,shapeDownTriangle,shapeNone),colorPink,0,L,Offset=10);

Посмотреть профиль Отправить личное сообщение

Начать новую тему Ответить на тему

Список форумов AmiSite.ru » Индикаторы

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