板塊漲幅行業漲幅公式指標源碼

作者：大智慧來源：cxh99.com 發布時間：2019年03月14日

相關標簽:量子通信概念股龍頭、通信股票有哪些、量子通信概念股一覽表、通信設備板塊、 5g通信板塊、通訊板塊股票、通訊行業股票、通信達行業漲幅、基建股票有哪些、通信股票龍頭股、以上指標公式、通達信精品指標公式、

原理解析：
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,'上證指數：' +NUMTOSTRN(STKINDI('1A0001','漲幅引用.A')*100,2)+'%'),COLOR7711EE;END; IF STKINDI('1A0001','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(30,0,'上證指數：' +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 醫藥：' +NUMTOSTRN(STKINDI('991028','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991028','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y4,'991028 醫藥：' +NUMTOSTRN(STKINDI('991028','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991007','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y5,'991007 房地產：' +NUMTOSTRN(STKINDI('991007','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991007','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y5,'991007 房地產：' +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 農林牧漁：' +NUMTOSTRN(STKINDI('991021','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991021','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y7,'991021 農林牧漁：' +NUMTOSTRN(STKINDI('991021','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('993128','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y8,'993128 農業龍頭：' +NUMTOSTRN(STKINDI('993128','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993128','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y8,'993128 農業龍頭：' +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 商業連鎖：' +NUMTOSTRN(STKINDI('991023','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991023','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y2,'991023 商業連鎖：' +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 計算機：' +NUMTOSTRN(STKINDI('991004','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991004','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y6,'991004 計算機：' +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 機械：' +NUMTOSTRN(STKINDI('991027','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991027','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y5,'991027 機械：' +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 電力設備：' +NUMTOSTRN(STKINDI('991037','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991037','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y8,'991037 電力設備：' +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 運輸物流：' +NUMTOSTRN(STKINDI('991136','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991136','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y4,'991136 運輸物流：' +NUMTOSTRN(STKINDI('991136','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991016','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X4,Y5,'991016 交通設施：' +NUMTOSTRN(STKINDI('991016','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991016','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y5,'991016 交通設施：' +NUMTOSTRN(STKINDI('991016','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('991031','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X4,Y6,'991031 外貿：' +NUMTOSTRN(STKINDI('991031','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('991031','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y6,'991031 外貿：' +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 創投：' +NUMTOSTRN(STKINDI('993695','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993695','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y8,'993695 創投：' +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 節能環保：' +NUMTOSTRN(STKINDI('993645','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993645','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y7,'993645 節能環保：' +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 高價：' +NUMTOSTRN(STKINDI('993142','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993142','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y9,'993142 高價：' +NUMTOSTRN(STKINDI('993142','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('993143','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X5,Y9,'993143 中價：' +NUMTOSTRN(STKINDI('993143','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993143','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y9,'993143 中價：' +NUMTOSTRN(STKINDI('993143','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('993144','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y10,'993144 低價：' +NUMTOSTRN(STKINDI('993144','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993144','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y10,'993144 低價：' +NUMTOSTRN(STKINDI('993144','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('993605','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y10,'993605 股權投資：' +NUMTOSTRN(STKINDI('993605','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993605','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y10,'993605 股權投資：' +NUMTOSTRN(STKINDI('993605','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('993386','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y10,'993386 預增：' +NUMTOSTRN(STKINDI('993143','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993386','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y10,'993386 預增：' +NUMTOSTRN(STKINDI('993143','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('993385','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X4,Y10,'993385 預減：' +NUMTOSTRN(STKINDI('993144','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993385','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y10,'993385 預減：' +NUMTOSTRN(STKINDI('993144','漲幅引用.A')*100,2)+'%'),COLORGREEN;END; IF STKINDI('993095','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X5,Y10,'993095 奧運：' +NUMTOSTRN(STKINDI('993095','漲幅引用.A')*100,2)+'%'),COLORRED;END; IF STKINDI('993095','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y10,'993095 奧運：' +NUMTOSTRN(STKINDI('993095','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;漲幅引用 A:DYNAINFO(14);

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

源碼：

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

A:DYNAINFO(14);

指標源碼：

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,'上證指數：' +NUMTOSTRN(STKINDI('1A0001','漲幅引用.A')*100,2)+'%'),COLOR7711EE;END;
IF STKINDI('1A0001','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(30,0,'上證指數：' +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 醫藥：' +NUMTOSTRN(STKINDI('991028','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991028','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y4,'991028 醫藥：' +NUMTOSTRN(STKINDI('991028','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991007','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y5,'991007 房地產：' +NUMTOSTRN(STKINDI('991007','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991007','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y5,'991007 房地產：' +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 農林牧漁：' +NUMTOSTRN(STKINDI('991021','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991021','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y7,'991021 農林牧漁：' +NUMTOSTRN(STKINDI('991021','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993128','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y8,'993128 農業龍頭：' +NUMTOSTRN(STKINDI('993128','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993128','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y8,'993128 農業龍頭：' +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 商業連鎖：' +NUMTOSTRN(STKINDI('991023','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991023','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y2,'991023 商業連鎖：' +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 計算機：' +NUMTOSTRN(STKINDI('991004','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991004','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y6,'991004 計算機：' +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 機械：' +NUMTOSTRN(STKINDI('991027','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991027','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y5,'991027 機械：' +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 電力設備：' +NUMTOSTRN(STKINDI('991037','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991037','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y8,'991037 電力設備：' +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 運輸物流：' +NUMTOSTRN(STKINDI('991136','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991136','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y4,'991136 運輸物流：' +NUMTOSTRN(STKINDI('991136','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991016','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X4,Y5,'991016 交通設施：' +NUMTOSTRN(STKINDI('991016','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991016','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y5,'991016 交通設施：' +NUMTOSTRN(STKINDI('991016','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('991031','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X4,Y6,'991031 外貿：' +NUMTOSTRN(STKINDI('991031','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('991031','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y6,'991031 外貿：' +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 創投：' +NUMTOSTRN(STKINDI('993695','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993695','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y8,'993695 創投：' +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 節能環保：' +NUMTOSTRN(STKINDI('993645','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993645','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y7,'993645 節能環保：' +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 高價：' +NUMTOSTRN(STKINDI('993142','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993142','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y9,'993142 高價：' +NUMTOSTRN(STKINDI('993142','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993143','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X5,Y9,'993143 中價：' +NUMTOSTRN(STKINDI('993143','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993143','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y9,'993143 中價：' +NUMTOSTRN(STKINDI('993143','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993144','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X1,Y10,'993144 低價：' +NUMTOSTRN(STKINDI('993144','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993144','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X1,Y10,'993144 低價：' +NUMTOSTRN(STKINDI('993144','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993605','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X2,Y10,'993605 股權投資：' +NUMTOSTRN(STKINDI('993605','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993605','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X2,Y10,'993605 股權投資：' +NUMTOSTRN(STKINDI('993605','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993386','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X3,Y10,'993386 預增：' +NUMTOSTRN(STKINDI('993143','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993386','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X3,Y10,'993386 預增：' +NUMTOSTRN(STKINDI('993143','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993385','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X4,Y10,'993385 預減：' +NUMTOSTRN(STKINDI('993144','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993385','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X4,Y10,'993385 預減：' +NUMTOSTRN(STKINDI('993144','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;
IF STKINDI('993095','漲幅引用.A')*100>=0 THEN BEGIN DRAWTEXTABS(X5,Y10,'993095 奧運：' +NUMTOSTRN(STKINDI('993095','漲幅引用.A')*100,2)+'%'),COLORRED;END;
IF STKINDI('993095','漲幅引用.A')*100<0 THEN BEGIN DRAWTEXTABS(X5,Y10,'993095 奧運：' +NUMTOSTRN(STKINDI('993095','漲幅引用.A')*100,2)+'%'),COLORGREEN;END;

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