把主力控盘指标改成通达信的

variable: b=0,d=0,e=0,f=0; hsl:=if(capital=0,v/sum(v,100),v/capital); a:=h-l; b:=IF(a>0,20/21*(1-hsl)*b+hsl*(c-l)/(h-l), 20/21*b*(1-hsl)+hsl); d:=IF(a>0,20/21*(1-hsl)*d+hsl*(h-c)/(h-l), 20/21*(1-hsl)*d); e:=ref(b,1)/58+e*57/58; f:=ref(d,1)/58+ref(f,1)*57/58; g:=IF(f>e,1,f/e); 主力控盘b*g-d)*100,colorstick;

爱约股解答：

ER:=IF(CAPITAL=0,V/SUM(V,100),V/FINANCE(7)*100);

FCL:=CLOSE-LOW;

FHL:=HIGH-LOW;

FHC:=HIGH-CLOSE;

B:=IF(FHL>0,TMA(ER,20/21*(1-ER),FCL/FHL),TMA(ER,20/21*(1-ER),1));

D:=IF(FHL>0,TMA(ER,20/21*(1-ER),FHC/FHL),TMA(ER,20/21*(1-ER),0));

E:=TMA(B,57/58,1/58);

F:=TMA(D,57/58,1/58);

G:=IF(F>E,1,F/E);

CYW:IF(V>0,(B*G-D)*100,0),COLORYELLOW,LINETHICK0;

STICKLINE(CYW>0,CYW,0,6,0),COLORMAGENTA;

STICKLINE(CYW<=0,CYW,0,6,0),COLORCYAN;