流向统计（特单买、特单卖、大单买、大单卖
ZDddx:="DDx.DDx";
TODAY0:=zdddx=0;
TODAY:=DYNAINFO(7)=CLOSE and DYNAINFO(10)=AMOUNT and (ORDER(1)=0 and ORDER(2)=0);
TDR:=SELFDATA('特大买入');
TDC:=SELFDATA('特大卖出');
DDR:=SELFDATA('大单买入');
DDC:=SELFDATA('大单卖出');
TLR:=IF(TODAY0,TDR,bigorder(1,3));
TLC:=IF(TODAY0,TDC,bigorder(2,3));
DLR:=IF(TODAY0,DDR,(bigorder(1,2)-bigorder(1,3)));
DLC:=IF(TODAY0,DDC,(bigorder(2,2)-bigorder(2,3)));
TDB:="GDSJ.特买";
TDS:="GDSJ.特卖";
DDB:="GDSJ.大买";
DDS:="GDSJ.大卖";
特单买:=IF(TODAY,IF(TDB=0,TLR,TDB),TLR);
特单卖:=IF(TODAY,IF(TDS=0,TLC,TDS),TLC);
大单买:=IF(TODAY,IF(DDB=0,DLR,DDB),DLR);
大单卖:=IF(TODAY,IF(DDS=0,DLC,DDS),DLC);
主单买:=特单买+大单买;
主单卖:=特单卖+大单卖;
DRAWTEXTABS(180,0,'SV大资金流向:增减(%)');
DRAWTEXTABS(350,0,'SV大资金流向:净额(万)');
eye:=(主单买-主单卖)*vol/capital*100;
eyes:=sum(eye,0);
gold:=eyes+50;
资金线:=gold;{主力资金线}
成交:=(eye* capital) * (amount/(v*100))/10000;
一日:percentbar(资金线,REF(资金线,1));
二日:percentbar(资金线,REF(资金线,2));
三日:percentbar(资金线,REF(资金线,3));
四日:percentbar(资金线,REF(资金线,4));
五日:percentbar(资金线,REF(资金线,5));
十日:percentbar(资金线,REF(资金线,10));
廿日:percentbar(资金线,REF(资金线,20));
三十日:percentbar(资金线,REF(资金线,30));
四十日:percentbar(资金线,REF(资金线,40));
五十日:percentbar(资金线,REF(资金线,50));
六十日:percentbar(资金线,REF(资金线,60));
九十日:percentbar(资金线,REF(资金线,90));
A1:=Sum(成交,1);
A2:=Sum(成交,2);
A3:=Sum(成交,3);
A4:=Sum(成交,4);
A5:=Sum(成交,5);
A10:=Sum(成交,10);
A20:=Sum(成交,20);
A30:=Sum(成交,30);
A40:=Sum(成交,40);
A50:=Sum(成交,50);
A60:=Sum(成交,60);
A90:=Sum(成交,90);
drawtextrel(0,998,'净额');{(万)}
drawtextrel(0,999,'分类');
drawtextrel(10,998,numtostrn(A1,2)),COLOR00FFFF;
drawtextrel(20,998,numtostrn(A2,2)),COLOR00FFFF;
drawtextrel(30,998,numtostrn(A3,2)),COLOR00FFFF;
drawtextrel(40,998,numtostrn(A4,2)),COLOR00FFFF;
drawtextrel(50,998,numtostrn(A5,2)),COLOR00FFFF;
drawtextrel(60,998,numtostrn(A10,2)),COLOR00FFFF;
drawtextrel(70,998,numtostrn(A20,2)),COLOR00FFFF;
drawtextrel(80,998,numtostrn(A30,2)),COLOR00FFFF;
drawtextrel(90,998,numtostrn(A40,2)),COLOR00FFFF;
drawtextrel(100,998,numtostrn(A50,2)),COLOR00FFFF;drawtextrel(110,998,numtostrn(A60,2)),COLOR00FFFF;
drawtextrel(120,998,numtostrn(A90,2)),COLOR00FFFF;{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
