|
以下是通达信我的主图均线源码附图（无源码的请下载附件导入）
我的主图均线源码：
DRAWGBK(C>0,RGB(20,10,80),RGB(10,1,5),1,0,1);
DRAWBAND(MA(CLOSE,250),RGB(0,50,0),MA(CLOSE,120),RGB(50,0,0));
DRAWKLINE(H,O,L,C);
{均线}
MA5:MA(CLOSE,5),COLORWHITE;
MA10:MA(CLOSE,10),COLORYELLOW;
MA20:MA(CLOSE,20),COLORMAGENTA;
MA30:MA(CLOSE,30),LINETHICK2,COLORGREEN;
MA60:MA(CLOSE,60),COLORBLUE;
MA120:MA(CLOSE,120),COLORGRAY;
MA250:MA(CLOSE,250),COLORRED;
牛熊线:MA(COST(90),10),COLOR8000FF,DOTLINE;
人气:DYNAINFO(50),NODRAW;
{黑马摇篮}
VAR5:=EMA(CLOSE,2)-EMA(CLOSE,150);
VAR6:=EMA(VAR5,100);
VAR7:=2*(VAR5-VAR6);
VAR8:=POW(VAR7,3)*0.1+POW(VAR7,1);
黑马线:IF(VAR7>0.1,VAR8,0)*5,NODRAW,COLORBROWN;
{涨停}
STICKLINE(C>REF(C,1)*1.098,O,C,3,0),COLORRED;
STICKLINE(黑马线>100,O,C,0,0),COLORYELLOW;
CO:=(C-O);
VAR1F1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);
VARDF1:=(CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2));
VAREF1:=(REF(VARDF1,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VARFF1:=(REF(VAREF1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
VAR10F1:=(REF(VARFF1,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VAR11F1:=(REF(VAR10F1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
VAR12F1:=(REF(VAR11F1,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VAR13F1:=(REF(VAR12F1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
VAR14F1:=(REF(VAR13F1,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VAR15F1:=(REF(VAR14F1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
VAR16F1:=(REF(VAR15F1,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VAR17F1:=(REF(VAR16F1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
VAR18F1:=(REF(VAR17F1,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
短买2:=((REF(VARDF1 OR VAREF1 OR VARFF1 OR VAR10F1 OR VAR11F1 OR VAR12F1 OR VAR13F1 OR VAR14F1 OR VAR15F1 OR VAR16F1 OR VAR17F1 OR VAR18F1,1)) AND VAR1F1);
STICKLINE(短买2,O,O+CO/3,2.8,0),COLOR335555;
STICKLINE(短买2,O,O+CO/3,2,0),COLOR338888;
STICKLINE(短买2,O,O+CO/3,1.5,0),COLOR33AAAA;
STICKLINE(短买2,O,O+CO/3,1,0),COLOR33CCCC;
STICKLINE(短买2,O,O+CO/3,0,0),COLOR33EEEE;
STICKLINE(短买2,L,O+CO/3,0,0),COLOR33EEEE;
{准备买入}
LC:=REF(CLOSE,1);
RSI5:=((SMA(MAX((CLOSE - LC),0),5,1) / SMA(ABS((CLOSE - LC)),5,1)) * 100);
TR1:=SUM(MAX(MAX((HIGH - LOW),ABS((HIGH - REF(CLOSE,1)))),ABS((LOW - REF(CLOSE,1)))),10);
HD:=(HIGH - REF(HIGH,1));
LD:=(REF(LOW,1) - LOW);
DMP:=SUM(IF(((HD > 0) AND (HD > LD)),HD,0),10);
DMM:=SUM(IF(((LD > 0) AND (LD > HD)),LD,0),10);
PDI:=((DMP * 100) / TR1);
MDI:=((DMM * 100) / TR1);
ADX:=MA(((ABS((MDI - PDI)) / (MDI + PDI)) * 100),5);
AV:=(RSI5 + ADX);
WR10:=((100 * (HHV(HIGH,10) - CLOSE)) / (HHV(HIGH,10) - LLV(LOW,10)));
NEWVOL:=(RSI5 - WR10);
赚钱:=(AV + NEWVOL);
STICKLINE(赚钱<5,H,L,0,0),COLOR008000;{买点预警}
STICKLINE(赚钱<5,O,C,3,0),COLOR008000;
STICKLINE(CROSS("MACD脉冲.脉冲",0.4),H,L,0,0),COLORBLUE;
STICKLINE(CROSS("MACD脉冲.脉冲",0.4),O,C,3,0),COLORBLUE;
STICKLINE("MACD脉冲.脉冲">0.4,H,L,0,0),COLORBLUE;
STICKLINE("MACD脉冲.脉冲">0.4,O,C,3,0),COLORBLUE;
趋界:=100*(LOW/MA(C,10))-100 ;
L抄底:=(LOW-DMA((3*HIGH+LOW+OPEN+2*LOW)/7,VOL/(SUM(AMOUNT,10)/(AMOUNT/VOL/7)/7)))/DMA((3*HIGH+LOW+OPEN+2*LOW)/7,VOL/(SUM(AMOUNT,10)/(AMOUNT/VOL/7)/7))*100;
H抄底:=(H-DMA(((3*HIGH+LOW+OPEN+2*H)/7),VOL/(SUM(AMOUNT,10)/(AMOUNT/VOL/7)/7)))/DMA(((3*HIGH+LOW+OPEN+2*H)/7),VOL/(SUM(AMOUNT,10)/(AMOUNT/VOL/7)/7))*100;
C抄底:=(CLOSE-DMA(((3*HIGH+LOW+OPEN+2*CLOSE)/7),VOL/(SUM(AMOUNT,10)/(AMOUNT/VOL/7)/7)))/DMA(((3*HIGH+LOW+OPEN+2*CLOSE)/7),VOL/(SUM(AMOUNT,10)/(AMOUNT/VOL/7)/7))*100;
抄底:=(L抄底+H抄底+C抄底)/3;
L短线:=IF(((MA(((SMA(MAX(L-REF(L,1),0),5,1)/SMA(ABS(L-REF(L,1)),5,1)*100)-LLV((SMA(MAX(L-REF(L,1),0),5,1)/SMA(ABS(L-REF(L,1)),5,1)*100),10)),2)*3+((SMA(MAX(L-REF(L,1),0),5,1)/SMA(ABS(L-REF(L,1)),5,1)*100)-LLV((SMA(MAX(L-REF(L,1),0),5,1)/SMA(ABS(L-REF(L,1)),5,1)*100),10))*13)/16)>13,MA(((MA(((SMA(MAX(L-REF(L,1),0),5,1)/SMA(ABS(L-REF(L,1)),5,1)*100)-LLV((SMA(MAX(L-REF(L,1),0),5,1)/SMA(ABS(L-REF(L,1)),5,1)*100),10)),2)*3+((SMA(MAX(L-REF(L,1),0),5,1)/SMA(ABS(L-REF(L,1)),5,1)*100)-LLV((SMA(MAX(L-REF(L,1),0),5,1)/SMA(ABS(L-REF(L,1)),5,1)*100),10))*13)/16),2),((MA(((SMA(MAX(L-REF(L,1),0),5,1)/SMA(ABS(L-REF(L,1)),5,1)*100)-LLV((SMA(MAX(L-REF(L,1),0),5,1)/SMA(ABS(L-REF(L,1)),5,1)*100),10)),2)*3+((SMA(MAX(L-REF(L,1),0),5,1)/SMA(ABS(L-REF(L,1)),5,1)*100)-LLV((SMA(MAX(L-REF(L,1),0),5,1)/SMA(ABS(L-REF(L,1)),5,1)*100),10))*13)/16));
H短线:=IF(((MA(((SMA(MAX(H-REF(H,1),0),5,1)/SMA(ABS(H-REF(H,1)),5,1)*100)-LLV((SMA(MAX(H-REF(H,1),0),5,1)/SMA(ABS(H-REF(H,1)),5,1)*100),10)),2)*3+((SMA(MAX(H-REF(H,1),0),5,1)/SMA(ABS(H-REF(H,1)),5,1)*100)-LLV((SMA(MAX(H-REF(H,1),0),5,1)/SMA(ABS(H-REF(H,1)),5,1)*100),10))*13)/16)>13,MA(((MA(((SMA(MAX(H-REF(H,1),0),5,1)/SMA(ABS(H-REF(H,1)),5,1)*100)-LLV((SMA(MAX(H-REF(H,1),0),5,1)/SMA(ABS(H-REF(H,1)),5,1)*100),10)),2)*3+((SMA(MAX(H-REF(H,1),0),5,1)/SMA(ABS(H-REF(H,1)),5,1)*100)-LLV((SMA(MAX(H-REF(H,1),0),5,1)/SMA(ABS(H-REF(H,1)),5,1)*100),10))*13)/16),2),((MA(((SMA(MAX(H-REF(H,1),0),5,1)/SMA(ABS(H-REF(H,1)),5,1)*100)-LLV((SMA(MAX(H-REF(H,1),0),5,1)/SMA(ABS(H-REF(H,1)),5,1)*100),10)),2)*3+((SMA(MAX(H-REF(H,1),0),5,1)/SMA(ABS(H-REF(H,1)),5,1)*100)-LLV((SMA(MAX(H-REF(H,1),0),5,1)/SMA(ABS(H-REF(H,1)),5,1)*100),10))*13)/16));
C短线:=IF(((MA(((SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100)-LLV((SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100),10)),2)*3+((SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100)-LLV((SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100),10))*13)/16)>13,MA(((MA(((SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100)-LLV((SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100),10)),2)*3+((SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100)-LLV((SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100),10))*13)/16),2),((MA(((SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100)-LLV((SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100),10)),2)*3+((SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100)-LLV((SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100),10))*13)/16));
短线:=(L短线+H短线+C短线)/3 ;
短买:=(L-REF(C,10))-MA((L-REF(C,10)),5) ;
J:= 3*SMA(((C-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100),3,1)-2*SMA(SMA(((C-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100),3,1),3,1) ;
LJ:=3*SMA(((L-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100),3,1)-2*SMA(SMA(((L-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100),3,1),3,1) ;
CD:=短买<0 AND 抄底<=-2 AND LJ<2 AND ((L短线=0 AND L抄底<=-2 ) AND (H短线<0.5 AND H抄底<=-1)) AND (100*(L-LLV(L,3))/(HHV(L,3)-LLV(L,3))=0 AND 100*(L-LLV(L,5))/(HHV(L,5)-LLV(L,5))=0 );
DD:=短线<4.2 AND (L短线<1 OR H短线<1 OR C短线<1) AND L短线<2 AND 抄底<-0.9 AND L抄底<-1.99 AND H抄底<7.2 AND 趋界<-1.5 AND J<45;
可以抄底:=DD AND CD;
STICKLINE(可以抄底,H,L,0,0),COLORYELLOW;
STICKLINE(可以抄底,O,C,2,0),COLORYELLOW;
VAR1T:=4*SMA((CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*100,5,1)-3*SMA(SMA((CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*100,5,1),3.2,1);
VAR1F:=SMA(CROSS(赚钱,0),3,1);
VAR2F:=SMA(VAR1F,3,1);
VAR3F:=SMA(VAR2F,3,1);
DRAWICON(CROSS(赚钱,0) OR CROSS(VAR1T,8),L,1);
DRAWICON(CROSS(VAR2F,VAR3F) AND (VAR2F<40),L,41);
{角买}
MTM:=C-REF(C,1);
DXD:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
买:=LLV(DXD,2)=LLV(DXD,7) AND COUNT(DXD<0,2) AND CROSS(DXD,MA(DXD,2));
STICKLINE(FILTER(买=1,5),H,L,0,0),COLORMAGENTA;
STICKLINE(FILTER(买=1,5),C,O,2.5,0),COLORMAGENTA;
{白柱子买点}
HLCO:=(C+H+L+O)/4;
MAHC:=MA((CLOSE*2+H)/3,5),COLOR0000FF;
MAHO:=MA((O*2+H)/3,5),COLOR00FF00;
MALO:=MA((O+L*2)/3,5),COLOR00FFFF;
CO1:=O+(C-O)/2;
STICKLINE(MAHC<MAHO AND (CROSS(C,MALO) OR CROSS(HLCO,MALO)),CO1,MIN(C,O),1.5,0),COLORWHITE;
{暴涨}
ZF:=(C/REF(C,1)-1)*100;
AAAB:=SUM(ZF,3);
DRAWICON(COUNT(AAAB<-6,3)=2 AND CROSS(AAAB,-6),L-0.1,11);
{涨10%}
VAR01:=((((OPEN + LOW) + HIGH) + CLOSE) / 4);
短底:=EMA(VAR01,5);
上1:=(HHV(短底,60) * 0.92);
阻挡线:=(SMA(LOW,21,2) * 0.96);
DRAWTEXT(FILTER((((((LOW <= 阻挡线) AND ((MA(C,20) - REF(MA(C,20),1)) > 0)) AND (OPEN <= 上1)) AND (HIGH > 上1))
AND (CLOSE > 阻挡线)),5),LOW,'涨10%'),COLORRED;
{主图显示}
所属板块:=STRCAT('所属板块: ',STRCAT(STRCAT(' [地域] - ',DYBLOCK),STRCAT(' [概念] - ',GNBLOCK)));
DRAWTEXT_FIX(ISLASTBAR,0.005,0.06,0,所属板块),COLORYELLOW;
{DRAWTEXT_FIX(1,0.005,0.13,0,'MACD 零 上 死 叉 期 间 阳 线 抛 , MACD 零 上 金 叉 期 间 阴 线 买') COLORMAGENTA;
DRAWTEXT_FIX(1,0.005,0.2,0,'下 降 趋 势 中 不 要 相 信 均 线 有 支 撑 , 跌 破 30 均线 离 场 就 对 了') COLORCYAN;};
855266147.jpg
|
