|
以下是通达信多空通道源码（无源码的请下载附件导入）
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;
837100105.jpg
|
