以下是通达信主力控盘系统自带稍做优化

VAR1:=C-L;
 VAR2:=H-L;
 VAR3:=C-H;

 VAR4:=IF(H>L,(VAR1/VAR2+VAR3/VAR2)*VOL,0);
 CYW:=SUM(VAR4,10)/10000;
 DRAWBAND(CYW,255,0,RGB(34,139,34));