P1:=3;

短线多头:EMA(CLOSE,5),COLORFF00FF;

xxx1:=(O+C+L+H)/4;

短线空头:EMA(xxx1,10);

ma20:ma(close,20),COLORblue;

ma30:ma(close,30),COLORgreen;

ma60:ma(close,60);

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

VAR3:=EMA(VAR2,21);

VAR4:=STD(VAR2,21);

VAR5:=((VAR2-VAR3)/VAR4*100+200)/4;

VAR6:=(EMA(VAR5,5)-25)*1.56;

AK:=EMA(VAR6,2)*1.22;

AD:=EMA(AK,2);

AJ:=3*AK-2*AD;

STICKLINE(CROSS(AK,AD),LOW,LOW-0.09,8,0),COLORRED;{短线买};

VAR1111:=BACKSET(REF(HIGH,2)=HHV(HIGH,5),3);

VAR2222:=CROSS(VAR1111,0.9);

压力: REF(HIGH,BARSLAST(Var2222)), POINTDOT,ColorEA91B5;

STICKLINE(CLOSE,REF(HIGH,BARSLAST(Var2222)),REF(HIGH,BARSLAST(Var2222)),5,0),ColorEA91B5;

N:=13;

A:=HHV(HIGH,N)=HIGH AND HIGH>REF(HIGH,1);A1:=FILTER(A,N-1);

B:=LLV(LOW,N)=LOW AND LOW

TS1:=BARSLAST(A1);

箱顶:=REF(HIGH,TS1); 

STICKLINE(1,箱顶,箱顶,7,0),COLORred;

TS11:=BARSLAST(B1);

箱底:=REF(LOW,TS11);

DRAWICON(CROSS(CLOSE,箱顶),HIGH*1.01,4);

DRAWICON(CROSS(箱底,CLOSE),LOW*0.99,5);

wN:=p1;{原码 N:=3;}

wA1:=REF(H,wN)=HHV(H,2*wN+1); wB1:=FILTER(wA1,wN); wC1:=BACKSET(wB1,wN+1); wD1:=FILTER(wC1,wN);{高点}

wA2:=REF(L,wN)=LLV(L,2*wN+1); wB2:=FILTER(wA2,wN); wC2:=BACKSET(wB2,wN+1); wD2:=FILTER(wC2,wN);{低点}

wE1:=(REF(LLV(L,2*wN),1)+REF(HHV(H,2*wN),1))/2; wE2:=(H+L)/2;{高低点出现在同一K线上时可作取舍}

wH1:=(wD1 AND NOT(wD2 AND wE1>=wE2)) OR DISPSTATUS=2 OR BARSCOUNT(C)=1;

wL1:=(wD2 AND NOT(wD1 AND wE1=wE2);

wX1:=REF(BARSLAST(wH1),1)+1; wF1:=BACKSET(wH1 AND COUNT(wL1,wX1)>0,LLVBARS(IF(wL1,L,10000),wX1));

wG1:=wF1>REF(wF1,1); wI1:=BACKSET(wG1,2); wLD:=wI1>REF(wI1,1);{过滤后低点}

wL2:=wLD OR DISPSTATUS=2 OR BARSCOUNT(C)=1;

wX2:=REF(BARSLAST(wL2),1)+1; wF2:=BACKSET(wL2 AND COUNT(wH2,wX2)>0,HHVBARS(IF(wH2,H,0),wX2));

wG2:=wF2>REF(wF2,1); wI2:=BACKSET(wG2,2); wHD:=wI2>REF(wI2,1);{过滤后高点}

wR1:=BACKSET(DISPSTATUS=2,BARSLAST(wHD)+1); wS1:=wR1>REF(wR1,1); {前一高}

wT1:=BACKSET(DISPSTATUS=2,BARSLAST(wLD)+1); wU1:=wT1>REF(wT1,1); {前一低}

wR2:=BACKSET(wS1,REF(BARSLAST(wHD),1)+2); wS2:=wR2>REF(wR2,1); {前二高}

wT2:=BACKSET(wU1,REF(BARSLAST(wLD),1)+2); wU2:=wT