SHORT:=12;
LONG:=26;
MID:=9;
DIF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG);
DEA:EMA(DIF,MID);
MACD:(DIF-DEA)*2,COLORSTICK;
{底背离}
A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIF>REF(DIF,A

DRAWGBK(C>0, RGB(1,1,1),RGB(1,1,1),0,'0',0);
{MACD周金叉}
DFFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DAAA:=EMA(DFFF,9);
周DIF:="MACD.DIF#WEEK"(12,26,9),NODRAW;
周DEA:="MACD.DEA#WEEK"(12,26,9),NODRAW;
周金叉:=周DIF

DIF:EMA(CLOSE,12)-EMA(CLOSE,26),COLORFF00FF,NODRAW;
DEA:EMA(DIF,9),COLORCCC555,NODRAW;
MACD:(DIF-DEA)*2,NODRAW;
DIFT:=6*DIF-5*EMA(DIF,4);
DEAT:=EMA(DIFT,4);
MACDT:=(DIFT-DEAT)*2;
跟庄器:IF(DIFT>0 AND MACD>0,DIFT,0),C

SHORT:=24;
LONG:=152;
MID:=18;
DIF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG),NODRAW;
DEA:EMA(DIF,MID),NODRAW;
MACD:(DIF-DEA)*2,COLORSTICK;
{多周期统计}
当红:IF(BARSLAST(MACD<0),BARSLAST(MACD<0),0),NODRAW,COLORRED;
当绿:

本DIF:EMA(CLOSE,12)-EMA(CLOSE,26);
本DEA:EMA(本DIF,9);
MACD:(本DIF-本DEA)*2,COLORSTICK;
下DIF:EMA(CLOSE,3)-EMA(CLOSE,7);
下DEA:EMA(下DIF,3);

M5:MA(C,5);
M13:MA(C,13);
M50:MA(C,50);
M250:MA(C,250);
DRAWICON(CROSS(BACKSET(ISLASTBAR,5),0.5),M50,39);
DRAWTEXT(CROSS(BACKSET(ISLASTBAR,5),0.5),M50,' 5'),COLORWHITE;
DRAWICON(CROSS(BACKSET(ISLASTBAR,13),0.5),M50,39)

DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD:=2*(DIF-DEA);
NH:=DIF-DEA<0.01 AND DIF>=DEA;
JRDIF:=DIF>REF(DIF,1);
ZRDIF:=REF(DIF,1)<REF(DIF,2);
JRMACD:=MACD>REF(MACD,1)*3;
MACDNH:ZRDIF AND

DIFF:EMA(CLOSE,12)-EMA(CLOSE,27);
DEA:EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
STICKLINE(MACD>=0,MACD,0,4,1),COLORF00FF0;
STICKLINE(MACD<0,MACD,0,4,1),COLORWHITE;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,4,0 ),COLOR00A

DIF:EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:EMA(DIF,9);
MACD:(DIF-DEA)*2,COLORSTICK;
{底部信号}
BB值:=EMA(100*(C-LLV(LOW,34))/(HHV(H,34)-LLV(LOW,34)),3);
AAA:=EMA(CLOSE,12)-EMA(CLOSE,26);
DRAWTEXT(CROSS(BB值,9),0, '‘底部'),COL

DIF:(EMA(CLOSE,6)-EMA(CLOSE,13))*100;
DEA:EMA(DIF,5);
MACD:(DIF-DEA)*2,COLORSTICK;
DRAWICON(CROSS(DIF,DEA),DEA,1);
DRAWICON(CROSS(DEA,DIF),DEA,2);
IF(DIF<DEA,DIF,DRAWNULL),COLORGREEN;
DD:=C=HHV(C,180);
EE:=DEA

DIFF:(EMA(CLOSE,12)-EMA(CLOSE,26))/EMA(CLOSE,26)*2000;
DEA:EMA(DIFF,9);
MACD:2*(DIFF-DEA), COLORSTICK;
SH:=(EMA(H,7)+EMA(H,9)+EMA(H,11))/3;
SL:=(EMA(L,7)+EMA(L,9)+EMA(L,11))/3;
HH:=REF(HHV(SH,9),1);
LL:=REF(LLV(SL,9),1)

AJ1:=0.211916*C+0.192951*REF(C,1)+0.158082*REF(C,2)+0.122217*REF(C,3)+0.091137*REF(C,4)+0.066337
*REF(C,5)+0.047475*REF(C,6)+0.033564*REF(C,7)+0.023519*REF(C,8)+0.016373*REF(C,9)+0.011344
*REF(C,10)+0.007832*REF(C,11)+0.005395*REF(C,12)+0.0037

N:=12;
M:=9;
MTR:=EMA(EMA(EMA(CLOSE,N),N),9);{原为12 12 12}
DIF:(MTR-REF(MTR,1))/REF(MTR,1)*20000;
DEA:MA(DIF,M),COLOR0066FF ;
MACD:(DIF-DEA)*2,COLORSTICK;
{底部信号}
BB值:=EMA(100*(C-LLV(LOW,34))/(HHV(H,34)-LLV(LOW,34))

ZA1:=EMA(C,25);
ZA2:=EMA(ZA1,45);
ZB1:=EMA(C,65);
ZB2:EMA(ZB1,45),COLORYELLOW,LINETHICK2;
DIFF:=(ZA1+ZB2)/2;
DEA:=(ZA2+ZB1)/2;
IF(DIFF>=DEA,DIFF,DRAWNULL),LINETHICK2,COLORRED;
IF(DIFF<DEA,DIFF,DRAWNULL),LINE

CLEARPCT:(C/MA(C,15) -1) * 100;
CLEARPCTSUM: MA(IF(C>MA(C,5),SUM(CLEARPCT,50)/50,0),5),COLORRED;
CLEARPCTAVG:MA(IF(C>MA(C,5) ,0-MA(CLEARPCT,5),IF(CLEARPCT>0,CLEARPCT,0)),5),COLORGREEN;
CLEARTAKE:IF(C>MA(C,15),(CLEARPCT-SUM(CL

SHORT:=12,NODRAW;
LONG:=26,NODRAW;
MID:=9,NODRAW;
DIF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG);
DEA:EMA(DIF,MID);
MACD:(DIF-DEA)*2,COLORSTICK;
每股公积金:FINANCE(18),NODRAW,COLORYELLOW;
PE动:DYNAINFO(39),NODRAW,COLORCYAN;

DIFF:=WMA(CLOSE,12)-WMA(CLOSE,26);
DEA:=WMA(DIFF,9);
MACD:2*(DIFF-DEA),LINETHICK0;
Q:=2.5;
SZ:=MACD>REF(MACD,1);
STICKLINE(SZ,0,MACD*1*Q,1.0.05,0),COLOR8F8F5F;
XD:=MACD<REF(MACD,1);
STICKLINE(XD,0,MACD*1*Q,1

DIF:(EMA(CLOSE,12)-EMA(CLOSE,26))*100;
DEA:EMA(DIF,9);
MACD:(DIF-DEA)*2,COLORSTICK;
DRAWICON(CROSS(DIF,DEA),DEA,1);
DRAWICON(CROSS(DEA,DIF),DEA,2);
IF(DIF<DEA,DIF,DRAWNULL),COLORGREEN;
DD:=C=HHV(C,180);
EE:=DEA

{年月日}
DA:=YEAR AND MONTH AND DAY;
AA1:=STRCAT(CON2STR(YEAR,0),'年');
AA2:=STRCAT(CON2STR(MONTH,0),'月');
AA3:=STRCAT(CON2STR(DAY,0),'日');
AA4:=STRCAT('【',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF

{周MACD柱线}
MACD周:=MACD.MACD#WEEK,NODRAW;
STICKLINE(MACD周>=0,0,MACD周,4.2,0),COLOR0080FF;
STICKLINE(MACD周>=0 AND MACD周<REF(MACD周,WEEKDAY),0,MACD周,4.2,0),COLORLIBLUE;
STICKLINE(MACD周<0,0,MACD周,4.2,0),COLORLIBLUE;
STIC