DPSC 泡哥交易系统3.1版

引用指标(XU)

ZLCM:=EMA(WINNER(CLOSE)*70,3);

SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);

SHTL:SHCM/(ZLCM+SHCM)*100;

ZLKP:ZLCM/(ZLCM+SHCM)*100;

CMZL:ZLCM+SHCM;

ZNTS:BARSLAST(SHTL<90 AND REF(SHTL,1)>90);

RSV:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;

K:=SMA(RSV,10,1);

D:=SMA(K,5,1);

KK:=INTPART(K);

DD:=INTPART(D);

FXXS:KK+DD;

GLD:MOD(FXXS,10);

GLXS:(FXXS-REF(FXXS,1))*10;

YCFX:FXXS+GLXS;

CJA:=OPEN-LOW;

CJB:=HIGH-OPEN;

CJC:=HIGH-LOW;

QJCJ:CJA>CJB;

QJJS:CJC/CJA<2;

ZY:ROUND(((REF(HIGH,1)-REF(LOW,1))*8/10+OPEN)*100)/100;

ZS:ROUND((OPEN-(REF(HIGH,1)-REF(LOW,1))*8/20)*100)/100;

QHJW:ROUND((2*OPEN-LOW)*100)/100;

BS:SMA(HIGH,21,2)*1.05;

HS:SMA(LOW,21,2)*0.95;

FS:SMA(LOW,5,1);

LS:SMA(CLOSE,2,1);

BD:ROUND(IF(CROSS(LS,FS),FS,0)*100)/100;

RD:ROUND(IF(CROSS(LS,BS),BS,0)*100)/100;

JC:CROSS("MACD.DIFF#week"(10,6,3),"MACD.DEA#week"(10,6,3));

HZ:2*("MACD.DIFF#week"(10,6,3)-"MACD.DEA#week"(10,6,3));

AA:CROSS("KDJ.K#week","KDJ.D#week") AND "KDJ.D#week"<30;

GD:HIGH;

DD:LOW;

DQDB:LLV(LOW,4);

CQDB:LLV(LOW,19);

DQGD:HHV(HIGH,4);

CQGD:HHV(HIGH,19);

A1:=MA(CLOSE,13);

ZX:REF(A1,13/2+1);

A:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100;

A1:=BARSLAST(A>3);

A2:IF(A1>0,1,0);

LIFE:(EMA(CLOSE,60)+EMA(CLOSE,90))/2;

VAR1:=(2*CLOSE+HIGH+LOW)/4;

SNOOK:EMA(VAR1,99)*0.91;

AA:REF(HIGH,4)=HHV(HIGH,2*4+1);

AAA:=FILTER(AA,4);

BB:=BACKSET(AAA,4+1);

CC1:=FILTER(BB,4);

CC:=CC1 OR ISLASTBAR;

AA2:=REF(LOW,4)=LLV(LOW,2*4+1);

AAA2:=FILTER(AA2,4);

BB2:=BACKSET(AAA2,4+1);

CC22:=FILTER(BB2,4);

CC2:=CC22 AND NOT(CC1);

EA:=BACKSET(CC,REF(BARSLAST(CC2),1)+1);

EB:=EA>REF(EA,1);

EE:=BACKSET(EB,2);

FF1:=EE>REF(EE,1);

EE2:=BACKSET(FF1 AND COUNT(CC,REF(BARSLAST(CC2),1)+2)=0,REF(BARSLAST(CC2),1)+2);

FF2:=EE2>REF(EE2,1);

EE3:=BACKSET(FF2 AND COUNT(CC,REF(BARSLAST(CC2),1)+2)=0,REF(BARSLAST(CC2),1)+2);

FF3:=EE3>REF(EE3,1);

JS:=IF(CC,COUNT(CC2,REF(BARSLAST(CC),1)+1),0);

G1:=IF(JS=1 AND CC,BARSLAST(FF1),0);

GA:=IF(CC AND REF(LOW,BARSLAST(FF1))>=REF(LOW,BARSLAST(FF2)),BARSLAST(FF2),BARSLAST(FF1));

G2:=IF(JS=2 AND CC,GA,0);

G3:=IF(JS>=3 AND CC,IF(CC AND REF(LOW,GA)>=REF(LOW,BARSLAST(FF3)),BARSLAST(FF3),GA),0);

GG:=G1+G2+G3;

JA:=BACKSET(CC,GG);

JB:=JA>REF(JA,1);

JJ:=BACKSET(JB,2);

LD:JJ>REF(JJ,1);

LD1:=LD OR ISLASTBAR;

HEA:=BACKSET(LD1,REF(BARSLAST(CC),1)+1);

HEB:=HEA>REF(HEA,1);

HEE:=BACKSET(HEB,2);

HFF1:=HEE>REF(HEE,1);

HEE2:=BACKSET(HFF1 AND COUNT(LD1,REF(BARSLAST(CC),1)+2)=0,REF(BARSLAST(CC),1)+2);

HFF2:=HEE2>REF(HEE2,1);

HEE3:=BACKSET(HFF2 AND COUNT(LD1,REF(BARSLAST(CC),1)+2)=0,REF(BARSLAST(CC),1)+2);

HFF3:=HEE3>REF(HEE3,1);

HJS:=IF(LD1,COUNT(CC1,REF(BARSLAST(LD1),1)+1),0);

HG1:=IF(HJS=1 AND LD1,BARSLAST(HFF1),0);

HGA:=IF(LD1 AND REF(HIGH,BARSLAST(HFF1))<=REF(HIGH,BARSLAST(HFF2)),BARSLAST(HFF2),BARSLAST(HFF1));

HG2:=IF(HJS=2 AND LD1,HGA,0);

HG3:=IF(HJS>=3 AND LD1,IF(LD1 AND REF(HIGH,HGA)<=REF(HIGH,BARSLAST(HFF3)),BARSLAST(HFF3),HGA),0);

HGG:=HG1+HG2+HG3;

HJA:=BACKSET(LD1,HGG);

HJB:=HJA>REF(HJA,1);

HJJ:=BACKSET(HJB,2);

HD:HJJ>REF(HJJ,1);

X1:=BACKSET(ISLASTBAR,BARSLAST(LD)+1);

X2:=X1>REF(X1,1);

Y1:=BACKSET(ISLASTBAR,BARSLAST(HD)+1);

Y2:=Y1>REF(Y1,1);

Z1:IF(BARSLAST(X2)<BARSLAST(Y2),X2,Y2);

Z2:IF(BARSLAST(X2)<BARSLAST(Y2),LOW,HIGH);

UU:=BACKSET(ISLASTBAR,BARSLAST(LD)+1);

VV:UU>REF(UU,1);

WW:=BACKSET(VV,REF(BARSLAST(LD),1)+2);

XX:WW>REF(WW,1);

UU2:=BACKSET(ISLASTBAR,BARSLAST(HD)+1);

VV2:UU2>REF(UU2,1);

WW2:=BACKSET(VV2,REF(BARSLAST(HD),1)+2);

XX2:WW2>REF(WW2,1);

DRAWGBK(CLOSE=CLOSE,COLORRGB(90,90,90),COLORRGB(0,0,0),1);

DRAWTEXT(ISLASTBAR,100,'泡哥右侧交易系统 DarkPower 3.1 PLUS       \n'),ALIGN2,colorFF;

DRAWTEXT(ISLASTBAR,0,'Copyright 2004-2005 泡哥金融社区, All Rights Reserved'),ALIGN2,colorFF00;