{公式名称：筹码空间--主图}
DRAWGBK(DATE>900101,COLORRGB(15,50,90),COLORRGB(0,0,0),1);//蓝色
input:n(156,0,1300);
A:=BARPOS;
A1:=SYSPARAM(1);
A2:=SYSPARAM(2);
A3:=SYSPARAM(3);
B:=DATACOUNT;
KB:B-A+1,LINETHICK0,colorFFFFFF;
HM:=A3-A2;
VERTLINE(N=KB),POINTDOT,colorFFFFFF;
MM:=(A3-A2)/100;
DW1:=A=A2+ROUND(MM*98);
DW2:=A=A2+ROUND(MM*46);
DW3:=A=A2+ROUND(MM*67);
ZQ:=DATATYPE;
BK1:=INBLOCK('A股板块');
BK2:=INBLOCK('深圳权证');
BK3:=INBLOCK('上海权证');
BK4:=INBLOCK('上海指数');
BK5:=INBLOCK('深圳指数');
流通:=IF((BK1 OR BK2 OR BK3)=1,CAPITAL,IF(BK4=1,ESTDATA(8),IF(BK5=1,ESTDATA(8),0)));
SOU:=VOL/CAPITAL*100;
JJ:=IF(BK1=1,AMOUNT/VOL/100,IF((BK3 OR BK2)=1,AMOUNT/VOL/100,CLOSE));
HQ:=HHV(HIGH,HM);
LQ:=LLV(LOW,HM);
ZH:=HQ[B];
ZL:=LQ[B];
Q:=(ZH-ZL)/10;
PC:=CLOSE;
SPJ:=PC[B];
Q1:=(SUM(IF(JJ>=ZH-1*Q,VOL,0),N))/流通*100;
Q2:=(SUM(IF(JJ<ZH-1*Q AND JJ>=ZH-2*Q,VOL,0),N))/流通*100;
Q3:=(SUM(IF(JJ<ZH-2*Q AND JJ>=ZH-3*Q,VOL,0),N))/流通*100;
Q4:=(SUM(IF(JJ<ZH-3*Q AND JJ>=ZH-4*Q,VOL,0),N))/流通*100;
Q5:=(SUM(IF(JJ<ZH-4*Q AND JJ>=ZH-5*Q,VOL,0),N))/流通*100;
Q6:=(SUM(IF(JJ<ZH-5*Q AND JJ>=ZH-6*Q,VOL,0),N))/流通*100;
Q7:=(SUM(IF(JJ<ZH-6*Q AND JJ>=ZH-7*Q,VOL,0),N))/流通*100;
Q8:=(SUM(IF(JJ<ZH-7*Q AND JJ>=ZH-8*Q,VOL,0),N))/流通*100;
Q9:=(SUM(IF(JJ<ZH-8*Q AND JJ>=ZH-9*Q,VOL,0),N))/流通*100;
Q10:=(SUM(IF(JJ<ZH-9*Q,VOL,0),N))/流通*100;
W:=A=SYSPARAM(3);
W2:=A=SYSPARAM(2);
STICKLINE(BACKSET(W,Q1[A1]/2)>0,ZH-0*Q,ZH-1*Q,10,0),color8F;
STICKLINE(BACKSET(W,Q2[A1]/2)>0,ZH-1*Q,ZH-2*Q,10,0),color8F;
STICKLINE(BACKSET(W,Q3[A1]/2)>0,ZH-2*Q,ZH-3*Q,10,0),colorFF;
STICKLINE(BACKSET(W,Q4[A1]/2)>0,ZH-3*Q,ZH-4*Q,10,0),colorFF;
STICKLINE(BACKSET(W,Q5[A1]/2)>0,ZH-4*Q,ZH-5*Q,10,0),colorAADD;
STICKLINE(BACKSET(W,Q6[A1]/2)>0,ZH-5*Q,ZH-6*Q,10,0),colorAADD;
STICKLINE(BACKSET(W,Q7[A1]/2)>0,ZH-6*Q,ZH-7*Q,10,0),color8C8EB5;
STICKLINE(BACKSET(W,Q8[A1]/2)>0,ZH-7*Q,ZH-8*Q,10,0),color8C8EB5;
STICKLINE(BACKSET(W,Q9[A1]/2)>0,ZH-8*Q,ZH-9*Q,10,0),color387C7C;
STICKLINE(BACKSET(W,Q10[A1]/2)>0,ZH-9*Q,ZH-10*Q,10,0),color387C7C;
POLYLINE(1,ZH-2*Q),color555555;
POLYLINE(1,ZH-4*Q),color555555;
POLYLINE(1,ZH-6*Q),color555555;
POLYLINE(1,ZH-8*Q),color555555;
STICKLINE(C>O,h,l,0,0),colorFF;
STICKLINE(C>O,C,O,6,0),colorFF;
STICKLINE(C<O,h,l,0,0),colorFFFF00;
STICKLINE(C<O,C,O,6,0),colorFFFF00;
总手:SUM(SOU,N),LINETHICK0,PRECISION0,colorFFFFFF;
套:(SUM(IF(CLOSE>=SPJ,VOL,0),N))/FINANCE(7),LINETHICK0,PRECISION0,colorFF00;
获利:(1-套/总手)*100,LINETHICK0,colorFF55FF;
均手:SUM(SOU,N)/N,LINETHICK0,colorFFFF;
顶部:=Q1+Q2;
中上:=Q3+Q4;
中部:=Q5+Q6;
中下:=Q7+Q8;
底部:=Q9+Q10;
ZC:=顶部+中上+中部+中下+底部;
顶比:=顶部/ZC*100;
上比:=中上/ZC*100;
中比:=中部/ZC*100;
下比:=中下/ZC*100;
底比:=底部/ZC*100;
DRAWTEXT(DW1,ZH-0.5*Q*-1,'比重'),colorFFFFFF;
DRAWNUMBER(DW1,ZH-1*Q,顶比[A1],2),colorFFFFFF;
DRAWNUMBER(DW1,ZH-3*Q,上比[A1],2),colorFFFFFF;
DRAWNUMBER(DW1,ZH-5*Q,中比[A1],2),colorFFFFFF;
DRAWNUMBER(DW1,ZH-7*Q,下比[A1],2),colorFFFFFF;
DRAWNUMBER(DW1,ZH-8.8*Q,底比[A1],2),colorFFFFFF;
DRAWTEXT(DW2,ZH-0.5*Q*-1,'换手'),colorFFFFFF;
DRAWTEXTEX(CLOSE,1,450,130,NUMTOSTR(Q1[A1],0)+'/'+NUMTOSTR(Q2[A1],0)),colorFFFFFF;
DRAWTEXTEX(CLOSE,1,450,330,NUMTOSTR(Q3[A1],0)+'/'+NUMTOSTR(Q4[A1],0)),colorFFFFFF;
DRAWTEXTEX(CLOSE,1,450,520,NUMTOSTR(Q5[A1],0)+'/'+NUMTOSTR(Q6[A1],0)),colorFFFFFF;
DRAWTEXTEX(CLOSE,1,450,710,NUMTOSTR(Q7[A1],0)+'/'+NUMTOSTR(Q8[A1],0)),colorFFFFFF;
DRAWTEXTEX(CLOSE,1,450,880,NUMTOSTR(Q9[A1],0)+'/'+NUMTOSTR(Q10[A1],0)),colorFFFFFF;
DRAWTEXT(DW3 AND (BK1 OR BK2 OR BK3)=1,ZH-0.5*Q*-1,'价 '),ALIGN2,colorFFFFFF;
DRAWTEXT(DW3 AND (BK4 OR BK5)=1,ZH-0.5*Q*-1,'指数 '),ALIGN2,colorFFFFFF;
DRAWNUMBER(DW3,ZH-1*Q,ZH-2*Q,2),ALIGN2,colorFFFFFF;
DRAWNUMBER(DW3,ZH-3*Q,ZH-4*Q,2),ALIGN2,colorFFFFFF;
DRAWNUMBER(DW3,ZH-5*Q,ZH-6*Q,2),ALIGN2,colorFFFFFF;
DRAWNUMBER(DW3,ZH-7*Q,ZH-8*Q,2),ALIGN2,colorFFFFFF;
DRAWNUMBER(DW3,ZH-8.8*Q,ZH-10*Q,2),ALIGN2,colorFFFFFF;
{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
