C>SKPRICE+10*MINPRICE,BP(SKVOL);
DRAWTEXT(SKVOL>0&&C>SKPRICE+10*MINPRICE,H,'止损');
wh7只支持简化的跨周期函数,如下给您编写的跨周期指标只能近似实现,参考
MA5:=MA(C,5);
MA10:=MA(C,10);
MA15:=MA(C,15);
MA20:=MA(C,20);
MA40:=MA(C,40);
MA60:=MA(C,60);
N:=4;
STEP:=2;
MVALUE:=2;
STEP1:=STEP/100;
MVALUE1:=MVALUE/10;
SARLINE:=SAR1(N,STEP1,MVALUE1),CIRCLEDOT;
A:=(3*C+L+O+H)/6;//3倍收盘价与最高价、最低价、开盘价之和的均值。
B:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+REF(A,20))/210;
//对A值做加权均值计算。
D1:=MA(B,10);//对B值做10周期平均计算。
MID:=MA(CLOSE,26);
TMP2:=STD(CLOSE,26);
TOP:=MID+2*TMP2;
BOTTOM:=MID-2*TMP2;
HH:=HHV(H,20);
LL:=LLV(L,20);
WVAD:=(CLOSE-OPEN)/(HIGH-LOW)*VOL;
VROC:=(VOL-REF(VOL,12))/REF(VOL,12)*100;
RC:=CLOSE/REF(CLOSE,50),PRECIS4;
ARC:=SMA(REF(RC,1),50,1),PRECIS4;
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;
VAR1:=(CLOSE+LOW+HIGH)/3;
VAR2:=SUM(((VAR1-REF(LOW,1))-(HIGH-VAR1))*VOL/100000/(HIGH-LOW),0);
VAR3:=EMA(VAR2,1);
JCS:=VAR3;
JCM:=MA(VAR3,12);
JCL:=MA(VAR3,26);
BIAS3:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100,PRECIS4;//同上
TR:=SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);//最高价与最低价做差,最高价与前一周期收盘价做差,最低价与前一周期收盘价作差,在上述三个数据中取绝对值最大者,对该最大值做N周期累加求和。。
HD:=HIGH-REF(HIGH,1);//最高价与前一周期最高价做差
LD:=REF(LOW,1)-LOW;//前一周期最低价与最低价做差
DMP:=SUM(IFELSE(HD>0 && HD>LD,HD,0),14);//如果HD>0并且HD>LD,取HD否则取0,对取值做N周期累加求和。
DMM:=SUM(IFELSE(LD>0 && LD>HD,LD,0),14);//如果LD>0并且LD>HD,取LD否则取0,对取值做N周期累加求和。
PDI:=DMP*100/TR;
MDI:=DMM*100/TR;
ADX:=MA(ABS(MDI-PDI)/(MDI+PDI)*100,6);
ADXR:=(ADX+REF(ADX,6))/2;
UPPERMA:=EMA(HIGH,20);
LOWERMA:=EMA(LOW,20);
TR1:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATR:=MA(TR1,26),COLORYELLOW;
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
DTM:=IFELSE(OPEN<=REF(OPEN,1),0,MAX((HIGH-OPEN),(OPEN-REF(OPEN,1))));
DBM:=IFELSE(OPEN>=REF(OPEN,1),0,MAX((OPEN-LOW),(OPEN-REF(OPEN,1))));
STM:=SUM(DTM,23);
SBM:=SUM(DBM,23);
ADTM:=IFELSE(STM>SBM,(STM-SBM)/STM,IFELSE(STM=SBM,0,(STM-SBM)/SBM));
ADTMMA:=MA(ADTM,8);
A1:=CLOSE-REF(CLOSE,12);
MI:=SMA(A1,12,1);
MID1:=(HIGH+LOW+CLOSE)/3;
CR:=SUM(MAX(0,HIGH-REF(MID1,1)),26)/SUM(MAX(0,REF(MID1,1)-LOW),26)*100;
CRMA1:=REF(MA(CR,5),5/2.5+1);
CRMA2:=REF(MA(CR,10),10/2.5+1);
CRMA3:=REF(MA(CR,20),20/2.5+1);
CRMA4:=REF(MA(CR,40),40/2.5+1);
LC :=REF(CLOSE,1);
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
RSI3:=SMA(MAX(CLOSE-LC,0),18,1)/SMA(ABS(CLOSE-LC),18,1)*100;
MMS:=MA(3*RSI2-2*SMA(MAX(CLOSE-LC,0),16,1)/SMA(ABS(CLOSE-LC),16,1)*100,3);
MMM:=EMA(MMS,8);
MML:=MA(3*RSI3-2*SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100,5);
ROC:=(CLOSE-REF(CLOSE,24))/REF(CLOSE,24)*100;
ROCMA:=MA(ROC,20);
RSI1:=SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100;
RSI4:=SMA(MAX(CLOSE-LC,0),14,1)/SMA(ABS(CLOSE-LC),14,1)*100;
CROSSDOWN(RSI1,18)&&RSI1<REF(RSI1,1),WORD( 1,'反弹' ),COLORRED,VALIGN2;
CROSS(RSI1,85)&&RSI1>REF(RSI1,1),WORD( 1,'回调' ),COLORLIGHTGREEN,VALIGN0;
CROSSDOWN(RSI1,45)&&RSI1<REF(RSI1,1)&&RSI1<RSI4&&WVAD<-55,WORD(1,'空' ),COLORLIGHTGREEN,VALIGN0;
CROSS(RSI1,55)&&RSI1>REF(RSI1,1)&&RSI1>RSI4&&WVAD>55,WORD( 1,'多' ),COLORRED,VALIGN2;
COND1:=MA5>MA10&&MA10>MA20&&J>K&&(J>REF(J,1)||J>82)&&HH>REF(HH,1)&&HH-LL>=0.95&&B>D1&&BIAS3>=0.04&&VROC>10&&NOT(VROC>1000)&&NOT(RSI1>86)&&(ROC-ROCMA>=0.04||JCS-JCL>=0.009||MMM-MML>=5)&&(A>0||A>MI)&&WVAD>45&&(TR1>=REF(TR1,1)||TR1>=ATR)&&(BOTTOM<REF(BOTTOM,1)||TOP>REF(TOP,1)||MID>REF(MID,1))&&CLOSE>OPEN&&NOT(CR>250)&&CR>CRMA1&&A1>MI&&C>UPPERMA&&MDI<15.5&&ADX>16&&NOT(ADX>80)&&ADX>REF(ADX,1);
VROC1:=(VOL-REF(VOL,12*5))/REF(VOL,12*5)*100;
RSV1:=(CLOSE-LLV(LOW,9*60))/(HHV(HIGH,9*60)-LLV(LOW,9*60))*100;
K1:=SMA(RSV1,3*60,1);
D11:=SMA(K1,3*60,1);
J1:=3*K-2*D;
BIAS1 := (CLOSE-MA(CLOSE,6*5))/MA(CLOSE,6*5)*100;
COND1&&J1>K1&&BIAS1>0.04&&WVAD>45&&VROC1>10,BK;
T01:MA5>MA10&&MA10>MA20,NODRAW;
T02:J>K&&(J>REF(J,1)||J>82),NODRAW;
T03:VROC>10&&NOT(VROC>1000),NODRAW;
T04:HH>REF(HH,1)&&HH-LL>=0.95,NODRAW;
T05:B>D1,NODRAW;
T06:BIAS3>=0.04,NODRAW;
T07:(A>0||A>MI),NODRAW;
T08:WVAD>45,NODRAW;
T09:(TR1>=REF(TR1,1)||TR1>=ATR),NODRAW;
T00:(BOTTOM<REF(BOTTOM,1)||TOP>REF(TOP,1)||MID>REF(MID,1)),NODRAW;
T0B:C>UPPERMA,NODRAW;
T0C:MDI<15.5&&ADX>16&&ADX>REF(ADX,1)&&NOT(ADX>80),NODRAW;
T0D:NOT(CR>250)&&CR>CRMA1,NODRAW;
T0E:A1>MI,NODRAW;
T0F:MMM-MML>=5||JCS-JCL>=0.009||ROC-ROCMA>=0.04,NODRAW;
T0K:NOT(RSI1>86),NODRAW;
DIFF1 := EMA(CLOSE,12*30) - EMA(CLOSE,26*30);
DEA1 := EMA(DIFF1,9*30);
MACD1:=2*(DIFF1-DEA1),COLORSTICK;
C<MA10&&MACD1<REF(MACD1,1)&&J1<REF(J1,1),SP;
COND2:=MA5<MA10&&MA10<MA20&&J<K&&(J<REF(J,1)||J<18)&&BIAS3<=-0.04&&VROC>10&&NOT(VROC>1000)&&(ROC-ROCMA<=-0.04||MMM-MML<=-5)&&NOT(RSI1<10)&&(A>0||A>MI)&&B<D1&&(TR1>=REF(TR1,1)||TR1>=ATR)&&WVAD<-45&&(BOTTOM<REF(BOTTOM,1)||TOP>REF(TOP,1)||MID<REF(MID,1))&&CLOSE<OPEN&&LL<REF(LL,1)&&HH-LL>=0.95&&(NOT(CR<35)||CR<CRMA1)&&A1<MI&&C<LOWERMA&&PDI<15.5&&ADX>16&&NOT(ADX>80)&&ADX>REF(ADX,1);
COND2&&J1<K1&&BIAS1<-0.04&&WVAD<-45&&VROC1>10,SK;
T1:MA5<MA10&&MA10<MA20,NODRAW;
T2:J<K&&(J<REF(J,1)||J<18),NODRAW;
T3:VROC>10&&NOT(VROC>1000),NODRAW;
T4:BIAS3<=-0.04,NODRAW;
T5:(A>0||A>MI),NODRAW;
T6:B<D1,NODRAW;
T7:WVAD<-45,NODRAW;
T8:(TR1>=REF(TR1,1)||TR1>=ATR),NODRAW;
T9:(BOTTOM<REF(BOTTOM,1)||TOP>REF(TOP,1)||MID<REF(MID,1)),NODRAW;
T0:LL<REF(LL,1)&&HH-LL>=0.95,NODRAW;
T22:C<LOWERMA,NODRAW;
T33:PDI<15.5&&ADX>16&&NOT(ADX>80)&&ADX>REF(ADX,1),NODRAW;
T44:NOT(CR<35)||CR<CRMA1,NODRAW;
T55:A1<MI,NODRAW;
T66:MMM-MML<=-5||ROC-ROCMA<=-0.04,NODRAW;
T88:NOT(RSI1<10),NODRAW;
C>MA10&&MACD1>REF(MACD1,1)&&J1>REF(J1,1),BP;
AUTOFILTER;
CROSS(COND1,0.5),SPARK;
CROSS(COND2,0.5),SPARK;
CROSS(MA5,MA40),SPARK;
CROSSDOWN(MA5,MA40),SPARK;
PLAYSOUND(CROSS(COND1,0.5),'A');
PLAYSOUND(CROSS(COND2,0.5),'B');
PLAYSOUND(CROSS(MA5,MA40),'C');
PLAYSOUND(CROSSDOWN(MA5,MA40),'D');
参考:
MA5:=MA(C,5);
MA10:=MA(C,10);
MA15:=MA(C,15);
MA20:=MA(C,20);
MA40:=MA(C,40);
MA60:=MA(C,60);
N:=4;
STEP:=2;
MVALUE:=2;
STEP1:=STEP/100;
MVALUE1:=MVALUE/10;
SARLINE:=SAR1(N,STEP1,MVALUE1),CIRCLEDOT;
A:=(3*C+L+O+H)/6;//3倍收盘价与最高价、最低价、开盘价之和的均值。
B:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+REF(A,20))/210;
//对A值做加权均值计算。
D1:=MA(B,10);//对B值做10周期平均计算。
MID:=MA(CLOSE,26);
TMP2:=STD(CLOSE,26);
TOP:=MID+2*TMP2;
BOTTOM:=MID-2*TMP2;
HH:=HHV(H,20);
LL:=LLV(L,20);
WVAD:=(CLOSE-OPEN)/(HIGH-LOW)*VOL;
VROC:=(VOL-REF(VOL,12))/REF(VOL,12)*100;
RC:=CLOSE/REF(CLOSE,50),PRECIS4;
ARC:=SMA(REF(RC,1),50,1),PRECIS4;
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;
VAR1:=(CLOSE+LOW+HIGH)/3;
VAR2:=SUM(((VAR1-REF(LOW,1))-(HIGH-VAR1))*VOL/100000/(HIGH-LOW),0);
VAR3:=EMA(VAR2,1);
JCS:=VAR3;
JCM:=MA(VAR3,12);
JCL:=MA(VAR3,26);
BIAS3:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100,PRECIS4;//同上
TR:=SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);//最高价与最低价做差,最高价与前一周期收盘价做差,最低价与前一周期收盘价作差,在上述三个数据中取绝对值最大者,对该最大值做N周期累加求和。。
HD:=HIGH-REF(HIGH,1);//最高价与前一周期最高价做差
LD:=REF(LOW,1)-LOW;//前一周期最低价与最低价做差
DMP:=SUM(IFELSE(HD>0 && HD>LD,HD,0),14);//如果HD>0并且HD>LD,取HD否则取0,对取值做N周期累加求和。
DMM:=SUM(IFELSE(LD>0 && LD>HD,LD,0),14);//如果LD>0并且LD>HD,取LD否则取0,对取值做N周期累加求和。
PDI:=DMP*100/TR;
MDI:=DMM*100/TR;
ADX:=MA(ABS(MDI-PDI)/(MDI+PDI)*100,6);
ADXR:=(ADX+REF(ADX,6))/2;
UPPERMA:=EMA(HIGH,20);
LOWERMA:=EMA(LOW,20);
TR1:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATR:=MA(TR1,26),COLORYELLOW;
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
DTM:=IFELSE(OPEN<=REF(OPEN,1),0,MAX((HIGH-OPEN),(OPEN-REF(OPEN,1))));
DBM:=IFELSE(OPEN>=REF(OPEN,1),0,MAX((OPEN-LOW),(OPEN-REF(OPEN,1))));
STM:=SUM(DTM,23);
SBM:=SUM(DBM,23);
ADTM:=IFELSE(STM>SBM,(STM-SBM)/STM,IFELSE(STM=SBM,0,(STM-SBM)/SBM));
ADTMMA:=MA(ADTM,8);
A1:=CLOSE-REF(CLOSE,12);
MI:=SMA(A1,12,1);
MID1:=(HIGH+LOW+CLOSE)/3;
CR:=SUM(MAX(0,HIGH-REF(MID1,1)),26)/SUM(MAX(0,REF(MID1,1)-LOW),26)*100;
CRMA1:=REF(MA(CR,5),5/2.5+1);
CRMA2:=REF(MA(CR,10),10/2.5+1);
CRMA3:=REF(MA(CR,20),20/2.5+1);
CRMA4:=REF(MA(CR,40),40/2.5+1);
LC :=REF(CLOSE,1);
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
RSI3:=SMA(MAX(CLOSE-LC,0),18,1)/SMA(ABS(CLOSE-LC),18,1)*100;
MMS:=MA(3*RSI2-2*SMA(MAX(CLOSE-LC,0),16,1)/SMA(ABS(CLOSE-LC),16,1)*100,3);
MMM:=EMA(MMS,8);
MML:=MA(3*RSI3-2*SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100,5);
ROC:=(CLOSE-REF(CLOSE,24))/REF(CLOSE,24)*100;
ROCMA:=MA(ROC,20);
RSI1:=SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100;
RSI4:=SMA(MAX(CLOSE-LC,0),14,1)/SMA(ABS(CLOSE-LC),14,1)*100;
CROSSDOWN(RSI1,18)&&RSI1<REF(RSI1,1),WORD( 1,'反弹' ),COLORRED,VALIGN2;
CROSS(RSI1,85)&&RSI1>REF(RSI1,1),WORD( 1,'回调' ),COLORLIGHTGREEN,VALIGN0;
CROSSDOWN(RSI1,45)&&RSI1<REF(RSI1,1)&&RSI1<RSI4&&WVAD<-55,WORD(1,'空' ),COLORLIGHTGREEN,VALIGN0;
CROSS(RSI1,55)&&RSI1>REF(RSI1,1)&&RSI1>RSI4&&WVAD>55,WORD( 1,'多' ),COLORRED,VALIGN2;
COND1:=MA5>MA10&&MA10>MA20&&J>K&&(J>REF(J,1)||J>82)&&HH>REF(HH,1)&&HH-LL>=0.95&&B>D1&&BIAS3>=0.04&&VROC>10&&NOT(VROC>1000)&&NOT(RSI1>86)&&(ROC-ROCMA>=0.04||JCS-JCL>=0.009||MMM-MML>=5)&&(A>0||A>MI)&&WVAD>45&&(TR1>=REF(TR1,1)||TR1>=ATR)&&(BOTTOM<REF(BOTTOM,1)||TOP>REF(TOP,1)||MID>REF(MID,1))&&CLOSE>OPEN&&NOT(CR>250)&&CR>CRMA1&&A1>MI&&C>UPPERMA&&MDI<15.5&&ADX>16&&NOT(ADX>80)&&ADX>REF(ADX,1);
#IMPORT[HOUR,1,AA] AS VAR1
#IMPORT[MIN,5,AA] AS VAR2
COND1&&VAR1.J>VAR1.K&&VAR2.BIAS1>0.04&&VAR2.WVAD>45&&VAR2.VROC>10,BK;
T01:MA5>MA10&&MA10>MA20,NODRAW;
T02:J>K&&(J>REF(J,1)||J>82),NODRAW;
T03:VROC>10&&NOT(VROC>1000),NODRAW;
T04:HH>REF(HH,1)&&HH-LL>=0.95,NODRAW;
T05:B>D1,NODRAW;
T06:BIAS3>=0.04,NODRAW;
T07:(A>0||A>MI),NODRAW;
T08:WVAD>45,NODRAW;
T09:(TR1>=REF(TR1,1)||TR1>=ATR),NODRAW;
T00:(BOTTOM<REF(BOTTOM,1)||TOP>REF(TOP,1)||MID>REF(MID,1)),NODRAW;
T0B:C>UPPERMA,NODRAW;
T0C:MDI<15.5&&ADX>16&&ADX>REF(ADX,1)&&NOT(ADX>80),NODRAW;
T0D:NOT(CR>250)&&CR>CRMA1,NODRAW;
T0E:A1>MI,NODRAW;
T0F:MMM-MML>=5||JCS-JCL>=0.009||ROC-ROCMA>=0.04,NODRAW;
T0K:NOT(RSI1>86),NODRAW;
//平多条件:30分钟周期MACD<REF(MACD,1)&&J<REF(J,1);
#IMPORT[MIN,30,AA] AS VAR3
C<MA10&&VAR3.MACD<REF(VAR3.MACD,1)&&VAR3.J<REF(VAR3.J,1),SP;
COND2:=MA5<MA10&&MA10<MA20&&J<K&&(J<REF(J,1)||J<18)&&BIAS3<=-0.04&&VROC>10&&NOT(VROC>1000)&&(ROC-ROCMA<=-0.04||MMM-MML<=-5)&&NOT(RSI1<10)&&(A>0||A>MI)&&B<D1&&(TR1>=REF(TR1,1)||TR1>=ATR)&&WVAD<-45&&(BOTTOM<REF(BOTTOM,1)||TOP>REF(TOP,1)||MID<REF(MID,1))&&CLOSE<OPEN&&LL<REF(LL,1)&&HH-LL>=0.95&&(NOT(CR<35)||CR<CRMA1)&&A1<MI&&C<LOWERMA&&PDI<15.5&&ADX>16&&NOT(ADX>80)&&ADX>REF(ADX,1);
COND2&&VAR1.J<VAR1.K&&VAR2.BIAS1<-0.04&&VAR2.WVAD<-45&&VAR2.VROC>10,SK;
T1:MA5<MA10&&MA10<MA20,NODRAW;
T2:J<K&&(J<REF(J,1)||J<18),NODRAW;
T3:VROC>10&&NOT(VROC>1000),NODRAW;
T4:BIAS3<=-0.04,NODRAW;
T5:(A>0||A>MI),NODRAW;
T6:B<D1,NODRAW;
T7:WVAD<-45,NODRAW;
T8:(TR1>=REF(TR1,1)||TR1>=ATR),NODRAW;
T9:(BOTTOM<REF(BOTTOM,1)||TOP>REF(TOP,1)||MID<REF(MID,1)),NODRAW;
T0:LL<REF(LL,1)&&HH-LL>=0.95,NODRAW;
T22:C<LOWERMA,NODRAW;
T33:PDI<15.5&&ADX>16&&NOT(ADX>80)&&ADX>REF(ADX,1),NODRAW;
T44:NOT(CR<35)||CR<CRMA1,NODRAW;
T55:A1<MI,NODRAW;
T66:MMM-MML<=-5||ROC-ROCMA<=-0.04,NODRAW;
T88:NOT(RSI1<10),NODRAW;
C>MA10&&VAR3.MACD>REF(VAR3.MACD,1)&&VAR3.J>REF(VAR3.J,1),BP;
AUTOFILTER;
PLAYSOUND(CROSS(COND1,0.5),'A');
PLAYSOUND(CROSS(COND2,0.5),'B');
PLAYSOUND(CROSS(MA5,MA40),'C');
PLAYSOUND(CROSSDOWN(MA5,MA40),'D');
C<BKPRICE-10*MINPRICE,SP;
DRAWTEXT(BKVOL>0&&C<BKPRICE-10*MINPRICE,H,'止损');
C>SKPRICE+10*MINPRICE,BP;
DRAWTEXT(SKVOL>0&&C>SKPRICE+10*MINPRICE,H,'止损');