Vladimir
Зарегистрирован: 30.10.2008
Сообщения: 62
|
В Ами так и не смог перевести TR4, зато вот до чего дошел:
| Код: |
SetBarsRequired(100000,100000);
p1 = Optimize("p1", 24, 2, 250, 1 );
p2 = Optimize("p2", 18, 1, 210, 1 );
p3 = Optimize("p3", 5, 1, 99, 1 );
a = MA (O,p3);
b = Ref(SAR(p1/1000 ,p2/1000 ),-1);
Buy = Cross(O,b) AND a>=(Ref(a,-1));
Short= Cross(b,O) AND Ref(a,-1)>=(a);
Sell = Short;
Cover= Buy ;
Buy=ExRem(Buy,Sell);
Sell=ExRem(Sell,Buy);
Short=ExRem(Short,Cover);
Cover=ExRem(Cover,Short);
_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
if( ParamToggle("Tooltip shows", "All Values|Only Prices" ) )
{
ToolTip=StrFormat("Open: %g\nHigh: %g\nLow: %g\nClose: %g (%.1f%%)\nVolume: "+NumToStr( V, 1 ), O, H, L, C, SelectedValue( ROC( C, 1 )));
}
_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);
_SECTION_BEGIN("Volume");
Plot( Volume, _DEFAULT_NAME(), 3, styleNoTitle | ParamStyle( "Style", styleHistogram | styleOwnScale | styleThick | styleNoLabel, maskHistogram ), 2 );
_SECTION_END();
Plot( b, "SAR", colorBlue );
Plot( a, "Moving", IIf(a>Ref(a,-1),colorGreen,IIf(a<Ref(a,-1),colorRed,colorBlue)) ); |
|
|
|
