0,DOTLINE;
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主动买盘:=IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,
VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));
主动卖盘:=IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),
IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2));
主动:=sum(主动买盘,0)/sum(主动卖盘,0)*-1;
低主10:=llv(主动,10);
动比:=主动-低主10;
高放10:=100/hhv(动比,10);
DRAWTEXTABS(5,5,'萃富网 www.cuiv.com'),linethick1,COLOR00EEff;
主动心:高放10*动比,Color0000FF,DOTLINE,linethick2;
主动心1:主动心,Color00FFFF,DOTLINE;
心向:主动心-ref(主动心,1),linethick0,precis1;
D1天:BARSLAST(主动心=0),precis0;{D1为最近买点周期};
心向天:心向/abs(心向)*D1天,Colorred,linethick0,precis0;