阳春-席位统计[3D版]附源码

input:N(5,1,100);
if (MARKETLABEL <> 'SH') Then Begin
DRAWTEXTEX(1,0,200,100,'只能运行在上证A股 ！\n \n请切换到上证个股！！');
Exit;
End;
S1:=SELFDATA('买1席');
S2:=SELFDATA('卖1额');
SJ:=BARSLAST(((ABS((S1 - REF(S1,1))) > 0.1) or (ABS((S2 - REF(S2,1))) > 0.1)));
ZQ:=IF((SJ > 0),SJ,0);
数据日期:(REF(DATE,ZQ) - 1000000),linethick,colorRed;
P:=SYSPARAM(1);
P:=SYSPARAM(1);
基金买入:=SELFDATA('基金买入');
基金买额:基金买入[P],linethick,;
基金卖出:=SELFDATA('基金卖出');
基金卖额:=基金卖出[P];
基金净额:=(基金买额 - 基金卖额);
普通买入:=SELFDATA('普通买入');
普通买额:普通买入[P],linethick,;
普通卖出:=SELFDATA('普通卖出');
普通卖额:=普通卖出[P];
普通净额:=(普通买额 - 普通卖额);
T席买入:=SELFDATA('T席买入');
T席买额:T席买入[P],linethick,;
T席卖出:=SELFDATA('T席卖出');
T席卖额:=T席卖出[P];
T席净额:=(T席买额 - T席卖额);
机构总净额:=((基金净额 + 普通净额) + T席净额);
机构总净:=(((基金买入 - 基金卖出) + (普通买入 - 普通卖出)) + (T席买入 - T席卖出));
五日机构总:=MA(机构总净,5);
五日机构总净:=五日机构总[P];
历史流通盘:=SELFDATA('LSTQ');
流通盘占盘比:=((机构总净额)/(历史流通盘[P]))*(100);
VARIABLE: 买账[10]:='';
卖帐[10]:='';
买名[10]:='';
卖名[10]:='';
其他账[7]:='';
其他名[7]:='';
I:=1;
WHILE (I <= 10) Do
Begin
Begin
买N额:=SELFDATA((('买' + NUMTOSTR(I,0)) + '买额'));
买额[I]:=买N额[P];
买净N额:=SELFDATA((('买' + NUMTOSTR(I,0)) + '额'));
买净额[I]:=买净N额[P];
买卖额[I]:=(买N额[P] - 买净N额[P]);
卖N额:=SELFDATA((('卖' + NUMTOSTR(I,0)) + '卖额'));
卖额[I]:=卖N额[P];
卖净N额:=SELFDATA((('卖' + NUMTOSTR(I,0)) + '额'));
卖净额[I]:=卖净N额[P];
卖买额[I]:=(卖N额[P] - ABS(卖净N额[P]));
买N席:=INTPART(SELFDATA((('买' + NUMTOSTR(I,0)) + '席')));
卖N席:=INTPART(SELFDATA((('卖' + NUMTOSTR(I,0)) + '席')));
JT:=(IF((INTPART((买N席[P])/(100000)) = 7),'A',IF((INTPART((买N席[P])/(100000)) = 2),'G',IF((INTPART((买N席[P])/(100000)) = 3),'T','B'))) + STRMID(NUMTOSTR(买N席[P],0),2,5));
CT:=(IF((INTPART((卖N席[P])/(100000)) = 7),'A',IF((INTPART((卖N席[P])/(100000)) = 2),'G',IF((INTPART((卖N席[P])/(100000)) = 3),'T','B'))) + STRMID(NUMTOSTR(卖N席[P],0),2,5));
买账[I]:=JT;
卖帐[I]:=CT;
买名[I]:=IF((F10FIND(STRRIGHT(NUMTOSTR(买N席[P],0),6),1) = (0 - 1)),'自编码无此席位，请更新',F10TEXT((F10FIND(NUMTOSTR(买N席[P],0),1) + 6),0));
卖名[I]:=IF((F10FIND(STRRIGHT(NUMTOSTR(卖N席[P],0),6),1) = (0 - 1)),'自编码无此席位，请更新',F10TEXT((F10FIND(NUMTOSTR(卖N席[P],0),1) + 6),0));
End;
End;
K:=1;
WHILE (K <= 7) Do
Begin
Begin
其他I额:=SELFDATA((('其他' + NUMTOSTR(K,0)) + '额'));
其他额[K]:=其他I额[P];
其他I席:=INTPART(SELFDATA((('其他' + NUMTOSTR(K,0)) + '席')));
CR:=(IF((INTPART((其他I席[P])/(100000)) = 7),'A',IF((INTPART((其他I席[P])/(100000)) = 2),'G',IF((INTPART((其他I席[P])/(100000)) = 3),'T','B'))) + STRMID(NUMTOSTR(其他I席[P],0),2,5));
其他账[K]:=CR;
其他名[K]:=IF((F10FIND(STRRIGHT(NUMTOSTR(其他I席[P],0),6),1) = (0 - 1)),'自编码无此席位，请更新',F10TEXT((F10FIND(NUMTOSTR(其他I席[P],0),1) + 6),0));
End;
End;
KZ1:=(其他额[1] > 0);
KZ2:=(其他额[2] > 0);
KZ3:=(其他额[3] > 0);
KZ4:=(其他额[4] > 0);
KZ5:=(其他额[5] > 0);
KZ6:=(其他额[6] > 0);
KZ7:=(其他额[7] > 0);
ZZ1:=(其他额[1] < 0);
ZZ2:=(其他额[2] < 0);
ZZ3:=(其他额[3] < 0);
ZZ4:=(其他额[4] < 0);
ZZ5:=(其他额[5] < 0);
ZZ6:=(其他额[6] < 0);
ZZ7:=(其他额[7] < 0);
YC1:=((((((KZ1 + KZ2) + KZ3) + KZ4) + KZ5) + KZ6) + KZ7);
YC2:=((((((ZZ1 + ZZ2) + ZZ3) + ZZ4) + ZZ5) + ZZ6) + ZZ7);
YP:=MAX(YC1,YC2);
GS1:=IF((STRLEFT(买账[1],1) = 'G'),((买账[1] + ' ') + 买名[1]),' ');
GS2:=IF((STRLEFT(买账[2],1) = 'G'),((买账[2] + ' ') + 买名[2]),' ');
GS3:=IF((STRLEFT(买账[3],1) = 'G'),((买账[3] + ' ') + 买名[3]),' ');
GS4:=IF((STRLEFT(买账[4],1) = 'G'),((买账[4] + ' ') + 买名[4]),' ');
GS5:=IF((STRLEFT(买账[5],1) = 'G'),((买账[5] + ' ') + 买名[5]),' ');
GS6:=IF((STRLEFT(买账[6],1) = 'G'),((买账[6] + ' ') + 买名[6]),' ');
GS7:=IF((STRLEFT(买账[7],1) = 'G'),((买账[7] + ' ') + 买名[7]),' ');
GS8:=IF((STRLEFT(买账[8],1) = 'G'),((买账[8] + ' ') + 买名[8]),' ');
GS9:=IF((STRLEFT(买账[9],1) = 'G'),((买账[9] + ' ') + 买名[9]),' ');
GS10:=IF((STRLEFT(买账[10],1) = 'G'),((买账[10] + ' ') + 买名[10]),' ');
GT1:=IF((STRLEFT(其他账[1],1) = 'G'),((其他账[1] + ' ') + 其他名[1]),' ');
GT2:=IF((STRLEFT(其他账[2],1) = 'G'),((其他账[2] + ' ') + 其他名[2]),' ');
GT3:=IF((STRLEFT(其他账[3],1) = 'G'),((其他账[3] + ' ') + 其他名[3]),' ');
GT4:=IF((STRLEFT(其他账[4],1) = 'G'),((其他账[4] + ' ') + 其他名[4]),' ');
GT5:=IF((STRLEFT(其他账[5],1) = 'G'),((其他账[5] + ' ') + 其他名[5]),' ');
GT6:=IF((STRLEFT(其他账[6],1) = 'G'),((其他账[6] + ' ') + 其他名[6]),' ');
GT7:=IF((STRLEFT(其他账[7],1) = 'G'),((其他账[7] + ' ') + 其他名[7]),' ');
TS1:=IF((STRLEFT(买账[1],1) = 'T'),((买账[1] + ' ') + 买名[1]),' ');
TS2:=IF((STRLEFT(买账[2],1) = 'T'),((买账[2] + ' ') + 买名[2]),' ');
TS3:=IF((STRLEFT(买账[3],1) = 'T'),((买账[3] + ' ') + 买名[3]),' ');
TS4:=IF((STRLEFT(买账[4],1) = 'T'),((买账[4] + ' ') + 买名[4]),' ');
TS5:=IF((STRLEFT(买账[5],1) = 'T'),((买账[5] + ' ') + 买名[5]),' ');
TS6:=IF((STRLEFT(买账[6],1) = 'T'),((买账[6] + ' ') + 买名[6]),' ');
TS7:=IF((STRLEFT(买账[7],1) = 'T'),((买账[7] + ' ') + 买名[7]),' ');
TS8:=IF((STRLEFT(买账[8],1) = 'T'),((买账[8] + ' ') + 买名[8]),' ');
TS9:=IF((STRLEFT(买账[9],1) = 'T'),((买账[9] + ' ') + 买名[9]),' ');
TS10:=IF((STRLEFT(买账[10],1) = 'T'),((买账[10] + ' ') + 买名[10]),' ');
TT1:=IF((STRLEFT(其他账[1],1) = 'T'),((其他账[1] + ' ') + 其他名[1]),' ');
TT2:=IF((STRLEFT(其他账[2],1) = 'T'),((其他账[2] + ' ') + 其他名[2]),' ');
TT3:=IF((STRLEFT(其他账[3],1) = 'T'),((其他账[3] + ' ') + 其他名[3]),' ');
TT4:=IF((STRLEFT(其他账[4],1) = 'T'),((其他账[4] + ' ') + 其他名[4]),' ');
TT5:=IF((STRLEFT(其他账[5],1) = 'T'),((其他账[5] + ' ') + 其他名[5]),' ');
TT6:=IF((STRLEFT(其他账[6],1) = 'T'),((其他账[6] + ' ') + 其他名[6]),' ');
TT7:=IF((STRLEFT(其他账[7],1) = 'T'),((其他账[7] + ' ') + 其他名[7]),' ');
BS1:=IF((STRLEFT(买账[1],1) = 'B'),((买账[1] + ' ') + 买名[1]),' ');
BS2:=IF((STRLEFT(买账[2],1) = 'B'),((买账[2] + ' ') + 买名[2]),' ');
BS3:=IF((STRLEFT(买账[3],1) = 'B'),((买账[3] + ' ') + 买名[3]),' ');
BS4:=IF((STRLEFT(买账[4],1) = 'B'),((买账[4] + ' ') + 买名[4]),' ');
BS5:=IF((STRLEFT(买账[5],1) = 'B'),((买账[5] + ' ') + 买名[5]),' ');
BS6:=IF((STRLEFT(买账[6],1) = 'B'),((买账[6] + ' ') + 买名[6]),' ');
BS7:=IF((STRLEFT(买账[7],1) = 'B'),((买账[7] + ' ') + 买名[7]),' ');
BS8:=IF((STRLEFT(买账[8],1) = 'B'),((买账[8] + ' ') + 买名[8]),' ');
BS9:=IF((STRLEFT(买账[9],1) = 'B'),((买账[9] + ' ') + 买名[9]),' ');
BS10:=IF((STRLEFT(买账[10],1) = 'B'),((买账[10] + ' ') + 买名[10]),' ');
BT1:=IF((STRLEFT(其他账[1],1) = 'B'),((其他账[1] + ' ') + 其他名[1]),' ');
BT2:=IF((STRLEFT(其他账[2],1) = 'B'),((其他账[2] + ' ') + 其他名[2]),' ');
BT3:=IF((STRLEFT(其他账[3],1) = 'B'),((其他账[3] + ' ') + 其他名[3]),' ');
BT4:=IF((STRLEFT(其他账[4],1) = 'B'),((其他账[4] + ' ') + 其他名[4]),' ');
BT5:=IF((STRLEFT(其他账[5],1) = 'B'),((其他账[5] + ' ') + 其他名[5]),' ');
BT6:=IF((STRLEFT(其他账[6],1) =