漂亮K线源码主图

艳桥歌所 发表于 2024-4-5 23:31:06

<div class="stock-fc-code-box"><div>以下是漂亮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; </div> </div>

页: [1]

创想财富's Archiver

漂亮K线源码主图