IF MARKETLABEL<>'SH' THEN
 DRAWTEXTEX(CLOSE,1,380,400,'非沪市股票，无TOPVIEW数据');
IF MARKETLABEL<>'SH' THEN
 EXIT;
 DRAWTEXTEX(CLOSE,1,0,5,'『'+STKLABEL+' '+STKNAME+'』'),colorFFFF00;
 P:=SYSPARAM(1);
 A2:=SYSPARAM(2);
 A3:=SYSPARAM(3);
 KS:=A3-A2;
 Z:=KS/140;
散户持仓:=SELFDATA('散户');
数据日:=BARSLAST(ABS(散户持仓-REF(散户持仓,1))>0);

 R1:=SELFDATA('买1额');
R2:=SELFDATA('买2额');
R3:=SELFDATA('买3额');
R4:=SELFDATA('买4额');
R5:=SELFDATA('买5额');
R6:=SELFDATA('买6额');
R7:=SELFDATA('买7额');
R8:=SELFDATA('买8额');
R9:=SELFDATA('买9额');
R10:=SELFDATA('买10额');

RC1:=SELFDATA('买1席');
RC2:=SELFDATA('买2席');
RC3:=SELFDATA('买3席');
RC4:=SELFDATA('买4席');
RC5:=SELFDATA('买5席');
RC6:=SELFDATA('买6席');
RC7:=SELFDATA('买7席');
RC8:=SELFDATA('买8席');
RC9:=SELFDATA('买9席');
RC10:=SELFDATA('买10席');

C1:=SELFDATA('卖1额');
C2:=SELFDATA('卖2额');
C3:=SELFDATA('卖3额');
C4:=SELFDATA('卖4额');
C5:=SELFDATA('卖5额');
C6:=SELFDATA('卖6额');
C7:=SELFDATA('卖7额');
C8:=SELFDATA('卖8额');
C9:=SELFDATA('卖9额');
C10:=SELFDATA('卖10额');

CC1:=SELFDATA('卖1席');
CC2:=SELFDATA('卖2席');
CC3:=SELFDATA('卖3席');
CC4:=SELFDATA('卖4席');
CC5:=SELFDATA('卖5席');
CC6:=SELFDATA('卖6席');
CC7:=SELFDATA('卖7席');
CC8:=SELFDATA('卖8席');
CC9:=SELFDATA('卖9席');
CC10:=SELFDATA('卖10席');

IF RC1[P]<200000 AND RC1[P]>=100000 THEN
 STRRC1:='A'+STRRIGHT(NUMTOSTR(RC1[P],0),5);
 IF RC1[P]>=200000 AND RC1[P]<300000 THEN
 STRRC1:='G'+STRRIGHT(NUMTOSTR(RC1[P],0),5);
 IF RC1[P]>=300000 THEN
 STRRC1:='T'+STRRIGHT(NUMTOSTR(RC1[P],0),5);
 IF RC1[P]<20000 AND RC1[P]>=10000 THEN
 STRRC1:='A'+STRRIGHT(NUMTOSTR(RC1[P],0),4);
 IF RC1[P]>=20000 AND RC1[P]<30000 THEN
 STRRC1:='G'+STRRIGHT(NUMTOSTR(RC1[P],0),4);
 IF RC1[P]>=30000 AND RC1[P]<40000 THEN
 STRRC1:='T'+STRRIGHT(NUMTOSTR(RC1[P],0),4);
 IF RC1[P]>=40000 AND RC1[P]<50000 THEN
 STRRC1:='Q'+STRRIGHT(NUMTOSTR(RC1[P],0),4);
 IF RC1[P]>=500000 THEN
 STRRC1:='Z'+STRRIGHT(NUMTOSTR(RC1[P],0),4);
 IF RC2[P]<200000 AND RC2[P]>=100000 THEN
 STRRC2:='A'+STRRIGHT(NUMTOSTR(RC2[P],0),5);
 IF RC2[P]>=200000 AND RC2[P]<300000 THEN
 STRRC2:='G'+STRRIGHT(NUMTOSTR(RC2[P],0),5);
 IF RC2[P]>=300000 THEN
 STRRC2:='T'+STRRIGHT(NUMTOSTR(RC2[P],0),5);
 IF RC2[P]<20000 AND RC2[P]>=10000 THEN
 STRRC2:='A'+STRRIGHT(NUMTOSTR(RC2[P],0),4);
 IF RC2[P]>=20000 AND RC2[P]<30000 THEN
 STRRC2:='G'+STRRIGHT(NUMTOSTR(RC2[P],0),4);
 IF RC2[P]>=30000 AND RC2[P]<40000 THEN
 STRRC2:='T'+STRRIGHT(NUMTOSTR(RC2[P],0),4);
 IF RC2[P]>=40000 AND RC2[P]<50000 THEN
 STRRC2:='Q'+STRRIGHT(NUMTOSTR(RC2[P],0),4);
 IF RC2[P]>=500000 THEN
 STRRC2:='Z'+STRRIGHT(NUMTOSTR(RC2[P],0),4);
 IF RC3[P]<200000 AND RC3[P]>=100000 THEN
 STRRC3:='A'+STRRIGHT(NUMTOSTR(RC3[P],0),5);
 IF RC3[P]>=200000 AND RC3[P]<300000 THEN
 STRRC3:='G'+STRRIGHT(NUMTOSTR(RC3[P],0),5);
 IF RC3[P]>=300000 THEN
 STRRC3:='T'+STRRIGHT(NUMTOSTR(RC3[P],0),5);
 IF RC3[P]<20000 AND RC3[P]>=10000 THEN
 STRRC3:='A'+STRRIGHT(NUMTOSTR(RC3[P],0),4);
 IF RC3[P]>=20000 AND RC3[P]<30000 THEN
 STRRC3:='G'+STRRIGHT(NUMTOSTR(RC3[P],0),4);
 IF RC3[P]>=30000 AND RC3[P]<40000 THEN
 STRRC3:='T'+STRRIGHT(NUMTOSTR(RC3[P],0),4);
 IF RC3[P]>=40000 AND RC3[P]<50000 THEN
 STRRC3:='Q'+STRRIGHT(NUMTOSTR(RC3[P],0),4);
 IF RC3[P]>=500000 THEN
 STRRC3:='Z'+STRRIGHT(NUMTOSTR(RC3[P],0),4);
 IF RC4[P]<200000 AND RC4[P]>=100000 THEN
 STRRC4:='A'+STRRIGHT(NUMTOSTR(RC4[P],0),5);
 IF RC4[P]>=200000 AND RC4[P]<300000 THEN
 STRRC4:='G'+STRRIGHT(NUMTOSTR(RC4[P],0),5);
 IF RC4[P]>=300000 THEN
 STRRC4:='T'+STRRIGHT(NUMTOSTR(RC4[P],0),5);
 IF RC4[P]<20000 AND RC4[P]>=10000 THEN
 STRRC4:='A'+STRRIGHT(NUMTOSTR(RC4[P],0),4);
 IF RC4[P]>=20000 AND RC4[P]<30000 THEN
 STRRC4:='G'+STRRIGHT(NUMTOSTR(RC4[P],0),4);
 IF RC4[P]>=30000 AND RC4[P]<40000 THEN
 STRRC4:='T'+STRRIGHT(NUMTOSTR(RC4[P],0),4);
 IF RC4[P]>=40000 AND RC4[P]<50000 THEN
 STRRC4:='Q'+STRRIGHT(NUMTOSTR(RC4[P],0),4);
 IF RC4[P]>=500000 THEN
 STRRC4:='Z'+STRRIGHT(NUMTOSTR(RC4[P],0),4);
 IF RC5[P]<200000 AND RC5[P]>=100000 THEN
 STRRC5:='A'+STRRIGHT(NUMTOSTR(RC5[P],0),5);
 IF RC5[P]>=200000 AND RC5[P]<300000 THEN
 STRRC5:='G'+STRRIGHT(NUMTOSTR(RC5[P],0),5);
 IF RC5[P]>=300000 THEN
 STRRC5:='T'+STRRIGHT(NUMTOSTR(RC5[P],0),5);
 IF RC5[P]<20000 AND RC5[P]>=10000 THEN
 STRRC5:='A'+STRRIGHT(NUMTOSTR(RC5[P],0),4);
 IF RC5[P]>=20000 AND RC5[P]<30000 THEN
 STRRC5:='G'+STRRIGHT(NUMTOSTR(RC5[P],0),4);
 IF RC5[P]>=30000 AND RC5[P]<40000 THEN
 STRRC5:='T'+STRRIGHT(NUMTOSTR(RC5[P],0),4);
 IF RC5[P]>=40000 AND RC5[P]<50000 THEN
 STRRC5:='Q'+STRRIGHT(NUMTOSTR(RC5[P],0),4);
 IF RC5[P]>=500000 THEN
 STRRC5:='Z'+STRRIGHT(NUMTOSTR(RC5[P],0),4);
 IF RC6[P]<200000 AND RC6[P]>=100000 THEN
 STRRC6:='A'+STRRIGHT(NUMTOSTR(RC6[P],0),5);
 IF RC6[P]>=200000 AND RC6[P]<300000 THEN
 STRRC6:='G'+STRRIGHT(NUMTOSTR(RC6[P],0),5);
 IF RC6[P]>=300000 THEN
 STRRC6:='T'+STRRIGHT(NUMTOSTR(RC6[P],0),5);
 IF RC6[P]<20000 AND RC6[P]>=10000 THEN
 STRRC6:='A'+STRRIGHT(NUMTOSTR(RC6[P],0),4);
 IF RC6[P]>=20000 AND RC6[P]<30000 THEN
 STRRC6:='G'+STRRIGHT(NUMTOSTR(RC6[P],0),4);
 IF RC6[P]>=30000 AND RC6[P]<40000 THEN
 STRRC6:='T'+STRRIGHT(NUMTOSTR(RC6[P],0),4);
 IF RC6[P]>=40000 AND RC6[P]<50000 THEN
 STRRC6:='Q'+STRRIGHT(NUMTOSTR(RC6[P],0),4);
 IF RC6[P]>=500000 THEN
 STRRC6:='Z'+STRRIGHT(NUMTOSTR(RC6[P],0),4);
 IF RC7[P]<200000 AND RC7[P]>=100000 THEN
 STRRC7:='A'+STRRIGHT(NUMTOSTR(RC7[P],0),5);
 IF RC7[P]>=200000 AND RC7[P]<300000 THEN
 STRRC7:='G'+STRRIGHT(NUMTOSTR(RC7[P],0),5);
 IF RC7[P]>=300000 THEN
 STRRC7:='T'+STRRIGHT(NUMTOSTR(RC7[P],0),5);
 IF RC7[P]<20000 AND RC7[P]>=10000 THEN
 STRRC7:='A'+STRRIGHT(NUMTOSTR(RC7[P],0),4);
 IF RC7[P]>=20000 AND RC7[P]<30000 THEN
 STRRC7:='G'+STRRIGHT(NUMTOSTR(RC7[P],0),4);
 IF RC7[P]>=30000 AND RC7[P]<40000 THEN
 STRRC7:='T'+STRRIGHT(NUMTOSTR(RC7[P],0),4);
 IF RC7[P]>=40000 AND RC7[P]<50000 THEN
 STRRC7:='Q'+STRRIGHT(NUMTOSTR(RC7[P],0),4);
 IF RC7[P]>=500000 THEN
 STRRC7:='Z'+STRRIGHT(NUMTOSTR(RC7[P],0),4);
 IF RC8[P]<200000 AND RC8[P]>=100000 THEN
 STRRC8:='A'+STRRIGHT(NUMTOSTR(RC8[P],0),5);
 IF RC8[P]>=200000 AND RC8[P]<300000 THEN
 STRRC8:='G'+STRRIGHT(NUMTOSTR(RC8[P],0),5);
 IF RC8[P]>=300000 THEN
 STRRC8:='T'+STRRIGHT(NUMTOSTR(RC8[P],0),5);
 IF RC8[P]<20000 AND RC8[P]>=10000 THEN
 STRRC8:='A'+STRRIGHT(NUMTOSTR(RC8[P],0),4);
 IF RC8[P]>=20000 AND RC8[P]<30000 THEN
 STRRC8:='G'+STRRIGHT(NUMTOSTR(RC8[P],0),4);
 IF RC8[P]>=30000 AND RC8[P]<40000 THEN
 STRRC8:='T'+STRRIGHT(NUMTOSTR(RC8[P],0),4);
 IF RC8[P]>=40000 AND RC8[P]<50000 THEN
 STRRC8:='Q'+STRRIGHT(NUMTOSTR(RC8[P],0),4);
 IF RC8[P]>=500000 THEN
 STRRC8:='Z'+STRRIGHT(NUMTOSTR(RC8[P],0),4);
 IF RC9[P]<200000 AND RC9[P]>=100000 THEN
 STRRC9:='A'+STRRIGHT(NUMTOSTR(RC9[P],0),5);
 IF RC9[P]>=200000 AND RC9[P]<300000 THEN
 STRRC9:='G'+STRRIGHT(NUMTOSTR(RC9[P],0),5);
 IF RC9[P]>=300000 THEN
 STRRC9:='T'+STRRIGHT(NUMTOSTR(RC9[P],0),5);
 IF RC9[P]<20000 AND RC9[P]>=10000 THEN
 STRRC9:='A'+STRRIGHT(NUMTOSTR(RC9[P],0),4);
 IF RC9[P]>=20000 AND RC9[P]<30000 THEN
 STRRC9:='G'+STRRIGHT(NUMTOSTR(RC9[P],0),4);
 IF RC9[P]>=30000 AND RC9[P]<40000 THEN
 STRRC9:='T'+STRRIGHT(NUMTOSTR(RC9[P],0),4);
 IF RC9[P]>=40000 AND RC9[P]<50000 THEN
 STRRC9:='Q'+STRRIGHT(NUMTOSTR(RC9[P],0),4);
 IF RC9[P]>=500000 THEN
 STRRC9:='Z'+STRRIGHT(NUMTOSTR(RC9[P],0),4);
 IF RC10[P]<200000 AND RC10[P]>=100000 THEN
 STRRC10:='A'+STRRIGHT(NUMTOSTR(RC10[P],0),5);
 IF RC10[P]>=200000 AND RC10[P]<300000 THEN
 STRRC10:='G'+STRRIGHT(NUMTOSTR(RC10[P],0),5);
 IF RC10[P]>=300000 THEN
 STRRC10:='T'+STRRIGHT(NUMTOSTR(RC10[P],0),5);
 IF RC10[P]<20000 AND RC10[P]>=10000 THEN
 STRRC10:='A'+STRRIGHT(NUMTOSTR(RC10[P],0),4);
 IF RC10[P]>=20000 AND RC10[P]<30000 THEN
 STRRC10:='G'+STRRIGHT(NUMTOSTR(RC10[P],0),4);
 IF RC10[P]>=30000 AND RC10[P]<40000 THEN
 STRRC10:='T'+STRRIGHT(NUMTOSTR(RC10[P],0),4);
 IF RC10[P]>=40000 AND RC10[P]<50000 THEN
 STRRC10:='Q'+STRRIGHT(NUMTOSTR(RC10[P],0),4);
 IF RC10[P]>=500000 THEN
 STRRC10:='Z'+STRRIGHT(NUMTOSTR(RC10[P],0),4);

 IF CC1[P]<200000 AND CC1[P]>=100000 THEN
 STRCC1:='A'+STRRIGHT(NUMTOSTR(CC1[P],0),5);
 IF CC1[P]>=200000 AND CC1[P]<300000 THEN
 STRCC1:='G'+STRRIGHT(NUMTOSTR(CC1[P],0),5);
 IF CC1[P]>=300000 THEN
 STRCC1:='T'+STRRIGHT(NUMTOSTR(CC1[P],0),5);
 IF CC1[P]<20000 AND CC1[P]>=10000 THEN
 STRCC1:='A'+STRRIGHT(NUMTOSTR(CC1[P],0),4);
 IF CC1[P]>=20000 AND CC1[P]<30000 THEN
 STRCC1:='G'+STRRIGHT(NUMTOSTR(CC1[P],0),4);
 IF CC1[P]>=30000 AND CC1[P]<40000 THEN
 STRCC1:='T'+STRRIGHT(NUMTOSTR(CC1[P],0),4);
 IF CC1[P]>=40000 AND CC1[P]<50000 THEN
 STRCC1:='Q'+STRRIGHT(NUMTOSTR(CC1[P],0),4);
 IF CC1[P]>=500000 THEN
 STRCC1:='Z'+STRRIGHT(NUMTOSTR(CC1[P],0),4);
 IF CC2[P]<200000 AND CC2[P]>=100000 THEN
 STRCC2:='A'+STRRIGHT(NUMTOSTR(CC2[P],0),5);
 IF CC2[P]>=200000 AND CC2[P]<300000 THEN
 STRCC2:='G'+STRRIGHT(NUMTOSTR(CC2[P],0),5);
 IF CC2[P]>=300000 THEN
 STRCC2:='T'+STRRIGHT(NUMTOSTR(CC2[P],0),5);
 IF CC2[P]<20000 AND CC2[P]>=10000 THEN
 STRCC2:='A'+STRRIGHT(NUMTOSTR(CC2[P],0),4);
 IF CC2[P]>=20000 AND CC2[P]<30000 THEN
 STRCC2:='G'+STRRIGHT(NUMTOSTR(CC2[P],0),4);
 IF CC2[P]>=30000 AND CC2[P]<40000 THEN
 STRCC2:='T'+STRRIGHT(NUMTOSTR(CC2[P],0),4);
 IF CC2[P]>=40000 AND CC2[P]<50000 THEN
 STRCC2:='Q'+STRRIGHT(NUMTOSTR(CC2[P],0),4);
 IF CC2[P]>=500000 THEN
 STRCC2:='Z'+STRRIGHT(NUMTOSTR(CC2[P],0),4);
 IF CC3[P]<200000 AND CC3[P]>=100000 THEN
 STRCC3:='A'+STRRIGHT(NUMTOSTR(CC3[P],0),5);
 IF CC3[P]>=200000 AND CC3[P]<300000 THEN
 STRCC3:='G'+STRRIGHT(NUMTOSTR(CC3[P],0),5);
 IF CC3[P]>=300000 THEN
 STRCC3:='T'+STRRIGHT(NUMTOSTR(CC3[P],0),5);
 IF CC3[P]<20000 AND CC3[P]>=10000 THEN
 STRCC3:='A'+STRRIGHT(NUMTOSTR(CC3[P],0),4);
 IF CC3[P]>=20000 AND CC3[P]<30000 THEN
 STRCC3:='G'+STRRIGHT(NUMTOSTR(CC3[P],0),4);
 IF CC3[P]>=30000 AND CC3[P]<40000 THEN
 STRCC3:='T'+STRRIGHT(NUMTOSTR(CC3[P],0),4);
 IF CC3[P]>=40000 AND CC3[P]<50000 THEN
 STRCC3:='Q'+STRRIGHT(NUMTOSTR(CC3[P],0),4);
 IF CC3[P]>=500000 THEN
 STRCC3:='Z'+STRRIGHT(NUMTOSTR(CC3[P],0),4);
 IF CC4[P]<200000 AND CC4[P]>=100000 THEN
 STRCC4:='A'+STRRIGHT(NUMTOSTR(CC4[P],0),5);
 IF CC4[P]>=200000 AND CC4[P]<300000 THEN
 STRCC4:='G'+STRRIGHT(NUMTOSTR(CC4[P],0),5);
 IF CC4[P]>=300000 THEN
 STRCC4:='T'+STRRIGHT(NUMTOSTR(CC4[P],0),5);
 IF CC4[P]<20000 AND CC4[P]>=10000 THEN
 STRCC4:='A'+STRRIGHT(NUMTOSTR(CC4[P],0),4);
 IF CC4[P]>=20000 AND CC4[P]<30000 THEN
 STRCC4:='G'+STRRIGHT(NUMTOSTR(CC4[P],0),4);
 IF CC4[P]>=30000 AND CC4[P]<40000 THEN
 STRCC4:='T'+STRRIGHT(NUMTOSTR(CC4[P],0),4);
 IF CC4[P]>=40000 AND CC4[P]<50000 THEN
 STRCC4:='Q'+STRRIGHT(NUMTOSTR(CC4[P],0),4);
 IF CC4[P]>=500000 THEN
 STRCC4:='Z'+STRRIGHT(NUMTOSTR(CC4[P],0),4);
 IF CC5[P]<200000 AND CC5[P]>=100000 THEN
 STRCC5:='A'+STRRIGHT(NUMTOSTR(CC5[P],0),5);
 IF CC5[P]>=200000 AND CC5[P]<300000 THEN
 STRCC5:='G'+STRRIGHT(NUMTOSTR(CC5[P],0),5);
 IF CC5[P]>=300000 THEN
 STRCC5:='T'+STRRIGHT(NUMTOSTR(CC5[P],0),5);
 IF CC5[P]<20000 AND CC5[P]>=10000 THEN
 STRCC5:='A'+STRRIGHT(NUMTOSTR(CC5[P],0),4);
 IF CC5[P]>=20000 AND CC5[P]<30000 THEN
 STRCC5:='G'+STRRIGHT(NUMTOSTR(CC5[P],0),4);
 IF CC5[P]>=30000 AND CC5[P]<40000 THEN
 STRCC5:='T'+STRRIGHT(NUMTOSTR(CC5[P],0),4);
 IF CC5[P]>=40000 AND CC5[P]<50000 THEN
 STRCC5:='Q'+STRRIGHT(NUMTOSTR(CC5[P],0),4);
 IF CC5[P]>=500000 THEN
 STRCC5:='Z'+STRRIGHT(NUMTOSTR(CC5[P],0),4);
 IF CC6[P]<200000 AND CC6[P]>=100000 THEN
 STRCC6:='A'+STRRIGHT(NUMTOSTR(CC6[P],0),5);
 IF CC6[P]>=200000 AND CC6[P]<300000 THEN
 STRCC6:='G'+STRRIGHT(NUMTOSTR(CC6[P],0),5);
 IF CC6[P]>=300000 THEN
 STRCC6:='T'+STRRIGHT(NUMTOSTR(CC6[P],0),5);
 IF CC6[P]<20000 AND CC6[P]>=10000 THEN
 STRCC6:='A'+STRRIGHT(NUMTOSTR(CC6[P],0),4);
 IF CC6[P]>=20000 AND CC6[P]<30000 THEN
 STRCC6:='G'+STRRIGHT(NUMTOSTR(CC6[P],0),4);
 IF CC6[P]>=30000 AND CC6[P]<40000 THEN
 STRCC6:='T'+STRRIGHT(NUMTOSTR(CC6[P],0),4);
 IF CC6[P]>=40000 AND CC6[P]<50000 THEN
 STRCC6:='Q'+STRRIGHT(NUMTOSTR(CC6[P],0),4);
 IF CC6[P]>=500000 THEN
 STRCC6:='Z'+STRRIGHT(NUMTOSTR(CC6[P],0),4);
 IF CC7[P]<200000 AND CC7[P]>=100000 THEN
 STRCC7:='A'+STRRIGHT(NUMTOSTR(CC7[P],0),5);
 IF CC7[P]>=200000 AND CC7[P]<300000 THEN
 STRCC7:='G'+STRRIGHT(NUMTOSTR(CC7[P],0),5);
 IF CC7[P]>=300000 THEN
 STRCC7:='T'+STRRIGHT(NUMTOSTR(CC7[P],0),5);
 IF CC7[P]<20000 AND CC7[P]>=10000 THEN
 STRCC7:='A'+STRRIGHT(NUMTOSTR(CC7[P],0),4);
 IF CC7[P]>=20000 AND CC7[P]<30000 THEN
 STRCC7:='G'+STRRIGHT(NUMTOSTR(CC7[P],0),4);
 IF CC7[P]>=30000 AND CC7[P]<40000 THEN
 STRCC7:='T'+STRRIGHT(NUMTOSTR(CC7[P],0),4);
 IF CC7[P]>=40000 AND CC7[P]<50000 THEN
 STRCC7:='Q'+STRRIGHT(NUMTOSTR(CC7[P],0),4);
 IF CC7[P]>=500000 THEN
 STRCC7:='Z'+STRRIGHT(NUMTOSTR(CC7[P],0),4);
 IF CC8[P]<200000 AND CC8[P]>=100000 THEN
 STRCC8:='A'+STRRIGHT(NUMTOSTR(CC8[P],0),5);
 IF CC8[P]>=200000 AND CC8[P]<300000 THEN
 STRCC8:='G'+STRRIGHT(NUMTOSTR(CC8[P],0),5);
 IF CC8[P]>=300000 THEN
 STRCC8:='T'+STRRIGHT(NUMTOSTR(CC8[P],0),5);
 IF CC8[P]<20000 AND CC8[P]>=10000 THEN
 STRCC8:='A'+STRRIGHT(NUMTOSTR(CC8[P],0),4);
 IF CC8[P]>=20000 AND CC8[P]<30000 THEN
 STRCC8:='G'+STRRIGHT(NUMTOSTR(CC8[P],0),4);
 IF CC8[P]>=30000 AND CC8[P]<40000 THEN
 STRCC8:='T'+STRRIGHT(NUMTOSTR(CC8[P],0),4);
 IF CC8[P]>=40000 AND CC8[P]<50000 THEN
 STRCC8:='Q'+STRRIGHT(NUMTOSTR(CC8[P],0),4);
 IF CC8[P]>=500000 THEN
 STRCC8:='Z'+STRRIGHT(NUMTOSTR(CC8[P],0),4);
 IF CC9[P]<200000 AND CC9[P]>=100000 THEN
 STRCC9:='A'+STRRIGHT(NUMTOSTR(CC9[P],0),5);
 IF CC9[P]>=200000 AND CC9[P]<300000 THEN
 STRCC9:='G'+STRRIGHT(NUMTOSTR(CC9[P],0),5);
 IF CC9[P]>=300000 THEN
 STRCC9:='T'+STRRIGHT(NUMTOSTR(CC9[P],0),5);
 IF CC9[P]<20000 AND CC9[P]>=10000 THEN
 STRCC9:='A'+STRRIGHT(NUMTOSTR(CC9[P],0),4);
 IF CC9[P]>=20000 AND CC9[P]<30000 THEN
 STRCC9:='G'+STRRIGHT(NUMTOSTR(CC9[P],0),4);
 IF CC9[P]>=30000 AND CC9[P]<40000 THEN
 STRCC9:='T'+STRRIGHT(NUMTOSTR(CC9[P],0),4);
 IF CC9[P]>=40000 AND CC9[P]<50000 THEN
 STRCC9:='Q'+STRRIGHT(NUMTOSTR(CC9[P],0),4);
 IF CC9[P]>=500000 THEN
 STRCC9:='Z'+STRRIGHT(NUMTOSTR(CC9[P],0),4);
 IF CC10[P]<200000 AND CC10[P]>=100000 THEN
 STRCC10:='A'+STRRIGHT(NUMTOSTR(CC10[P],0),5);
 IF CC10[P]>=200000 AND CC10[P]<300000 THEN
 STRCC10:='G'+STRRIGHT(NUMTOSTR(CC10[P],0),5);
 IF CC10[P]>=300000 THEN
 STRCC10:='T'+STRRIGHT(NUMTOSTR(CC10[P],0),5);
 IF CC10[P]<20000 AND CC10[P]>=10000 THEN
 STRCC10:='A'+STRRIGHT(NUMTOSTR(CC10[P],0),4);
 IF CC10[P]>=20000 AND CC10[P]<30000 THEN
 STRCC10:='G'+STRRIGHT(NUMTOSTR(CC10[P],0),4);
 IF CC10[P]>=30000 AND CC10[P]<40000 THEN
 STRCC10:='T'+STRRIGHT(NUMTOSTR(CC10[P],0),4);
 IF CC10[P]>=40000 AND CC10[P]<50000 THEN
 STRCC10:='Q'+STRRIGHT(NUMTOSTR(CC10[P],0),4);
 IF CC10[P]>=500000 THEN
 STRCC10:='Z'+STRRIGHT(NUMTOSTR(CC10[P],0),4);

 STRWZ:=F10FIND(STRRC1,1);
 IF STRWZ<>-1 THEN
 ZWRC1:=F10TEXT(STRWZ+6,0);ELSE
 ZWRC1:='--未知席位--';
STRWZ:=F10FIND(STRRC2,1);
 IF STRWZ<>-1 THEN
 ZWRC2:=F10TEXT(STRWZ+6,0);ELSE
 ZWRC2:='--未知席位--';
STRWZ:=F10FIND(STRRC3,1);
 IF STRWZ<>-1 THEN
 ZWRC3:=F10TEXT(STRWZ+6,0);ELSE
 ZWRC3:='--未知席位--';
STRWZ:=F10FIND(STRRC4,1);
 IF STRWZ<>-1 THEN
 ZWRC4:=F10TEXT(STRWZ+6,0);ELSE
 ZWRC4:='--未知席位--';
STRWZ:=F10FIND(STRRC5,1);
 IF STRWZ<>-1 THEN
 ZWRC5:=F10TEXT(STRWZ+6,0);ELSE
 ZWRC5:='--未知席位--';
STRWZ:=F10FIND(STRRC6,1);
 IF STRWZ<>-1 THEN
 ZWRC6:=F10TEXT(STRWZ+6,0);ELSE
 ZWRC6:='--未知席位--';
STRWZ:=F10FIND(STRRC7,1);
 IF STRWZ<>-1 THEN
 ZWRC7:=F10TEXT(STRWZ+6,0);ELSE
 ZWRC7:='--未知席位--';
STRWZ:=F10FIND(STRRC8,1);
 IF STRWZ<>-1 THEN
 ZWRC8:=F10TEXT(STRWZ+6,0);ELSE
 ZWRC8:='--未知席位--';
STRWZ:=F10FIND(STRRC9,1);
 IF STRWZ<>-1 THEN
 ZWRC9:=F10TEXT(STRWZ+6,0);ELSE
 ZWRC9:='--未知席位--';
STRWZ:=F10FIND(STRRC10,1);
 IF STRWZ<>-1 THEN
 ZWRC10:=F10TEXT(STRWZ+6,0);ELSE
 ZWRC10:='--未知席位--';

STRWZ:=F10FIND(STRCC1,1);
 IF STRWZ<>-1 THEN
 ZWCC1:=F10TEXT(STRWZ+6,0);ELSE
 ZWCC1:='--未知席位--';
STRWZ:=F10FIND(STRCC2,1);
 IF STRWZ<>-1 THEN
 ZWCC2:=F10TEXT(STRWZ+6,0);ELSE
 ZWCC2:='--未知席位--';
STRWZ:=F10FIND(STRCC3,1);
 IF STRWZ<>-1 THEN
 ZWCC3:=F10TEXT(STRWZ+6,0);ELSE
 ZWCC3:='--未知席位--';
STRWZ:=F10FIND(STRCC4,1);
 IF STRWZ<>-1 THEN
 ZWCC4:=F10TEXT(STRWZ+6,0);ELSE
 ZWCC4:='--未知席位--';
STRWZ:=F10FIND(STRCC5,1);
 IF STRWZ<>-1 THEN
 ZWCC5:=F10TEXT(STRWZ+6,0);ELSE
 ZWCC5:='--未知席位--';
STRWZ:=F10FIND(STRCC6,1);
 IF STRWZ<>-1 THEN
 ZWCC6:=F10TEXT(STRWZ+6,0);ELSE
 ZWCC6:='--未知席位--';
STRWZ:=F10FIND(STRCC7,1);
 IF STRWZ<>-1 THEN
 ZWCC7:=F10TEXT(STRWZ+6,0);ELSE
 ZWCC7:='--未知席位--';
STRWZ:=F10FIND(STRCC8,1);
 IF STRWZ<>-1 THEN
 ZWCC8:=F10TEXT(STRWZ+6,0);ELSE
 ZWCC8:='--未知席位--';
STRWZ:=F10FIND(STRCC9,1);
 IF STRWZ<>-1 THEN
 ZWCC9:=F10TEXT(STRWZ+6,0);ELSE
 ZWCC9:='--未知席位--';
STRWZ:=F10FIND(STRCC10,1);
 IF STRWZ<>-1 THEN
 ZWCC10:=F10TEXT(STRWZ+6,0);ELSE
 ZWCC10:='--未知席位--';

DC11:=IF(RC1=CC1,1,0);
 DC12:=IF(RC1=CC2,1,0);
 DC13:=IF(RC1=CC3,1,0);
 DC14:=IF(RC1=CC4,1,0);
 DC15:=IF(RC1=CC5,1,0);
 DC16:=IF(RC1=CC6,1,0);
 DC17:=IF(RC1=CC7,1,0);
 DC18:=IF(RC1=CC8,1,0);
 DC19:=IF(RC1=CC9,1,0);
 DC1A:=IF(RC1=CC10,1,0);

 DC21:=IF(RC2=CC1,1,0);
 DC22:=IF(RC2=CC2,1,0);
 DC23:=IF(RC2=CC3,1,0);
 DC24:=IF(RC2=CC4,1,0);
 DC25:=IF(RC2=CC5,1,0);
 DC26:=IF(RC2=CC6,1,0);
 DC27:=IF(RC2=CC7,1,0);
 DC28:=IF(RC2=CC8,1,0);
 DC29:=IF(RC2=CC9,1,0);
 DC2A:=IF(RC2=CC10,1,0);

 DC31:=IF(RC3=CC1,1,0);
 DC32:=IF(RC3=CC2,1,0);
 DC33:=IF(RC3=CC3,1,0);
 DC34:=IF(RC3=CC4,1,0);
 DC35:=IF(RC3=CC5,1,0);
 DC36:=IF(RC3=CC6,1,0);
 DC37:=IF(RC3=CC7,1,0);
 DC38:=IF(RC3=CC8,1,0);
 DC39:=IF(RC3=CC9,1,0);
 DC3A:=IF(RC3=CC10,1,0);

 DC41:=IF(RC4=CC1,1,0);
 DC42:=IF(RC4=CC2,1,0);
 DC43:=IF(RC4=CC3,1,0);
 DC44:=IF(RC4=CC4,1,0);
 DC45:=IF(RC4=CC5,1,0);
 DC46:=IF(RC4=CC6,1,0);
 DC47:=IF(RC4=CC7,1,0);
 DC48:=IF(RC4=CC8,1,0);
 DC49:=IF(RC4=CC9,1,0);
 DC4A:=IF(RC4=CC10,1,0);

 DC51:=IF(RC5=CC1,1,0);
 DC52:=IF(RC5=CC2,1,0);
 DC53:=IF(RC5=CC3,1,0);
 DC54:=IF(RC5=CC4,1,0);
 DC55:=IF(RC5=CC5,1,0);
 DC56:=IF(RC5=CC6,1,0);
 DC57:=IF(RC5=CC7,1,0);
 DC58:=IF(RC5=CC8,1,0);
 DC59:=IF(RC5=CC9,1,0);
 DC5A:=IF(RC5=CC10,1,0);

 DC61:=IF(RC6=CC1,1,0);
 DC62:=IF(RC6=CC2,1,0);
 DC63:=IF(RC6=CC3,1,0);
 DC64:=IF(RC6=CC4,1,0);
 DC65:=IF(RC6=CC5,1,0);
 DC66:=IF(RC6=CC6,1,0);
 DC67:=IF(RC6=CC7,1,0);
 DC68:=IF(RC6=CC8,1,0);
 DC69:=IF(RC6=CC9,1,0);
 DC6A:=IF(RC6=CC10,1,0);

 DC71:=IF(RC7=CC1,1,0);
 DC72:=IF(RC7=CC2,1,0);
 DC73:=IF(RC7=CC3,1,0);
 DC74:=IF(RC7=CC4,1,0);
 DC75:=IF(RC7=CC5,1,0);
 DC76:=IF(RC7=CC6,1,0);
 DC77:=IF(RC7=CC7,1,0);
 DC78:=IF(RC7=CC8,1,0);
 DC79:=IF(RC7=CC9,1,0);
 DC7A:=IF(RC7=CC10,1,0);

 DC81:=IF(RC8=CC1,1,0);
 DC82:=IF(RC8=CC2,1,0);
 DC83:=IF(RC8=CC3,1,0);
 DC84:=IF(RC8=CC4,1,0);
 DC85:=IF(RC8=CC5,1,0);
 DC86:=IF(RC8=CC6,1,0);
 DC87:=IF(RC8=CC7,1,0);
 DC88:=IF(RC8=CC8,1,0);
 DC89:=IF(RC8=CC9,1,0);
 DC8A:=IF(RC8=CC10,1,0);

 DC91:=IF(RC9=CC1,1,0);
 DC92:=IF(RC9=CC2,1,0);
 DC93:=IF(RC9=CC3,1,0);
 DC94:=IF(RC9=CC4,1,0);
 DC95:=IF(RC9=CC5,1,0);
 DC96:=IF(RC9=CC6,1,0);
 DC97:=IF(RC9=CC7,1,0);
 DC98:=IF(RC9=CC8,1,0);
 DC99:=IF(RC9=CC9,1,0);
 DC9A:=IF(RC9=CC10,1,0);

 DCA1:=IF(RC10=CC1,1,0);
 DCA2:=IF(RC10=CC2,1,0);
 DCA3:=IF(RC10=CC3,1,0);
 DCA4:=IF(RC10=CC4,1,0);
 DCA5:=IF(RC10=CC5,1,0);
 DCA6:=IF(RC10=CC6,1,0);
 DCA7:=IF(RC10=CC7,1,0);
 DCA8:=IF(RC10=CC8,1,0);
 DCA9:=IF(RC10=CC9,1,0);
 DCAA:=IF(RC10=CC10,1,0);

 DCM1:=DC11=0 AND DC12=0 AND DC13=0 AND DC14=0 AND DC15=0 AND DC16=0 AND DC17=0 AND DC18=0 AND DC19=0 AND DC1A=0;
 DCM2:=DC21=0 AND DC22=0 AND DC23=0 AND DC24=0 AND DC25=0 AND DC26=0 AND DC27=0 AND DC28=0 AND DC29=0 AND DC2A=0;
 DCM3:=DC31=0 AND DC32=0 AND DC33=0 AND DC34=0 AND DC35=0 AND DC36=0 AND DC37=0 AND DC38=0 AND DC39=0 AND DC3A=0;
 DCM4:=DC41=0 AND DC42=0 AND DC43=0 AND DC44=0 AND DC45=0 AND DC46=0 AND DC47=0 AND DC48=0 AND DC49=0 AND DC4A=0;
 DCM5:=DC51=0 AND DC52=0 AND DC53=0 AND DC54=0 AND DC55=0 AND DC56=0 AND DC57=0 AND DC58=0 AND DC59=0 AND DC5A=0;
 DCM6:=DC61=0 AND DC62=0 AND DC63=0 AND DC64=0 AND DC65=0 AND DC66=0 AND DC67=0 AND DC68=0 AND DC69=0 AND DC6A=0;
 DCM7:=DC71=0 AND DC72=0 AND DC73=0 AND DC74=0 AND DC75=0 AND DC76=0 AND DC77=0 AND DC78=0 AND DC79=0 AND DC7A=0;
 DCM8:=DC81=0 AND DC82=0 AND DC83=0 AND DC84=0 AND DC85=0 AND DC86=0 AND DC87=0 AND DC88=0 AND DC89=0 AND DC8A=0;
 DCM9:=DC91=0 AND DC92=0 AND DC93=0 AND DC94=0 AND DC95=0 AND DC96=0 AND DC97=0 AND DC98=0 AND DC99=0 AND DC9A=0;
 DCM10:=DCA1=0 AND DCA2=0 AND DCA3=0 AND DCA4=0 AND DCA5=0 AND DCA6=0 AND DCA7=0 AND DCA8=0 AND DCA9=0 AND DCAA=0;

 DCC1:=DC11=0 AND DC21=0 AND DC31=0 AND DC41=0 AND DC51=0 AND DC61=0 AND DC71=0 AND DC81=0 AND DC91=0 AND DCA1=0;
 DCC2:=DC12=0 AND DC22=0 AND DC32=0 AND DC42=0 AND DC52=0 AND DC62=0 AND DC72=0 AND DC82=0 AND DC92=0 AND DCA2=0;
 DCC3:=DC13=0 AND DC23=0 AND DC33=0 AND DC43=0 AND DC53=0 AND DC63=0 AND DC73=0 AND DC83=0 AND DC93=0 AND DCA3=0;
 DCC4:=DC14=0 AND DC24=0 AND DC34=0 AND DC44=0 AND DC54=0 AND DC64=0 AND DC74=0 AND DC84=0 AND DC94=0 AND DCA4=0;
 DCC5:=DC15=0 AND DC25=0 AND DC35=0 AND DC45=0 AND DC55=0 AND DC65=0 AND DC75=0 AND DC85=0 AND DC95=0 AND DCA5=0;
 DCC6:=DC16=0 AND DC26=0 AND DC36=0 AND DC46=0 AND DC56=0 AND DC66=0 AND DC76=0 AND DC86=0 AND DC96=0 AND DCA6=0;
 DCC7:=DC17=0 AND DC27=0 AND DC37=0 AND DC47=0 AND DC57=0 AND DC67=0 AND DC77=0 AND DC87=0 AND DC97=0 AND DCA7=0;
 DCC8:=DC18=0 AND DC28=0 AND DC38=0 AND DC48=0 AND DC58=0 AND DC68=0 AND DC78=0 AND DC88=0 AND DC98=0 AND DCA8=0;
 DCC9:=DC19=0 AND DC29=0 AND DC39=0 AND DC49=0 AND DC59=0 AND DC69=0 AND DC79=0 AND DC89=0 AND DC99=0 AND DCA9=0;
 DCC10:=DC1A=0 AND DC2A=0 AND DC3A=0 AND DC4A=0 AND DC5A=0 AND DC6A=0 AND DC7A=0 AND DC8A=0 AND DC9A=0 AND DCAA=0;

 M:=3;
 SZN:=3;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+83,' '),ALIGN0,colorFFFF;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+75,'序号'),ALIGN0,colorFFFF;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+70,'⑴'),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+65,'⑵'),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+60,'⑶'),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+55,'⑷'),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+50,'⑸'),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+45,'⑹'),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+40,'⑺'),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+35,'⑻'),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+30,'⑼'),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+25,'⑽'),ALIGN0,colorCCFFCC;

 M:=5;
 SZN:=3;
 IF DCM1[P]=0 THEN
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+70,'▲'),ALIGN0,colorFF;
 IF DCM2[P]=0 THEN
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+65,'▲'),ALIGN0,color1;
 IF DCM3[P]=0 THEN
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+60,'▲'),ALIGN0,colorFF;
 IF DCM4[P]=0 THEN
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+55,'▲'),ALIGN0,colorFF;
 IF DCM5[P]=0 THEN
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+50,'▲'),ALIGN0,color1;
 IF DCM6[P]=0 THEN
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+45,'▲'),ALIGN0,colorFF;
 IF DCM7[P]=0 THEN
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+40,'▲'),ALIGN0,colorFF;
 IF DCM8[P]=0 THEN
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+35,'▲'),ALIGN0,colorFF;
 IF DCM9[P]=0 THEN
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+30,'▲'),ALIGN0,colorFF;
 IF DCM10[P]=0 THEN
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+25,'▲'),ALIGN0,colorFF;

 M:=10;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+75,'买15额'),ALIGN0,colorFFFF;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+70,NUMTOSTR(R1[P],2)),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+65,NUMTOSTR(R2[P],2)),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+60,NUMTOSTR(R3[P],2)),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+55,NUMTOSTR(R4[P],2)),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+50,NUMTOSTR(R5[P],2)),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+45,NUMTOSTR(R6[P],2)),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+40,NUMTOSTR(R7[P],2)),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+35,NUMTOSTR(R8[P],2)),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+30,NUMTOSTR(R9[P],2)),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+25,NUMTOSTR(R10[P],2)),ALIGN0,colorCCFFCC;

 M:=30;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+75,'买15席      席位所属机构'),ALIGN1,colorFFFF;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+70,STRRC1+'  '+ZWRC1),ALIGN1,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+65,STRRC2+'  '+ZWRC2),ALIGN1,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+60,STRRC3+'  '+ZWRC3),ALIGN1,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+55,STRRC4+'  '+ZWRC4),ALIGN1,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+50,STRRC5+'  '+ZWRC5),ALIGN1,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+45,STRRC6+'  '+ZWRC6),ALIGN1,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+40,STRRC7+'  '+ZWRC7),ALIGN1,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+35,STRRC8+'  '+ZWRC8),ALIGN1,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+30,STRRC9+'  '+ZWRC9),ALIGN1,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+25,STRRC10+'  '+ZWRC10),ALIGN1,colorCCFFCC;

 X:=1;
 Y:=100;
 M:=20;
 ZDZ:=MAX(R1,C1);
 N:=Y*R1/ZDZ;
 A3:=ROUND((Y-N)/2/10);
 STICKLINE(BARPOS=A2+ROUND(M*Z),SZN+70,SZN+69-X,Y+2,1),LINETHICK1,colorFF;
 STICKLINE(BARPOS=A2+ROUND(M*Z)-A3[P],SZN+70,SZN+69-X,N[P],0),colorFF;
 N:=Y*R2/ZDZ;
 A3:=ROUND((Y-N)/2/10);
 STICKLINE(BARPOS=A2+ROUND(M*Z),SZN+65,SZN+64-X,Y+2,1),LINETHICK1,colorFF;
 STICKLINE(BARPOS=A2+ROUND(M*Z)-A3[P],SZN+65,SZN+64-X,N[P],0),colorFF;
 N:=Y*R3/ZDZ;
 A3:=ROUND((Y-N)/2/10);
 STICKLINE(BARPOS=A2+ROUND(M*Z),SZN+60,SZN+59-X,Y+2,1),LINETHICK1,colorFF;
 STICKLINE(BARPOS=A2+ROUND(M*Z)-A3[P],SZN+60,SZN+59-X,N[P],0),colorFF;
 N:=Y*R4/ZDZ;
 A3:=ROUND((Y-N)/2/10);
 STICKLINE(BARPOS=A2+ROUND(M*Z),SZN+55,SZN+54-X,Y+2,1),LINETHICK1,colorFF;
 STICKLINE(BARPOS=A2+ROUND(M*Z)-A3[P],SZN+55,SZN+54-X,N[P],0),colorFF;
 N:=Y*R5/ZDZ;
 A3:=ROUND((Y-N)/2/10);
 STICKLINE(BARPOS=A2+ROUND(M*Z),SZN+50,SZN+49-X,Y+2,1),LINETHICK1,colorFF;
 STICKLINE(BARPOS=A2+ROUND(M*Z)-A3[P],SZN+50,SZN+49-X,N[P],0),colorFF;
 N:=Y*R6/ZDZ;
 A3:=ROUND((Y-N)/2/10);
 STICKLINE(BARPOS=A2+ROUND(M*Z),SZN+45,SZN+44-X,Y+2,1),LINETHICK1,colorFF;
 STICKLINE(BARPOS=A2+ROUND(M*Z)-A3[P],SZN+45,SZN+44-X,N[P],0),colorFF;
 N:=Y*R7/ZDZ;
 A3:=ROUND((Y-N)/2/10);
 STICKLINE(BARPOS=A2+ROUND(M*Z),SZN+40,SZN+39-X,Y+2,1),LINETHICK1,colorFF;
 STICKLINE(BARPOS=A2+ROUND(M*Z)-A3[P],SZN+40,SZN+39-X,N[P],0),colorFF;
 N:=Y*R8/ZDZ;
 A3:=ROUND((Y-N)/2/10);
 STICKLINE(BARPOS=A2+ROUND(M*Z),SZN+35,SZN+34-X,Y+2,1),LINETHICK1,colorFF;
 STICKLINE(BARPOS=A2+ROUND(M*Z)-A3[P],SZN+35,SZN+34-X,N[P],0),colorFF;
 N:=Y*R9/ZDZ;
 A3:=ROUND((Y-N)/2/10);
 STICKLINE(BARPOS=A2+ROUND(M*Z),SZN+30,SZN+29-X,Y+2,1),LINETHICK1,colorFF;
 STICKLINE(BARPOS=A2+ROUND(M*Z)-A3[P],SZN+30,SZN+29-X,N[P],0),colorFF;
 N:=Y*R10/ZDZ;
 A3:=ROUND((Y-N)/2/10);
 STICKLINE(BARPOS=A2+ROUND(M*Z),SZN+25,SZN+24-X,Y+2,1),LINETHICK1,colorFF;
 STICKLINE(BARPOS=A2+ROUND(M*Z)-A3[P],SZN+25,SZN+24-X,N[P],0),colorFF;

 M:=76;
 SZN:=3;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+83,' '),ALIGN0,colorFFFF;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+75,'序号'),ALIGN0,colorFFFF;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+70,'⑴'),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+65,'⑵'),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+60,'⑶'),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+55,'⑷'),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+50,'⑸'),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+45,'⑹'),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+40,'⑺'),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+35,'⑻'),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+30,'⑼'),ALIGN0,colorCCFFCC;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+25,'⑽'),ALIGN0,colorCCFFCC;

 M:=78;
 SZN:=3;
 IF DCC1[P]=0 THEN
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+70,'▲'),ALIGN0,colorFF;
 IF DCC2[P]=0 THEN
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+65,'▲'),ALIGN0,color1;
 IF DCC3[P]=0 THEN
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+60,'▲'),ALIGN0,colorFF;
 IF DCC4[P]=0 THEN
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+55,'▲'),ALIGN0,colorFF;
 IF DCC5[P]=0 THEN
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+50,'▲'),ALIGN0,color1;
 IF DCC6[P]=0 THEN
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+45,'▲'),ALIGN0,colorFF;
 IF DCC7[P]=0 THEN
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+40,'▲'),ALIGN0,colorFF;
 IF DCC8[P]=0 THEN
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+35,'▲'),ALIGN0,colorFF;
 IF DCC9[P]=0 THEN
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+30,'▲'),ALIGN0,colorFF;
 IF DCC10[P]=0 THEN
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+25,'▲'),ALIGN0,colorFF;

 M:=83;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+75,'卖15额'),ALIGN0,colorFFFF;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+70,NUMTOSTR(C1[P],2)),ALIGN0,colorFF9933;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+65,NUMTOSTR(C2[P],2)),ALIGN0,colorFF9933;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+60,NUMTOSTR(C3[P],2)),ALIGN0,colorFF9933;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+55,NUMTOSTR(C4[P],2)),ALIGN0,colorFF9933;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+50,NUMTOSTR(C5[P],2)),ALIGN0,colorFF9933;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+45,NUMTOSTR(C6[P],2)),ALIGN0,colorFF9933;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+40,NUMTOSTR(C7[P],2)),ALIGN0,colorFF9933;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+35,NUMTOSTR(C8[P],2)),ALIGN0,colorFF9933;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+30,NUMTOSTR(C9[P],2)),ALIGN0,colorFF9933;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+25,NUMTOSTR(C10[P],2)),ALIGN0,colorFF9933;

 M:=103;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+75,'卖15席      席位所属机构'),ALIGN1,colorFFFF;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+70,STRCC1+'  '+ZWCC1),ALIGN1,colorFF9933;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+65,STRCC2+'  '+ZWCC2),ALIGN1,colorFF9933;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+60,STRCC3+'  '+ZWCC3),ALIGN1,colorFF9933;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+55,STRCC4+'  '+ZWCC4),ALIGN1,colorFF9933;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+50,STRCC5+'  '+ZWCC5),ALIGN1,colorFF9933;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+45,STRCC6+'  '+ZWCC6),ALIGN1,colorFF9933;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+40,STRCC7+'  '+ZWCC7),ALIGN1,colorFF9933;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+35,STRCC8+'  '+ZWCC8),ALIGN1,colorFF9933;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+30,STRCC9+'  '+ZWCC9),ALIGN1,colorFF9933;
 DRAWTEXT(BARPOS=A2+ROUND(M*Z),SZN+25,STRCC10+'  '+ZWCC10),ALIGN1,colorFF9933;

 M:=93;
 N:=Y*C1/ZDZ;
 A3:=ROUND((Y-N)/2/10);
 STICKLINE(BARPOS=A2+ROUND(M*Z),SZN+70,SZN+69-X,Y+2,1),LINETHICK1,colorFF00;
 STICKLINE(BARPOS=A2+ROUND(M*Z)-A3[P],SZN+70,SZN+69-X,N[P],0),colorFF00;
 N:=Y*C2/ZDZ;
 A3:=ROUND((Y-N)/2/10);
 STICKLINE(BARPOS=A2+ROUND(M*Z),SZN+65,SZN+64-X,Y+2,1),LINETHICK1,colorFF00;
 STICKLINE(BARPOS=A2+ROUND(M*Z)-A3[P],SZN+65,SZN+64-X,N[P],0),colorFF00;
 N:=Y*C3/ZDZ;
 A3:=ROUND((Y-N)/2/10);
 STICKLINE(BARPOS=A2+ROUND(M*Z),SZN+60,SZN+59-X,Y+2,1),LINETHICK1,colorFF00;
 STICKLINE(BARPOS=A2+ROUND(M*Z)-A3[P],SZN+60,SZN+59-X,N[P],0),colorFF00;
 N:=Y*C4/ZDZ;
 A3:=ROUND((Y-N)/2/10);
 STICKLINE(BARPOS=A2+ROUND(M*Z),SZN+55,SZN+54-X,Y+2,1),LINETHICK1,colorFF00;
 STICKLINE(BARPOS=A2+ROUND(M*Z)-A3[P],SZN+55,SZN+54-X,N[P],0),colorFF00;
 N:=Y*C5/ZDZ;
 A3:=ROUND((Y-N)/2/10);
 STICKLINE(BARPOS=A2+ROUND(M*Z),SZN+50,SZN+49-X,Y+2,1),LINETHICK1,colorFF00;
 STICKLINE(BARPOS=A2+ROUND(M*Z)-A3[P],SZN+50,SZN+49-X,N[P],0),colorFF00;
 N:=Y*C6/ZDZ;
 A3:=ROUND((Y-N)/2/10);
 STICKLINE(BARPOS=A2+ROUND(M*Z),SZN+45,SZN+44-X,Y+2,1),LINETHICK1,colorFF00;
 STICKLINE(BARPOS=A2+ROUND(M*Z)-A3[P],SZN+45,SZN+44-X,N[P],0),colorFF00;
 N:=Y*C7/ZDZ;
 A3:=ROUND((Y-N)/2/10);
 STICKLINE(BARPOS=A2+ROUND(M*Z),SZN+40,SZN+39-X,Y+2,1),LINETHICK1,colorFF00;
 STICKLINE(BARPOS=A2+ROUND(M*Z)-A3[P],SZN+40,SZN+39-X,N[P],0),colorFF00;
 N:=Y*C8/ZDZ;
 A3:=ROUND((Y-N)/2/10);
 STICKLINE(BARPOS=A2+ROUND(M*Z),SZN+35,SZN+34-X,Y+2,1),LINETHICK1,colorFF00;
 STICKLINE(BARPOS=A2+ROUND(M*Z)-A3[P],SZN+35,SZN+34-X,N[P],0),colorFF00;
 N:=Y*C9/ZDZ;
 A3:=ROUND((Y-N)/2/10);
 STICKLINE(BARPOS=A2+ROUND(M*Z),SZN+30,SZN+29-X,Y+2,1),LINETHICK1,colorFF00;
 STICKLINE(BARPOS=A2+ROUND(M*Z)-A3[P],SZN+30,SZN+29-X,N[P],0),colorFF00;
 N:=Y*C10/ZDZ;
 A3:=ROUND((Y-N)/2/10);
 STICKLINE(BARPOS=A2+ROUND(M*Z),SZN+25,SZN+24-X,Y+2,1),LINETHICK1,colorFF00;
 STICKLINE(BARPOS=A2+ROUND(M*Z)-A3[P],SZN+25,SZN+24-X,N[P],0),colorFF00;

 VARIABLE:WDAY[7]='星期六';
WDAY[1]:='星期日';
WDAY[2]:='星期一';
WDAY[3]:='星期二';
WDAY[4]:='星期三';
WDAY[5]:='星期四';
WDAY[6]:='星期五';
FY:=YEAR;
 FM:=MONTH;
 FD:=DAY;
 WD:=WEEKDAY;
 STR1:=''+'【'+NUMTOSTR(FY[P],0)+'年'+NUMTOSTR(FM[P],0)+'月'+NUMTOSTR(FD[P],0)+'日 '+WDAY[WD[P]+1]+' '+'最新更新:'+NUMTOSTR(数据日,0)+'日前】';
DRAWTEXTEX(CLOSE,1,135,5,''+STR1);