漂亮K线源码主图

DRAWGBK(CURRBARSCOUNT=1, RGB(110,108,108),RGB(88,30,0),0,'',0);
 DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
 DEA:=EMA(DIF,9);
 MACD:=(DIF-DEA)*2,COLORSTICK;
 VA1:=HHVBARS(H,BARSLAST(MACD<0)+1);
 VA2:=CROSS(BACKSET(CROSS(0,MACD),REF(VA1,1)+2),0.5);
 JQG:=DRAWLINE(VA2,H,REF(VA2,1),REF(H,1),1),COLORGREEN,DOTLINE;{在价格画线}
 NOTEXT前高A:DRAWLINE(VA2,H,ISLASTBAR,REF(H,BARSLAST(VA2)),1),COLORWHITE,DOTLINE;
 DRAWNUMBER(ISLASTBAR,NOTEXT前高A,NOTEXT前高A),COLORWHITE;
 VA3:=LLVBARS(L,BARSLAST(MACD>0)+1);
 VA4:=CROSS(BACKSET(CROSS(MACD,0),REF(VA3,1)+2),0.5);
 NOTEXT前低A:DRAWLINE(VA4,L,ISLASTBAR,REF(L,BARSLAST(VA4)),1),COLORWHITE,DOTLINE;
 DRAWNUMBER(ISLASTBAR,NOTEXT前低A,NOTEXT前低A),COLORWHITE;
 基准:=CONST(SUM(VA2,0));
 前高4:=基准-4=SUM(VA2,0) AND VA2,COLORWHITE,NODRAW;
 前高3:=基准-3=SUM(VA2,0) AND VA2,COLORWHITE,NODRAW;
 前高2:=基准-2=SUM(VA2,0) AND VA2,COLORWHITE,NODRAW;
 前高1:=基准-1=SUM(VA2,0) AND VA2,COLORYELLOW,NODRAW;
 前高:=基准=SUM(VA2,0) AND VA2,COLORCYAN,NODRAW;
 距离G1:=BARSLAST(前高1);
 距离G2:=BARSLAST(前高2);
 距离G3:=BARSLAST(前高3);
 距离G4:=BARSLAST(前高4);
 NOTEXTG1:DRAWLINE(前高1,H,前高 AND H>=REF(H,距离G1),H,0),COLORYELLOW;
 NOTEXTG2:DRAWLINE(前高1,H,前高 AND H<REF(H,距离G1),H,0),COLORGREEN;
 NOTEXTG3:DRAWLINE(前高2,H,前高1 AND H>=REF(H,距离G2),H,0),COLORYELLOW;
 NOTEXTG4:DRAWLINE(前高2,H,前高1 AND H<REF(H,距离G2),H,0),COLORGREEN;
 NOTEXTG5:DRAWLINE(前高3,H,前高2 AND H>=REF(H,距离G3),H,0),COLORYELLOW;
 NOTEXTG6:DRAWLINE(前高3,H,前高2 AND H<REF(H,距离G3),H,0),COLORGREEN;
 NOTEXTG7:DRAWLINE(前高4,H,前高3 AND H>=REF(H,距离G4),H,0),COLORYELLOW;
 NOTEXTG8:DRAWLINE(前高4,H,前高3 AND H<REF(H,距离G4),H,0),COLORGREEN;
 基准2:=CONST(SUM(VA4,0));
 前低:=基准2=SUM(VA4,0) AND VA4;
 前低1:=基准2-1=SUM(VA4,0) AND VA4;
 前低2:=基准2-2=SUM(VA4,0) AND VA4;
 前低3:=基准2-3=SUM(VA4,0) AND VA4;
 前低4:=基准2-4=SUM(VA4,0) AND VA4;
 距离D1:=BARSLAST(前低1);
 距离D2:=BARSLAST(前低2);
 距离D3:=BARSLAST(前低3);
 距离D4:=BARSLAST(前低4);
 NOTEXTD1:DRAWLINE(前低1,L,前低 AND L>=REF(L,距离D1),L,0),COLORYELLOW;
 NOTEXTD2:DRAWLINE(前低1,L,前低 AND L<REF(L,距离D1),L,0),COLORGREEN;
 NOTEXTD3:DRAWLINE(前低2,L,前低1 AND L>=REF(L,距离D2),L,0),COLORYELLOW;
 NOTEXTD4:DRAWLINE(前低2,L,前低1 AND L<REF(L,距离D2),L,0),COLORGREEN;
 NOTEXTD5:DRAWLINE(前低3,L,前低2 AND L>=REF(L,距离D3),L,0),COLORYELLOW;
 NOTEXTD6:DRAWLINE(前低3,L,前低2 AND L<REF(L,距离D3),L,0),COLORGREEN;
 NOTEXTD7:DRAWLINE(前低4,L,前低3 AND L>=REF(L,距离D4),L,0),COLORYELLOW;
 NOTEXTD8:DRAWLINE(前低4,L,前低3 AND L<REF(L,距离D4),L,0),COLORGREEN;
 ZT:=REF(C,1)*1.1-C<0.01 AND H=C;{涨停}
 DT:=IF((REF(C,1)-C)*100/REF(C,1)>=(10-0.01*100/REF(C,1)) AND L=C,1,0);{跌停};
 BA:STICKLINE(ZT,OPEN,CLOSE,0.1,0),COLORYELLOW;
 BC:STICKLINE(DT,OPEN,CLOSE,0.1,0),COLORLIGREEN;
 DA:=YEAR AND MONTH AND DAY;
 AAAA:=STRCAT(CON2STR(YEAR,0),'年');
 AAB:=STRCAT(CON2STR(MONTH,0),'月');
 AA33:=STRCAT(CON2STR(DAY,0),'日');
 AA4:=STRCAT('【',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五',IF(WEEKDAY=6,'六','日')))))));
AA2:=STRCAT(STRCAT(STRCAT(AAAA,AAB),STRCAT(AA33,AA4)),'】');
 SA:DRAWTEXT_FIX(DA,0,0,0,AA2),COLORGREEN;
 TTL:=SMA(V,10,1);
 LLH:=TTL*H/10;
 LLL:=TTL*L/10;
 LLC:=TTL*C/10;
 LLO:=REF(LLC,1);
 MAV5:=MA(LLC,5);
 STICKLINE(LLC>MAV5,LLH,LLL,1,0),COLORFF0000;
 STICKLINE(LLC>MAV5,LLC,LLO,3,1),COLORFF0000;
 STICKLINE(LLC<MAV5,LLC,LLO,3,0),COLORFFFF00;
 STICKLINE(LLC<MAV5,LLH,LLL,1,0),COLORFFFF00; 
STICKLINE(CROSS(LLC,MAV5),LLH,LLL,1,0),COLORRED;
 STICKLINE(CROSS(LLC,MAV5),LLC,LLO,3,1),COLORRED;
 STICKLINE(CROSS(MAV5,LLC),LLC,LLO,3,0),COLORYELLOW;
 STICKLINE(CROSS(MAV5,LLC),LLH,LLL,1,0),COLORYELLOW;
 X1:=EMA(LLC,3),COLORWHITE;
 X2:=EMA(LLC,5),COLORYELLOW;
 主线:EMA(X2,8),COLORGREEN;
 VBR1:EMA(LLC,3),COLORWHITE;
 VBR2:EMA(LLC,5),COLORYELLOW;
 STICKLINE(VBR1>VBR2,VBR2,VBR1,0.01,0),COLORRED;
 STICKLINE(VBR1<VBR2,VBR1,VBR2,0.01,0),COLORYELLOW;
 DRAWTEXT(CROSS(VBR2,VBR1),VBR1,'★止损'),COLORGREEN;
 DRAWTEXT(CROSS(VBR1,VBR2),VBR1,'★加仓'),COLORRED;
 MA5:MA(CLOSE,5);
 角度05:ATAN((MA5/REF(MA5,1)-1)*100)*180/3.1416,COLORMAGENTA,NODRAW;
 IF(角度05>=-10,MA5,DRAWNULL),COLORGREEN;
 AAA:=MAX(MA(C,5),MA(C,10));
 MABIAS:(C-MA5)/MA5*100,NODRAW;
 STICKLINE(AAA,C,O,1,0),COLORMAGENTA;
 MA200:MA(CLOSE,200),COLORLICYAN;
 箱顶:MA(REF(HHV(CLOSE,30),1),2),COLORYELLOW,LINETHICK3;
 箱底:MA(REF(LLV(CLOSE,30),1),2),COLORMAGENTA,LINETHICK3;
 STICKLINE(C/REF(C,1)>1.095,C,O,1,0),COLORYELLOW;
 量:=REF(CLOSE,REF(HHVBARS(VOL,21),0));
 M1:=MA(CLOSE,1);
 A:=(((VOL > (1 * REF(VOL,1))) AND ((((CLOSE / REF(CLOSE,1)) - 1) * 100) > 9.5)) AND (M1 >= 量));
 DRAWTEXT(A,(LOW * 0.93),'王');
 QZ:=CROSS(MA(CLOSE,5),MA(CLOSE,25));
 DRAWTEXT(QZ,LOW*0.99,'线穿')COLORYELLOW;
 QA:=CROSS(MA(V,5),MA(V,60));
 DRAWTEXT(QA,LOW*0.98,'量穿')COLORRED;
 KK0:=(HHV(H,5)*0.618+LLV(L,5)*0.382+SUM(H*VOL,5)/SUM(VOL,5))/2;
 K0:=SUM(V,5)=HHV(SUM(V,5),21);
 K01:=REF(KK0,BARSLAST(K0>0));
 量能平台:IF(K0=1,KK0,K01),COLORWHITE,POINTDOT,LINETHICK4;
 K2:= SUM(V,5)=HHV(SUM(V,5),55);
 K3:=REF(KK0,BARSLAST(K2>0));
 量能平台1:IF(K2=1,KK0,K3),COLORCYAN,POINTDOT,LINETHICK4;
 K4:= SUM(V,5)=HHV(SUM(V,5),144);
 K5:=REF(KK0,BARSLAST(K4>0));
 重量能平台:IF(K4=1,KK0,K5),COLORGREEN,POINTDOT,LINETHICK4;
 突破:CROSS(L,REF(量能平台,1)) OR CROSS(L,REF(重量能平台,1)),NODRAW;
M2:EMA(C,2);
 M19:EMA(C,19);
 DRAWTEXT(CROSS(M19,M2),L,'◎');
 P:=64;
 DRAWTEXT_FIX(ISLASTBAR,0.65,0.8,0,HYBLOCK),COLOR00FF00;
 DRAWTEXT_FIX(ISLASTBAR,0.75,0.8,0,DYBLOCK),COLOR00FFFF;
 DRAWTEXT_FIX(ISLASTBAR,0.65,0.9,0,GNBLOCK),COLORYELLOW;
 {以上为显示所属板块，地域，概念等}
 EE:=CURRBARSCOUNT<=P;
 高:=HHV(H,P);
 低:=LLV(L,P);
 相对:(C-低)/(高-低)*100,NODRAW,COLORFFFF00;
 区间:(高-低)/低*100,NODRAW,COLORWHITE;
 天:=CONST(高)COLORYELLOW;
 地:=CONST(低)COLOR00FF00;
 强:=CONST(高*3/4+低*1/4);
 中:=CONST(高*1/2+低*1/2);
 弱:=CONST(高*1/4+低*3/4);
 STICKLINE(EE,天,天,5,0),COLORYELLOW;
 STICKLINE(EE,地,地,5,0),COLOR00FF00;
 STICKLINE(EE,强,强,1,0),COLORFFFF00;
 STICKLINE(EE,中,中,5,0),COLORWHITE;
 STICKLINE(EE,弱,弱,1,0),COLOR0099FF;
 DT1:=H=天;
 DL:=L=地;
 高T:=BARSLAST(DT1)+1;
 低T:=BARSLAST(DL)+1;
 STICKLINE(EE AND DT,天,地,0,0),COLORRED;
 STICKLINE(EE AND DL,天,地,0,0),COLOR00FF00;
 间隔:ABS(高T-低T),COLOR00FF00,NODRAW;
 PT:=CONST(间隔);
 AB:=EMA(C,12);
 BB:=EMA(C,26);
 AO:=(AB-BB);
 XH:=EMA(AO,9);
 AC:=2*(AO-XH);
 KK:=IF(AC>0, 5,-5);
 STICKLINE(KK=5,H,L,0.2,0),COLORRED;
 STICKLINE(KK=5 AND C>=O,C,O,3,1),COLORRED;
 GET:ZIG(3,5),COLORAAAAAA,POINTDOT,LINETHICK4;
 PL5:=ZIG(3,5);
 EN1:=ZIG(3,5)>REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)<=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)<=REF(ZIG(3,5),3);
 EX1:=ZIG(3,5)<REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)>=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)>=REF(ZIG(3,5),3);
 PL10:=ZIG(3,13);
 EN2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)<=REF(ZIG(3,10),3);
 EX2:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)>=REF(ZIG(3,10),3);
 PL20:=ZIG(3,26);
 EN3:=ZIG(3,20)>REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)<=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)<=REF(ZIG(3,20),3);
 EX3:=ZIG(3,20)<REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)>=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)>=REF(ZIG(3,20),3);
 PL40:=ZIG(3,55);
 走强一:=BARSLAST(PL5<REF(PL5,1));
 走弱一:=BARSLAST(PL5>REF(PL5,1));
 走强二 :=BARSLAST(PL10<REF(PL10,1));
 走弱二:=BARSLAST(PL10>REF(PL10,1));
 走强三:=BARSLAST(PL20<REF(PL20,1));
 走弱三:=BARSLAST(PL20>REF(PL20,1));
 ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走强二 ),0);
 ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走强二 ),0);
 DTJZ5:=IF(PL10<REF(PL10,1),COUNT(EN1,走弱二),0);
 DTJD5:=IF(PL10<REF(PL10,1),COUNT(EX1,走弱二),0);
 ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走强三),0);
 ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走强三),0);
 DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,走弱三),0);
 DTJD10:=IF(PL20<REF(PL20,1),COUNT(EX2,走弱三),0);
 DRAWTEXT(EN1 AND DTJZ5=1,LOW*0.97,'(Ⅰ)'),COLORFFFF00;
 DRAWTEXT(EX1 AND DTJD5=2,HIGH*1.03,'(Ⅱ)'),COLORFFFF00;
 DRAWTEXT(EN2 AND ZTJZ5=1,LOW*0.97,'(Ⅲ)'),COLORFFFF00;
 DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJD5=1,HIGH*1.02,'⑴'),COLOR0000FF;
 DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=2,LOW*0.98,'⑵'),COLOR0000FF;
 DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJZ5=2,HIGH*1.02,'⑶'),COLOR0000FF;
 DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3,LOW*0.98,'⑷'),COLOR0000FF;
 DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,HIGH*1.02,'⑸'),COLOR0000FF;
 DRAWTEXT(EN2 AND DTJZ10=1,LOW*0.94,'【A】'),COLOR00FF00;
 DRAWTEXT(EX2 AND DTJD10=2,HIGH*1.05,'【B】'),COLOR00FF00;
 DRAWTEXT(EN3 AND ZTJZ10=1,LOW*0.94,'【C】'),COLOR00FF00;
 DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,HIGH*1.04,'①'),COLOR00FFFF;
 DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,LOW*0.96,'②'),COLOR00FFFF;
 DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND EX2,HIGH*1.04,'③'),COLOR00FFFF;
 DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=3,LOW*0.96,'④'),COLOR00FFFF;
 VAR1:=EMA(CLOSE,3);
 VAR2:=EMA(CLOSE,5);
 VAR3:=EMA(CLOSE,10);
 VAR4:=EMA(CLOSE,20);
 VAR5:=EMA(CLOSE,30);
 VAR6:=(VAR2+VAR3+VAR4+VAR5)/4;
 VAR7:=(VAR6-REF(VAR6,15))/REF(VAR6,15)*100;
 VAR8:=(VAR6-REF(VAR6,15))/REF(VAR6, 15)*100;
 VAR9:=EMA(VAR7,8);
 TIM:=IF(C,1,0);
 缩倍柱:=(VOL*1.95<=REF(VOL,1))*TIM;
 百日低量:=(VOL=LLV(VOL,100))*TIM;
 倍量柱:=(VOL>=1.95*REF(VOL,1))*TIM;
 四日前倍量柱:=(REF(VOL,3)>1.95*REF(VOL,4))*TIM;