注意：本文屬于八戒自編指標公式，源碼可以用于通達信軟件，第一部分源碼屬于主圖或副圖；第二部分屬于選股公式源碼（多個選股公式請分別使用）；第三部分屬于圖片示例。

注意2：防止源碼復(fù)制粘貼出錯，請先把源碼復(fù)制到WORD文檔排序，再從WORD文檔中復(fù)制源碼！

第一部分 【主圖公式】 手機/電腦

【量化評分系統(tǒng)】主圖編寫如下：

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;

第一部分 【成交量共振指標】幅圖 手機/電腦

《成交量共振》幅圖是共振指標，使用方法有3條：

1、看到6紅開始看多；

2、一路紅色一路多；

3、見到綠色就下車

【成交量共振模型】幅圖編寫如下：

十五分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;