{主图源码}
ZBGS310:=MA(C,5);
HG10:=ATAN((ZBGS310-REF(ZBGS310,1)))*180/3.1416;
STICKLINE(HG10>1 AND ZBGS310>REF(ZBGS310,1), ZBGS310,REF(ZBGS310,1),2,0),COLORMAGENTA;
STICKLINE(HG10< 1 AND ZBGS310< REF(ZBGS310,1), ZBGS310,REF(ZBGS310,1),2,1),COLORGREEN;
X20:=MA(C,20);
HG20:=ATAN((X20-REF(X20,1)))*180/3.1416;
STICKLINE(HG20>1,X20,REF(X20,1),2,0),COLORYELLOW;
STICKLINE(HG20< 1,X20,REF(X20,1),2,1),COLORBBCCCC;
AF:=EMA((CLOSE+HIGH+LOW)/3,10);
BF:=IF (YEAR<=2017,IF(YEAR< 2017,REF(AF,1),IF(YEAR=2017 AND MONTH< 10,REF(AF,1),0)),0);
DIFF:= EMA(CLOSE,9) - EMA(CLOSE,26);
wwwZBGS3com:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
DEA:= EMA(DIFF,12);
MACD:= 2*(DIFF-DEA);
ZC:=50*(IF(MACD>REF(MACD,1) AND REF(MACD,1)>0 AND REF(MACD,2)>REF(MACD,1),0.2,0));
ZBGS3HG:= MACD.MACD>0 AND MACD>REF(MACD,1);
双龙戏珠:=BARSLASTCOUNT(HG10>1 AND ZBGS310>REF(ZBGS310,1) AND HG20>1)=1 ;
STICKLINE(双龙戏珠 AND ZBGS3HG AND C>O,O,C,3,0),COLORRED;
DRAWICON(双龙戏珠 AND ZBGS3HG AND C>O,L*1.002,13);
{副图源码}
ZBGS310:=MA(C,10);
HG10:=ATAN((ZBGS310-REF(ZBGS310,1)))*180/3.1416;
X20:=MA(C,20);
HG20:=ATAN((X20-REF(X20,1)))*180/3.1416;
DIFF:= EMA(CLOSE,9) - EMA(CLOSE,26);
DEA:= EMA(DIFF,12);
MACD:= 2*(DIFF-DEA);
ZBGS3HG:= MACD.MACD>0 AND MACD>REF(MACD,1);
双龙戏珠:=BARSLASTCOUNT(HG10>1 AND ZBGS310>REF(ZBGS310,1) AND HG20>1)=1 ;
STICKLINE(双龙戏珠 AND ZBGS3HG AND C>O,0,0.8,2,0),COLORYELLOW;
STICKLINE(双龙戏珠 AND ZBGS3HG AND C>O,0.8,2,2,1),COLORBBCCCC;
DRAWICON(双龙戏珠 AND ZBGS3HG AND C>O,0.8*1.002,25);
DRAWICON(双龙戏珠 AND ZBGS3HG AND C>O,1.8*1.002,13);
{选股源码}
ZBGS310:=MA(C,10);
HG10:=ATAN((ZBGS310-REF(ZBGS310,1)))*180/3.1416;
X20:=MA(C,20);
HG20:=ATAN((X20-REF(X20,1)))*180/3.1416;
DIFF:= EMA(CLOSE,9) - EMA(CLOSE,26);
DEA:= EMA(DIFF,12);
MACD:= 2*(DIFF-DEA);
ZBGS3HG:= MACD.MACD>0 AND MACD>REF(MACD,1);
QXS:=NOT(CODELIKE('4'));
QKC:=NOT(CODELIKE('688'));
QST:=IF(NAMELIKE('S'),0,1);
QXX:=IF(NAMELIKE('*'),0,1);
QBJ:=NOT(CODELIKE('8'));
ABCD:=QXS AND QST AND QKC AND QXX AND QBJ;
双龙戏珠:=BARSLASTCOUNT(HG10>1 AND ZBGS310>REF(ZBGS310,1) AND HG20>1)=1;
双龙戏珠 AND ZBGS3HG AND C>O AND ABCD;
