这28个公式是一个朋友给的 感觉需要改进的地方挺多 大家都看看 多提意见
{1. 均线系统}
MA1:MA(CLOSE,5);
MA2:MA(CLOSE,10);
MA3:MA(CLOSE,20);
MA4:MA(CLOSE,60);
MA5:MA(CLOSE,120);
MA6:MA(CLOSE,250);
{2. MACD}
DIF:EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:EMA(DIF,9);
MACD:(DIF-DEA)*2,COLORSTICK;
{3. KDJ}
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,3,1);
D:SMA(K,3,1);
J:3*K-2*D;
{4. RSI}
RSI1: SMA(MAX(CLOSE-REF(CLOSE,1),0),6,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),6,1)*100;
RSI2: SMA(MAX(CLOSE-REF(CLOSE,1),0),12,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),12,1)*100;
RSI3: SMA(MAX(CLOSE-REF(CLOSE,1),0),24,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),24,1)*100;
{5. BOLL}
MID:MA(CLOSE,20);
UPPER:MID+2*STD(CLOSE,20);
LOWER:MID-2*STD(CLOSE,20);
{6. CCI}
TYP:=(HIGH+LOW+CLOSE)/3;
CCI:(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
{7. WR}
WR1:100*(HHV(HIGH,10)-CLOSE)/(HHV(HIGH,10)-LLV(LOW,10));
WR2:100*(HHV(HIGH,6)-CLOSE)/(HHV(HIGH,6)-LLV(LOW,6));
{8. DMI}
MTR:=EXPMEMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);
HD:=HIGH-REF(HIGH,1);
LD:=REF(LOW,1)-LOW;
DMP:=EXPMEMA(IF(HD>0 AND HD>LD,HD,0),14);
DMM:=EXPMEMA(IF(LD>0 AND LD>HD,LD,0),14);
PDI:DMP*100/MTR;
MDI:DMM*100/MTR;
ADX:EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,6);
ADXR:EXPMEMA(ADX,6);
{9. OBV}
VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);
OBV:SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0);
{10. VR}
TH:=SUM(IF(CLOSE>REF(CLOSE,1),VOL,0),26);
TL:=SUM(IF(CLOSE<REF(CLOSE,1),VOL,0),26);
TQ:=SUM(IF(CLOSE=REF(CLOSE,1),VOL,0),26);
VR:100*(TH*2+TQ)/(TL*2+TQ);
{11. CR}
MID1:=(HIGH+LOW+CLOSE)/3;
CR:SUM(MAX(0,HIGH-REF(MID1,1)),26)/SUM(MAX(0,REF(MID1,1)-LOW),26)*100;
MA1:MA(CR,5);
MA2:MA(CR,10);
MA3:MA(CR,20);
MA4:MA(CR,40);
{12. PSY}
PSY:COUNT(CLOSE>REF(CLOSE,1),12)/12*100;
PSYMA:MA(PSY,6);
{13. BIAS}
BIAS1:(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
BIAS2:(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100;
BIAS3:(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
{14. ASI}
LC:=REF(CLOSE,1);
AA:=ABS(HIGH-LC);
BB:=ABS(LOW-LC);
CC:=ABS(HIGH-REF(LOW,1));
DD:=ABS(LC-REF(OPEN,1));
R:=IF(AA>BB AND AA>CC,AA+BB/2+DD/4,IF(BB>CC AND BB>AA,BB+AA/2+DD/4,CC+DD/4));
X:=(CLOSE-LC+(CLOSE-OPEN)/2+LC-REF(OPEN,1));
SI:=16*X/R*MAX(AA,BB);
ASI:SUM(SI,0);
{15. EMV}
VOLUME:=MA(VOL,14)/VOL;
MID:=100*(HIGH+LOW-REF(HIGH+LOW,1))/(HIGH+LOW);
EMV:MA(MID*VOLUME*(HIGH-LOW)/MA(HIGH-LOW,14),14);
MAEMV:MA(EMV,9);
{16. WVAD}
WVAD:SUM((CLOSE-OPEN)/(HIGH-LOW)*VOL,24)/10000;
MAWVAD:MA(WVAD,6);
{17. ROC}
ROC:(CLOSE-REF(CLOSE,12))/REF(CLOSE,12)*100;
MAROC:MA(ROC,6);
{18. MTM}
MTM:CLOSE-REF(CLOSE,12);
MAMTM:MA(MTM,6);
{19. SAR}
SAR(4,2,20);
{20. DMA}
DIF:MA(CLOSE,10)-MA(CLOSE,50);
DIFMA:MA(DIF,10);
{21. TRIX}
TR:=EMA(EMA(EMA(CLOSE,12),12),12);
TRIX:(TR-REF(TR,1))/REF(TR,1)*100;
MATRIX:MA(TRIX,9);
{22. BRAR}
BR:SUM(MAX(0,HIGH-REF(CLOSE,1)),26)/SUM(MAX(0,REF(CLOSE,1)-LOW),26)*100;
AR:SUM(HIGH-OPEN,26)/SUM(OPEN-LOW,26)*100;
{23. CCI2}
TYP:=(HIGH+LOW+CLOSE)/3;
CCI2:(TYP-MA(TYP,84))/(0.015*AVEDEV(TYP,84));
{24. KDJ2}
RSV2:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;
K2:SMA(RSV2,3,1);
D2:SMA(K2,3,1);
J2:3*K2-2*D2;
{25. RSI2}
RSI4: SMA(MAX(CLOSE-REF(CLOSE,1),0),48,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),48,1)*100;
RSI5: SMA(MAX(CLOSE-REF(CLOSE,1),0),96,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),96,1)*100;
{26. 成交量}
VOL,VOLSTICK;
MAVOL1:MA(VOL,5);
MAVOL2:MA(VOL,10);
{27. 量比}
量比:VOL/REF(MA(VOL,5),1);
{28. 换手率}
换手率:VOL/CAPITAL*100;
