通达信仿正大老师共同富裕副图源码

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);