以至于不得不对自己的“认知”反省一下,但我也不知道该怎么反省,还是把那个SBTL的当时的想法以所谓“开发”的过程写一写吧!也以此来"纪念"1.24这样的行情
最初写这个程序就是哪天在TB网校里听一个老师说到啥“三兵探路”,我就简单的理解为“红三兵”和“黑三兵”,顾名思义就是三个K线的组合。
于是回到技术分析的趋势定义上:
“连续三根阳线”代表多头趋势生成
“连续三根阴线”代表空头趋势生成
反映到对行情的理解上,上涨过程很可能会经历三个阳线,下跌过程也一样!
Vars
Numeric offs;
Begin
offs=MinMove*PriceScale;
IF (c[1]>o[1] and c[2]>o[2] and c[3]>o[3]) Buy(0,open+offs);
IF (c[1]<o[1] and c[2]<o[2] and c[3]<o[3]) SellShort(0,open-offs);
End 作者: 受伤的小鱼 时间: 2013-1-26 18:55:30
那经历4个,是不是能更有效的确认呢?5个,6个呢??
嘿嘿,交给计算机去"拟合"吧!
Params
Numeric NB(4);
Vars
Numeric offs;
Numeric i;
Numeric ls;
Numeric lsv(0);
Begin
offs=MinMove*PriceScale;
for i=1 to nb
{
IF (O[I]>c[I]) LS=-1;
if (O[I]==C[I]) LS==0;
IF (O[I]<C[I]) LS=1;
LSv=LSV+LS;
}
{
IF (LSV==0-nb) SellShort(0,OPEN-offs);
if (LSV==nb) Buy(0,OPEN+offs);
}
End 作者: 受伤的小鱼 时间: 2013-1-26 19:06:52
Begin
offs=MinMove*PriceScale;
avol=Average(vol,ATRLEN);
xvol=Average(avol,XTRLEN);
vtu=avol[1]/xvol[1]>1 and avol[2]>xvol[2];
for i=1 to nb
{
IF (O[I]>c[I]) LS=-1;
if (O[I]==C[I]) LS==0;
IF (O[I]<C[I]) LS=1;
LSv=LSV+LS;
}
IF (LSV==0-nb)
{
if (vtu) SellShort(0,OPEN-offs);
//if (vtu==false) Sell(0,open-offs);
}
if (LSV==nb)
{
if (vtu) Buy(0,OPEN+offs);
//IF (vtu==FALSE) BuyToCover(OPEN+OFFS);
}
plotnumric ("均量",avol[1]);
plotnumric("均量平滑",xvol[1]);
End
明天继续写止损控制!
加两条线吧!
然后给动手能力差的新同学提个醒!
公式编辑器菜单“文件”——“属性设置”——点选“子图显示”;作者: lanhai123 时间: 2013-3-7 07:21:56