【通达信源码分享】自用的薛斯通道指标源码
2022-07-07未知 编 辑：掌上指标
AA:=MA((2*CLOSE+HIGH+LOW)/4,5);
CC:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20);
DD:=DMA(CLOSE,CC);
通道A:=AA*N/100;
通道B:=AA*(200-N)/100;
通道C:=(1+M/100)*DD,COLOR6B8E23;
通道D:=(1-M/100)*DD;
DRAWBAND(通道C,RGB(100,149,237),通道D,RGB(0,100,0));
DRAWBAND(通道A,RGB( 238,130,238),通道B,RGB(0,100,0));
通道1:AA*N/100,LINETHICK2;
通道2:AA*(200-N)/100,LINETHICK2;
{STICKLINE(通道1-通道2>0,通道1,通道2,1,-1),COLORBLUE;}
通道3:(1+M/100)*DD,COLOR6B8E23,LINETHICK2;
通道4:(1-M/100)*DD,LINETHICK2;
{主趋势线:EMA(EMA(C,10),10),COLORBLUE,LINETHICK2;
B:=主趋势线<REF(主趋势线,1);
IF(B-1,主趋势线,DRAWNULL)COLORRED,LINETHICK2;}
主趋势线:EMA(EMA(C,10),10),COLORRED,LINETHICK2;
B:=主趋势线>REF(主趋势线,1);
{IF(B-1,主趋势线,DRAWNULL)COLORBLUE,LINETHICK2;
操盘线:EMA(EMA(C,5),5),COLORRED,LINETHICK2;
Y:=操盘线>REF(操盘线,1);
IF(Y-1,操盘线,DRAWNULL)COLORGREEN,LINETHICK2;}
ZF:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(DYBLOCK,' '),HYBLOCK),' '),GNBLOCK),' '),FGBLOCK);
DRAWTEXT_FIX(ISLASTBAR,0,0,0,ZF),COLORYELLOW;
DIF:=EMA(CLOSE,9)-EMA(CLOSE,21);
DEA:=EMA(DIF,5);
MACD:=(DIF-DEA)*2;
吸:XLPL.NOTEXT吸,NODRAW,COLORLIRED;
拉:XLPL.NOTEXT拉,NODRAW,COLORRED;
派:XLPL.NOTEXT派,NODRAW,COLORGREEN;
落:XLPL.NOTEXT落,NODRAW,COLORWHITE;
AAW:=IF(吸!=DRAWNULL,DIF,DRAWNULL),COLORLIRED,LINETHICK2;
BBW:=IF(拉!=DRAWNULL,DIF,DRAWNULL),COLORRED,LINETHICK2;
CCW:=IF(派!=DRAWNULL,DIF,DRAWNULL),COLORGREEN,LINETHICK2;
DDW:=IF(落!=DRAWNULL,DIF,DRAWNULL),COLORWHITE,LINETHICK2;
STICKLINE(AAW,LOW,HIGH,0,0),COLORLIRED;
STICKLINE(AAW,C,O,3,1),COLORLIRED;
STICKLINE(BBW,LOW,HIGH,0,0),COLORRED;
STICKLINE(BBW ,C,O,3,1),COLORRED;
STICKLINE(CCW,LOW,HIGH,0,0),COLORGREEN;
STICKLINE(CCW,C,O,3,1)COLORGREEN;
STICKLINE(DDW,LOW,HIGH,0,0),COLORWHITE;
STICKLINE(DDW,C,O,3,1),COLORWHITE;
DRAWTEXT("KDJ.J"-REF("KDJ.J",1)>30 AND C/REF(C,1)>1.043 AND "MACD.MACD">0
AND EXPMA(C,12)>EXPMA(C,50),L*0.995,'起爆'),COLORWHITE;
V1:=EMA(CLOSE,5);
V2:=EMA(EMA(CLOSE,90)*1.01,10);
DRAWTEXT(CROSS(V1,V2),V1+0.05,'牛起步'),COLOR00FF00;
VAR1:=LLV(LOW,21);
VAR2:=HHV(HIGH,21);
AK1:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 100),5);
AK:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 50),13);
AB:=CROSS(AK1,AK);
DRAWTEXT((AB = 1),(LOW * 0.99),'○牛窝'),COLORYELLOW;
AA1:=AMOUNT/V;
BB1:=L<AA1*0.9;
CC1:=(C-REF(C,1))/REF(C,1)*100>1.2;
DD1:=L<MA(C,5)*0.921;
EE1:=V<MA(V,5)*1.5;
老鼠仓:=BB1 AND CC1 AND DD1 AND EE1,LINETHICK0,COLOR0099FF;
DRAWTEXT(老鼠仓,L*0.99,'老鼠仓'),COLOR0099FF;
VAR3AA:=IF((CLOSE>REF(CLOSE,1)),88,0);
VAR4AA:=IF(((CLOSE)/(REF(CLOSE,1))>1.05) AND ((HIGH)/(CLOSE)<1.01) AND (VAR3AA>0),91,0);
DRAWTEXT(FILTER((VAR4AA>90),45),(LOW)*(0.93),'★大胆搏 '),COLOR00FFFF;
DRAWTEXT(FILTER((VAR4AA>90),35),(LOW)*(0.99000001),'★加仓 '),COLOR00FFFF;
A1AA:=9;
A2AA:=(REF(CLOSE,A1AA+1)<CLOSE);
DRAWTEXT(FILTER((A2AA>-0.5),84),(HIGH)*(1.05),'小心变盘'),COLORFFFFFF;
VAR6:=REF(C,1);
VAR7:=SMA(MAX(C-VAR6,0),6,1)/SMA(ABS(C-VAR6),6,1)*100;
DRAWTEXT(CROSS(82,VAR7),H*1.01,'逃顶'),COLORYELLOW;