2016-6-7 19:26
2016-6-7 19:26, 下載次數: 302
2016-6-7 19:36
2016-6-7 19:40, 下載次數: 29
這是大智慧的原碼:
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-商業(yè)連鎖│18-建材 │19-其他行業(yè)│20-汽車類 │21-機械 │22-醫(yī)藥 │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-農業(yè)龍頭│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-成渝特區(qū)│46-新能源 │47-鐵路基建│48-海峽西岸'),COLORffffff;
DRAWFLAGTEXT(ZQ=1,080,'(993385) │(993386) │(993405) │(993445) │(993450) │(993585) │(993586) │(993596) '),ColorFFF8C3;
DRAWFLAGTEXT(ZQ=1,073,'49-智能電網│50-節(jié)能環(huán)保│51-物聯網 │52-航天軍工│53-3G │54-創(chuàng)投 │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;
{*********************************************************};