通达信仿一个大单动向公式

话不多说 直接上源码 不到之处望谅解！！！！！
没有名字 看像什么 就是什么。

N:=5;
VAR1:=V/((H-L)*2-ABS(C-O));
主买:=IF(C>O,VAR1*(H-L),IF(C<O,VAR1*((H-O)+(C-L)),V/2)),COLORRED,NODRAW;
主卖:=IF(C>O,0-VAR1*((H-C)+(O-L)),IF(C<O,0-VAR1*(H-L),0-V/2)),COLOR00FF00,NODRAW;
DDX:=(主买+主卖){*10000/FINANCE(7)},NODRAW,COLORFF0099;
大单动向:SUM(DDX,N); VA1:=MA(大单动向,5);
DDP:=(大单动向+REF(大单动向,1))/2;
DRAWBAND(DDP,RGB(255,96,96),0,RGB(0,224,224));
DRAWBAND(大单动向,RGB(0,224,224),DDP,RGB(255,96,96));
DRAWBAND(大单动向,RGB(255,96,96),VA1,RGB(0,224,224));
VA:VA1,COLORMAGENTA;