|
以下是通达信短线无敌主图指标源码（无源码的请下载附件导入）
{色带}
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;
83611821.jpg
|
