NN:=BARSLAST(DATE<>REF(DATE,1))+1;
QQ:=OPI-REF(OPI,1);//持仓与上一持仓的持仓量差

K1:=IFELSE(CLOSE>OPEN&&QQ>=0,QQ,0);//阳线增仓差

KK1:=IFELSE(CLOSE<OPEN&&QQ<0,QQ,0);//阴线减仓差

KKK1:=IFELSE(CLOSE=OPEN,QQ*0.5,0);//收星半仓差

K2:=IFELSE(CLOSE<OPEN&&QQ>=0,QQ,0);//阴线增仓差

KK2:=IFELSE(CLOSE>OPEN&&QQ<0,QQ,0);//阳线减仓差

DO:SUM(K1,NN)+SUM(KK1,NN)+SUM(KKK1,NN);

KO:SUM(K2,NN)+SUM(KK2,NN)+SUM(KKK1,NN);

POLYLINE(CLOSE>0,DO,COLORYELLOW);//黄色代表多头

POLYLINE(CLOSE>0,KO,COLORGREEN);//绿色代表空头

W:=MOD(NN,5);

J:=BACKSET(ISLASTBAR,5);

DRAWNUMBER(ISLASTBAR,DO,DO,0,COLORYELLOW);

DRAWNUMBER(ISLASTBAR,KO,KO,0,COLORGREEN);

DRAWNUMBER(W=0&&J=0,DO,DO,0,COLORYELLOW);

DRAWNUMBER(W=0&&J=0,KO,KO,0,COLORGREEN);