通达信短线无敌主图指标源码

[复制链接]
查看27 | 回复0 | 2022-7-24 04:36:29 | 显示全部楼层 |阅读模式

{色带}
DRAWBAND(EXPMA(CLOSE,10),RGB(125,50,50),EXPMA(CLOSE,60),RGB(0,100,50));
 DRAWKLINE(H,O,L,C);

{金色涨停}
STICKLINE(C/REF(C,1)>1.095,C,O,2{金色涨停黄色芯宽度},0),COLORYELLOW;
 {蓝色跌停}
C2:=REF(C,1);
跌停:=IF((C2-C)*100/C2>=(10-0.01*100/C2),1,0);
 STICKLINE(跌停,OPEN,CLOSE,0.3,0),COLORFF0000;

{通道一}
MIDD:=MA(C,20);
 VART1:=POW((C-MIDD),2);
 VART2:=MA(VART1,20);
 VART3:=SQRT(VART2);
 UPPER:=MIDD+2*VART3;
 LOWER:=MIDD-2*VART3;

{色带边线}
操盘线:EXPMA(CLOSE,10),COLOR808080;
 DRAWNUMBER(ISLASTBAR,操盘线,操盘线),COLOR808080;
强弱分界线:EXPMA(CLOSE,60),COLOR808080;
 DRAWNUMBER(ISLASTBAR,强弱分界线,强弱分界线),COLOR808080;

{题材概念}
Z1:=STRCAT(DYBLOCK,' ');
 Z2:=STRCAT(Z1,HYBLOCK);
 Z3:=STRCAT(Z2,' ');
 Z4:=STRCAT(Z3,GNBLOCK);
 Z5:=STRCAT(Z4,' ');
 Z6:=STRCAT(Z5,FGBLOCK);
 DRAWTEXT_FIX(ISLASTBAR,0.01,0.012,0,STRCAT(Z6,ZHBLOCK)),COLOR00FFFF;

{主力吸货}
A3:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
 A4:=SMA(A3,3,1);
 A5:=SMA(A4,3,1);
 A6:=3*A4-2*A5;
 A7:=C-REF(C,1);
 A8:=100*EMA(EMA(A7,6),6)/EMA(EMA(ABS(A7),6),6);
买:=LLV(A8,2)=LLV(A8,7) AND COUNT(A8<0,2) AND CROSS(A8,MA(A8,2));
 DRAWTEXT(FILTER(买=1,5),LOW-0.06,'↖主力吸货'),COLORYELLOW;
 STICKLINE(买,OPEN,CLOSE,0.3,0),COLOR00FFFF;

{抄底逃顶}
Z:=MA(C,120);
 VAR3:=(MA(C,5)-Z)/Z;
 VAR4:=MA((CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100,3);
 D1:DRAWTEXT(CLOSE>Z AND REF(VAR4,1)<30 AND VAR4>REF(VAR4,1) AND REF(VAR4,1)<REF(VAR4,2) ,0.94*LOW ,'抄底'),COLOR00FFFF;
 D2:DRAWTEXT(REF(VAR4,1)<7 AND VAR4>REF(VAR4,1) AND REF(VAR4,1)<REF(VAR4,2) AND VAR3<-0.1,0.94*LOW ,'抄底'),COLOR00FFFF;
 D3:DRAWTEXT(CROSS(VAR4,5) AND VAR3<-0.3,0.94*LOW ,'抄底'),COLOR00FFFF;
 X:=MA(C,120);
 VAR5:=(MA(H,5)-X)/X;
 VAR6:=MA((CLOSE-LLV(LOW,10))/(HHV(HIGH,10)-LLV(LOW,10))*100,3);
 D41:DRAWTEXT(CROSS(95,VAR6) AND VAR5>0.3,H*1.02,'逃顶'),COLOR00FF00;
 D5:DRAWTEXT( CROSS(93,VAR6) AND HHV(H,30)/LLV(L,30)>1.1 AND REF(X,1)/X>0.997 ,H*1.02,'逃顶'),COLOR00FF00;
 D6:DRAWTEXT(CLOSE<X AND X<REF(X,1) AND REF(VAR6,1)>90 AND VAR6<REF(VAR6,1) AND REF(VAR6,1)>REF(VAR6,2) ,H*1.02,'逃顶'),COLOR00FF00;

{抄底双线}
抄底一:BOLL-2*STD(CLOSE,20),DOTLINE,COLORDB70DB;
 DRAWNUMBER(ISLASTBAR,抄底一,抄底一),COLORDB70DB;
抄底二:REF(LOWER,1),DOTLINE,LINETHICK1,COLORDB70DB;
 DRAWNUMBER(ISLASTBAR,抄底二,抄底二),COLORDB70DB;

{买点}
MID:=(3*CLOSE+LOW+OPEN+HIGH)/6;
买点: (20*MID+19*REF(MID,1)+18*REF(MID,2)+17*REF(MID,3)+16*REF(MID,4)+15*REF(MID,5)+14*REF(MID,6)+13*REF(MID,7)+12*REF(MID,8)+11*REF(MID,9)+10*REF(MID,10)+9*REF(MID,11)+8*REF(MID,12)+7*REF(MID,13)+6*REF(MID,14)+5*REF(MID,15)+4*REF(MID,16)+3*REF(MID,17)+2*REF(MID,18)+REF(MID,20))/210,COLOR00FFFF;
 DRAWNUMBER(ISLASTBAR,买点,买点),COLOR00FFFF;

{支撑位}
BDGD:=CROSS(0.8,H=HHV(H,6));
 GDSJ:=BARSLAST(BDGD)+1;
前高点:=REF(H,GDSJ);
 BDDD:=CROSS(0.8,L=LLV(L,6));
 DDSJ:=BARSLAST(BDDD)+1;
前低点:=REF(L,DDSJ);
支撑位:IF(DDSJ<=8,前低点,前低点),LINETHICK1,COLOR007FFF;
 DRAWNUMBER(ISLASTBAR,支撑位,支撑位),LINETHICK1,COLOR007FFF;

{止损位}
止损位:MA(买点,6),COLOR0000FF;
 DRAWNUMBER(ISLASTBAR,止损位,止损位),COLOR0000FF;

{压力位}
压力位:IF(GDSJ<=8,前高点,前高点),LINETHICK1,COLORFF7F00;
 DRAWNUMBER(ISLASTBAR,压力位,压力位),COLORFF7F00;

{卖出双线}
卖出一:BOLL+2*STD(CLOSE,20),DOTLINE,COLOR00FF00;
 DRAWNUMBER(ISLASTBAR,卖出一,卖出一),COLOR00FF00;
卖出二:REF(UPPER,1),DOTLINE,LINETHICK1,COLOR00FF00;
 DRAWNUMBER(ISLASTBAR,卖出二,卖出二),COLOR00FF00;

{拐点}
VARA:=4*SMA((CLOSE-LLV(LOW,4))/(HHV(HIGH,4)-LLV(LOW,4))*100,4,1)-
3*SMA(SMA((CLOSE-LLV(LOW,4))/(HHV(HIGH,4)-LLV(LOW,4))*100,4,1),3.2,1);
 VARB:=7;
 CC:=CROSS(VARA,VARB);
 DRAWTEXT(CC,L*0.97,'拐点'),COLOR00FFFF;

{操盘线上穿买点提示突破}
DRAWTEXT(CROSS(操盘线,买点),LOW-0.4,'突破'),COLORYELLOW;

{涨停后5天画线提示天数}
ZT:=C/REF(C,1)>1.095 AND C=H;
 ZTJ:=REF(C,BARSLAST(ZT));
 VARZT:=BARSLAST(C/REF(C,1)>1.095);
 ZTHX:=CURRBARSCOUNT<18 AND BARSLAST(ZT)<6 AND BARSLAST(ZT)>=1;
 STICKLINE(ZTHX ,ZTJ-ZTJ*0.001,ZTJ,3,0),COLORYELLOW;
 ZT1:DRAWTEXT(CURRBARSCOUNT<18 AND VARZT=1,ZTJ-ZTJ*0.03,'1'),COLOR00FFFF;
 ZT2:DRAWTEXT(CURRBARSCOUNT<18 AND VARZT=2,ZTJ-ZTJ*0.03,'2'),COLOR00FFFF;
 ZT3:DRAWTEXT(CURRBARSCOUNT<18 AND VARZT=3,ZTJ-ZTJ*0.03,'3'),COLOR00FFFF;
 ZT4:DRAWTEXT(CURRBARSCOUNT<18 AND VARZT=4,ZTJ-ZTJ*0.03,'4'),COLOR00FFFF;
 ZT5:DRAWTEXT(CURRBARSCOUNT<18 AND VARZT=5,ZTJ-ZTJ*0.03,'5'),COLOR00FFFF;

837100661.jpg

837100661.jpg

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则