indus
Зарегистрирован: 23.12.2009
Сообщения: 27
|
Здорово Олег, от друзей услышал что есть роботы на болинжере с хорошей доходностью, попытался изобразить, не могу смекнуть как правильно задать условие на покупку, хочу чтобы при съужении на 1/2 или 1/3 полосы болинжера возникал сигнал на покупку
AND Ref(C>EMA1,-1), только как определить съужение, подскажи пожалуйста, естественно такая разница в широте болин должна быть между последней close и 3 или 4 свечи назад.
_SECTION_BEGIN("BBиМА");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1 );
Width = Param("Width", 2, 0, 10, 0.05 );
BBTop=BBandTop( P, Periods, Width );
BBBot=BBandBot( P, Periods, Width );
Color = ParamColor("Color", colorCycle );
Style = ParamStyle("Style");
n=Param("n",0.3,0.1,1,0.01);
p1=Param("Период EMA1",15,1,50,1);
//p1a=Optimize("optim EMA1",p1,1,20,2);
EMA1=EMA(Close,p1);
Buy =((BBTop-BBBot)*2<Ref((BBTop-BBBot),-2) AND Ref(C>EMA1,-1);
Sell =Ref(C<EMA1,-1);
Short=0;
Cover=0;
Buy = ExRem(Buy,Sell);
Sell = ExRem(Sell,Buy);
Short = ExRem(Short,Cover);
Cover = ExRem(Cover,Short);
Plot(EMA1,"сопротивление",colorRed);
PlotShapes(IIf(Buy>0,shapeUpArrow,shapeNone),colorGreen);
PlotShapes(IIf(Sell>0,shapeDownArrow,shapeNone),colorRed);
PlotShapes(IIf(Short>0,shapeHollowDownArrow,shapeNone),colorRed);
PlotShapes(IIf(Cover>0,shapeHollowUpArrow,shapeNone),colorGreen);
Plot( BBandTop( P, Periods, Width ), "BBTop" + _PARAM_VALUES(), Color, Style );
Plot( BBandBot( P, Periods, Width ), "BBBot" + _PARAM_VALUES(), Color, Style );
_SECTION_END(); |
_________________ Дорогу осилит идущий... |
|