主图源码
上界线:MA(LOW,20)*1.2;
下界线:MA(LOW,20)*1.1;
DRAWBAND(IF(CLOSE<上界线,上界线,下界线),RGB(0,128,0),IF(CLOSE<上界线,下界线,上界线),RGB(255,255,0));
X_1:=CLOSE>上界线 AND HIGH>REF(HIGH,1);
STICKLINE(X_1=1,HIGH*1,CLOSE*1,0.1,0),COLORMAGENTA;
STICKLINE(X_1=1,OPEN*1,LOW*1,0.1,0),COLORMAGENTA;
STICKLINE(X_1=1,OPEN*1,CLOSE*1,3,0),COLORMAGENTA;
STICKLINE(X_1=0,HIGH*1,CLOSE*1,0.1,0),COLORGREEN;
STICKLINE(X_1=0,OPEN*1,LOW*1,0.1,0),COLORGREEN;
STICKLINE(X_1=0,OPEN*1,CLOSE*1,3,0),COLORGREEN;
副图1
{广陵三少 共同富裕1号}
QST:=NOT(NAMELIKE('S') OR NAMELIKE('*S'));
QTP:=DYNAINFO(17)>0;
QKC:=IF(CODELIKE('68'),1,0)<1;
QXG:=BARSCOUNT(CLOSE)>120;
TSG:=IF(INBLOCK('退市整理股票'),0,1);
去ST:=QST AND QTP AND QKC AND QXG AND TSG>0;
A1:=REF(C,1);
A2:=((SMA((MAX((C-A1),0)),5,1))/(SMA(ABS((C-A1)),5,1)))*100;
A3:=SUM((MAX((MAX((H-L),ABS((H-A1)))),ABS((L-A1)))),13);
A4:=H-(REF(H,1));
A5:=(REF(L,1))-L;
A6:=SUM((IF(((A4>0) AND (A4>A5)),A4,0)),13);
A7:=SUM((IF(((A5>0) AND (A5>A4)),A5,0)),13);
A8:=(A6*100)/A3;
A9:=(A7*100)/A3;
A10:=MA(((ABS((A9-A8))/(A9+A8))*100),5);
A12:=(100*((HHV(H,10))-C))/((HHV(H,10))-(LLV(L,10)));
A13:=A2+A10-A12;
A14:=LLV(A13,1);
A15:=CROSS(A14,0);
DIFF:=(EMA(C,12)-EMA(C,26));
DEA:=EMA(DIFF,9);
MACDD:=2*(DIFF-DEA);
A16:=MACDD<0 AND MACDD>REF(MACDD,1);
A17:=LLV(L,13);
A18:=HHV(H,34);
A19:=EMA((C-A17)/(A18-A17)*100,4);
A20:=A19>REF(A19,1);
A21:=100*(C-LLV(L,5))/(HHV(C,5)-LLV(L,5));
A22:=CROSS(A21,10);
A23:=A2-LLV(A2,10);
A24:=(MA(A23,2)*3+A23*13)/15;
A25:=IF(A24>13,MA(A24,2),A24)/5;
A26:=CROSS(A25,1) AND (A25<5);
富裕1号:A15 AND A20 AND A16 AND A22 AND A26 AND 去ST>0,COLORYELLOW;
副图2
A1:="KD.K#DAY"(9,3,3);{上面日Ｋ}
A2:="KD.D#DAY"(9,3,3);{日Ｄ}
A3:="KD.K#WEEK"(9,3,3);{中间周Ｋ}
A4:="KD.D#WEEK"(9,3,3);{周Ｄ}
A5:="KD.K#MONTH"(9,3,3);{下面月Ｋ}
A6:="KD.D#MONTH"(9,3,3);{月Ｄ}
A7:="KDJ.J#WEEK"(9,3,3);{周Ｊ}
A8:="KD.K"(9,3,3);
A9:="KD.D"(9,3,3);
AA1:=(A1+A2)/2;
AA2:=AA1*3/120;
K:=A8*3/120;
D:=A9*3/120;
J:=A7*3/120;
STICKLINE( A1>A2,2 ,3 ,5 ,0 ),COLOR000020;
STICKLINE( A1<A2,2 ,3 ,5 ,0 ),COLOR002000;
STICKLINE( A3>A4,2 ,0.5 ,5 ,0 ),COLOR000020;
STICKLINE( A3<A4,2, 0.5 ,5 ,0 ),COLOR002000;
STICKLINE( A5>A6,-0.3 ,0.5 ,5 ,0 ),COLOR000020;
STICKLINE( A5<A6,-0.3 ,0.5 ,5 ,0 ),COLOR002000;
STICKLINE( C>0,0.75 ,0.75 ,5 ,0 ),COLORRED;
STICKLINE( C>0,2 ,2,10 ,0 ),COLORRED;
DRAWBAND(A3*3/120,RGB(50,00,50),A4*3/120,RGB(00,50,50));
DRAWTEXT(A3>=A4,J,'◎'),COLORYELLOW;
DRAWTEXT(A3<A4,J,'◎'),COLORGREEN;
STICKLINE(K>D,K,D,5,1),COLORRED;
STICKLINE(K<=D,K,D,5,1),COLORGREEN;
ZD2:="KDJ.J#DAY"(9,3,3);
DIF11:=(EMA(DCLOSE,12)-EMA(DCLOSE,26))/EMA(DCLOSE,26)*100;
DEA22:=EMA(DIF11,9);
准备飞:=(DIF11-DEA22)*100;
集结号:=50;
穿:=准备飞-REF(准备飞,1);
DIF1:=(EMA(DCLOSE,12)-EMA(DCLOSE,26))/EMA(DCLOSE,26)*100;
DEA1:=EMA(DIF1,9);
AAA1:=(DIF1-DEA1)*120;
买:=45;
入:=AAA1-REF(AAA1,1);
正大:=CROSS(入,买),NODRAW;
DIF:=(EMA(DCLOSE,10)-EMA(DCLOSE,72))/EMA(DCLOSE,72)*100;
DEA:=EMA(DIF,17);
AAA:=(DIF-DEA)*100;
牛股:=CROSS(AAA-REF(AAA,1),45),NODRAW;
正大牛股:=(正大 AND 牛股 AND C/REF(C,1)<1.05),NODRAW;
角线:=(ATAN((MA(C,5)/REF(MA(C,5),1)-1)*100)*180/3.14115926);
角线MA:=MA(角线,5);
ANA:=PLOYLINE(CROSS(角线,角线MA),角线MA);
ANB:=PLOYLINE(CROSS(角线MA,角线),角线MA);
角买:=CROSS(角线,角线MA) AND ((ANB>REF(ANB,1) AND ANB>ANA AND 角线MA<=0) OR ((角线MA<=-45 OR CROSS(角线MA,-45)) AND (ANB<-60 OR LLV("KDJ.J",3)<=-49) AND ANB>0));
角买点:=角买=1;
AA10:=MA(CLOSE,8);
BB10:=((ATAN((AA10 - REF(AA10,1))) * 3.1416) * 10);
均线３０:=MA(CLOSE,30);
均线８９:=MA(CLOSE,89);
均线:=MA(CLOSE,16);
天马:=((((((OPEN <= 均线) AND ((均线３０ - REF(均线３０,1)) > 0)) AND (CLOSE > 均线８９)) AND (BB10 > 1)) AND ((CLOSE / OPEN) > 1.04)));
AA:=IF(CLOSE/REF(CLOSE,1)>1.050 AND HIGH/CLOSE<1.010 AND IF(CLOSE>REF(CLOSE,1),88,0)>0, 91, 0);
SS:=MA((LOW+HIGH+CLOSE)/3,5)>REF(MA((LOW+HIGH+CLOSE)/3,5),1) AND REF(MA((LOW+HIGH+CLOSE)/3,5),1)<REF(MA((LOW+HIGH+CLOSE)/3,5),2);
SC:=L<HHV(MA((LOW+HIGH+CLOSE)/3,5),13) AND H>HHV(MA((LOW+HIGH+CLOSE)/3,5),13) AND C>REF(C,1) AND C>O;
MR:=SC AND COUNT(SS,2);
BB:=MR AND NOT(REF(MR,1));
股价必涨:=(AA OR BB OR 角买点 OR 天马)*1.5;
二十日换手率:=BETWEEN(SUM(HSCOL,20),10,200);
DFO:=(C-REF(C,1))/REF(C,1)*100<-5;
AAO:=BARSLAST(DFO);
突破:=CROSS(C,REF(O,AAO));
抄底:=(二十日换手率 AND 突破),NODRAW;
大牛:=(正大牛股 AND 股价必涨),NODRAW;
必涨:=(正大牛股 AND 抄底),,NODRAW;
大牛股:=(大牛 AND 必涨 AND 抄底),NODRAW;
STICKLINE(CROSS(穿,集结号) AND ZD2>=50 AND C<20 AND C/REF(C,1)<1.05,0,2.5,4,0),COLORRED;
STICKLINE(CROSS(穿,集结号) AND ZD2<50 AND C<20 AND C/REF(C,1)<1.05,0,0.5,4,0),COLORYELLOW;
DRAWTEXT(CROSS(穿,集结号) AND ZD2<50 AND C<20 AND C/REF(C,1)<1.05,0.5,'★★号'),COLORYELLOW;
DRAWTEXT(CROSS(穿,集结号) AND ZD2>=50 AND C<20 AND C/REF(C,1)<1.05,2,'★集结号'),COLORRED;
DRAWICON(必涨>0,1,24);
DRAWICON(大牛>0,3,25);
DRAWICON(大牛股>0,0,26);