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;
低主5:=llv(主动,5);
动比:=主动-低主5;
高动5:=6/hhv(动比,5);
主动心:=高动5*动比;
k1:=主动心+1-ref(主动心,1)>0;
k2:=主动心+1-ref(主动心,1)<0;
主动心向:=主动心*k1-主动心*k2;

{下面是量价了相合}
ff:=CLOSE-ref(CLOSE,1);
a:=ma(vol*ff,2);
a0:=ma(vol*ff,3);
a1:=ma(vol*ff,5);
a2:=ma(vol*ff,10);
a3:=ma(vol*ff,20);
a4:=ma(vol*ff,30);
b:=a-ref(a,1);
b0:=a0-ref(a0,1);
b1:=a1-ref(a1,1);
b2:=a2-ref(a2,1);
b3:=a3-ref(a3,1);
b4:=a3-ref(a4,1);
量价相合:(b>0)+(b0>0)+(b1>0)+(b2>0)+(b3>0)+(b4>0),DOTLINE;

yes:(量价相合>1)*量价相合*(主动心向>1 or 主动心>60);
partline(yes,yes>=ref(yes,1),rgb(255,0,0),yes<ref(yes,1),rgb(0,250,0)),linethick2;
周期1:IF(yes,BARSLAST(CROSS(yes,0.1))+1,0),COLORFF00FF,POINTDOT,LINETHICK0;