macd牛马线彩k主图源码

FD:=(H-L)/3;{分段}
OPEN1:=O>FD*2+L;
 OPEN3:=O  OPEN2:=NOT(OPEN1 OR OPEN3);
 CLOSE1:=C>FD*2+L;
 CLOSE3:=C  CLOSE2:=NOT(CLOSE1 OR CLOSE3);
 DFZD:=CLOSE1 OR (OPEN3 AND CLOSE2);
 WQS1:=OPEN2 AND CLOSE2;
 KFZD:=NOT(DFZD OR WQS1);
 ZD:=(H+L)/2;
 QSXS:=ZD>REF(H,1);
 QSXX:=ZD  WQS2:=NOT(QSXS OR QSXX);
 S1:=DFZD AND QSXS ;
 S2:=KFZD AND QSXX ;
 S3:=DFZD AND QSXX;
 S4:=KFZD AND QSXS;
 S5:=DFZD AND WQS2;
 S6:=KFZD AND WQS2;
 S7:=WQS1 AND (QSXS OR QSXX OR WQS2);
 STICKLINE(S2 ,C ,O,3,0 ),COLORFF2020;
 STICKLINE(S1,C,O,3 ,0 ),COLOR2020FF;
 STICKLINE(S3,C,O,3,0),COLORYELLOW;
 STICKLINE(S4,C,O,3,0),COLORCYAN;
 STICKLINE(S5,C,O,3,0),COLORMAGENTA;
 STICKLINE(S6,C,O,3,0),COLORGREEN;
 STICKLINE(S7,C,O,3,0),COLORGRAY;
 STICKLINE(1,C,O,0,0),COLORWHITE;
 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,COLORRED;
马线:MA(牛线,6),COLORGREEN;
五日线:MA(CLOSE,5),POINTDOT,COLORLIBLUE;
超B:=L2_AMO(0,2)/10000.0;
大B:=L2_AMO(1,2)/10000.0;
中B:=L2_AMO(2,2)/10000.0;
小B:=L2_AMO(3,2)/10000.0;
超S:=L2_AMO(0,3)/10000.0;
大S:=L2_AMO(1,3)/10000.0;
中S:=L2_AMO(2,3)/10000.0;
小S:=L2_AMO(3,3)/10000.0;
 TESTSKIP(NOT(超B OR 大B OR 中B OR 小B OR 超S OR 大S OR 中S OR 小S)!=0);
大宗进:=(超B)+(大B),NODRAW;
大宗出:=(超S)+(大S),NODRAW;
非大宗进:=(中B)+(小B),NODRAW;
非大宗出:=(中S)+(小S),NODRAW;
 DAZHIV:=CONST(MAX(ABS(大宗进),MAX(ABS(大宗出),MAX(ABS(非大宗进),ABS(非大宗出))))),NODRAW;
 DRAWRECTREL(0,CONST(950-(ABS(大宗进)*250/DAZHIV)),30,970,IF(CONST(大宗进>0),RGB(255,0,0),RGB(23,125,255)));
 DRAWRECTREL(32,CONST(950-(ABS(大宗出)*250/DAZHIV)),62,970,IF(CONST(大宗出>0),RGB(23,125,255),RGB(255,0,0)));
 DRAWRECTREL(92,CONST(950-(ABS(非大宗进)*250/DAZHIV)),122,970,IF(CONST(非大宗进>0),RGB(255,0,0),RGB(23,125,255)));
 DRAWRECTREL(124,CONST(950-(ABS(非大宗出)*250/DAZHIV)),154,970,IF(CONST(非大宗出>0),RGB(23,125,255),RGB(255,0,0)));
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.015,1,0,'主力进出'),COLORMAGENTA;
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.107,1,0,'散户进出'),COLORCYAN;
 HH:=CONST(HHV(H,160));
 LL:=CONST(LLV(L,160));{160可改成你习惯锁定的日K线数}
HL1:=CONST(IF(CONST(REF(MA(C,10),10))>CONST((HH+LL)/2),0.76,0.04));
 HL2:=CONST(IF(CONST(REF(MA(C,10),10))>CONST((HH+LL)/2),0.80,0.08));
 HL3:=CONST(IF(CONST(REF(MA(C,10),10))>CONST((HH+LL)/2),0.84,0.12));
 HL4:=CONST(IF(CONST(REF(MA(C,10),10))>CONST((HH+LL)/2),0.88,0.16));
 HL5:=CONST(IF(CONST(REF(MA(C,10),10))>CONST((HH+LL)/2),0.92,0.20));
 HL6:=CONST(IF(CONST(REF(MA(C,10),10))>CONST((HH+LL)/2),0.96,0.24));
 DRAWTEXT_FIX(1,0.00,0,0,'所属行业：')COLOR0080FF;
 DRAWTEXT_FIX(1,0.07,0,0,HYBLOCK)COLOR0080FF;
 DRAWTEXT_FIX(1,0.14,0,0,'所属地区：')COLOR00FFFF;
 DRAWTEXT_FIX(1,0.21,0,0,DYBLOCK)COLOR00FFFF;
 DE:=CONST(LLV(L,90));
 JI:=CONST(HHV(H,90))-DE;
 DE_K:=DE+JI/3*2;
 JI_K:=JI/2;
 RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
 DE_A:=CONST(LLV(RSV,90));
 DD_A:=CONST(HHV(RSV,90))-DE_A;
 R:=(RSV-DE_A)/DD_A;
 RSV1:=R*JI_K+DE_K;
 DE_M:=DE+JI/3;
 JI_M:=JI/2;
 KDL:=CONST(LLV(EMA(C,26),90));
 KDH:=CONST(HHV(EMA(C,26),90))-KDL;
 R_K1:=(EMA(C,12)-KDL)/KDH;
 R_K2:=(EMA(C,26)-KDL)/KDH;
 DIF~:(R_K1-R_K2)*JI*1.5+DE_M,COLORB87333;
 DEA~:EMA(DIF~,9),COLORD8D8BF;
 macd~:=(DIF~-DEA~)*2+DE_M;
 STICKLINE(MACD~>=DE_M,MACD~,DE_M,0,0),COLORRED;
 D_1:=MACD~>H AND H>=DE_M AND DE_M>=L;
 D_2:=MACD~>H AND H>=L AND L>DE_M;
 D_3:=H>MACD~ AND MACD~>=L AND L>DE_M;
 D_4:=H>MACD~ AND MACD~>DE_M AND DE_M>=L;
 STICKLINE(D_1>0,H,DE_M,0,0),COLORYELLOW;
 STICKLINE(D_2,H,L,0,0),COLORYELLOW;
 STICKLINE(D_3,MACD~,L,0,0),COLORYELLOW;
 STICKLINE(D_4,MACD~,DE_M,0,0),COLORYELLOW;
 D_5:=MACD~  D_6:=MACD~  D_7:=L  D_8:=L  STICKLINE(MACD~  STICKLINE(D_5,DE_M,L,0,0),COLORYELLOW;
 STICKLINE(D_6,H,L,0,0),COLORYELLOW;
 STICKLINE(D_7,H,MACD~,0,0),COLORYELLOW;
 STICKLINE(D_8,DE_M,MACD~,0,0),COLORYELLOW;
中轴线:MA(CLOSE,60),POINTDOT,COLORYELLOW;