通达信多空通道源码

DRAWTEXT_FIX(1,0.00,0.00,0,'【★★仓位控制的量化标准★★】'),COLORFF00FF;

DRAWTEXT_FIX(1,0.00,0.05,0,'【★★1、粉+红=满，2、粉+绿=6，3、蓝+红=4，4、蓝+绿=空★★】'),COLOR00FFFF;

AHC1:=CLOSE*VOL;

AHC2:=EMA((EXPMA(AHC1,3)/EXPMA(VOL,3)+EXPMA(AHC1,6)/EXPMA(VOL,6)+EXPMA(AHC1,12)/EXPMA(VOL,12)+EXPMA(AHC1,24)/EXPMA(VOL,24))/4,13),POINTDOT,COLORYELLOW;

AHC22:=EMA((EXPMA(AHC1,27)/EXPMA(VOL,27)+EXPMA(AHC1,54)/EXPMA(VOL,54)+EXPMA(AHC1,108)/EXPMA(VOL,108)+EXPMA(AHC1,216)/EXPMA(VOL,216))/4,11),POINTDOT,COLORWHITE;

天线1:AHC2*1.01;

天线3:AHC2*0.97;

NOTEXT天线01:IF(天线1>REF(天线1,1),天线1,DRAWNULL),COLORRED;

NOTEXT天线11:IF(天线1<REF(天线1,1),天线1,DRAWNULL),COLORGREEN;

NOTEXT天线03:IF(天线3>REF(天线3,1),天线3,DRAWNULL),COLORRED;

NOTEXT天线13:IF(天线3<REF(天线3,1),天线3,DRAWNULL),COLORGREEN;

STICKLINE(天线1>REF(天线1,1),天线1,天线3,0,0),COLORRED;

STICKLINE(天线1<REF(天线1,1),天线1,天线3,0,0),COLORGREEN;

空:=REF(C,1)>REF(天线3,1) AND C<天线3;

多:=REF(C,1)<REF(天线1,1) AND C>天线1;

空1:=TFILTER(多,空,2);

多1:=TFILTER(多,空,1);

DRAWTEXT(空1,天线1*1.04,'空'),COLORGREEN;

DRAWTEXT(多1,天线3*0.96,'多'),COLORRED;

DRAWICON(空1,天线1*1.02,2);

DRAWICON(多1,天线3*0.98,1);

天线12:=AHC22;

天线32:=AHC22*0.97;

NOTEXT天线012:IF(天线12>REF(天线12,1),天线12,DRAWNULL),COLORMAGENTA;

NOTEXT天线112:IF(天线12<REF(天线12,1),天线12,DRAWNULL),COLORBLUE;

NOTEXT天线032:IF(天线32>REF(天线32,1),天线32,DRAWNULL),COLORMAGENTA;

NOTEXT天线132:IF(天线32<REF(天线32,1),天线32,DRAWNULL),COLORBLUE;

STICKLINE(天线12>REF(天线12,1),天线12,天线32,0,0),COLORMAGENTA;

STICKLINE(天线12<REF(天线12,1),天线12,天线32,0,0),COLORBLUE;

DRAWKLINE(HIGH,OPEN,LOW,CLOSE);

A1:=C>REF(C,4);

NT:=BARSLASTCOUNT(A1);

TJ11:=NT=9;

TJ13:=ISLASTBAR AND BETWEEN(NT,5,8);

AY:=(BACKSET(TJ11>0,9) OR BACKSET(TJ13>0,NT))*NT;

DRAWTEXT(AY>0,H,VAR2STR(AY,0)),COLORFF00FF;

DRAWTEXT(NT=9,H,'S'),COLORGREEN;

DRAWTEXT(NT=9,MAX(H,REF(C,1)),'------阻力线-----'),COLORWHITE;

BF:=MAX(H,REF(C,1))+MAX(H-L,MAX(H-REF(C,1),REF(C,1)-L));

DRAWTEXT(NT=9,BF,'------纠错-----'),COLORWHITE;

B1:=C<REF(C,4);

NT0:=BARSLASTCOUNT(B1);

TJ21:=NT0=9 ;

TJ23:=ISLASTBAR AND BETWEEN(NT0,5,9);

AY1:=(BACKSET(TJ21>0,9) OR BACKSET(TJ23>0,NT0))*NT0;

DRAWTEXT(AY1>0,L,VAR2STR(AY1,0)),COLORFF00FF;

DRAWTEXT(NT0=9,L,'B'),COLORGREEN;

DRAWTEXT(NT0=9,MIN(L,REF(C,1)),'------支撑线-----'),COLORWHITE;

ZS:=MIN(L,REF(C,1))-MAX(H-L,MAX(H-REF(C,1),REF(C,1)-L));

DRAWTEXT(NT0=9,ZS,'------止损-----'),COLORWHITE;