通达信红色量能副图指标 源码 贴图

WJ:=(HIGH+LOW+CLOSE)/3;
V1:=IF(HIGH=LOW,1,HIGH-MAX(OPEN,CLOSE));
V2:=IF(HIGH=LOW,1,MAX(CLOSE,OPEN)-WJ);
V3:=IF(HIGH=LOW,1,MIN(OPEN,CLOSE)-LOW);
V4:=IF(HIGH=LOW,1,WJ-MIN(CLOSE,OPEN));
V5:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
V6:=(V1*V5);
V7:=(V2*V5);
V8:=(V3*V5);
V9:=(V4*V5);
RT:=(V9+V8)/1000,COLORYELLOW,NODRAW;
TRE:=-(V6+V7)/1000,COLORRED,NODRAW;
RRT:=((V9+V8)-(V6+V7))/1000,COLORYELLOW,NODRAW;
TTR:=SUM(RRT,3),COLORYELLOW,NODRAW;
DG1:=(CROSS(TTR,0));
大1:=IF(TTR>0,1,0);
穿1:=IF(CROSS(TTR,0),-1,0);
小1:=IF(TTR<0,-1,0);
合1:=大1+穿1+小1;
MTM:=CLOSE-REF(CLOSE,12);
MAMTM:=MA(MTM,6);
大2:=IF(MTM>MAMTM,1,0);
穿2:=IF(CROSS(MTM,MAMTM),-1,0);
小2:=IF(MTM<MAMTM,-1,0);
合2:=大2+穿2+小2;
RSV1:=-(HHV(HIGH,9)-CLOSE)/(HHV(HIGH,9)-LLV(LOW,9))*100;
LWR1:=SMA(RSV1,3,1);
LWR2:=SMA(LWR1,3,1);
大3:=IF(LWR1>LWR2,1,0);
穿3:=IF(CROSS(LWR1,LWR2),-1,0);
小3:=IF(LWR1<LWR2,-1,0);
合3:=大3+穿3+小3;
BBI:=(MA(CLOSE,3)+MA(CLOSE,9)+MA(CLOSE,12)+MA(CLOSE,26))/4;
大4:=IF(CLOSE>BBI,1,0);
穿4:=IF(CROSS(CLOSE,BBI),-1,0);
小4:=IF(CLOSE<BBI,-1,0);
合4:=大4+穿4+小4;{公式网WWW.GPXIAZAI.COM}
TR1:=EXPMEMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),3);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EXPMEMA(IF(HD>0&&HD>LD,HD,0),3);
DMM:=EXPMEMA(IF(LD>0&&LD>HD,LD,0),3);
PDI:=DMP*100/TR1;
MDI:=DMM*100/TR1;
大5:=IF(PDI>MDI,1,0);
穿5:=IF(CROSS(PDI,MDI),-1,0);
小5:=IF(PDI<MDI,-1,0);
合5:=大5+穿5+小5;
LC:=REF(CLOSE,1);
RSI1:=(SMA(MAX(CLOSE-LC,0),3,1))/(SMA(ABS(CLOSE-LC),3,1))*100;
RSI2:=(SMA(MAX(CLOSE-LC,0),12,1))/(SMA(ABS(CLOSE-LC),12,1))*100;
大6:=IF(RSI1>RSI2,1,0);
穿6:=IF(CROSS(RSI1,RSI2),-1,0);
小6:=IF(RSI1<RSI2,-1,0);
合6:=大6+穿6+小6;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
大7:=IF(K>D,1,0);
穿7:=IF(CROSS(K,D),-1,0);
小7:=IF(K<D,-1,0);
合7:=大7+穿7+小7;
DIFF:=EMA(CLOSE,6)-EMA(CLOSE,13);
DEA:=EMA(DIFF,5);
大8:=IF(DIFF>DEA,1,0);
穿8:=IF(CROSS(DIFF,DEA),-1,0);
小8:=IF(DIFF<DEA,-1,0);
合8:=大8+穿8+小8;
MA1:=MA(C,5)-MA(C,13)+MA(C,3),COLORLIGREEN;
MA2:=MA(C,5)-MA(C,13)+MA(C,8),COLORLIGREEN;
大9:=IF(MA1>MA2,1,0);
穿9:=IF(CROSS(MA1,MA2),-1,0);
小9:=IF(MA1<MA2,-1,0);
合9:=大9+穿9+小9;
合力:ABS(合1+合2+合3+合4+合5+合6+合7+合8+合9),VOLSTICK;
合力1:合1+合2+合3+合4+合5+合6+合7+合8+合9;
MA5:MA(合力1,5);
上穿:CROSS(合力1,MA5)*5;
0,DOTLINE,COLORMAGENTA;