大智慧一个顶低集结号副图源码

此公式用就下载.不必回复.也无解释.更别问为啥.是我利用它告别而去.谢谢你.请勿留勿劝.不说了离开这伤心事非之地
{J顶低集结}
DRAWGBKlast(c>0,strip(RGB(0,0,60),RGB(0,0,0),0));
80,DOTLINE;20,DOTLINE;
J9:EMA("KDJ.J"(9,3,3),5) ,COLOR0000FF,LINETHICK2;
J18:EMA("KDJ.J"(18,3,3),5) ,COLOR00FFFF,DOTLINE;
J27:EMA("KDJ.J"(27,3,3),5) ,COLOR00FF00,DOTLINE;
J36:EMA("KDJ.J"(36,3,3),5) ,COLOR0077FF,DOTLINE;
J45:EMA("KDJ.J"(45,3,3),5) ,COLOR00FFCC,LINETHICK2;
A级顶:=J9>80 AND J18>80 AND J27>80 AND J36>80 AND J45>80;
B级顶:=(J9>80 OR J18>80) AND (J27>80 OR J36>80 OR J45>80);
A级低:=J9<5 AND J18<5 AND J27<5 AND J36<5 AND J45<5;
B级低:=J9<10 AND J18<20 AND (J27<10 OR J36<10 OR J45<10);
IF(A级顶,90,100),COLOR0077FF,LINETHICK3,LAYER2;
IF(B级顶 ,80,100),COLOR00FF00,LINETHICK2,LAYER0;
IF(A级低,10,0),COLOR00FF00,LINETHICK2,LAYER0;
IF(B级低,20,0),COLORFF9900,LINETHICK2,LAYER2;
FILLRGN(IF(A级顶,90,100),90),ColorFF2200,LAYER5;;
FILLRGN(IF(B级顶,80,100),80),ColorFF9900,LAYER6;;
FILLRGN(100,80),Color000000,LAYER7;;
FILLRGN(10,20,10<20,RGB(0,40,60)),LAYER7;
FILLRGN(0,10,0<10,RGB(0,60,0)),LAYER7;
选股A:A级低,LINETHICK0;
{低部}
DIBU:= "KDJ.K"(9,3,3)<15 AND "KDJ.D"(9,3,3)<15 AND "KDJ.K"(18,3,3)<15 AND "KDJ.D"(18,3,3)<15
AND "KDJ.K"(27,3,3)<20 AND "KDJ.D"(27,3,3)<20 AND "KDJ.D"(36,3,3)<20 AND "KDJ.D"(54,3,3)<20;
STICKLINE(DIBU=1,30,20,1,0),COLORff00ff,LAYER5;
STICKLINE(DIBU=1,20,10,2,0),COLORYELLOW,LAYER5;
STICKLINE(DIBU=1,10,0,8,0),COLORff8000,LINETHICK2,LAYER5;
选股B:DIBU,LINETHICK0;

{大盘KDJ}
DRSV:=(INDEXC-LLV(INDEXL,27))/(HHV(INDEXH,27)-LLV(INDEXL,27))*100;
DK:=SMA(DRSV,3,1);
DD:=SMA(DK,3,1);
DJ:EMA((3*DK-2*DD),5),COLOR00FFFF;
PARTLINE(DJ,(DJ>REF(DJ,1))-1,rgb(0,255,0),1,rgb(255,0,0) ),POINTDOT,LINETHICK6,LAYER1;

{MACD}
DIF:EMA(CLOSE,12)-EMA(CLOSE,26),LINETHICK0;
DEA:=EMA(DIF,9);
VAR1:=HHV(DEA,53);
VAR2:=LLV(DEA,55);
VAR3:=DEA-(DIF-DEA);
UP:=IF(DIF>VAR1 AND DEA=VAR1,MAX(LLV(VAR1,10),VAR3),VAR1);
DN:=IF(DIF PARTLINE(105,DIF>UP,RGB(255,0,0)),LINETHICK5,LAYER4;
PARTLINE(104,DIF>UP,RGB(255,120,0)),LINETHICK5,LAYER5;
PARTLINE(103,DIF>UP,RGB(255,200,0)),LINETHICK5,LAYER6;
PARTLINE(-3,DIF PARTLINE(-4,DIF {KDJ周金叉死叉}
周K:"KDJ.K#WEEK"(9,2,5),COLOR0000FF,LINETHICK0,LAYER3;
周D:"KDJ.D#WEEK"(9,2,5),COLOR00FF00,LINETHICK0;
DRAWTEXT(CROSS(周K,周D),30,'J周金叉'),ALIGN1,color00FFFF,LINETHICK1;
DRAWTEXT(CROSS(周D,周K),70,'J周死叉'),ALIGN1,COLOR0077FF,LINETHICK1;
KDB:=BARSLAST(REF(CROSS(周K,周D),1));
KDDB:=REF(WMA(C,5),KDB+1)>WMA(C,5) AND REF(周K,KDB+1)<周K AND CROSS(周K,周D);
K底背:=IF(FILTER(KDDB>0,5),1,0);
DRAWTEXT(K底背=1,15,'J周底背'),COLOR