X1:=IF(MA(C,5)>MA(C,10),6.25,0);
X2:=IF(MA(C,10)>MA(C,30),6.25,0);
X3:=IF(MA(C,30)>MA(C,60),6.25,0);
X4:=IF(KDJ.J>KDJ.K,6.25,0);
X5:=IF(MACD.DIF>MACD.DEA ,6.25,0);
X6:=IF(MACD.MACD>0,6.25,0);
X7:=IF(V>MA(V,60),6.25,0);
X8:=IF(MA(V,5)>MA(V,10),6.25,0);
X9:=IF(MA(V,10)>MA(V,60),6.25,0);
X10:=IF(C/REF(C,1)>1.03,6.25,0);
LC:=REF(CLOSE,1);
RSI1:=(SMA(MAX(CLOSE-LC,0),6,1))/(SMA(ABS(CLOSE-LC),6,1))*100;
RSI2:=(SMA(MAX(CLOSE-LC,0),12,1))/(SMA(ABS(CLOSE-LC),12,1))*100;
X11:=IF(RSI1>RSI2,6.25,0);
RSV:=-(HHV(HIGH,10)-CLOSE)/(HHV(HIGH,10)-LLV(LOW,10))*100;
LWR1:=SMA(RSV,3,1);
LWR2:=SMA(LWR1,3,1);
X12:=IF(LWR1>LWR2,6.25,0);
BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
X13:=IF(C>BBI,6.25,0);
MTM:=CLOSE-REF(CLOSE,1);
MMS:=100*EMA(EMA(MTM,5),3)/EMA(EMA(ABS(MTM),5),3);
MMM:=100*EMA(EMA(MTM,13),8)/EMA(EMA(ABS(MTM),13),8);
X14:=IF(MMS>MMM,6.25,0);
WJ:=(H+L+C)/3;
V1:=IF(H=L,1,H-MAX(O,C));
V2:=IF(H=L,1,MAX(C,O)-WJ);
V3:=IF(H=L,1,MIN(O,C)-L);
V4:=IF(H=L,1,WJ-MIN(C,O));
V5:=VOL/IF(H=L,4,H-L);
V6:=(V1*V5);
V7:=(V2*V5);
V8:=(V3*V5);
V9:=(V4*V5);
买盘:=(V9+V8);
卖盘:=(V6+V7);
买卖差:=买盘-卖盘;
DDX:=买卖差;
DX:=MA(买卖差,5)*20;
DDX1:=SMA(DX,3,1);
DDX2:=SMA(DDX1,3,1);
X15:=IF(DDX1>DDX2,6.25,0);
TYP:=(H+L+C)/3;
CCI:=(TYP-MA(TYP,14))*1000/(15*AVEDEV(TYP,14));
X16:=IF(CCI>REF(CCI,1),6.25,0);
评分:=X1+X2+X3+X4+X5+X6+X7+X8+X9+X10+X11+X12+X13+X14+X15+X16;
DIF评分:=EMA(评分,12)-EMA(评分,26);
DEA评分:=EMA(DIF评分,9);
MACD评分:=2*(DIF评分-DEA评分);
DRAWTEXT_FIX(V>O,0.90,0.80,0,STRCAT('量化评分:',STRCAT(CON2STR(评分,2),' '))),COLORRED;
TIME1:=IF(DATE<=1241001,1,0);
M:=MACD评分;
JT:=BARSLAST(CROSS(M,0))*TIME1;
ST:=BARSLAST(CROSS(0,M))*TIME1;
Q1:=BACKSET(ST=0,2)*TIME1;
QT:=BARSLAST(CROSS(Q1=1,0.5))*TIME1;
QQT:=BACKSET(QT=0,JT+1)*TIME1;
QT2:=BARSLAST(CROSS(Q1=1,0.5))*TIME1;
HH:=HHV(H,JT+1)*TIME1;
LL:=LLV(L,JT+1)*TIME1;
XJH:=REFX(HH,BARSNEXT(QT2=0))*TIME1;
XJL:=REFX(LL,BARSNEXT(QT2=0))*TIME1;
SQ1:=BACKSET(JT=0,2)*TIME1;
SQT:=BARSLAST(CROSS(SQ1=1,0.5))*TIME1;
SQQT:=BACKSET(SQT=0,ST+1)*TIME1;
SQT2:=BARSLAST(CROSS(SQ1=1,0.5))*TIME1;
SHH:=HHV(H,ST+1)*TIME1;
SLL:=LLV(L,ST+1)*TIME1;
XSH:=REFX(SHH,BARSNEXT(SQT2=0))*TIME1;
XSL:=REFX(SLL,BARSNEXT(SQT2=0))*TIME1;
TJ1:=CONST(M)*TIME1>0 AND CURRBARSCOUNT=CONST(JT)+1;
TJ2:=CONST(M)*TIME1<0 AND CURRBARSCOUNT=CONST(ST)+1;
STICKLINE(QQT=1 AND M>0,XJH,XJH,4,-1)*TIME1,COLORMAGENTA;
STICKLINE(QQT=1 AND M>0,XJL,XJL,4,-1)*TIME1,COLORMAGENTA;
STICKLINE(JT=0,XJH,XJL,0,-1)*TIME1,COLORMAGENTA;
STICKLINE(QT2=0 AND ST>0,HH,LL,0,-1)*TIME1,COLORMAGENTA;
DRAWLINE(TJ1,CONST(HH),ISLASTBAR AND CONST(M)>0,HH,0)*TIME1,COLORMAGENTA,DOTLINE;
DRAWLINE(TJ1,CONST(LL),ISLASTBAR AND CONST(M)>0,LL,0)*TIME1,COLORMAGENTA,DOTLINE;
STICKLINE(CONST(M)>0 AND CURRBARSCOUNT=CONST(JT)+1,CONST(HH),CONST(LL),0,-1),COLORMAGENTA;
STICKLINE(CONST(M)>0 AND ISLASTBAR AND CONST(ST)>0,CONST(HH),CONST(LL),0,-1),COLORMAGENTA;
STICKLINE(SQQT=1 AND M<0,XSH,XSH,4,-1),COLORGREEN;
STICKLINE(SQQT=1 AND M<0,XSL,XSL,4,-1),COLORGREEN;
STICKLINE(ST=0,XSH,XSL,0,-1)*TIME1,COLORGREEN;
STICKLINE(SQT2=0,SHH,SLL,0,-1)*TIME1,COLORGREEN;
DRAWLINE(TJ2,CONST(SHH),ISLASTBAR AND CONST(M)<0,SHH,0)*TIME1,COLORGREEN,DOTLINE;
DRAWLINE(TJ2,CONST(SLL),ISLASTBAR AND CONST(M)<0,SLL,0)*TIME1,COLORGREEN,DOTLINE;
STICKLINE(CONST(M)<0 AND CURRBARSCOUNT=CONST(ST)+1,CONST(SHH),CONST(SLL),0,-1)*TIME1,COLORGREEN;
STICKLINE(CONST(M)<0 AND ISLASTBAR AND CONST(JT)>0,CONST(SHH),CONST(SLL),0,-1)*TIME1,COLORGREEN;
十五分V:=V#MIN15;
十五分均量线:=MA(V,5)#MIN15;
STICKLINE(十五分V>=REF(十五分均量线,1),1.9,1.8,2,0),COLORRED;
STICKLINE(十五分V<REF(十五分均量线,1),1.9,1.8,2,0),COLORGREEN;
DRAWTEXT(ISLASTBAR=1,1.85,'-十五分'),COLORYELLOW;
三十分V:=V#MIN30;
三十分均量线:=MA(V,5)#MIN30;
STICKLINE(三十分V>=REF(三十分均量线,1),1.75,1.65,2,0),COLORRED;
STICKLINE(三十分V<REF(三十分均量线,1),1.75,1.65,2,0),COLORGREEN;
DRAWTEXT(ISLASTBAR=1,1.7,'-三十分'),COLORYELLOW;
六十分V:=V#MIN60;
六十分均量线:=MA(V,5)#MIN60;
STICKLINE(六十分V>=REF(六十分均量线,1),1.6,1.5,2,0),COLORRED;
STICKLINE(六十分V<REF(六十分均量线,1),1.6,1.5,2,0),COLORGREEN;
DRAWTEXT(ISLASTBAR=1,1.55,'-六十分'),COLORYELLOW;
日V:=V#DAY;
五日均量线:=MA(V,5)#DAY;
STICKLINE(日V>=REF(五日均量线,1),1.45,1.35,2,0),COLORRED;
STICKLINE(日V<REF(五日均量线,1),1.45,1.35,2,0),COLORGREEN;
DRAWTEXT(ISLASTBAR=1,1.4,'--日'),COLORYELLOW;
周V:=V#WEEK;
五周均量线:=MA(V,5)#WEEK;
STICKLINE(周V>=REF(五周均量线,1),1.3,1.2,2,0),COLORRED;
STICKLINE(周V<REF(五周均量线,1),1.3,1.2,2,0),COLORGREEN;
DRAWTEXT(ISLASTBAR=1,1.25,'--周'),COLORYELLOW;
月V:=V#MONTH;
五月均量线:=MA(V,5)#MONTH;
STICKLINE(月V>=REF(五月均量线,1),1.15,1.05,2,0),COLORRED;
STICKLINE(月V<REF(五月均量线,1),1.15,1.05,2,0),COLORGREEN;
DRAWTEXT(ISLASTBAR=1,1.1,'--月'),COLORYELLOW;