板塊漲幅行業(yè)漲幅公式指標(biāo)源碼

作者：大智慧來源：cxh99.com 發(fā)布時(shí)間：2019年03月14日

相關(guān)標(biāo)簽:量子通信概念股龍頭、通信股票有哪些、量子通信概念股一覽表、通信設(shè)備板塊、 5g通信板塊、通訊板塊股票、通訊行業(yè)股票、通信達(dá)行業(yè)漲幅、基建股票有哪些、通信股票龍頭股、以上指標(biāo)公式、通達(dá)信精品指標(biāo)公式、

原理解析：
INPUT:N(12,0,50,1); X1:=5 ; X2:=155; X3:=305; X4:=455; X5:=605; X6:=1000; Y1:=0; Y2:=Y1+N; Y3:=Y2+N; Y4:=Y3+N; Y5:=Y4+N; Y6:=Y5+N; Y7:=Y6+N; Y8:=Y7+N; Y9:=Y8+N; Y10:=Y9+N; IF STKINDI('1A0001','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(30,0,'上證指數(shù)：' +NUMTOSTRN(STKINDI('1A0001','漲幅引用.A')*100,2)+'%'),COLOR7711EE;END; IF STKINDI('1A0001','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(30,0,'上證指數(shù)：' +NUMTOSTRN(STKINDI('1A0001','漲幅引用.A')*100,2)+'%'),COLORB48C33;END; {IF STKINDI('993124','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(78,0,'深證：' +NUMTOSTRN(STKINDI('993124','漲幅引用.A')*100,2)+'%'),COLOR7711EE;END; IF STKINDI('993124','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(78,0,'深證：' +NUMTOSTRN(STKINDI('993124','漲幅引用.A')*100,2)+'%'),COLORB48C33;END;} IF STKINDI('991036','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y2,'991036 券商：' +NUMTOSTRN(STKINDI('991036','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991036','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y2,'991036 券商：' +NUMTOSTRN(STKINDI('991036','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991017','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y3,'991017 銀行類：' +NUMTOSTRN(STKINDI('991017','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991017','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y3,'991017 銀行類：' +NUMTOSTRN(STKINDI('991017','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991028','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y4,'991028 醫(yī) 藥：' +NUMTOSTRN(STKINDI('991028','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991028','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y4,'991028 醫(yī) 藥：' +NUMTOSTRN(STKINDI('991028','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991007','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y5,'991007 房地產(chǎn)：' +NUMTOSTRN(STKINDI('991007','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991007','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y5,'991007 房地產(chǎn)：' +NUMTOSTRN(STKINDI('991007','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991024','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y6,'991024 建材：' +NUMTOSTRN(STKINDI('991024','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991024','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y6,'991024 建材：' +NUMTOSTRN(STKINDI('991024','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991021','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y7,'991021 農(nóng)林牧漁：' +NUMTOSTRN(STKINDI('991021','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991021','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y7,'991021 農(nóng)林牧漁：' +NUMTOSTRN(STKINDI('991021','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('993128','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y8,'993128 農(nóng)業(yè)龍頭：' +NUMTOSTRN(STKINDI('993128','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993128','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y8,'993128 農(nóng)業(yè)龍頭：' +NUMTOSTRN(STKINDI('993128','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('993795','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X5,Y3,'993795 中字頭：' +NUMTOSTRN(STKINDI('993795','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993795','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y3,'993795 中字頭：' +NUMTOSTRN(STKINDI('993795','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991018','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y1,'991018 旅游酒店：' +NUMTOSTRN(STKINDI('991018','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991018','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y1,'991018 旅游酒店：' +NUMTOSTRN(STKINDI('991018','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991023','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y2,'991023 商業(yè)連鎖：' +NUMTOSTRN(STKINDI('991023','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991023','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y2,'991023 商業(yè)連鎖：' +NUMTOSTRN(STKINDI('991023','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991020','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y3,'991020 釀酒食品：' +NUMTOSTRN(STKINDI('991020','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991020','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y3,'991020 釀酒食品：' +NUMTOSTRN(STKINDI('991020','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991008','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y4,'991008 紡織服裝：' +NUMTOSTRN(STKINDI('991008','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991008','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y4,'991008 紡織服裝：' +NUMTOSTRN(STKINDI('991008','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991006','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y5,'991006 電子信息：' +NUMTOSTRN(STKINDI('991006','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991006','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y5,'991006 電子信息：' +NUMTOSTRN(STKINDI('991006','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991004','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y6,'991004 計(jì) 算機(jī)：' +NUMTOSTRN(STKINDI('991004','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991004','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y6,'991004 計(jì) 算機(jī)：' +NUMTOSTRN(STKINDI('991004','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991026','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y7,'991026 汽車類：' +NUMTOSTRN(STKINDI('991026','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991026','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y7,'991026 汽車類：' +NUMTOSTRN(STKINDI('991026','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991014','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y8,'991014 電器：' +NUMTOSTRN(STKINDI('991014','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991014','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y8,'991014 電器：' +NUMTOSTRN(STKINDI('991014','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('993745','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y1,'993745 稀缺資源：' +NUMTOSTRN(STKINDI('993745','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993745','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y1,'993745 稀缺資源：' +NUMTOSTRN(STKINDI('993745','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991019','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y2,'991019 煤炭石油：' +NUMTOSTRN(STKINDI('991019','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991019','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y2,'991019 煤炭石油：' +NUMTOSTRN(STKINDI('991019','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991009','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y3,'991009 鋼鐵：' +NUMTOSTRN(STKINDI('991009','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991009','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y3,'991009 鋼鐵：' +NUMTOSTRN(STKINDI('991009','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991034','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y4,'991034 有色金屬：' +NUMTOSTRN(STKINDI('991034','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991034','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y4,'991034 有色金屬：' +NUMTOSTRN(STKINDI('991034','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991027','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y5,'991027 機(jī) 械：' +NUMTOSTRN(STKINDI('991027','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991027','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y5,'991027 機(jī) 械：' +NUMTOSTRN(STKINDI('991027','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991011','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y6,'991011 化工化纖：' +NUMTOSTRN(STKINDI('991011','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991011','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y6,'991011 化工化纖：' +NUMTOSTRN(STKINDI('991011','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991003','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y7,'991003 電力：' +NUMTOSTRN(STKINDI('991003','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991003','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y7,'991003 電力：' +NUMTOSTRN(STKINDI('991003','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991037','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y8,'991037 電力設(shè)備：' +NUMTOSTRN(STKINDI('991037','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991037','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y8,'991037 電力設(shè)備：' +NUMTOSTRN(STKINDI('991037','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991032','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X4,Y1,'991032 教育傳媒：' +NUMTOSTRN(STKINDI('991032','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991032','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y1,'991032 教育傳媒：' +NUMTOSTRN(STKINDI('991032','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991010','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X4,Y2,'991010 供水供氣：' +NUMTOSTRN(STKINDI('991010','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991010','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y2,'991010 供水供氣：' +NUMTOSTRN(STKINDI('991010','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991033','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X4,Y3,'991033 儀電儀表：' +NUMTOSTRN(STKINDI('991033','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991033','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y3,'991033 儀電儀表：' +NUMTOSTRN(STKINDI('991033','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991136','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X4,Y4,'991136 運(yùn)輸物流：' +NUMTOSTRN(STKINDI('991136','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991136','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y4,'991136 運(yùn)輸物流：' +NUMTOSTRN(STKINDI('991136','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991016','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X4,Y5,'991016 交通設(shè)施：' +NUMTOSTRN(STKINDI('991016','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991016','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y5,'991016 交通設(shè)施：' +NUMTOSTRN(STKINDI('991016','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991031','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X4,Y6,'991031 外貿(mào)：' +NUMTOSTRN(STKINDI('991031','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991031','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y6,'991031 外貿(mào)：' +NUMTOSTRN(STKINDI('991031','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991002','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X4,Y7,'991002 工程建筑：' +NUMTOSTRN(STKINDI('991002','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991002','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y7,'991002 工程建筑：' +NUMTOSTRN(STKINDI('991002','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('993695','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X4,Y8,'993695 創(chuàng) 投：' +NUMTOSTRN(STKINDI('993695','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993695','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y8,'993695 創(chuàng) 投：' +NUMTOSTRN(STKINDI('993695','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('993685','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X5,Y1,'993685 3 G：' +NUMTOSTRN(STKINDI('993685','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993685','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y1,'993685 3 G：' +NUMTOSTRN(STKINDI('993685','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991135','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X5,Y2,'991135 通信：' +NUMTOSTRN(STKINDI('991135','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991135','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y2,'991135 通信：' +NUMTOSTRN(STKINDI('991135','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('993585','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X5,Y4,'993585 新能源：' +NUMTOSTRN(STKINDI('993585','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993585','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y4,'993585 新能源：' +NUMTOSTRN(STKINDI('993585','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('993091','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X5,Y5,'993091 新上海：' +NUMTOSTRN(STKINDI('993091','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993091','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y5,'993091 新上海：' +NUMTOSTRN(STKINDI('993091','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991035','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X5,Y6,'991035 造紙印刷：' +NUMTOSTRN(STKINDI('991035','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991035','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y6,'991035 造紙印刷：' +NUMTOSTRN(STKINDI('991035','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('993645','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X5,Y7,'993645 節(jié)能環(huán)保：' +NUMTOSTRN(STKINDI('993645','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993645','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y7,'993645 節(jié)能環(huán)保：' +NUMTOSTRN(STKINDI('993645','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('993665','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X5,Y8,'993665 航天軍工：' +NUMTOSTRN(STKINDI('993665','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993665','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y8,'993665 航天軍工：' +NUMTOSTRN(STKINDI('993665','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('993139','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y9,'993139 大盤：' +NUMTOSTRN(STKINDI('993139','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993139','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y9,'993139 大盤：' +NUMTOSTRN(STKINDI('993139','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('993140','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y9,'993140 中盤：' +NUMTOSTRN(STKINDI('993140','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993140','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y9,'993140 中盤：' +NUMTOSTRN(STKINDI('993140','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('993141','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y9,'993141 小盤：' +NUMTOSTRN(STKINDI('993141','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993141','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y9,'993141 小盤：' +NUMTOSTRN(STKINDI('993141','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('993142','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X4,Y9,'993142 高價(jià)：' +NUMTOSTRN(STKINDI('993142','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993142','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y9,'993142 高價(jià)：' +NUMTOSTRN(STKINDI('993142','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('993143','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X5,Y9,'993143 中價(jià)：' +NUMTOSTRN(STKINDI('993143','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993143','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y9,'993143 中價(jià)：' +NUMTOSTRN(STKINDI('993143','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('993144','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y10,'993144 低價(jià)：' +NUMTOSTRN(STKINDI('993144','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993144','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y10,'993144 低價(jià)：' +NUMTOSTRN(STKINDI('993144','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('993605','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y10,'993605 股權(quán)投資：' +NUMTOSTRN(STKINDI('993605','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993605','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y10,'993605 股權(quán)投資：' +NUMTOSTRN(STKINDI('993605','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('993386','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y10,'993386 預(yù) 增：' +NUMTOSTRN(STKINDI('993143','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993386','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y10,'993386 預(yù) 增：' +NUMTOSTRN(STKINDI('993143','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('993385','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X4,Y10,'993385 預(yù) 減：' +NUMTOSTRN(STKINDI('993144','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993385','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y10,'993385 預(yù) 減：' +NUMTOSTRN(STKINDI('993144','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('993095','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X5,Y10,'993095 奧運(yùn)：' +NUMTOSTRN(STKINDI('993095','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993095','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y10,'993095 奧運(yùn)：' +NUMTOSTRN(STKINDI('993095','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;漲幅引用 A:DYNAINFO(14);

?來源:程序化99（ www.tumamayizhan.com ）

源碼：

引用公式源碼 ?公式名為漲幅引用

A:DYNAINFO(14);

指標(biāo)源碼：

INPUT:N(12,0,50,1);
X1:=5 ; X2:=155; X3:=305; X4:=455; X5:=605; X6:=1000; Y1:=0; Y2:=Y1+N; Y3:=Y2+N; Y4:=Y3+N; Y5:=Y4+N; Y6:=Y5+N; Y7:=Y6+N; Y8:=Y7+N; Y9:=Y8+N; Y10:=Y9+N;
IF STKINDI('1A0001','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(30,0,'上證指數(shù)：' +NUMTOSTRN(STKINDI('1A0001','漲幅引用.A')*100,2)+'%'),COLOR7711EE;END;
IF STKINDI('1A0001','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(30,0,'上證指數(shù)：' +NUMTOSTRN(STKINDI('1A0001','漲幅引用.A')*100,2)+'%'),COLORB48C33;END;
{IF STKINDI('993124','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(78,0,'深證：' +NUMTOSTRN(STKINDI('993124','漲幅引用.A')*100,2)+'%'),COLOR7711EE;END;
IF STKINDI('993124','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(78,0,'深證：' +NUMTOSTRN(STKINDI('993124','漲幅引用.A')*100,2)+'%'),COLORB48C33;END;}
IF STKINDI('991036','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y2,'991036 券商：' +NUMTOSTRN(STKINDI('991036','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991036','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y2,'991036 券商：' +NUMTOSTRN(STKINDI('991036','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991017','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y3,'991017 銀行類：' +NUMTOSTRN(STKINDI('991017','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991017','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y3,'991017 銀行類：' +NUMTOSTRN(STKINDI('991017','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991028','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y4,'991028 醫(yī) 藥：' +NUMTOSTRN(STKINDI('991028','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991028','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y4,'991028 醫(yī) 藥：' +NUMTOSTRN(STKINDI('991028','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991007','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y5,'991007 房地產(chǎn)：' +NUMTOSTRN(STKINDI('991007','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991007','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y5,'991007 房地產(chǎn)：' +NUMTOSTRN(STKINDI('991007','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991024','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y6,'991024 建材：' +NUMTOSTRN(STKINDI('991024','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991024','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y6,'991024 建材：' +NUMTOSTRN(STKINDI('991024','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991021','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y7,'991021 農(nóng)林牧漁：' +NUMTOSTRN(STKINDI('991021','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991021','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y7,'991021 農(nóng)林牧漁：' +NUMTOSTRN(STKINDI('991021','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993128','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y8,'993128 農(nóng)業(yè)龍頭：' +NUMTOSTRN(STKINDI('993128','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993128','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y8,'993128 農(nóng)業(yè)龍頭：' +NUMTOSTRN(STKINDI('993128','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993795','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X5,Y3,'993795 中字頭：' +NUMTOSTRN(STKINDI('993795','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993795','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y3,'993795 中字頭：' +NUMTOSTRN(STKINDI('993795','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991018','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y1,'991018 旅游酒店：' +NUMTOSTRN(STKINDI('991018','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991018','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y1,'991018 旅游酒店：' +NUMTOSTRN(STKINDI('991018','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991023','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y2,'991023 商業(yè)連鎖：' +NUMTOSTRN(STKINDI('991023','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991023','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y2,'991023 商業(yè)連鎖：' +NUMTOSTRN(STKINDI('991023','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991020','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y3,'991020 釀酒食品：' +NUMTOSTRN(STKINDI('991020','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991020','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y3,'991020 釀酒食品：' +NUMTOSTRN(STKINDI('991020','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991008','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y4,'991008 紡織服裝：' +NUMTOSTRN(STKINDI('991008','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991008','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y4,'991008 紡織服裝：' +NUMTOSTRN(STKINDI('991008','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991006','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y5,'991006 電子信息：' +NUMTOSTRN(STKINDI('991006','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991006','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y5,'991006 電子信息：' +NUMTOSTRN(STKINDI('991006','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991004','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y6,'991004 計(jì) 算機(jī)：' +NUMTOSTRN(STKINDI('991004','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991004','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y6,'991004 計(jì) 算機(jī)：' +NUMTOSTRN(STKINDI('991004','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991026','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y7,'991026 汽車類：' +NUMTOSTRN(STKINDI('991026','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991026','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y7,'991026 汽車類：' +NUMTOSTRN(STKINDI('991026','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991014','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y8,'991014 電器：' +NUMTOSTRN(STKINDI('991014','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991014','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y8,'991014 電器：' +NUMTOSTRN(STKINDI('991014','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993745','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y1,'993745 稀缺資源：' +NUMTOSTRN(STKINDI('993745','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993745','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y1,'993745 稀缺資源：' +NUMTOSTRN(STKINDI('993745','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991019','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y2,'991019 煤炭石油：' +NUMTOSTRN(STKINDI('991019','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991019','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y2,'991019 煤炭石油：' +NUMTOSTRN(STKINDI('991019','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991009','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y3,'991009 鋼鐵：' +NUMTOSTRN(STKINDI('991009','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991009','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y3,'991009 鋼鐵：' +NUMTOSTRN(STKINDI('991009','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991034','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y4,'991034 有色金屬：' +NUMTOSTRN(STKINDI('991034','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991034','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y4,'991034 有色金屬：' +NUMTOSTRN(STKINDI('991034','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991027','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y5,'991027 機(jī) 械：' +NUMTOSTRN(STKINDI('991027','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991027','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y5,'991027 機(jī) 械：' +NUMTOSTRN(STKINDI('991027','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991011','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y6,'991011 化工化纖：' +NUMTOSTRN(STKINDI('991011','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991011','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y6,'991011 化工化纖：' +NUMTOSTRN(STKINDI('991011','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991003','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y7,'991003 電力：' +NUMTOSTRN(STKINDI('991003','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991003','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y7,'991003 電力：' +NUMTOSTRN(STKINDI('991003','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991037','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y8,'991037 電力設(shè)備：' +NUMTOSTRN(STKINDI('991037','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991037','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y8,'991037 電力設(shè)備：' +NUMTOSTRN(STKINDI('991037','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991032','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X4,Y1,'991032 教育傳媒：' +NUMTOSTRN(STKINDI('991032','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991032','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y1,'991032 教育傳媒：' +NUMTOSTRN(STKINDI('991032','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991010','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X4,Y2,'991010 供水供氣：' +NUMTOSTRN(STKINDI('991010','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991010','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y2,'991010 供水供氣：' +NUMTOSTRN(STKINDI('991010','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991033','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X4,Y3,'991033 儀電儀表：' +NUMTOSTRN(STKINDI('991033','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991033','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y3,'991033 儀電儀表：' +NUMTOSTRN(STKINDI('991033','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991136','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X4,Y4,'991136 運(yùn)輸物流：' +NUMTOSTRN(STKINDI('991136','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991136','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y4,'991136 運(yùn)輸物流：' +NUMTOSTRN(STKINDI('991136','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991016','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X4,Y5,'991016 交通設(shè)施：' +NUMTOSTRN(STKINDI('991016','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991016','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y5,'991016 交通設(shè)施：' +NUMTOSTRN(STKINDI('991016','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991031','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X4,Y6,'991031 外貿(mào)：' +NUMTOSTRN(STKINDI('991031','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991031','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y6,'991031 外貿(mào)：' +NUMTOSTRN(STKINDI('991031','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991002','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X4,Y7,'991002 工程建筑：' +NUMTOSTRN(STKINDI('991002','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991002','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y7,'991002 工程建筑：' +NUMTOSTRN(STKINDI('991002','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993695','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X4,Y8,'993695 創(chuàng) 投：' +NUMTOSTRN(STKINDI('993695','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993695','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y8,'993695 創(chuàng) 投：' +NUMTOSTRN(STKINDI('993695','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993685','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X5,Y1,'993685 3 G：' +NUMTOSTRN(STKINDI('993685','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993685','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y1,'993685 3 G：' +NUMTOSTRN(STKINDI('993685','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991135','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X5,Y2,'991135 通信：' +NUMTOSTRN(STKINDI('991135','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991135','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y2,'991135 通信：' +NUMTOSTRN(STKINDI('991135','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993585','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X5,Y4,'993585 新能源：' +NUMTOSTRN(STKINDI('993585','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993585','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y4,'993585 新能源：' +NUMTOSTRN(STKINDI('993585','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993091','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X5,Y5,'993091 新上海：' +NUMTOSTRN(STKINDI('993091','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993091','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y5,'993091 新上海：' +NUMTOSTRN(STKINDI('993091','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991035','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X5,Y6,'991035 造紙印刷：' +NUMTOSTRN(STKINDI('991035','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991035','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y6,'991035 造紙印刷：' +NUMTOSTRN(STKINDI('991035','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993645','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X5,Y7,'993645 節(jié)能環(huán)保：' +NUMTOSTRN(STKINDI('993645','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993645','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y7,'993645 節(jié)能環(huán)保：' +NUMTOSTRN(STKINDI('993645','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993665','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X5,Y8,'993665 航天軍工：' +NUMTOSTRN(STKINDI('993665','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993665','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y8,'993665 航天軍工：' +NUMTOSTRN(STKINDI('993665','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993139','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y9,'993139 大盤：' +NUMTOSTRN(STKINDI('993139','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993139','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y9,'993139 大盤：' +NUMTOSTRN(STKINDI('993139','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993140','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y9,'993140 中盤：' +NUMTOSTRN(STKINDI('993140','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993140','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y9,'993140 中盤：' +NUMTOSTRN(STKINDI('993140','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993141','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y9,'993141 小盤：' +NUMTOSTRN(STKINDI('993141','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993141','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y9,'993141 小盤：' +NUMTOSTRN(STKINDI('993141','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993142','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X4,Y9,'993142 高價(jià)：' +NUMTOSTRN(STKINDI('993142','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993142','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y9,'993142 高價(jià)：' +NUMTOSTRN(STKINDI('993142','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993143','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X5,Y9,'993143 中價(jià)：' +NUMTOSTRN(STKINDI('993143','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993143','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y9,'993143 中價(jià)：' +NUMTOSTRN(STKINDI('993143','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993144','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y10,'993144 低價(jià)：' +NUMTOSTRN(STKINDI('993144','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993144','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y10,'993144 低價(jià)：' +NUMTOSTRN(STKINDI('993144','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993605','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y10,'993605 股權(quán)投資：' +NUMTOSTRN(STKINDI('993605','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993605','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y10,'993605 股權(quán)投資：' +NUMTOSTRN(STKINDI('993605','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993386','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y10,'993386 預(yù) 增：' +NUMTOSTRN(STKINDI('993143','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993386','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y10,'993386 預(yù) 增：' +NUMTOSTRN(STKINDI('993143','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993385','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X4,Y10,'993385 預(yù) 減：' +NUMTOSTRN(STKINDI('993144','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993385','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y10,'993385 預(yù) 減：' +NUMTOSTRN(STKINDI('993144','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993095','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X5,Y10,'993095 奧運(yùn)：' +NUMTOSTRN(STKINDI('993095','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993095','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y10,'993095 奧運(yùn)：' +NUMTOSTRN(STKINDI('993095','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;

公式導(dǎo)入教程: 【通達(dá)信公式源碼導(dǎo)入方法教程】【同花順公式源碼導(dǎo)入方法教程】【大智慧新一代公式源碼導(dǎo)入方法教程】