TH:=BARSLAST(C<REF(C,1)); -------------- 飞狐转化
TL:=BARSLAST(C>=REF(C,1));
HC:=SETVAL(C>=REF(C,1),C,-TH,C);
LC:=SETVAL(C<REF(C,1),C,-TL,C);
DCLOS:IF(C>=REF(C,1),HC,LC);
T:=BARSLAST(DCLOS<>REF(DCLOS,1));
DVOL:SUM(V,BARSLAST(DCLOS<>REF(DCLOS,1))+1)*100;
DVOL:=SETVAL(DCLOS<>REFX(DCLOS,1),DVOL,-T,DVOL);
var1:=BARSLAST(C<REF(C,1));--------------------------------------------------以下是通达信源码。
var2:=BARSLAST(C>=REF(C,1));
var3:=SETVAL(C>=REF(C,1),C,-var1,C);
var4:=SETVAL(C<REF(C,1),C,-var2,C);
DCLOS:=IF(C>=REF(C,1),var3,var4);
var5:=BARSLAST(DCLOS<>REF(DCLOS,1));
var6:=SUM(V,BARSLAST(DCLOS<>REF(DCLOS,1))+1)*100;
DVOL:=SETVAL(DCLOS<>REFX(DCLOS,1),var6,-var5,var6);
A1:=(DVOL/C)/2;
A2:=SUM(IF(A1>100 AND CLOSE>REF(CLOSE,1),A1,0),0);
A3:=SUM(IF(A1>100 AND CLOSE<REF(CLOSE,1),A1,0),0);
A4:=SUM(IF(A1<100 AND CLOSE>REF(CLOSE,1),A1,0),0);
A5:=SUM(IF(A1<100 AND CLOSE<REF(CLOSE,1),A1,0),0);
A6:=A2+A3+A4+A5;
机买:(A2/A6)*100,LINETHICK2,COLORRED;
机卖:(A3/A6)*100,LINETHICK2,COLORGREEN;
散买:(A4/A6)*100,LINETHICK0;
散卖:(A5/A6)*100,LINETHICK0;
主力差:机买-机卖,LINETHICK2;
散户差:散买-散卖,LINETHICK0;
DRAWTEXT(主力差>0 AND REF(主力差,1)<=0,C*0.85,'●机构'),COLORRED;
DRAWTEXT(主力差<0 AND REF(主力差,1)>=0,-C*0.85,'○机构'),COLORWHITE;
DRAWTEXT(散户差>0 AND REF(散户差,1)<=0,C*0.15,'▲散户'),COLORCYAN;
DRAWTEXT(散户差<0 AND REF(散户差,1)>=0,-C*0.15,'△散户'),COLORWHITE;