2021-04-09

{基本信息副圖指標(biāo)}

{行業(yè)板塊看盤幅圖}
創(chuàng)業(yè)板:= INBLOCK('創(chuàng)業(yè)板');
中小企業(yè):= INBLOCK('中小板');
上證Ａ股:= INBLOCK('上證Ａ股');
深證Ａ股:= INBLOCK('深證Ａ股');

INDEH:=IF(中小企業(yè)=1,"399005 $H",IF(創(chuàng)業(yè)板=1,"399006$ H",IF(上證Ａ股=1,"999999 $H","399001$ H"))),NODRAW;
INDEO:=IF(中小企業(yè)=1,"399005 $O",IF(創(chuàng)業(yè)板=1,"399006$ O",IF(上證Ａ股=1,"999999 $O","399001$ O"))),NODRAW;
INDEL:=IF(中小企業(yè)=1,"399005 $L",IF(創(chuàng)業(yè)板=1,"399006$ L",IF(上證Ａ股=1,"999999 $L","399001$ L"))),NODRAW;
INDEC:=IF(中小企業(yè)=1,"399005 $C",IF(創(chuàng)業(yè)板=1,"399006$ C",IF(上證Ａ股=1,"999999 $C","399001$ C"))),NODRAW;

板塊名:=IF(中小企業(yè)=1,'中小板指數(shù)',
IF(創(chuàng)業(yè)板=1,'創(chuàng)業(yè)板指數(shù)',
IF(上證Ａ股=1,'上證指數(shù)',
'深證指數(shù)')));
指數(shù)漲幅:=(INDEC-REF(INDEC,1))100/REF(INDEC,1);
A:=STRCAT(板塊名,STRCAT(':',CON2STR(INDEC,2)));
B:=STRCAT(STRCAT('指數(shù)漲跌：',CON2STR(指數(shù)漲幅,2)),' %');
DRAWTEXT_FIX(ISLASTBAR,0,0,0,A),COLOR0055FF;
DRAWTEXT_FIX(ISLASTBAR,0.1,0,0,B),COLOR0055FF;
{漲跌家數(shù)}
滬A漲家數(shù):="999999 $ADVANCE",COLORRED,NODRAW; 滬A跌家數(shù):="999999$ DECLINE",COLORGREEN,NODRAW;
深A(yù)漲家數(shù):="399001 $ADVANCE",COLORRED,NODRAW; 深A(yù)跌家數(shù):="399001$ DECLINE",COLORGREEN,NODRAW;
中小漲家數(shù):="399005 $ADVANCE",COLORRED,NODRAW; 中小跌家數(shù):="399005$ DECLINE",COLORGREEN,NODRAW;
創(chuàng)業(yè)漲家數(shù):="399006 $ADVANCE",COLORRED,NODRAW; 創(chuàng)業(yè)跌家數(shù):="399006$ DECLINE",COLORGREEN,NODRAW;
上漲總家數(shù):=滬A漲家數(shù)+深A(yù)漲家數(shù),COLORRED,NODRAW;
下跌總家數(shù):=滬A跌家數(shù)+深A(yù)跌家數(shù),COLORGREEN,NODRAW;
BBB1:=STRCAT('滬A漲家數(shù): ',CON2STR(滬A漲家數(shù),0));
DRAWTEXT_FIX(ISLASTBAR,0,0.06,0,BBB1),COLORRED;
BBB2:=STRCAT('滬A跌家數(shù): ',CON2STR(滬A跌家數(shù),0));
DRAWTEXT_FIX(ISLASTBAR,0,0.12,0,BBB2),COLORGREEN;
BBB3:=STRCAT('深A(yù)漲家數(shù): ',CON2STR(深A(yù)漲家數(shù),0));
DRAWTEXT_FIX(ISLASTBAR,0.1,0.06,0,BBB3),COLORRED;
BBB4:=STRCAT('深A(yù)跌家數(shù): ',CON2STR(深A(yù)跌家數(shù),0));
DRAWTEXT_FIX(ISLASTBAR,0.1,0.12,0,BBB4),COLORGREEN;
BBB5:=STRCAT('中小漲家數(shù): ',CON2STR(中小漲家數(shù),0));
DRAWTEXT_FIX(ISLASTBAR,0.2,0.06,0,BBB5),COLORRED;
BBB6:=STRCAT('中小跌家數(shù):',CON2STR(中小跌家數(shù),0));
DRAWTEXT_FIX(ISLASTBAR,0.2,0.12,0,BBB6),COLORGREEN;
BBB7:=STRCAT('創(chuàng)業(yè)漲家數(shù): ',CON2STR(創(chuàng)業(yè)漲家數(shù),0));
DRAWTEXT_FIX(ISLASTBAR,0.3,0.06,0,BBB7),COLORRED;
BBB8:=STRCAT('創(chuàng)業(yè)跌家數(shù): ',CON2STR(創(chuàng)業(yè)跌家數(shù),0));
DRAWTEXT_FIX(ISLASTBAR,0.3,0.12,0,BBB8),COLORGREEN;
{漲跌家數(shù)比}
上漲總家數(shù)比:=上漲總家數(shù)/(上漲總家數(shù)+下跌總家數(shù))100,COLORRED,NODRAW;
下跌總家數(shù)比:=下跌總家數(shù)/(上漲總家數(shù)+下跌總家數(shù))100,COLORGREEN,NODRAW;
滬A上漲家數(shù)比:=滬A漲家數(shù)/(滬A漲家數(shù)+滬A跌家數(shù))100,COLORRED,NODRAW;
滬A下跌家數(shù)比:=滬A跌家數(shù)/(滬A漲家數(shù)+滬A跌家數(shù))100,COLORGREEN,NODRAW;
深A(yù)上漲家數(shù)比:=深A(yù)漲家數(shù)/(深A(yù)漲家數(shù)+深A(yù)跌家數(shù))100,COLORRED,NODRAW;
深A(yù)下跌家數(shù)比:=深A(yù)跌家數(shù)/(深A(yù)漲家數(shù)+深A(yù)跌家數(shù))100,COLORGREEN,NODRAW;
中小上漲家數(shù)比:=中小漲家數(shù)/(中小漲家數(shù)+中小跌家數(shù))100,COLORRED,NODRAW;
中小下跌家數(shù)比:=中小跌家數(shù)/(中小漲家數(shù)+中小跌家數(shù))100,COLORGREEN,NODRAW;
創(chuàng)業(yè)上漲家數(shù)比:=創(chuàng)業(yè)漲家數(shù)/(創(chuàng)業(yè)漲家數(shù)+創(chuàng)業(yè)跌家數(shù))100,COLORRED,NODRAW;
創(chuàng)業(yè)下跌家數(shù)比:=創(chuàng)業(yè)跌家數(shù)/(創(chuàng)業(yè)漲家數(shù)+創(chuàng)業(yè)跌家數(shù))*100,COLORGREEN,NODRAW;
AAA1:=STRCAT(STRCAT('上漲總家數(shù)比 ',CON2STR(上漲總家數(shù)比,0)),' %');
DRAWTEXT_FIX(ISLASTBAR,0.4,0.06,0,AAA1),COLORRED;
AAA2:=STRCAT(STRCAT('下跌總家數(shù)比 ',CON2STR(下跌總家數(shù)比,0)),' %');
DRAWTEXT_FIX(ISLASTBAR,0.4,0.12,0,AAA2),COLORGREEN;
AAA3:=STRCAT(STRCAT('滬A上漲家數(shù)比 ',CON2STR(滬A上漲家數(shù)比,0)),' %');
DRAWTEXT_FIX(ISLASTBAR,0.5,0.06,0,AAA3),COLORRED;
AAA4:=STRCAT(STRCAT('滬A下跌家數(shù)比 ',CON2STR(滬A下跌家數(shù)比,0)),' %');
DRAWTEXT_FIX(ISLASTBAR,0.5,0.12,0,AAA4),COLORGREEN;
AAA5:=STRCAT(STRCAT('深A(yù)上漲家數(shù)比 ',CON2STR(深A(yù)上漲家數(shù)比,0)),' %');
DRAWTEXT_FIX(ISLASTBAR,0.6,0.06,0,AAA5),COLORRED;
AAA6:=STRCAT(STRCAT('深A(yù)下跌家數(shù)比 ',CON2STR(深A(yù)下跌家數(shù)比,0)),' %');
DRAWTEXT_FIX(ISLASTBAR,0.6,0.12,0,AAA6),COLORGREEN;
AAA7:=STRCAT(STRCAT('中小上漲家數(shù)比 ',CON2STR(中小上漲家數(shù)比,0)),' %');
DRAWTEXT_FIX(ISLASTBAR,0.7,0.06,0,AAA7),COLORRED;
AAA8:=STRCAT(STRCAT('中小下跌家數(shù)比 ',CON2STR(中小下跌家數(shù)比,0)),' %');
DRAWTEXT_FIX(ISLASTBAR,0.7,0.12,0,AAA8),COLORGREEN;
AAA9:=STRCAT(STRCAT('創(chuàng)業(yè)上漲家數(shù)比 ',CON2STR(創(chuàng)業(yè)上漲家數(shù)比,0)),' %');
DRAWTEXT_FIX(ISLASTBAR,0.8,0.06,0,AAA9),COLORRED;
AAA10:=STRCAT(STRCAT('創(chuàng)業(yè)下跌家數(shù)比 ',CON2STR(創(chuàng)業(yè)下跌家數(shù)比,0)),' %');
DRAWTEXT_FIX(ISLASTBAR,0.8,0.12,0,AAA10),COLORGREEN;

{行業(yè)板塊的高開低收}
CCC:=HY_INDEXC;
OOO:=HY_INDEXO;
LLL:=HY_INDEXL;
HHH:=HY_INDEXH;
DRAWKLINE(HHH,OOO,LLL,CCC);

{行業(yè)板MA}
MA1:MA(CCC,1);
MA5:MA(CCC,5);
MA20:MA(CCC,20);
MA60:MA(CCC,60);

上漲:=VARCAT('行業(yè)上漲：',VAR2STR(HY_INDEXADV,0));
下跌:=VARCAT('行業(yè)下跌：',VAR2STR(HY_INDEXDEC,0));
DRAWTEXT_FIX(ISLASTBAR,0.7,0,0,上漲),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.8,0,0,下跌),COLORYELLOW;

行業(yè)漲幅%:=(C-REF(C,1))/REF(C,1)100;
行業(yè)指數(shù):=(CCC-REF(CCC,1))100/REF(CCC,1);
DD:=STRCAT('行業(yè)指數(shù)：',CON2STR(CCC,2));
E:=STRCAT(STRCAT('行業(yè)漲跌：',CON2STR(行業(yè)指數(shù),2)),' %');
DRAWTEXT_FIX(ISLASTBAR,0.2,0,0,DD),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.3,0,0,E),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.4,0,0,HYBLOCK),COLORYELLOW;{所屬行業(yè)}
DRAWTEXT_FIX(ISLASTBAR AND 指數(shù)漲幅<=行業(yè)指數(shù),0.5,0,0,'板塊強(qiáng)'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR AND 指數(shù)漲幅>行業(yè)指數(shù),0.5,0,0,'板塊弱'),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR AND 行業(yè)漲幅%>=行業(yè)指數(shù),0.6,0,0,'個股強(qiáng)'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR AND 行業(yè)漲幅%<行業(yè)指數(shù),0.6,0,0,'個股弱'),COLORCYAN;
DRAWTEXT_FIX(1,0.0,0.43,0,'【說明：早盤如果持有的股票：板弱个榕、股弱孽椰。遇到急拉，堅決高拋低吸盹舞。】'),COLOR0080FF;
DRAWTEXT_FIX(1,0.0,0.50,0,'【如果板強(qiáng)蔫慧、股弱：等待股弱轉(zhuǎn)股強(qiáng)妄迁。如果盤中一直處于板強(qiáng)瓣赂、股弱：堅決做T】'),COLOR0080FF;
DRAWTEXT_FIX(1,0.0,0.57,0,'【遇到板強(qiáng)、股強(qiáng)：持股不動鲤竹。遇到板弱浪读、股強(qiáng)：看個股量，如果放量強(qiáng)持股不動辛藻。如果急拉不放量碘橘，應(yīng)高拋低吸】'),COLOR0080FF;
DRAWTEXT_FIX(1,0.0,0.64,0,'【遇到上漲家數(shù)迅速增加：考慮補倉或者持股不動，反之減倉吱肌《徊穑】'),COLOR0080FF;

個股強(qiáng)弱:=(CLOSE-MA(CLOSE,30))/MA(CLOSE,30)100,COLORWHITE;
行業(yè)強(qiáng)弱:=(HY_INDEXC-MA(HY_INDEXC,30))/MA(HY_INDEXC,30)100,COLORYELLOW,LINETHICK2;
大盤強(qiáng)弱:=(INDEXC-MA(INDEXC,30))/MA(INDEXC,30)100,COLORRED,LINETHICK4;
煤炭A:=("880301 $C"-REF("880301$ C",1))/REF("880301 $C",1)*100; 電力A:=("880305$ C"-REF("880305 $C",1))/REF("880305$ C",1)100;
石油A:=("880310 $C"-REF("880310$ C",1))/REF("880310 $C",1)*100; 鋼鐵A:=("880318$ C"-REF("880318 $C",1))/REF("880318$ C",1)100;
有色A:=("880324 $C"-REF("880324$ C",1))/REF("880324 $C",1)*100; 化纖A:=("880330$ C"-REF("880330 $C",1))/REF("880330$ C",1)100;
化工A:=("880335 $C"-REF("880335$ C",1))/REF("880335 $C",1)*100; 建材A:=("880344$ C"-REF("880344 $C",1))/REF("880344$ C",1)100;
造紙A:=("880350 $C"-REF("880350$ C",1))/REF("880350 $C",1)*100; 礦物制品A:=("880351$ C"-REF("880351 $C",1))/REF("880351$ C",1)100;
日用化工A:=("880355 $C"-REF("880355$ C",1))/REF("880355 $C",1)*100; 農(nóng)林牧漁A:=("880360$ C"-REF("880360 $C",1))/REF("880360$ C",1)100;
紡織服飾A:=("880367 $C"-REF("880367$ C",1))/REF("880367 $C",1)*100; 食品飲料A:=("880372$ C"-REF("880372 $C",1))/REF("880372$ C",1)100;
釀酒A:=("880380 $C"-REF("880380$ C",1))/REF("880380 $C",1)*100; 家用電器A:=("880387$ C"-REF("880387 $C",1))/REF("880387$ C",1)100;
汽車類A:=("880390 $C"-REF("880390$ C",1))/REF("880390 $C",1)*100; 醫(yī)療保健A:=("880398$ C"-REF("880398 $C",1))/REF("880398$ C",1)100;
家居用品A:=("880399 $C"-REF("880399$ C",1))/REF("880399 $C",1)*100; 醫(yī)藥A:=("880400$ C"-REF("880400 $C",1))/REF("880400$ C",1)100;
商業(yè)連鎖A:=("880406 $C"-REF("880406$ C",1))/REF("880406 $C",1)*100; 商貿(mào)代理A:=("880414$ C"-REF("880414 $C",1))/REF("880414$ C",1)100;
傳媒娛樂A:=("880418 $C"-REF("880418$ C",1))/REF("880418 $C",1)*100; 廣告包裝A:=("880421$ C"-REF("880421 $C",1))/REF("880421$ C",1)100;
文教休閑A:=("880422 $C"-REF("880422$ C",1))/REF("880422 $C",1)*100; 酒店餐飲A:=("880423$ C"-REF("880423 $C",1))/REF("880423$ C",1)100;
旅游A:=("880424 $C"-REF("880424$ C",1))/REF("880424 $C",1)*100; 航空航天A:=("880430$ C"-REF("880430 $C",1))/REF("880430$ C",1)100;
船舶A:=("880431 $C"-REF("880431$ C",1))/REF("880431 $C",1)*100; 運輸設(shè)備A:=("880432$ C"-REF("880432 $C",1))/REF("880432$ C",1)100;
通用機(jī)械A(chǔ):=("880437 $C"-REF("880437$ C",1))/REF("880437 $C",1)*100; 工業(yè)機(jī)械A(chǔ):=("880440$ C"-REF("880440 $C",1))/REF("880440$ C",1)100;
電氣設(shè)備A:=("880446 $C"-REF("880446$ C",1))/REF("880446 $C",1)*100; 工程機(jī)械A(chǔ):=("880447$ C"-REF("880447 $C",1))/REF("880447$ C",1)100;
電器儀表A:=("880448 $C"-REF("880448$ C",1))/REF("880448 $C",1)*100; 電信運營A:=("880452$ C"-REF("880452 $C",1))/REF("880452$ C",1)100;
公共交通A:=("880453 $C"-REF("880453$ C",1))/REF("880453 $C",1)*100; 水務(wù)A:=("880454$ C"-REF("880454 $C",1))/REF("880454$ C",1)100;
供氣供熱A:=("880455 $C"-REF("880455$ C",1))/REF("880455 $C",1)*100; 環(huán)境保護(hù)A:=("880456$ C"-REF("880456 $C",1))/REF("880456$ C",1)100;
運輸服務(wù)A:=("880459 $C"-REF("880459$ C",1))/REF("880459 $C",1)*100; 倉儲物流A:=("880464$ C"-REF("880464 $C",1))/REF("880464$ C",1)100;
交通設(shè)施A:=("880465 $C"-REF("880465$ C",1))/REF("880465 $C",1)*100; 銀行類A:=("880471$ C"-REF("880471 $C",1))/REF("880471$ C",1)100;
證券類A:=("880472 $C"-REF("880472$ C",1))/REF("880472 $C",1)*100; 保險類A:=("880473$ C"-REF("880473 $C",1))/REF("880473$ C",1)100;
多元金融A:=("880474 $C"-REF("880474$ C",1))/REF("880474 $C",1)*100; 建筑A:=("880476$ C"-REF("880476 $C",1))/REF("880476$ C",1)100;
房地產(chǎn)A:=("880482 $C"-REF("880482$ C",1))/REF("880482 $C",1)*100; 電腦設(shè)備A:=("880489$ C"-REF("880489 $C",1))/REF("880489$ C",1)100;
通信設(shè)備A:=("880490 $C"-REF("880490$ C",1))/REF("880490 $C",1)*100; 半導(dǎo)體A:=("880491$ C"-REF("880491 $C",1))/REF("880491$ C",1)100;
元器件A:=("880492 $C"-REF("880492$ C",1))/REF("880492 $C",1)*100; 軟件服務(wù)A:=("880493$ C"-REF("880493 $C",1))/REF("880493$ C",1)100;
互聯(lián)網(wǎng)A:=("880494 $C"-REF("880494$ C",1))/REF("880494 $C",1)*100; 綜合類A:=("880497$ C"-REF("880497 $C",1))/REF("880497$ C",1)*100;
最大值1A:=MAX(煤炭A,MAX(電力A,MAX(石油A,MAX(鋼鐵A,MAX(有色A,MAX(化纖A,MAX(化工A,MAX(建材A,MAX(造紙A,MAX(礦物制品A,日用化工A))))))))));
最大值2A:=MAX(農(nóng)林牧漁A,MAX(紡織服飾A,MAX(食品飲料A,MAX(釀酒A,MAX(家用電器A,MAX(汽車類A,MAX(醫(yī)療保健A,MAX(家居用品A,MAX(醫(yī)藥A,MAX(商業(yè)連鎖A,商貿(mào)代理A))))))))));
最大值3A:=MAX(傳媒娛樂A,MAX(廣告包裝A,MAX(文教休閑A,MAX(酒店餐飲A,MAX(旅游A,MAX(航空航天A,MAX(船舶A,MAX(運輸設(shè)備A,MAX(通用機(jī)械A(chǔ),MAX(工業(yè)機(jī)械A(chǔ),電氣設(shè)備A))))))))));
最大值4A:=MAX(工程機(jī)械A(chǔ),MAX(電器儀表A,MAX(電信運營A,MAX(公共交通A,MAX(水務(wù)A,MAX(供氣供熱A,MAX(環(huán)境保護(hù)A,MAX(運輸服務(wù)A,MAX(倉儲物流A,MAX(交通設(shè)施A,銀行類A))))))))));
最大值5A:=MAX(證券類A,MAX(保險類A,MAX(多元金融A,MAX(建筑A,MAX(房地產(chǎn)A,MAX(電腦設(shè)備A,MAX(通信設(shè)備A,MAX(半導(dǎo)體A,MAX(元器件A,MAX(軟件服務(wù)A,MAX(互聯(lián)網(wǎng)A,綜合類A)))))))))));
ZZDZ:=CONST(MAX(最大值1A,MAX(最大值2A,MAX(最大值3A,MAX(最大值4A,最大值5A)))));
DRAWTEXT_FIX(ISLASTBAR,0.2,0.9,0,' ████████████████'),COLORRED;
XSWZ1:=CONST(IF(ZZDZ-煤炭A=0 OR ZZDZ-電力A=0 OR ZZDZ-石油A=0 OR ZZDZ-鋼鐵A=0 OR ZZDZ-有色A=0 OR ZZDZ-化纖A=0 OR ZZDZ-化工A=0 OR ZZDZ-建材A=0 OR ZZDZ-造紙A=0 OR ZZDZ-旅游A=0 OR ZZDZ-船舶A=0 OR ZZDZ-水務(wù)A=0 OR ZZDZ-建筑A=0 OR ZZDZ-醫(yī)藥A=0,614,IF(ZZDZ-汽車類A=0 OR ZZDZ-銀行類A=0 OR ZZDZ-證券類A=0 OR ZZDZ-保險類A=0 OR ZZDZ-房地產(chǎn)A=0 OR ZZDZ-半導(dǎo)體A=0 OR ZZDZ-元器件A=0 OR ZZDZ-互聯(lián)網(wǎng)A=0 OR ZZDZ-綜合類A=0,627,643)));
DRAWTEXT_FIX(ISLASTBAR,0.2,0.9,0,IF(ZZDZ-煤炭A=0,'【今強(qiáng)勢板塊】：煤炭行業(yè)',IF(ZZDZ-電力A=0,'【今強(qiáng)勢板塊】：電力行業(yè)',IF(ZZDZ-石油A=0,'【今強(qiáng)勢板塊】：石油行業(yè)',IF(ZZDZ-鋼鐵A=0,'【今強(qiáng)勢板塊】：鋼鐵行業(yè)',IF(ZZDZ-有色A=0,'【今強(qiáng)勢板塊】：有色行業(yè)',IF(ZZDZ-化纖A=0,'【今強(qiáng)勢板塊】：化纖行業(yè)',IF(ZZDZ-化工A=0,'【今強(qiáng)勢板塊】：化工行業(yè)',IF(ZZDZ-建材A=0,'【今強(qiáng)勢板塊】：建材行業(yè)',IF(ZZDZ-造紙A=0,'【今強(qiáng)勢板塊】：造紙行業(yè)',IF(ZZDZ-礦物制品A=0,'【今強(qiáng)勢板塊】：礦物制品',IF(ZZDZ-日用化工A=0,'【今強(qiáng)勢板塊】：日用化工',
IF(ZZDZ-農(nóng)林牧漁A=0,'【今強(qiáng)勢板塊】：農(nóng)林牧漁',IF(ZZDZ-紡織服飾A=0,'【今強(qiáng)勢板塊】：紡織服飾',IF(ZZDZ-食品飲料A=0,'【今強(qiáng)勢板塊】：食品飲料',IF(ZZDZ-釀酒A=0,'【今強(qiáng)勢板塊】：釀酒行業(yè)',IF(ZZDZ-家用電器A=0,'【今強(qiáng)勢板塊】：家用電器',IF(ZZDZ-汽車類A=0,'【今強(qiáng)勢板塊】：汽車行業(yè)',IF(ZZDZ-醫(yī)療保健A=0,'【今強(qiáng)勢板塊】：醫(yī)療保健',IF(ZZDZ-家居用品A=0,'【今強(qiáng)勢板塊】：家居用品',IF(ZZDZ-醫(yī)藥A=0,'【今強(qiáng)勢板塊】：醫(yī)藥行業(yè)',IF(ZZDZ-商業(yè)連鎖A=0,'【今強(qiáng)勢板塊】：商業(yè)連鎖',IF(ZZDZ-商貿(mào)代理A=0,'【今強(qiáng)勢板塊】：商貿(mào)代理',DRAWNULL))))))))))))))))))))))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,0.2,0.9,0,IF(ZZDZ-傳媒娛樂A=0,'【今強(qiáng)勢板塊】：傳媒娛樂',IF(ZZDZ-廣告包裝A=0,'【今強(qiáng)勢板塊】：廣告包裝',IF(ZZDZ-文教休閑A=0,'【今強(qiáng)勢板塊】：文教休閑',IF(ZZDZ-酒店餐飲A=0,'【今強(qiáng)勢板塊】：酒店餐飲',IF(ZZDZ-旅游A=0,'【今強(qiáng)勢板塊】：旅游行業(yè)',IF(ZZDZ-航空航天A=0,'【今強(qiáng)勢板塊】：航空航天',IF(ZZDZ-船舶A=0,'【今強(qiáng)勢板塊】：船舶行業(yè)',IF(ZZDZ-運輸設(shè)備A=0,'【今強(qiáng)勢板塊】：運輸設(shè)備',IF(ZZDZ-通用機(jī)械A(chǔ)=0,'【今強(qiáng)勢板塊】：通用機(jī)械',IF(ZZDZ-工業(yè)機(jī)械A(chǔ)=0,'【今強(qiáng)勢板塊】：工業(yè)機(jī)械',IF(ZZDZ-電氣設(shè)備A=0,'【今強(qiáng)勢板塊】：電氣設(shè)備',
IF(ZZDZ-工程機(jī)械A(chǔ)=0,'【今強(qiáng)勢板塊】：工程機(jī)械',IF(ZZDZ-電器儀表A=0,'【今強(qiáng)勢板塊】：電器儀表',IF(ZZDZ-電信運營A=0,'【今強(qiáng)勢板塊】：電信運營',IF(ZZDZ-公共交通A=0,'【今強(qiáng)勢板塊】：公共交通',IF(ZZDZ-水務(wù)A=0,'【今強(qiáng)勢板塊】：水務(wù)行業(yè)',IF(ZZDZ-供氣供熱A=0,'【今強(qiáng)勢板塊】：供氣供熱',IF(ZZDZ-環(huán)境保護(hù)A=0,'【今強(qiáng)勢板塊】：環(huán)境保護(hù)',IF(ZZDZ-運輸服務(wù)A=0,'【今強(qiáng)勢板塊】：運輸服務(wù)',IF(ZZDZ-倉儲物流A=0,'【今強(qiáng)勢板塊】：倉儲物流',IF(ZZDZ-交通設(shè)施A=0,'【今強(qiáng)勢板塊】：交通設(shè)施',
IF(ZZDZ-銀行類A=0,'【今強(qiáng)勢板塊】：銀行板塊',IF(ZZDZ-證券類A=0,'【今強(qiáng)勢板塊】：證券板塊',IF(ZZDZ-保險類A=0,'【今強(qiáng)勢板塊】：保險板塊',IF(ZZDZ-多元金融A=0,'【今強(qiáng)勢板塊】：多元金融',IF(ZZDZ-建筑A=0,'【今強(qiáng)勢板塊】：建筑行業(yè)',IF(ZZDZ-房地產(chǎn)A=0,'【今強(qiáng)勢板塊】：房產(chǎn)板塊',IF(ZZDZ-電腦設(shè)備A=0,'【今強(qiáng)勢板塊】：電腦設(shè)備',IF(ZZDZ-通信設(shè)備A=0,'【今強(qiáng)勢板塊】：通信設(shè)備',IF(ZZDZ-半導(dǎo)體A=0,'【今強(qiáng)勢板塊】：半導(dǎo)體類',IF(ZZDZ-元器件A=0,'【今強(qiáng)勢板塊】：元器件類',IF(ZZDZ-軟件服務(wù)A=0,'【今強(qiáng)勢板塊】：軟件服務(wù)',IF(ZZDZ-互聯(lián)網(wǎng)A=0,'【今強(qiáng)勢板塊】：互聯(lián)網(wǎng)類',IF(ZZDZ-綜合類A=0,'【今強(qiáng)勢板塊】：綜合板塊',DRAWNULL))))))))))))))))))))))))))))))))))),COLORWHITE;

DRAWTEXT_FIX(ISLASTBAR,0.6,0.2,0,'股東統(tǒng)計分析：'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.7,0.2,0,'1、前十大股東持股合計：'),COLORRED ;
環(huán)比增減1:=(FINONE(245,0,0)-FINONE(245,0,1))/FINONE(245,0,1)100;
HG111:=IF(環(huán)比增減1>0,VARCAT(VARCAT( '增加 ' ,VAR2STR( 環(huán)比增減1,2)),' %　'),IF(環(huán)比增減1<0,VARCAT(VARCAT( '減少 ' ,VAR2STR(-環(huán)比增減1,2)),' %　'),' '));
HGH111:=STRCAT(STRCAT('占總股本 ',STRCAT(CON2STR(FINVALUE(245)/FINVALUE(238)100,2),' %　')),STRCAT('占流通盤 ',STRCAT(CON2STR(FINVALUE(245)/FINVALUE(239)*100,2),' %　')));
SDGDCGLXFX:=IF(FINONE(245,0,0)<FINONE(245,0,1) AND FINONE(245,0,1)<FINONE(245,0,2) AND FINONE(245,0,2)<FINONE(245,0,3),'連續(xù)三季度減少',IF(FINVALUE(245)>FINONE(245,0,1) AND FINONE(245,0,1)>FINONE(245,0,2) AND FINONE(245,0,2)>FINONE(245,0,3),'連續(xù)三季度增加',''));
DRAWTEXT_FIX(ISLASTBAR,0.7,0.294,0,HGH111),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.7,0.381,0,STRCAT('較上期 ',STRCAT(HG111,SDGDCGLXFX))),COLORYELLOW;

GDRSLXZJFX:=IF(FINONE(242,0,0)<FINONE(242,0,1) AND FINONE(242,0,1)<FINONE(242,0,2) AND FINONE(242,0,2)<FINONE(242,0,3),'連續(xù)三季度減少',IF(FINVALUE(242)>FINONE(242,0,1) AND FINONE(242,0,1)>FINONE(242,0,2) AND FINONE(242,0,2)>FINONE(242,0,3),'連續(xù)三季度增加',''));
DRAWTEXT_FIX(ISLASTBAR AND ((FINVALUE(242)-FINONE(242,0,1))/FINONE(242,0,1))<=0,0.7,0.468,0,STRCAT('2氮墨、本期股東人數(shù)較上期減： ',STRCAT(CON2STR((FINVALUE(242)-FINONE(242,0,1))/FINONE(242,0,1)100,2),STRCAT(' %纺蛆，',GDRSLXZJFX)))),COLORFFAAFF;
DRAWTEXT_FIX(ISLASTBAR AND ((FINVALUE(242)-FINONE(242,0,1))/FINONE(242,0,1))> 0,0.7,0.468,0,STRCAT('2、本期股東人數(shù)較上期增： ',STRCAT(CON2STR((FINVALUE(242)-FINONE(242,0,1))/FINONE(242,0,1)100,2),STRCAT(' %规揪，',GDRSLXZJFX)))),COLORFFAA00;

HGH222:=STRCAT(STRCAT('占總股本 ',STRCAT(CON2STR(FINVALUE(247)/FINVALUE(238)100,2),' %　')),STRCAT('占流通盤 ',STRCAT(CON2STR(FINVALUE(247)/FINVALUE(239)100,2),' %　')));
JGCGLXZJFX:=IF(FINONE(247,0,0)<FINONE(247,0,1) AND FINONE(247,0,1)<FINONE(247,0,2) AND FINONE(247,0,2)<FINONE(247,0,3),'連續(xù)三季度減少',IF(FINVALUE(247)>FINONE(247,0,1) AND FINONE(247,0,1)>FINONE(247,0,2) AND FINONE(247,0,2)>FINONE(247,0,3),'連續(xù)三季度增加',''));
DRAWTEXT_FIX(ISLASTBAR,0.7,0.555,0,STRCAT('3桥氏、共 ',STRCAT(CON2STR(FINVALUE(246),0),STRCAT(' 家機(jī)構(gòu)，共持有 ',STRCAT(CON2STR(FINVALUE(247)/10000,2),' 萬股'))))),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.7,0.642,0,HGH222),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.7,0.729,0,STRCAT('增幅 ',STRCAT(CON2STR((FINONE(247,0,0)-FINONE(247,0,1))/FINONE(247,0,1)*100,2),STRCAT(' % ',JGCGLXZJFX)))),COLORGREEN;

環(huán)比增減3:=(FINONE(284,0,0)-FINONE(284,0,1))/FINONE(284,0,1)100;
HG333:=IF(環(huán)比增減3>0,VARCAT(VARCAT( '增加 ' ,VAR2STR( 環(huán)比增減3,2)),' %　'),IF(環(huán)比增減3<0,VARCAT(VARCAT( '減少 ' ,VAR2STR(-環(huán)比增減3,2)),' %　'),' '));
GJDCGLXFX:=IF(FINONE(284,0,0)<FINONE(284,0,1) AND FINONE(284,0,1)<FINONE(284,0,2) AND FINONE(284,0,2)<FINONE(284,0,3),'連續(xù)三季度減少',IF(FINVALUE(284)>FINONE(284,0,1) AND FINONE(284,0,1)>FINONE(284,0,2) AND FINONE(284,0,2)>FINONE(284,0,3),'連續(xù)三季度增加',''));
DRAWTEXT_FIX(ISLASTBAR,0.7,0.816,0,STRCAT('4猛铅、國家隊持 ',STRCAT(CON2STR(FINVALUE(284),2),STRCAT(' 萬股字支，占總股本 ',STRCAT(CON2STR(FINVALUE(284)10000/FINVALUE(238)*100,2),' %　'))))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,0.7,0.903,0,STRCAT('較上期 ',STRCAT(HG333,GJDCGLXFX))),COLORWHITE;

商譽數(shù)值:=FINVALUE(35)/100000000;{億}
凈資產(chǎn):=FINANCE(19)/100000000,NODRAW;{億}
雷區(qū):商譽數(shù)值/凈資產(chǎn)*100,COLORWHITE,NODRAW;{大于30為高風(fēng)險，低于30為低風(fēng)險}
DRAWRECTREL(220,380,0,310,IF(雷區(qū)<30,RGB(200,0,0),RGB(0,0,255)));
DRAWTEXT_FIX(1,0.01,0.32,0,'商譽雷區(qū)：'),COLOR00FFFF;
DRAWTEXT_FIX(1,0.09,0.32,0,STRCAT(STRCAT(CON2STR(商譽數(shù)值,2),'億 '),IF(雷區(qū)>30,'●高風(fēng)險','低風(fēng)險'))),COLORWHITE;

凈資產(chǎn)收益率:=FINANCE(33)/FINANCE(34)100,NODRAW;
每股凈資產(chǎn):=FINANCE(34),NODRAW;
每股未分配利潤:=FINANCE(32),NODRAW;
主營收入占比:=FINANCE(20)/(FINANCE(20)+FINANCE(22)+FINANCE(24)+FINANCE(25))100,NODRAW;
每股經(jīng)營現(xiàn)金流:=FINANCE(25)/FINANCE(1),NODRAW;
現(xiàn)金流利潤比:=FINANCE(25)/FINANCE(29),NODRAW;
每股總現(xiàn)金流:=FINANCE(26)/FINANCE(1),NODRAW;
股價現(xiàn)金流比:=FINANCE(1)C/FINANCE(25),NODRAW;
銷售毛利率:=FINANCE(21)/FINANCE(20)100,NODRAW;
價值估值PEG:(C/FINANCE(33))/(FINANCE(21)/FINANCE(20)+0.038)/100,NODRAW;
每股公積金:=FINANCE(18),NODRAW;
AB1:=IF(現(xiàn)金流利潤比>0.5,1+現(xiàn)金流利潤比/1000,現(xiàn)金流利潤比/1000),NODRAW;
AB21:=IF(主營收入占比>50,1+主營收入占比/1000,主營收入占比/1000),NODRAW;
AB31:=IF(凈資產(chǎn)收益率>5,1+凈資產(chǎn)收益率/1000,凈資產(chǎn)收益率/1000),NODRAW;
A41:=IF(每股凈資產(chǎn)>1.5,1+每股凈資產(chǎn)/100,每股凈資產(chǎn)/100),NODRAW;
A51:=IF(股價現(xiàn)金流比>0 AND 股價現(xiàn)金流比<80,1+股價現(xiàn)金流比/1000,0),NODRAW;
A61:=IF(每股未分配利潤>0.2,1+每股未分配利潤/1000,每股未分配利潤/1000),NODRAW;
A71:=IF(銷售毛利率>10,1+銷售毛利率/1000,銷售毛利率/1000),NODRAW;
A81:=IF(價值估值PEG<1,1,0),NODRAW;
綜合得分:AB1+AB21+AB31+A41+A51+A61+A71+A81,NODRAW;
DRAWTEXT_FIX(1,0.01,0.82,0,' 財務(wù)評分：')COLORRED;
DRAWTEXT_FIX(1,0.08,0.82,0, CON2STR(綜合得分,3))COLOR00FFFF;
DRAWTEXT_FIX(0.9,0.82,0,0,' 財務(wù)評級：')COLORRED;
DRAWTEXT_FIX( 綜合得分<5 AND 綜合得分<8,0.90,0,0,'差')COLOR00FFFF;
DRAWTEXT_FIX(0.9,0.82,0,0,' 財務(wù)評級：')COLORRED;
DRAWTEXT_FIX(綜合得分>=5 AND 綜合得分<8,0.90,0,0,'一般')COLOR00FFFF;
DRAWTEXT_FIX( 綜合得分<8.25 AND 綜合得分>=8,0.90,0,0,'良好')COLOR00FFFF;
DRAWTEXT_FIX( 綜合得分>8.25,0.90,0,0,'優(yōu)秀')COLOR00FFFF;

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者

人面猴
序言：七十年代末奸忽，一起剝皮案震驚了整個濱河市堕伪，隨后出現(xiàn)的幾起案子，更是在濱河造成了極大的恐慌月杉，老刑警劉巖刃跛，帶你破解...
沈念sama閱讀 217,277評論 6贊 503
死咒
序言：濱河連續(xù)發(fā)生了三起死亡事件，死亡現(xiàn)場離奇詭異苛萎，居然都是意外死亡桨昙，警方通過查閱死者的電腦和手機(jī)，發(fā)現(xiàn)死者居然都...
沈念sama閱讀 92,689評論 3贊 393
救了他兩次的神仙讓他今天三更去死
文/潘曉璐我一進(jìn)店門腌歉，熙熙樓的掌柜王于貴愁眉苦臉地迎上來蛙酪，“玉大人，你說我怎么就攤上這事翘盖」鹑” “怎么了？”我有些...
開封第一講書人閱讀 163,624評論 0贊 353
道士緝兇錄：失蹤的賣姜人
文/不壞的土叔我叫張陵馍驯，是天一觀的道長阁危。經(jīng)常有香客問我玛痊，道長，這世上最難降的妖魔是什么狂打？我笑而不...
開封第一講書人閱讀 58,356評論 1贊 293
?港島之戀（遺憾婚禮）
正文為了忘掉前任擂煞，我火速辦了婚禮，結(jié)果婚禮上趴乡，老公的妹妹穿的比我還像新娘对省。我一直安慰自己，他們只是感情好晾捏，可當(dāng)我...
茶點故事閱讀 67,402評論 6贊 392
惡毒庶女頂嫁案：這布局不是一般人想出來的
文/花漫我一把揭開白布蒿涎。她就那樣靜靜地躺著，像睡著了一般惦辛。火紅的嫁衣襯著肌膚如雪劳秋。梳的紋絲不亂的頭發(fā)上，一...
開封第一講書人閱讀 51,292評論 1贊 301
城市分裂傳說
那天裙品，我揣著相機(jī)與錄音俗批，去河邊找鬼。笑死市怎，一個胖子當(dāng)著我的面吹牛岁忘，可吹牛的內(nèi)容都是我干的。我是一名探鬼主播区匠，決...
沈念sama閱讀 40,135評論 3贊 418
雙鴛鴦連環(huán)套：你想象不到人心有多黑
文/蒼蘭香墨我猛地睜開眼干像，長吁一口氣：“原來是場噩夢啊……” “哼！你這毒婦竟也來了驰弄？” 一聲冷哼從身側(cè)響起麻汰，我...
開封第一講書人閱讀 38,992評論 0贊 275
萬榮殺人案實錄
序言：老撾萬榮一對情侶失蹤，失蹤者是張志新（化名）和其女友劉穎戚篙，沒想到半個月后五鲫，有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體，經(jīng)...
沈念sama閱讀 45,429評論 1贊 314
?護(hù)林員之死
正文獨居荒郊野嶺守林人離奇死亡岔擂，尸身上長有42處帶血的膿包…… 初始之章·張勛以下內(nèi)容為張勛視角年9月15日...
茶點故事閱讀 37,636評論 3贊 334
?白月光啟示錄
正文我和宋清朗相戀三年位喂，在試婚紗的時候發(fā)現(xiàn)自己被綠了。大學(xué)時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片乱灵。...
茶點故事閱讀 39,785評論 1贊 348
活死人
序言：一個原本活蹦亂跳的男人離奇死亡塑崖，死狀恐怖，靈堂內(nèi)的尸體忽然破棺而出痛倚，到底是詐尸還是另有隱情规婆，我是刑警寧澤，帶...
沈念sama閱讀 35,492評論 5贊 345
?日本核電站爆炸內(nèi)幕
正文年R本政府宣布，位于F島的核電站抒蚜，受9級特大地震影響掘鄙，放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜嗡髓，卻給世界環(huán)境...
茶點故事閱讀 41,092評論 3贊 328
男人毒藥：我在死后第九天來索命
文/蒙蒙一通铲、第九天我趴在偏房一處隱蔽的房頂上張望。院中可真熱鬧器贩，春花似錦、人聲如沸朋截。這莊子的主人今日做“春日...
開封第一講書人閱讀 31,723評論 0贊 22
一樁弒父案，背后竟有這般陰謀
文/蒼蘭香墨我抬頭看了看天上的太陽部服。三九已至唆姐，卻和暖如春，著一層夾襖步出監(jiān)牢的瞬間廓八，已是汗流浹背奉芦。一陣腳步聲響...
開封第一講書人閱讀 32,858評論 1贊 269
情欲美人皮
我被黑心中介騙來泰國打工，沒想到剛下飛機(jī)就差點兒被人妖公主榨干…… 1. 我叫王不留剧蹂，地道東北人声功。一個月前我還...
沈念sama閱讀 47,891評論 2贊 370
代替公主和親
正文我出身青樓，卻偏偏與公主長得像宠叼，于是被迫代替她去往敵國和親先巴。傳聞我的和親對象是個殘疾皇子，可洞房花燭夜當(dāng)晚...
茶點故事閱讀 44,713評論 2贊 354

2021-04-09

推薦閱讀更多精彩內(nèi)容