-- 作者:FJ6008
-- 发布时间:2014/12/25 12:01:53
--
源码:
hh:=hhv(h,0); hhh:=h; aa:=BARSLAST(h=hh[datacount]); ba:=datacount-aa; ja:=1; tm1:=999999; for i1=ba[datacount]+1 to datacount do begin k1:=(hh[datacount]-hhh[i1])/ja; if k1<tm1 then begin tm1:=k1; ts1:=ja; end; ja:=ja+1; end; A1:LINEVALUE(h=hh[datacount] and aa=0,h,BARPOS=datacount-aa[datacount]+ts1,h,0,0),colorgreen;
ll:=llv(l,0); lll:=l; a3:=BARSLAST(l=ll[datacount]); b3:=datacount-a3; j3:=1; tm3:=999999; for i3=b3[datacount]+1 to datacount do begin k3:=(lll[i3]-ll[datacount])/j3; if k3<tm3 then begin tm3:=k3; ts3:=j3; end; j3:=j3+1; end; B1:LINEVALUE(l=ll[datacount] and a3=0,l,BARPOS=datacount-a3[datacount]+ts3,l,0,0),color5454ff;
chb:hhv(abs(h-b1),a3)colorred,NODRAW; cha:hhv(abs(l-a1),aa)colorgreen,NODRAW;
DRAWICON(c<a1,a1,5); DRAWICON(c>b1,b1,4);
|
-- 作者:FJ6008
-- 发布时间:2014/12/25 12:05:33
--
//开多 IF cha=cha and chb>ref(chb,1) THEN BEGIN
BUY( HOLDING=0,1,market);//开多操作
END //平仓 IF chb=chb and cha<ref(cha,1) THEN BEGIN SELL( HOLDING>0,HOLDING,market);//平多
end
|
-- 作者:jinzhe
-- 发布时间:2014/12/25 13:40:15
--
enterlong: cha=cha and chb>ref(chb,1),TFILTER;
//平仓 exitlong: chb=chb and cha<ref(cha,1) ,tfilter;
序列模式下图表交易就这样写,但是很用新图表的功能无法使用
|