SetPositionSize( 2, 50 );
t = BarsSince( TimeNum()==103500 );
pg = Ref(Foreign( "GAZP5", "c" ),-(t+1));
pe = Ref(Foreign( "EESR5", "c" ),-(t+1));
kg = abs(Foreign( "GAZP5", "Close" )-pg)/Foreign( "GAZ5", "Close" );
ke = abs(Foreign( "EESR5", "Close" )-pe)/Foreign( "EESR5", "Close" );
Cg = Foreign( "GAZP5", "Close" );
Ce = Foreign( "EESR5", "Close" );
Buy = IIf(Name() == "GAZP5" AND TimeNum()==103500, (kg>ke AND Cg>Ref(Cg,-1)) , IIf(Name() == "EESR5" AND TimeNum()==103500,(ke>kg AND Ce>Ref(Ce,-1)),0));
Short = IIf(Name() == "GAZP5" AND TimeNum()==103500, (kg>ke AND Cg<Ref(Cg,-1)) ,IIf(Name() == "EESR5" AND TimeNum()==103500,(ke>kg AND Ce<Ref(Ce,-1)),0));
Sell = IIf(Name() == "GAZP5",TimeNum()==183500,IIf(Name() == "EESR5",TimeNum()==183500,0));
Cover = IIf(Name() == "GAZP5",TimeNum()==183500,IIf(Name() == "EESR5",TimeNum()==183500,0));
Equity(1);
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();
PlotShapes(IIf(Buy,shapeUpArrow,0),5,0,Graph0,-15);
PlotShapes(IIf(Sell,shapeDownArrow,0),4,0,Graph0,-15);
PlotShapes(IIf(Cover,shapeHollowUpArrow,0),5,0,Graph0,-15);
PlotShapes(IIf(Short,shapeHollowDownArrow,0),4,0,Graph0,-15);