TB天财藏金、免费分享天财藏金指标返回

温馨提示：您下载的指标源码仅供学习交流，据此入市风险自负！

----------------------------------------------------------------

Params
Bool  bInitStatues(false); 
Numeric InitMyRealMp(0);
Numeric FirstGrid(30); 
Numeric AddGrid(5);
Numeric TotalGrids(10); 
Numeric TrailingGrid(30);
Numeric EveryLots(1); 
Numeric OffSet(1); 
Numeric ExitOnCloseMins(14.58);
Vars
Numeric HighAfterLongEntry;
Numeric LowAfterShortEntry;
Numeric MyRealMp(0);
Numeric MinPoint;
Numeric tmpPrice;
Numeric tmpLots;

Begin
MinPoint=Minmove*PriceScale;
MyRealMp=GetGlobalVar(0);
HighAfterLongEntry=GetGlobalVar(1);
LowAfterShortEntry=GetGlobalVar(2);
if (BarStatus==0 And (MyRealMp==InvalidNumeric || bInitStatues))
{MyRealMp=InitMyRealMp;
}if (Date<>Date[1])
{HighAfterLongEntry=High;
LowAfterShortEntry=Low;
MyRealMp=0;
}Else
{HighAfterLongEntry=Max(HighAfterLongEntry,High);
LowAfterShortEntry=Min(Low,LowAfterShortEntry);
}
If (Time<ExitOnCloseMins/100)
{If ( MyRealMp>0 And HighAfterLongEntry-Low>=TrailingGrid*MinPoint
And(High-Low<TrailingGrid*MinPoint Or(High-Low>=TrailingGrid*MinPoint And close<Open)))
{tmpPrice=Max(HighAfterLongEntry-(TrailingGrid-OffSet)*MinPoint,Low);
tmpLots=Abs(MyRealMp*EveryLots);
Sell(tmpLots,tmpPrice);
MyRealMp=0;
LowAfterShortEntry=Low;
}Else
If ( MyRealMp<0 And High-LowAfterShortEntry>=TrailingGrid*MinPoint
And(High-Low<TrailingGrid*MinPoint Or(High-Low>=TrailingGrid*MinPoint And close>Open)))
{tmpPrice=Min(LowAfterShortEntry+(TrailingGrid+OffSet)*MinPoint,High);
tmpLots=Abs(MyRealMp*EveryLots);
BuyToCover(tmpLots,tmpPrice);
MyRealMp=0;
HighAfterLongEntry=0;
}
if (MyRealMp==0 And High-LowAfterShortEntry>=FirstGrid*MinPoint)
{tmpPrice=Min(LowAfterShortEntry+(FirstGrid+OffSet)*MinPoint,High);
tmpLots=EveryLots;
Buy(tmpLots,tmpPrice);
MyRealMp=1;
HighAfterLongEntry=High;
}Else
if (MyRealMp> 0 And MyRealMp <TotalGrids And High-LowAfterShortEntry>=(FirstGrid+MyRealMp*AddGrid)
*MinPoint)
{tmpPrice=Min(LowAfterShortEntry+(FirstGrid+MyRealMp*AddGrid+OffSet)*MinPoint,High);
tmpLots=EveryLots;
Buy(tmpLots,tmpPrice);
MyRealMp=MyRealMp+1;
}Else
if (MyRealMp==0 And HighAfterLongEntry-Low>=TrailingGrid*MinPoint )
{tmpPrice=Max(HighAfterLongEntry-(FirstGrid-OffSet)*MinPoint,Low);;
tmpLots=EveryLots;
SellShort(tmpLots,tmpPrice);
MyRealMp=-1;
LowAfterShortEntry=Low ;
}Else
if (MyRealMp< 0 And -1*MyRealMp <TotalGrids And HighAfterLongEntry-Low>=(FirstGrid+MyRealMp*AddGrid)
*MinPoint)
{tmpPrice=Max(HighAfterLongEntry-(FirstGrid-Abs(MyRealMp*AddGrid)-OffSet)*MinPoint,High);
tmpLots=EveryLots;
SellShort(tmpLots,tmpPrice);
MyRealMp=MyRealMp-1;
}}Else
If (Time>ExitOnCloseMins/100)
{If (MyRealMp>0)
{tmpLots=Abs(MyRealMp*EveryLots);
tmpPrice=Close;
Sell(tmpLots,tmpPrice);
MyRealMp=0;}
If(MyRealMp<0)
{tmpLots=Abs(MyRealMp*EveryLots);
tmpPrice=Close;
BuyToCover(tmpLots,tmpPrice);
MyRealMp=0;
}}
SetGlobalVar(0,MyRealMp);
SetGlobalVar(1,HighAfterLongEntry);
SetGlobalVar(2,LowAfterShortEntry);
Commentary('MyRealMp='+Text(MyRealMp));
Commentary('HighAfterLongEntry='+Text(HighAfterLongEntry));
Commentary('LowAfterShortEntry='+Text(LowAfterShortEntry));
End

----------------------------------------------------------------

注：请用下载工具下载为TXT记事本文件，请勿在浏览器中打开，代码将不完整！
更多指标公式及量化投资策略请访问 [ 西部汇市 ] 指标公式源码栏目。
使用可实战型指标及自动交易模型请联系微信:46416815