漂亮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;
