[通达信指标]共振系列2 能量型六指共振公式源码

N:=26;

BR:=SUM(MAX(0,HIGH-REF(CLOSE,1)),N)/SUM(MAX(0,REF(CLOSE,1)-LOW),N)*100;

AR:=SUM(HIGH-OPEN,N)/SUM(OPEN-LOW,N)*100;

MID:=REF(HIGH+LOW,1)/2;

CR:=SUM(MAX(0,HIGH-MID),26)/SUM(MAX(0,MID-LOW),26)*100;

MA1:=REF(MA(CR,10),10/2.5+1);

MA2:=REF(MA(CR,20),20/2.5+1);

MASS:=SUM(MA(HIGH-LOW,9)/MA(MA(HIGH-LOW,9),9),25);

MAMASS:=MA(MASS,6);

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);

MAVR:=MA(VR,6);

MIDA:=CLOSE-MIN(REF(CLOSE,1),LOW);

MIDB:=IF(CLOSE<REF(CLOSE,1),CLOSE-MAX(REF(CLOSE,1),HIGH),0);

WAD:=SUM(IF(CLOSE>REF(CLOSE,1),MIDA,MIDB),0);

MAWAD:=MA(WAD,30);

Q1:=BR;

Q2:=AR;

W1:=CR;

W2:=MA1;

E1:=MA1;

E2:=MA2;

R1:=MASS;

R2:=MAMASS;

T1:=VR;

T2:=MAVR;

Y1:=WAD;

Y2:=MAWAD;

A1:=Q1>Q2;

B1:=Q1<Q2;

A2:=W1>W2;

B2:=W1<W2;

A3:=E1>E2;

B3:=E1<E2;

A4:=R1>R2;

B4:=R1<R2;

A5:=T1>T2;

B5:=T1<T2;

A6:=Y1>Y2;

B6:=Y1<Y2;

DRAWTEXT(ISLASTBAR=1,0.5,’    .BRAR’),COLORFFFFFF;

DRAWTEXT(ISLASTBAR=1,1.5,’    .CR1′),COLORFFFFFF;

DRAWTEXT(ISLASTBAR=1,2.5,’    .CR2′),COLORFFFFFF;

DRAWTEXT(ISLASTBAR=1,3.5,’    .MASS’),COLORFFFFFF;

DRAWTEXT(ISLASTBAR=1,4.5,’    .VR’),COLORFFFFFF;

DRAWTEXT(ISLASTBAR=1,5.5,’    .WAD’),COLORFFFFFF;

7,COLOR000000;

0,COLOR000000;

DRAWICON(A6,6,1);

DRAWICON(B6,6,2);

DRAWICON(A5,5,1);

DRAWICON(B5,5,2);

DRAWICON(A4,4,1);

DRAWICON(B4,4,2);

DRAWICON(A3,3,1);

DRAWICON(B3,3,2);

DRAWICON(A2,2,1);

DRAWICON(B2,2,2);

DRAWICON(A1,1,1);

DRAWICON(B1,1,2);