• 加入收藏
    股票公式网

    您所在地位置:首页> 公式指标 > 选股公式 > 热点板块密码四年磨一剑之芝麻开门图公式下载 大智慧指标源码板块四年

    热点板块密码四年磨一剑之芝麻开门图公式下载 大智慧指标源码板块四年

    时间:2020-10-30 19:46:02 阅读:1603 编辑:

    热点板块密码四年磨一剑--芝麻开门图

    一下源码得到:胡晓卿 网友的热情帮助,提供以下更正:

    统计板块热点出现次数,结合个股,提前布局--芝麻要开门!
      有不完善处请大家提出。
      由于大智慧证券软件的函数公式比较弱,许多想法。。。。。不说了。
      我在三年后公布源码,是愿引出一种编写的思考方法,也希望有人改进或优化!


      原码如下:

    原码如下:
    ■ 引用公式一:
      {转向周期}
      A:=PEAKBARS(3,10,1);
      B:=TROUGHBARS(3,10,1);
      C1:=if(A>B,B,0);
      C2:=if(A<=B,A,0);

      涨期:if(c1=0 and ref(c1,1),ref(c1,1)+1,0)+c1;
      降期:if(c2=0 and ref(c2,1),ref(c2,1)+1,0)+c2;

      ■ ■ 引用公式二
      {净流入}
      STICKLINE(V>0,0,V/CAPITAL*3000,8,1),Color666666;
      ss1:=ORDER(1);
      ss2:=ORDER(2);
      dt:=((ss2-ss1)/V*1000);
      STICKLINE(dt>0,0,dt,8,0),COLORRED;
      STICKLINE(dt<0,0,dt,8,0),COLOR00ff00;
      流入:BIGORDER(1,2)*100,PRECIS6,LINETHICK0;
      流出:BIGORDER(2,2)*100,PRECIS6,LINETHICK0;
      净额:(流入-流出)*1000,LINETHICK0;
      STICKLINE(净额>0,0,净额,4,0),Color00FFFF,ALIGN1;
      STICKLINE(净额<0,0,净额,4,0),COLORBLUE,ALIGN1;
      DRAWICON(净额>0 and dt<0,12*2,12),ALIGN1;
      0,Color666666;
      {净额}
      净额_万元:(流入-流出)*V/CAPITAL*100000,LINETHICK0;
      A:=STKINDI('SH000001','转向周期.降期');
      大盘跌净额:if(A>=0,sum(净额,A),0),LINETHICK0;
      PARTLINE(大盘跌净额,大盘跌净额<>0,RGB(255,255,255),大盘跌净额=0,RGB(0,0,0));
      B:=STKINDI('SH000001','转向周期.涨期');
      大盘涨净额:if(B>0,sum(净额,B),0);
      PARTLINE(大盘涨净额,大盘涨净额<>0,RGB(254,216,188),大盘涨净额=0,RGB(0,0,0));

      ■ 引用公式三:
      {日涨幅}
      A:sum((C-ref(C,1)),N)/ref(C,N)*100;
      B:(BIGORDER(1,2)-BIGORDER(2,2))*100;


      主代码:
      variable:R[62]=0;
      variable:RR[62]=0;
      variable:M[30]=0;
      variable:S[62]=0;

      REFLINE: -51, 0,150;
      {*********************************************************}
      S[1]:=STKINDI('991002','日涨幅.A')*100;
      S[2]:=STKINDI('991003','日涨幅.A')*100;
      S[3]:=STKINDI('991004','日涨幅.A')*100;
      S[4]:=STKINDI('991006','日涨幅.A')*100;
      S[5]:=STKINDI('991007','日涨幅.A')*100;
      S[6]:=STKINDI('991008','日涨幅.A')*100;
      S[7]:=STKINDI('991009','日涨幅.A')*100;
      S[8]:=STKINDI('991010','日涨幅.A')*100;
      S[9]:=STKINDI('991011','日涨幅.A')*100;
      S[10]:=STKINDI('991014','日涨幅.A')*100;
      S[11]:=STKINDI('991016','日涨幅.A')*100;
      S[12]:=STKINDI('991017','日涨幅.A')*100;
      S[13]:=STKINDI('991018','日涨幅.A')*100;
      S[14]:=STKINDI('991019','日涨幅.A')*100;
      S[15]:=STKINDI('991020','日涨幅.A')*100;
      S[16]:=STKINDI('991021','日涨幅.A')*100;
      S[17]:=STKINDI('991023','日涨幅.A')*100;
      S[18]:=STKINDI('991024','日涨幅.A')*100;
      S[19]:=STKINDI('991025','日涨幅.A')*100;
      S[20]:=STKINDI('991026','日涨幅.A')*100;
      S[21]:=STKINDI('991027','日涨幅.A')*100;
      S[22]:=STKINDI('991028','日涨幅.A')*100;
      S[23]:=STKINDI('991031','日涨幅.A')*100;
      S[24]:=STKINDI('991032','日涨幅.A')*100;
      S[25]:=STKINDI('991033','日涨幅.A')*100;
      S[26]:=STKINDI('991034','日涨幅.A')*100;
      S[27]:=STKINDI('991035','日涨幅.A')*100;
      S[28]:=STKINDI('991036','日涨幅.A')*100;
      S[29]:=STKINDI('991037','日涨幅.A')*100;
      S[30]:=STKINDI('991135','日涨幅.A')*100;
      S[31]:=STKINDI('991136','日涨幅.A')*100;
      S[32]:=STKINDI('991255','日涨幅.A')*100;
      S[33]:=STKINDI('993072','日涨幅.A')*100;
      S[34]:=STKINDI('993075','日涨幅.A')*100;
      S[35]:=STKINDI('993091','日涨幅.A')*100;
      S[36]:=STKINDI('993120','日涨幅.A')*100;
      S[37]:=STKINDI('993128','日涨幅.A')*100;
      S[38]:=STKINDI('993129','日涨幅.A')*100;
      S[39]:=STKINDI('993130','日涨幅.A')*100;
      S[40]:=STKINDI('993305','日涨幅.A')*100;
      S[41]:=STKINDI('993385','日涨幅.A')*100;
      S[42]:=STKINDI('993386','日涨幅.A')*100;
      S[43]:=STKINDI('993405','日涨幅.A')*100;
      S[44]:=STKINDI('993445','日涨幅.A')*100;
      S[45]:=STKINDI('993450','日涨幅.A')*100;
      S[46]:=STKINDI('993585','日涨幅.A')*100;
      S[47]:=STKINDI('993586','日涨幅.A')*100;
      S[48]:=STKINDI('993596','日涨幅.A')*100;
      S[49]:=STKINDI('993597','日涨幅.A')*100;
      S[50]:=STKINDI('993645','日涨幅.A')*100;
      S[51]:=STKINDI('993646','日涨幅.A')*100;
      S[52]:=STKINDI('993665','日涨幅.A')*100;
      S[53]:=STKINDI('993685','日涨幅.A')*100;
      S[54]:=STKINDI('993695','日涨幅.A')*100;
      S[55]:=STKINDI('993710','日涨幅.A')*100;
      S[56]:=STKINDI('993730','日涨幅.A')*100;
      S[57]:=STKINDI('993745','日涨幅.A')*100;
      S[58]:=STKINDI('993798','日涨幅.A')*100;
      S[59]:=STKINDI('993801','日涨幅.A')*100;
      S[60]:=STKINDI('993825','日涨幅.A')*100;
      {------------------------------------------------------------------------}
      R[1]:=INTPART(STKINDI('991002','净流入.净额_万元'))*100+1;
      R[2]:=INTPART(STKINDI('991003','净流入.净额_万元'))*100+2;
      R[3]:=INTPART(STKINDI('991004','净流入.净额_万元'))*100+3;
      R[4]:=INTPART(STKINDI('991006','净流入.净额_万元'))*100+4;
      R[5]:=INTPART(STKINDI('991007','净流入.净额_万元'))*100+5;
      R[6]:=INTPART(STKINDI('991008','净流入.净额_万元'))*100+6;
      R[7]:=INTPART(STKINDI('991009','净流入.净额_万元'))*100+7;
      R[8]:=INTPART(STKINDI('991010','净流入.净额_万元'))*100+8;
      R[9]:=INTPART(STKINDI('991011','净流入.净额_万元'))*100+9;
      R[10]:=INTPART(STKINDI('991014','净流入.净额_万元'))*100+10;
      R[11]:=INTPART(STKINDI('991016','净流入.净额_万元'))*100+11;
      R[12]:=INTPART(STKINDI('991017','净流入.净额_万元'))*100+12;
      R[13]:=INTPART(STKINDI('991018','净流入.净额_万元'))*100+13;
      R[14]:=INTPART(STKINDI('991019','净流入.净额_万元'))*100+14;
      R[15]:=INTPART(STKINDI('991020','净流入.净额_万元'))*100+15;
      R[16]:=INTPART(STKINDI('991021','净流入.净额_万元'))*100+16;
      R[17]:=INTPART(STKINDI('991023','净流入.净额_万元'))*100+17;
      R[18]:=INTPART(STKINDI('991024','净流入.净额_万元'))*100+18;
      R[19]:=INTPART(STKINDI('991025','净流入.净额_万元'))*100+19;
      R[20]:=INTPART(STKINDI('991026','净流入.净额_万元'))*100+20;
      R[21]:=INTPART(STKINDI('991027','净流入.净额_万元'))*100+21;
      R[22]:=INTPART(STKINDI('991028','净流入.净额_万元'))*100+22;
      R[23]:=INTPART(STKINDI('991031','净流入.净额_万元'))*100+23;
      R[24]:=INTPART(STKINDI('991032','净流入.净额_万元'))*100+24;
      R[25]:=INTPART(STKINDI('991033','净流入.净额_万元'))*100+25;
      R[26]:=INTPART(STKINDI('991034','净流入.净额_万元'))*100+26;
      R[27]:=INTPART(STKINDI('991035','净流入.净额_万元'))*100+27;
      R[28]:=INTPART(STKINDI('991036','净流入.净额_万元'))*100+28;
      R[29]:=INTPART(STKINDI('991037','净流入.净额_万元'))*100+29;
      R[30]:=INTPART(STKINDI('991135','净流入.净额_万元'))*100+30;
      R[31]:=INTPART(STKINDI('991136','净流入.净额_万元'))*100+31;
      R[32]:=INTPART(STKINDI('991255','净流入.净额_万元'))*100+32;
      R[33]:=INTPART(STKINDI('993072','净流入.净额_万元'))*100+33;
      R[34]:=INTPART(STKINDI('993075','净流入.净额_万元'))*100+34;
      R[35]:=INTPART(STKINDI('993091','净流入.净额_万元'))*100+35;
      R[37]:=INTPART(STKINDI('993120','净流入.净额_万元'))*100+36;
      R[37]:=INTPART(STKINDI('993128','净流入.净额_万元'))*100+37;
      R[38]:=INTPART(STKINDI('993129','净流入.净额_万元'))*100+38;
      R[39]:=INTPART(STKINDI('993130','净流入.净额_万元'))*100+39;
      R[40]:=INTPART(STKINDI('993305','净流入.净额_万元'))*100+40;
      R[41]:=INTPART(STKINDI('993385','净流入.净额_万元'))*100+41;
      R[42]:=INTPART(STKINDI('993386','净流入.净额_万元'))*100+42;
      R[43]:=INTPART(STKINDI('993405','净流入.净额_万元'))*100+43;
      R[44]:=INTPART(STKINDI('993445','净流入.净额_万元'))*100+44;
      R[45]:=INTPART(STKINDI('993450','净流入.净额_万元'))*100+45;
      R[46]:=INTPART(STKINDI('993585','净流入.净额_万元'))*100+46;
      R[47]:=INTPART(STKINDI('993586','净流入.净额_万元'))*100+47;
      R[48]:=INTPART(STKINDI('993596','净流入.净额_万元'))*100+48;
      R[49]:=INTPART(STKINDI('993597','净流入.净额_万元'))*100+49;
      R[50]:=INTPART(STKINDI('993645','净流入.净额_万元'))*100+50;
      R[51]:=INTPART(STKINDI('993646','净流入.净额_万元'))*100+51;
      R[52]:=INTPART(STKINDI('993665','净流入.净额_万元'))*100+52;
      R[53]:=INTPART(STKINDI('993685','净流入.净额_万元'))*100+53;
      R[54]:=INTPART(STKINDI('993695','净流入.净额_万元'))*100+54;
      R[55]:=INTPART(STKINDI('993710','净流入.净额_万元'))*100+55;
      R[56]:=INTPART(STKINDI('993730','净流入.净额_万元'))*100+56;
      R[57]:=INTPART(STKINDI('993745','净流入.净额_万元'))*100+57;
      R[58]:=INTPART(STKINDI('993798','净流入.净额_万元'))*100+58;
      R[59]:=INTPART(STKINDI('993801','净流入.净额_万元'))*100+59;
      R[60]:=INTPART(STKINDI('993825','净流入.净额_万元'))*100+60;
      {--------------------------------------------------------------------}
      RR[1]:=INTPART(STKINDI('991002','净流入.净额'))*100+1;
      RR[2]:=INTPART(STKINDI('991003','净流入.净额'))*100+2;
      RR[3]:=INTPART(STKINDI('991004','净流入.净额'))*100+3;
      RR[4]:=INTPART(STKINDI('991006','净流入.净额'))*100+4;
      RR[5]:=INTPART(STKINDI('991007','净流入.净额'))*100+5;
      RR[6]:=INTPART(STKINDI('991008','净流入.净额'))*100+6;
      RR[7]:=INTPART(STKINDI('991009','净流入.净额'))*100+7;
      RR[8]:=INTPART(STKINDI('991010','净流入.净额'))*100+8;
      RR[9]:=INTPART(STKINDI('991011','净流入.净额'))*100+9;
      RR[10]:=INTPART(STKINDI('991014','净流入.净额'))*100+10;
      RR[11]:=INTPART(STKINDI('991016','净流入.净额'))*100+11;
      RR[12]:=INTPART(STKINDI('991017','净流入.净额'))*100+12;
      RR[13]:=INTPART(STKINDI('991018','净流入.净额'))*100+13;
      RR[14]:=INTPART(STKINDI('991019','净流入.净额'))*100+14;
      RR[15]:=INTPART(STKINDI('991020','净流入.净额'))*100+15;
      RR[16]:=INTPART(STKINDI('991021','净流入.净额'))*100+16;
      RR[17]:=INTPART(STKINDI('991023','净流入.净额'))*100+17;
      RR[18]:=INTPART(STKINDI('991024','净流入.净额'))*100+18;
      RR[19]:=INTPART(STKINDI('991025','净流入.净额'))*100+19;
      RR[20]:=INTPART(STKINDI('991026','净流入.净额'))*100+20;
      RR[21]:=INTPART(STKINDI('991027','净流入.净额'))*100+21;
      RR[22]:=INTPART(STKINDI('991028','净流入.净额'))*100+22;
      RR[23]:=INTPART(STKINDI('991031','净流入.净额'))*100+23;
      RR[24]:=INTPART(STKINDI('991032','净流入.净额'))*100+24;
      RR[25]:=INTPART(STKINDI('991033','净流入.净额'))*100+25;
      RR[26]:=INTPART(STKINDI('991034','净流入.净额'))*100+26;
      RR[27]:=INTPART(STKINDI('991035','净流入.净额'))*100+27;
      RR[28]:=INTPART(STKINDI('991036','净流入.净额'))*100+28;
      RR[30]:=INTPART(STKINDI('991135','净流入.净额'))*100+30;
      RR[31]:=INTPART(STKINDI('991136','净流入.净额'))*100+31;
      RR[32]:=INTPART(STKINDI('991255','净流入.净额'))*100+32;
      RR[33]:=INTPART(STKINDI('993072','净流入.净额'))*100+33;
      RR[34]:=INTPART(STKINDI('993075','净流入.净额'))*100+34;
      RR[35]:=INTPART(STKINDI('993091','净流入.净额'))*100+35;
      RR[37]:=INTPART(STKINDI('993120','净流入.净额'))*100+36;
      RR[37]:=INTPART(STKINDI('993128','净流入.净额'))*100+37;
      RR[38]:=INTPART(STKINDI('993129','净流入.净额'))*100+38;
      RR[39]:=INTPART(STKINDI('993130','净流入.净额'))*100+39;
      RR[40]:=INTPART(STKINDI('993305','净流入.净额'))*100+40;
      RR[41]:=INTPART(STKINDI('993385','净流入.净额'))*100+41;
      RR[42]:=INTPART(STKINDI('993386','净流入.净额'))*100+42;
      RR[43]:=INTPART(STKINDI('993405','净流入.净额'))*100+43;
      RR[44]:=INTPART(STKINDI('993445','净流入.净额'))*100+44;
      RR[45]:=INTPART(STKINDI('993450','净流入.净额'))*100+45;
      RR[46]:=INTPART(STKINDI('993585','净流入.净额'))*100+46;
      RR[47]:=INTPART(STKINDI('993586','净流入.净额'))*100+47;
      RR[48]:=INTPART(STKINDI('993596','净流入.净额'))*100+48;
      RR[49]:=INTPART(STKINDI('993597','净流入.净额'))*100+49;
      RR[50]:=INTPART(STKINDI('993645','净流入.净额'))*100+50;
      RR[51]:=INTPART(STKINDI('993646','净流入.净额'))*100+51;
      RR[52]:=INTPART(STKINDI('993665','净流入.净额'))*100+52;
      RR[53]:=INTPART(STKINDI('993685','净流入.净额'))*100+53;
      RR[54]:=INTPART(STKINDI('993695','净流入.净额'))*100+54;
      RR[55]:=INTPART(STKINDI('993710','净流入.净额'))*100+55;
      RR[56]:=INTPART(STKINDI('993730','净流入.净额'))*100+56;
      RR[57]:=INTPART(STKINDI('993745','净流入.净额'))*100+57;
      RR[58]:=INTPART(STKINDI('993798','净流入.净额'))*100+58;
      RR[59]:=INTPART(STKINDI('993801','净流入.净额'))*100+59;
      RR[60]:=INTPART(STKINDI('993825','净流入.净额'))*100+60;
      {*********************************************************}
      ZQ:=BARSLAST(DISPSTATUS=1);
      DRAWRECTABS(0,0,263,16,RGB(136,0,136));
      DRAWTEXTABS(0,2,'光标处于第一根K线时,可查阅数字所对应的板块。');

      DRAWFLAGTEXT(ZQ=1,145,'01-工程建筑│02-电力 │03-计算机 │04-电子信息│05-房地产 │06-纺织服装│07-钢铁 │08-供水供气'),COLORffffff;
      DRAWFLAGTEXT(ZQ=1,140,'(991002) │(991003) │(991004) │(991006) │(991007) │(991008) │(991009) │(991010) '),ColorFFF8C3;
      DRAWFLAGTEXT(ZQ=1,133,'09-化工化纤│10-电器 │11-交通设施│12-银行类 │13-旅游酒店│14-煤炭石油│15-酿酒食品│16-农林牧渔'),COLORffffff;
      DRAWFLAGTEXT(ZQ=1,128,'(991011) │(991014) │(991016) │(991017) │(991018) │(991019) │(991020) │(991021) '),ColorFFF8C3;
      DRAWFLAGTEXT(ZQ=1,121,'17-商业连锁│18-建材 │19-其他行业│20-汽车类 │21-机械 │22-医药 │23-外贸 │24-教育传媒'),COLORffffff;
      DRAWFLAGTEXT(ZQ=1,116,'(991023) │(991024) │(991025) │(991026) │(991027) │(991028) │(991031) │(991032) '),ColorFFF8C3;
      DRAWFLAGTEXT(ZQ=1,109,'25-仪电仪表│26-有色金属│27-造纸印刷│28-券商 │29-电力设备│30-通信 │31-运输物流│32-保险 '),COLORffffff;
      DRAWFLAGTEXT(ZQ=1,104,'(991033) │(991034) │(991035) │(991036) │(991037) │(991135) │(991136) │(991255) '),ColorFFF8C3;
      DRAWFLAGTEXT(ZQ=1,097,'33-ST │34-次新股 │35-新上海 │36-新材料 │37-农业龙头│38-数字电视│39-基金重仓│40-网络游戏'),COLORffffff;
      DRAWFLAGTEXT(ZQ=1,092,'(993072) │(993075) │(993091) │(993120) │(993128) │(993129) │(993130) │(993305) '),ColorFFF8C3;
      DRAWFLAGTEXT(ZQ=1,085,'41-预亏预减│42-预盈预增│43-社保重仓│44-券商重仓│45-成渝特区│46-新能源 │47-铁路基建│48-海峡西岸'),COLORffffff;
      DRAWFLAGTEXT(ZQ=1,080,'(993385) │(993386) │(993405) │(993445) │(993450) │(993585) │(993586) │(993596) '),ColorFFF8C3;
      DRAWFLAGTEXT(ZQ=1,073,'49-智能电网│50-节能环保│51-物联网 │52-航天军工│53-3G │54-创投 │55-低碳经济│56-大订单 '),COLORffffff;
      DRAWFLAGTEXT(ZQ=1,066,'(993597) │(993645) │(993646) │(993665) │(993685) │(993695) │(993710) │(993730) '),ColorFFF8C3;
      DRAWFLAGTEXT(ZQ=1,059,'57-稀缺资源│58-煤化工 │59-黄金股 │60-参股金融│'),COLORffffff;
      DRAWFLAGTEXT(ZQ=1,054,'(993745) │(993798) │(993801) │(993825) │'),ColorFFF8C3;
      {*******************************************************************************}
      A1:=0;
      for J=1 to 6 do
      begin
      I:=J+1;
      for K=J to 58 do
      begin
      IF R[J]<R THEN
      begin
      A1:=R;
      R:=R[J];
      R[J]:=A1;
      A2:=S;
      S:=S[J];
      S[J]:=A2;
      end;
      I:=1+I;
      end
      end;
      {*********************************************************}
      A1:=0;
      for J=1 to 6 do
      begin
      I:=J+1;
      for K=J to 58 do
      begin
      IF RR[J]<RR THEN
      begin
      A1:=RR;
      RR:=RR[J];
      RR[J]:=A1;
      end;
      I:=1+I;
      end
      end;

      {*********************************************************}
      DRAWTEXT(ZQ=0,-11,'净流入①:'),ALIGN0,Color00CAFF;
      DRAWTEXT(ZQ>3 and R[1]>0,-11,STRRIGHt(NUMTOSTRN(R[1],0),2)),ALIGN1,Color00FF00;
      DRAWTEXT(ZQ=0,-18,'净流入②:'),ALIGN0,Color00CAFF;
      DRAWTEXT(ZQ>3 and R[2]>0,-18,STRRIGHt(NUMTOSTRN(R[2],0),2)),ALIGN1,Color00FF00;
      DRAWTEXT(ZQ=0,-25,'净流入③:'),ALIGN0,Color00CAFF;
      DRAWTEXT(ZQ>3 and R[3]>0,-25,STRRIGHt(NUMTOSTRN(R[3],0),2)),ALIGN1,Color00FF00;
      DRAWTEXT(ZQ=0,-32,'净流入④:'),ALIGN0,Color00CAFF;
      DRAWTEXT(ZQ>3 and R[4]>0,-32,STRRIGHt(NUMTOSTRN(R[4],0),2)),ALIGN1,Color00FF00;
      DRAWTEXT(ZQ=0,-39,'净流入⑤:'),ALIGN0,Color00CAFF;
      DRAWTEXT(ZQ>3 and R[5]>0,-39,STRRIGHt(NUMTOSTRN(R[5],0),2)),ALIGN1,Color00FF00;
      DRAWTEXT(ZQ=0,-46,'净流入⑥:'),ALIGN0,Color00CAFF;
      DRAWTEXT(ZQ>3 and R[6]>0,-46,STRRIGHt(NUMTOSTRN(R[6],0),2)),ALIGN1,Color00FF00;
      {----------------------------------------------------------------------------------------}
      DRAWTEXT(ZQ=0,65,'净流入比①:'),ALIGN0,Color00CAFF;
      DRAWTEXT(ZQ>3 and RR[1]>0,65,STRRIGHt(NUMTOSTRN(RR[1],0),2)),ALIGN1,ColorFF00FF;
      DRAWTEXT(ZQ=0,56,'净流入比②:'),ALIGN0,Color00CAFF;
      DRAWTEXT(ZQ>3 and RR[2]>0,56,STRRIGHt(NUMTOSTRN(RR[2],0),2)),ALIGN1,ColorFF00FF;
      DRAWTEXT(ZQ=0,47,'净流入比③:'),ALIGN0,Color00CAFF;
      DRAWTEXT(ZQ>3 and RR[3]>0,47,STRRIGHt(NUMTOSTRN(RR[3],0),2)),ALIGN1,ColorFF00FF;
      DRAWTEXT(ZQ=0,38,'净流入比④:'),ALIGN0,Color00CAFF;
      DRAWTEXT(ZQ>3 and RR[4]>0,38,STRRIGHt(NUMTOSTRN(RR[4],0),2)),ALIGN1,ColorFF00FF;
      DRAWTEXT(ZQ=0,29,'净流入比⑤:'),ALIGN0,Color00CAFF;
      DRAWTEXT(ZQ>3 and RR[5]>0,29,STRRIGHt(NUMTOSTRN(RR[5],0),2)),ALIGN1,ColorFF00FF;
      DRAWTEXT(ZQ=0,20,'净流入比⑥:'),ALIGN0,Color00CAFF;
      DRAWTEXT(ZQ>3 and RR[6]>0,20,STRRIGHt(NUMTOSTRN(RR[6],0),2)),ALIGN1,ColorFF00FF;

      {*********************************************************}

      A3:=0;
      I:=1;
      for K=1 to 60 do
      begin
      IF S[k]<0 and R[K]>0 THEN
      begin
      A3:=R[K];
      R[K]:=R;
      R:=A3;
      I:=I+1;
      end
      ELSE R[K]:=0;{如果不清零将会显示}
      end;
      {-------------------------------------------------------------------}
      DRAWTEXT(ZQ=0,130,'逆市增仓①:'),ALIGN0,Colorred;
      IF R[1]<>0 THEN begin
      DRAWTEXT(ZQ>3 ,132,'■'),ALIGN1,ColorE4E4E4,LINETHICK3;
      DRAWTEXT(ZQ>3 ,130,STRRIGHt(NUMTOSTRN(R[1],0),2)),ALIGN1,Colorblue;

      end;
      {-------------------------------------------------------------------}
      DRAWTEXT(ZQ=0,121,'逆市增仓②:'),ALIGN0,Colorred;
      IF R[2]<>0 THEN begin
      DRAWTEXT(ZQ>3,123,'■'),ALIGN1,ColorE4E4E4,LINETHICK3;
      DRAWTEXT(ZQ>3,121,STRRIGHt(NUMTOSTRN(R[2],0),2)),ALIGN1,Colorblue;
      end;

      {-------------------------------------------------------------------}
      DRAWTEXT(ZQ=0,112,'逆市增仓③:'),ALIGN0,Colorred;
      IF R[3]<>0 THEN begin
      DRAWTEXT(ZQ>3 ,114,'■'),ALIGN1,ColorE4E4E4,LINETHICK3;
      DRAWTEXT(ZQ>3 ,112,STRRIGHt(NUMTOSTRN(R[3],0),2)),ALIGN1,Colorblue;
      end;
      {-------------------------------------------------------------------}
      DRAWTEXT(ZQ=0,103,'逆市增仓④:'),ALIGN0,Colorred;
      IF R[4]<>0 THEN begin
      DRAWTEXT(ZQ>3 ,105,'■'),ALIGN1,ColorE4E4E4,LINETHICK3;
      DRAWTEXT(ZQ>3,103,STRRIGHt(NUMTOSTRN(R[4],0),2)),ALIGN1,Colorblue;
      end;
      {-------------------------------------------------------------------}
      DRAWTEXT(ZQ=0,094,'逆市增仓⑤:'),ALIGN0,Colorred;
      IF R[5]<>0 THEN begin
      DRAWTEXT(ZQ>3 ,096,'■'),ALIGN1,ColorE4E4E4,LINETHICK3;
      DRAWTEXT(ZQ>3,094,STRRIGHt(NUMTOSTRN(R[5],0),2)),ALIGN1,Colorblue;
      end;

      {-------------------------------------------------------------------}
      DRAWTEXT(ZQ=0,82,'逆市增仓板块数:'),ALIGN0,Colorred;
      DRAWTEXT(ZQ>3 and I>6,82,''+(I-1)),ALIGN1,Colorred;
      DRAWTEXT(ZQ>3 and I>6,87,'◇'),ALIGN1,ColorE4E4E4,LINETHICK6;

      {************************************************************************************}

      {*********************************************************}
      ZF:=sum(STKINDI('Sh000001','日涨幅.A'),5);
      大盘强度(快):ma(ZF*4,3),Color909090;
      大盘强度(慢):ma(ZF*5,10),Color909090,LINETHICK2;

      强度:ma(sum("日涨幅.A",5)*4,3),Color00FFFF;
      STICKLINE(强度>大盘强度(快),大盘强度(快),强度,0.3,0),Colorred;
      {*********************************************************};


    热门标签:

    免责声明:本站不推荐任何股票,不收会员,站内的广告不代表股票公式网的观点,目的在于传播更多信息,由此引起的一切法律责任均与本网无关,专注为大众提供股票指标、选股公式、股票入门、开户等信息,股票公式网—专业的股票学习网站!股市有风险 投资需谨慎。