通达信黑马通道主副图全套公式源码

看到好多同学对黑码通道公式感兴趣就把他全部奉献给同学，省得东找西找，来自网络，我只是搬运工而已。
 

黑码通道主附图公式
 
先建引用
 1.SQWE
 VAR1:=(C+H+O+L)/4;
 SQWE:XMA(VAR1,32)*(1-100/1000);
 STICKLINE(C>0,0,10,15,0),COLOR781816;
 
2.AQWE
 VAR1:=(C+H+O+L)/4;
 AQWE:XMA(VAR1,20)*(1+80/1000);
 STICKLINE(C>0,0,10,15,0),COLOR781816;
 
黑码通道主图
 STICKLINE(CLOSE> REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORRED;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,3.1,0 ),COLOR000055;
 STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLOR000088;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,2.1,0 ),COLOR0000AA;
 STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLOR0000CC;
 STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLOR0000FF;
 STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLOR0000EE;
 
STICKLINE(CLOSE< REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLOR666600;
 STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,3.1,0 ),COLOR555500;
 STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLOR888800;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,2.1,0 ),COLORAAAA00;
 STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLORBBBB00;
 STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLORCCCC00;
 STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLOREEEE00;
 STICKLINE(CLOSE= REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORWHITE;
 
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,3.1,0 ),COLOR555555;
 STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLOR777777;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,2.1,0 ),COLOR999999;
 STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLORBBBBBB;
 STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLORDDDDDD;
 STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLORFFFFFF;
 
SS1:=1121010;
 SS3:=DATE<SS1;
 
AAA1:=(C-REF(C,1))/REF(C,1)>=0.058 AND (C-REF(C,1))/REF(C,1)<0.095 AND SS3;
 AA2:=(C-REF(C,1))/REF(C,1)>=0.098 AND SS3;
 STICKLINE(AAA1,O,C,0,1 ),COLOR9B37FF;
STICKLINE(AAA1,OPEN,CLOSE,3,0 ),COLOR6300C6;
 STICKLINE(AAA1,OPEN,CLOSE,2.7,0 ),COLOR6D00DB;
STICKLINE(AAA1,OPEN,CLOSE,2.1,0 ),COLOR7800F0;
 STICKLINE(AAA1,OPEN,CLOSE,1.5,0 ),COLOR8000FF;
 STICKLINE(AAA1,OPEN,CLOSE,0.9,0 ),COLOR8F20FF;
 STICKLINE(AAA1,OPEN,CLOSE,0.3,0 ),COLOR9B37FF;
 {DRAWTEXT(AAA1,L*0.96,'大阳'),COLOR9B37FF;}
 
STICKLINE(AA2,C,O,3,0 ),COLOR00AAFF;
 STICKLINE(AA2,C,O,2.1,0 ),COLOR00BBFF;
 STICKLINE(AA2,C,O,1.5,0 ),COLOR00CCFF;
 STICKLINE(AA2,C,O,1,0 ),COLOR00DDFF;
 STICKLINE(AA2,C,O,0.6,0 ),COLOR00EEFF;
 STICKLINE(AA2,C,O,0.2,0 ),COLOR00FFFF;
 {DRAWTEXT(AA2,L*0.98,'涨停'),COLOR00DDDD;
 DRAWICON( AA2,L*0.98,1);}
 
AA1:="AQWE.AQWE#DAY";
 BB1:="SQWE.SQWE#DAY";
 VAR1:=(C+H+O+L)/4;
 
SJXZ:=IF(DATE<1931128,1,0);
 DRAWTEXT_FIX(1=1,0.7,0,0,''),COLORWHITE;
 

通道上轨:AA1*SJXZ,COLORYELLOW,LINETHICK2;
 通道下轨:BB1*SJXZ,COLORRED,LINETHICK2;
 
风险:=100*(L-BB1)/BB1,NODRAW;
 幅度:=100*(AA1-BB1)/BB1,NODRAW;
 
STICKLINE(AA1>LOW AND AA1<HIGH,AA1,MAX(AA1,MAX(OPEN,CLOSE)),3,0),COLORYELLOW;
 STICKLINE(AA1>LOW AND AA1<HIGH,AA1,HIGH,0,0),COLORYELLOW;
 STICKLINE(AA1<LOW,OPEN,CLOSE,3,0),COLORYELLOW;
 STICKLINE(AA1<LOW,OPEN,CLOSE,1,0),COLORYELLOW;
 STICKLINE(AA1<LOW,HIGH,LOW,0,0),COLORYELLOW;
 STICKLINE(BB1>LOW AND BB1<HIGH,BB1,MIN(MIN(OPEN,CLOSE),BB1),3,0),COLORRED;
 STICKLINE(BB1>MIN(C,O) AND BB1<MAX(C,O),BB1,MIN(OPEN,CLOSE),3,0),COLORRED;
 STICKLINE(BB1>HIGH,OPEN,CLOSE,3,0),COLORRED;
 STICKLINE(BB1>HIGH,HIGH,LOW,0,0),COLORRED;
 
{VAR2:=LLV(LOW,10);
 VAR3:=HHV(HIGH,25);
 动能趋势线:=100*EMA((CLOSE-VAR2)/(VAR3-VAR2),4);
 DRAWTEXT(CROSS(动能趋势线,70)AND C>通道上轨,HIGH*1.02,'←卖出'),COLORYELLOW;}
 
{RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
 K:=SMA(RSV,3,1);
 D:=SMA(K,3,1);
 J:=3*K-2*D;
 X:=LLV(J,2)=LLV(J,8);
 DRAWTEXT(CROSS(J,REF(J+0.01,1)) AND X AND J<20 AND C<通道下轨,LOW,'↖买入'),COLORRED;}
 DRAWTEXT_FIX(1=1,0.7,0.05,0,''),COLORRED;
 DRAWTEXT_FIX(1=1,0.7,0.1,0,''),COLORWHITE;
 
H-MAX启动确认副图公式
 
参数： SS 2.00 200.00 12.00   LL 2.00 200.00 26.00   MM 2.00 200.00 200.00   SSS 2.00 200.00 9.00   LLL 2.00 200.00 34.00  
SJXZ:=IF(DATE<1981128,1,0);
 DRAWTEXT_FIX(1=1,0.7,0,0,''),COLORWHITE;
 
DIF:=EMA(CLOSE,SS)-EMA(CLOSE,LL);
 DEA:=EMA(DIF,MM);
 A:=(DIF-DEA)*2*SJXZ;
 黄金钻信号:IF(A<0,0,A*A),LINETHICK3,,COLORRED;
 
DIF1:=EMA(CLOSE,SSS)-EMA(CLOSE,LLL);
 DEA1:=EMA(DIF1,200);
 AA:=(DIF1-DEA1)*2*SJXZ;
 启动引导线:IF(A<0,0,AA*AA),LINETHICK2,COLOR0055FF;
 
MID:=MA(CLOSE,30);
 红码:=MID+2*STD(CLOSE,30),LINETHICK2,COLOR0055FF;
 XX:=EMA(C,5),LINETHICK2,COLORGREEN;
 DRAWICON(C>红码 AND C>=O ,黄金钻信号,26);