机构持仓 源码
-
相关简介:机构持仓 源码 C/C++ www.zegu.cn 择股网提供 Code 复制内容到剪贴板 HS:=vol/capital; DD:=BIGORDER(1,3)-BIGORDER(2,3); DT:=HS*DD*100; 机构持仓:Sum(DT,0),linethick2; 当日增减度:DT,linethick0; STICKLINE(DT0,机构持仓,机构持仓+DT,5,0),COLORRed; STICKLine(DT0,机构持仓+DT,机构持仓,5,0),COL
-
文章来源:择股网作者:股海网发布时间:2010-09-27浏览次数:
机构持仓 源码
C/C++ www.zegu.cn 择股网提供 Code复制内容到剪贴板
- HS:=vol/capital;
- DD:=BIGORDER(1,3)-BIGORDER(2,3);
- DT:=HS*DD*100;
- 机构持仓: Sum(DT,0),linethick2;
- 当日增减度: DT, linethick0;
- STICKLINE(DT>0,机构持仓,机构持仓+DT,5,0),COLORRed;
- STICKLine(DT<0,机构持仓+DT,机构持仓,5,0),COLORGreen;
- 当日成交 := (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;
- DRAWFLAGTEXT(DT>=0,机构持仓,Str1+str2+str3),COLORRED;
- DRAWFLAGTEXT(DT<0,机构持仓,Str1+str2+str3),COLORGREEN;
上一篇:周线KDJ(大智慧版本 副图 源码)
下一篇:神犬嗅顶底 指标源码