四线极品L2指标

HS:=vol/capital;   

DD:=BIGORDER(1,3)-BIGORDER(2,3);   

DT:=HS*DD*100;   

特大持仓: Sum(DT,0),linethick2;   

当日增减度: DT, linethick0;   

当日成交 := (DT * capital) * DYNAINFO(11)/10000;   

买入手数 := (capital*DT)/100;   

if (当日成交>=0) then    

begin   

Str1:= '净买入：'+ NUMTOSTRN(当日成交,0)+'万元,';   

Str2 := '净买入：'+ NUMTOSTRN(买入手数,0)+'手,';   

Str3 := '当日增减度：' + NUMTOSTRN(DT,3);   

end;   

if 当日成交<0 then    

begin   

Str1:= '净卖出：'+ NUMTOSTRN(当日成交,0)+'万元,';   

Str2 := '净卖出：'+ NUMTOSTRN(买入手数,0)+'手,';   

Str3 := '当日增减度：' + NUMTOSTRN(DT,3);   

end;   

  

HS:=vol/capital;   

DD:=(BIGORDER(1,2)-BIGORDER(2,2))-(BIGORDER(1,3)-BIGORDER(2,3));   

DT:=HS*DD*100;   

大户持仓: 50+Sum(DT,0),linethick2;   

当日增减度:=DT;   

  

当日成交 := (DT * capital) * DYNAINFO(11)/10000;   

买入手数 := (capital*DT)/100;   

if (当日成交>=0) then    

begin   

Str1:= '净买入：'+ NUMTOSTRN(当日成交,0)+'万元,';   

Str2 := '净买入：'+ NUMTOSTRN(买入手数,0)+'手,';   

Str3 := '当日增减度：' + NUMTOSTRN(DT,3);   

end;   

if 当日成交<0 then    

begin   

Str1:= '净卖出：'+ NUMTOSTRN(当日成交,0)+'万元,';   

Str2 := '净卖出：'+ NUMTOSTRN(买入手数,0)+'手,';   

Str3 := '当日增减度：' + NUMTOSTRN(DT,3);   

end;   

  

HS:=vol/capital;   

DD:=(BIGORDER(1,1)-BIGORDER(2,1))-(BIGORDER(1,2)-BIGORDER(2,2));   

DT:=HS*DD*100;   

中户持仓: 50+Sum(DT,0),linethick2;   

当日增减度:= DT;   

当日成交 := (DT * capital) * DYNAINFO(11)/10000;   

买入手数 := (capital*DT)/100;   

if (当日成交>=0) then    

begin   

Str1:= '净买入：'+ NUMTOSTRN(当日成交,0)+'万元,';   

Str2 := '净买入：'+ NUMTOSTRN(买入手数,0)+'手,';   

Str3 := '当日增减度：' + NUMTOSTRN(DT,3);   

end;   

if 当日成交<0 then    

begin   

Str1:= '净卖出：'+ NUMTOSTRN(当日成交,0)+'万元,';   

Str2 := '净卖出：'+ NUMTOSTRN(买入手数,0)+'手,';   

Str3 := '当日增减度：' + NUMTOSTRN(DT,3);   

end;   

  

HS:=vol/capital;   

DD:=-(BIGORDER(1,1)-BIGORDER(2,1));   

DT:=HS*DD*100;   

散户持仓: Sum(DT,0),linethick2;   

当日增减度:= DT;   

当日成交 := (DT * capital) * DYNAINFO(11)/10000;   

买入手数 := (capital*DT)/100;   

if (当日成交>=0) then    

begin   

Str1:= '净买入：'+ NUMTOSTRN(当日成交,0)+'万元,';   

Str2 := '净买入：'+ NUMTOSTRN(买入手数,0)+'手,';   

Str3 := '当日增减度：' + NUMTOSTRN(DT,3);   

end;   

if 当日成交<0 then    

begin   

Str1:= '净卖出：'+ NUMTOSTRN(当日成交,0)+'万元,';   

Str2 := '净卖出：'+ NUMTOSTRN(买入手数,0)+'手,';   

Str3 := '当日增减度：' + NUMTOSTRN(DT,3);   

end;