MrDzenLi
Зарегистрирован: 20.04.2015
Сообщения: 383
Откуда: VRN
|
| Код: |
Plot(Close,"",IIf(O>C,colorBlack,colorBlack),styleBar|styleThick);
EmaP=Param("EMA",13,1,50,1);
Muv=TEMA(Close,EmaP);
Plot(Muv,"",29,styleThick);
OpiLong=ValueWhen(Muv>Ref(Muv,-1),Muv,1);
OpiShor=ValueWhen(Muv<Ref(Muv,-1),Muv,1);
Opi=(OpiLong+OpiShor)/2;
Zerk=Muv+(Muv-Opi);
Plot(Zerk,"",colorBlack,styleDots|styleNoLine);
OpiLongZ=OpiLong+(OpiLong-OpiShor);
OpiShorZ=OpiShor-(OpiLong-OpiShor);
OpiLongV=ValueWhen(OpiLongZ<Ref(OpiLongZ,-1),Ref(OpiLongZ,-1),1);
OpiShorV=ValueWhen(OpiShorZ>Ref(OpiShorZ,-1),Ref(OpiShorZ,-1),1);
Plot(OpiLongV,"",27,styleThick);
Plot(OpiShorV,"",32,styleThick);
Buy = Cross(Muv,OpiLongV);
Sell = Cross(OpiLongV,Muv);
Short = Cross(OpiShorV,Muv);
Cover = Cross(Muv,OpiShorV);
dist = 1.5*ATR(10);
for( i = 0; i < BarCount; i++ )
{
if( Buy[i] ) PlotText( "Buy\n@" + C[ i ], i, L[ i ]-dist[i], colorGreen );
if( Sell[i] ) PlotText( "Sell\n@" + C[ i ], i, H[ i ]+dist[i], colorRed );
if( Short[i] ) PlotText( "Short\n@" + C[ i ], i, H[ i ]+dist[i], colorRed);
if( Cover[i] ) PlotText( "Cover\n@" + C[ i ], i, L[ i ]-dist[i], colorGreen);
}
PlotShapes( Buy * shapeUpArrow + Sell * shapeDownArrow, IIf( Buy, colorGreen, colorRed ) );
PlotShapes( Short * shapeDownArrow + Cover * shapeUpArrow, IIf( Short, colorRed, colorGreen )); |
|
_________________
Нам не дано знать всего. |
|
