一下源码得到：胡晓卿 网友的热情帮助，提供以下更正：统计板块热点出现次数，结合个股，提前布局--芝麻要开门!
有不完善处请大家提出。
由于大智慧证券软件的函数公式比较弱，许多想法。。。。。不说了。
我在三年后公布源码,是愿引出一种编写的思考方法,也希望有人改进或优化!
原码如下：
原码如下：
■ 引用公式一：
{转向周期}
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;
{*********************************************************}; |
