将控盘度指标修改为通达信的

编写要求：

解答：

?网友求助：

烦请将控盘度指标修改为通达信的

VUR1:=VOL/CAPITAL;
VUR2:=1.1*(MAX(HIGH,REF(CLOSE,1))/MIN(LOW,REF(CLOSE,1))-1);
VUR3:=2.5*MAX(VUR1,VUR2);
VUR4:=DMA(CLOSE,VUR3);
VUR5:=20*(VUR4/REF(VUR4,1)-1)*38;
VUR6:=EMA(VUR5,2);
VUR7:=EMA(VUR5,2);
VUR8:=EMA(VUR7,3);
VURS:=EMA(VUR7,8);
VUR9:=1.1*(MAX(INDEXH,REF(INDEXC,1))/MIN(INDEXL,REF(INDEXC,1))-1);
VURA:=2.5*MAX(VUR1,VUR9);
VURB:=DMA(INDEXC,VURA);
VURC:=EMA(20*(VURB/REF(VURB,1)-1),1)*38;
VURD:=EMA(VURC,2);
VURE:=EMA(VURC,2);
D强:STICKLINE(VURD>0,0,VURD,6.5,1),colorB210E4;
D弱:STICKLINE(VURD<0,0,VURD,6.5,1),colorFFA6A6;
极强:STICKLINE(VUR5>0,0,VUR5,6.5,0),colorFFFF;
强势:STICKLINE(VUR6>0,0,VUR6,6.5,0),colorFF;
极弱:STICKLINE(VUR5<0,0,VUR5,6.5,0),color10D010;
弱势:STICKLINE(VUR6<0,0,VUR6,6.5,0),colorE4E410;
DX:VURE,LINETHICK2,color1088FF;
界:VURS,LINETHICK2,color6CBC10;
控:VUR8,colorFF10FF;
指:VUR7,color10E4E4;