通达信红色共振指标公式源码

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));
DRAWICON(TTR>0,0.8,1);
DRAWICON(CROSS(TTR,0),0.8,23);
DRAWICON(TTR<0,0.8,2);
DRAWTEXT(ISLASTBAR=1,IF(TTR>=0,0.8,0.8),'--VOL'),COLORCYAN;
mtm:=CLOSE-REF(CLOSE,12);
MAMTM:=MA(MTM,6);
DRAWICON(MTM>MAMTM,1.8,1);
DRAWICON(CROSS(MTM,MAMTM),1.8,23);
DRAWICON(MTM<MAMTM,1.8,2);
DRAWTEXT(ISLASTBAR=1,IF(MTM>=0,1.8,1.8),'--MTM'),COLORCYAN;
MTM叉:MTM>MAMTM,POINTDOT;
RSV1:=-(HHV(HIGH,9)-CLOSE)/(HHV(HIGH,9)-LLV(LOW,9))*100;
Lwr1:=SMA(RSV1,3,1);
LWR2:=SMA(LWR1,3,1);
DRAWICON(LWR1>LWR2,2.8,1);
DRAWICON(CROSS(LWR1,LWR2),2.8,23);
DRAWICON(LWR1<LWR2,2.8,2);
DRAWTEXT(ISLASTBAR=1,IF(LWR1>=0,2.8,2.8),'--LWR'),COLORCYAN;
LWR叉:LWR1>LWR2,POINTDOT;
bbi:=(MA(CLOSE,3)+MA(CLOSE,9)+MA(CLOSE,12)+MA(CLOSE,26))/4;
DRAWICON(CLOSE>BBI,3.8,1);
DRAWICON(CROSS(CLOSE,BBI),3.8,23);
DRAWICON(CLOSE<BBI,3.8,2);
DRAWTEXT(ISLASTBAR=1,IF(BBI>=0,3.8,3.8),'--BBI'),COLORCYAN;
BBI金叉:CLOSE>BBI,POINTDOT;
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;
DRAWICON(PDI>MDI,4.8,1);
DRAWICON(CROSS(PDI,MDI),4.8,23);
DRAWICON(PDI<MDI,4.8,2);
DRAWTEXT(ISLASTBAR=1,IF(PDI>=0,4.8,4.8),'--dmi'),COLORCYAN;
DMI叉:PDI>MDI,POINTDOT;
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;
DRAWICON(RSI1>RSI2,5.8,1);
DRAWICON(CROSS(RSI1,RSI2),5.8,23);
DRAWICON(RSI1<RSI2,5.8,2);
DRAWTEXT(ISLASTBAR=1,IF(RSI1>=0,5.8,5.8),'--RSI'),COLORCYAN;
RSI叉:RSI1>RSI2,POINTDOT;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
DRAWICON(K>D,6.8,1);
DRAWICON(CROSS(K,D),6.8,23);
DRAWICON(K<D,6.8,2);
DRAWTEXT(ISLASTBAR=1,IF(RSV>=0,6.8,6.8),'--kdj'),COLORCYAN;
kdJ叉:K>D,POINTDOT;
DIFF:=EMA(CLOSE,6)-EMA(CLOSE,13);
DEA:=EMA(DIFF,5);
DRAWICON(DIFF>DEA,7.8,1);
DRAWICON(CROSS(DIFF,DEA),7.8,23);
DRAWICON(DIFF<DEA,7.8,2);
DRAWTEXT(ISLASTBAR=1,IF(DIFF>=0,7.8,7.8),'--macd'),COLORCYAN;
MCDA叉:DIFF>DEA,POINTDOT;
MA1:=MA(C,5)-MA(C,13)+MA(C,3),COLORLIGREEN;
MA2:=MA(C,5)-MA(C,13)+MA(C,8),COLORLIGREEN;
DRAWICON(MA1>MA2,8.8,1);
DRAWICON(CROSS(MA1,MA2),8.8,23);
DRAWICON(MA1<MA2,8.8,2);
DRAWTEXT(ISLASTBAR=1,IF(MA1>=0,8.8,8.8),'--MA'),COLORCYAN;
MA叉:MA1>MA2,POINTDOT;