通達信指標公式編寫學習實例(通達信公式編寫教程自創指標)

我們在看盤分析研究的過程中，很多時候是有必要分析F10的基本面數據信息，如果每次都打開F10去找數據會有點麻煩，那么我們可以自行把有用的數據提煉出來，做成表格展示。

通達信指標公式編輯提供有很多相關的功能函數，我喜歡用DRAWRECTREL、DRAWTEXT_FIX這兩個函數。我們打開編輯器的插入函數，在繪圖函數中可以找到這兩個，其原型如下：

1.相對位置上畫矩形.

用法: DRAWRECTREL(LEFT,TOP,RIGHT,BOTTOM,COLOR),以圖形窗口(LEFT,TOP)為左上角,(RIGHT,BOTTOM)為右下角繪制矩形,坐標單位是窗口沿水平和垂直方向的1/1000,取值范圍是0—999,超出范圍則可能顯示在圖形窗口外,矩形中間填充顏色COLOR,COLOR為0表示不填充.

例如: DRAWRECTREL(0,0,500,500,RGB(255,255,0))表示在圖形最左上部1/4位置用黃色繪制矩形.

上面是指標編輯器里的用法解釋已非常清楚，相信大家一看就知道如何用，補充一點，就是坐標范圍，不管主圖或副圖窗口，都是默認寬0-999，高0-999，如主圖給個起始點（500，500），表示從主圖的中心點開始，終點用（999，999）表示主圖窗口的右下角；多試幾次就會用了。

2.固定位置顯示文字;在指標排序中顯示字符串欄目.

用法: DRAWTEXT_FIX(COND,X,Y,TYPE,TEXT),當COND條件滿足時,在當前指標窗口內(X,Y)位置書寫文字TEXT,X,Y為書寫點在窗口中相對于左上角的百分比,TYPE:0為左對齊,1為右對齊.

例如: DRAWTEXT_FIX(CURRBARSCOUNT=1 AND CLOSE/OPEN>1.08,0.5,0.5,0,'大陽線')表示最后一個交易日實體陽線大于8%時在窗口中間位置顯示'大陽線'字樣.若文字中含有&,則進行折行

此處補充：此函數與上面函數坐標定位上有差異，（X,Y）是給定點文字書寫的起點，并且是用小數表示，即范圍在0-1之間，（函數內部處理應該是用的百分比計算）。

以下為實例應用代碼：

{參數：錄入EPS 0 1 0}

DRAWRECTREL(0,0,999,999,RGB(1,1,1));

DRAWRECTREL(0,160,999,160.3,RGB(110,110,110));

DRAWRECTREL(350,840,615,840.3,RGB(110,110,110));

DRAWRECTREL(90,0,90.2,999,RGB(110,110,110));

DRAWRECTREL(200,0,200.2,999,RGB(110,110,110));

DRAWRECTREL(350,0,350.2,999,RGB(110,110,110));

DRAWRECTREL(455,0,455.2,840,RGB(110,110,110));

DRAWRECTREL(540,0,540.2,840,RGB(110,110,110));

DRAWRECTREL(615,0,615.2,999,RGB(110,110,110));

DRAWRECTREL(966,0,999,999,RGB(20,20,20));

X1:=0.06; X2:=0.10; X3:=0.075;

Y1:=0.05; Y2:=0.13; Y3:=0.25; Y4:=0.35; Y5:=0.45;

YEAR1:=YEAR;

YEAR2:=YEAR1-1;

YEAR3:=YEAR2-1;

YEAR4:=YEAR3-1;

YEAR5:=YEAR4-1;

YEAR6:=YEAR5-1;

SN:=STR2CON(CODE)+1000000;

{預測均值:=TDXDLL5(55,SN,錄入EPS,錄入EPS); 此處原為調用DLL，方便演示改為下一句直接給0}

預測均值:=0;

XA:=FINONE(1,YEAR2,1231);

XB:=IF(MONTH>=4,1,0);

XC:=IF(XB,XA,預測均值);

{XD:=TDXDLL5(69,SN,C,O); 此處同上原因，直接給收盤價C}

XD:=C;

XE_T:=IF(XD=1,'錄入數據',IF(XD=YEAR1,CON2STR(預測均值,2),'注意更新'));

X_A:=IF(XD=1,X1+X2*1.15,IF(XD=YEAR1,X1+X2*1,X1+X2*1.15));

DRAWTEXT_FIX(ISLASTBAR,X1+0.005,Y1,1,'年 份'),COLORLIMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.12,Y1,0,'每股收益'),COLORLIMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.22,Y1,0,'年收盤價（不復權）'),COLORLIMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.36,Y1,0,'每股收益增速'),COLORLIMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.47,Y1,0,'股價增速'),COLORLIMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.55,Y1,0,'評估結果'),COLORLIMAGENTA;

DRAWNUMBER_FIX(ISLASTBAR,X1,Y1+Y2*1,1,YEAR6),COLORWHITE;

DRAWNUMBER_FIX(ISLASTBAR,X1,Y1+Y2*2,1,YEAR5),COLORWHITE;

DRAWNUMBER_FIX(ISLASTBAR,X1,Y1+Y2*3,1,YEAR4),COLORWHITE;

DRAWNUMBER_FIX(ISLASTBAR,X1,Y1+Y2*4,1,YEAR3),COLORWHITE;

DRAWNUMBER_FIX(ISLASTBAR,X1,Y1+Y2*5,1,YEAR2),COLORWHITE;

DRAWNUMBER_FIX(ISLASTBAR,X1,Y1+Y2*6,1,YEAR1),COLORWHITE;

DRAWTEXT_FIX(ISLASTBAR,X1+X2*1,Y1+Y2*1,1,CON2STR(FINONE(1,YEAR6,1231),2)),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,X1+X2*1,Y1+Y2*2,1,CON2STR(FINONE(1,YEAR5,1231),2)),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,X1+X2*1,Y1+Y2*3,1,CON2STR(FINONE(1,YEAR4,1231),2)),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,X1+X2*1,Y1+Y2*4,1,CON2STR(FINONE(1,YEAR3,1231),2)),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR AND XB=1,X1+X2*1,Y1+Y2*5,1,CON2STR(XC,2)),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR AND XB=0,X1+X2*1,Y1+Y2*5,1,CON2STR(XC,2)),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,X_A,Y1+Y2*6,1,XE_T),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,X1+X2*2+0.02,Y1+Y2*1,1,CON2STR(REF(C,5),2)),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,X1+X2*2+0.02,Y1+Y2*2,1,CON2STR(REF(C,4),2)),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,X1+X2*2+0.02,Y1+Y2*3,1,CON2STR(REF(C,3),2)),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,X1+X2*2+0.02,Y1+Y2*4,1,CON2STR(REF(C,2),2)),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,X1+X2*2+0.02,Y1+Y2*5,1,CON2STR(REF(C,1),2)),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,X1+X2*2+0.02,Y1+Y2*6,1,CON2STR(REF(C,0),2)),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,X1+X2*3+0.05,Y1+Y2*1,1,CON2STR(預測均值/FINONE(1,YEAR6,1231),2)),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,X1+X2*3+0.05,Y1+Y2*2,1,CON2STR(預測均值/FINONE(1,YEAR5,1231),2)),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,X1+X2*3+0.05,Y1+Y2*3,1,CON2STR(預測均值/FINONE(1,YEAR4,1231),2)),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,X1+X2*3+0.05,Y1+Y2*4,1,CON2STR(預測均值/FINONE(1,YEAR3,1231),2)),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,X1+X2*3+0.05,Y1+Y2*5,1,CON2STR(預測均值/FINONE(1,YEAR2,1231),2)),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,X1+X2*4+0.05,Y1+Y2*1,1,CON2STR(C/REF(C,5),2)),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,X1+X2*4+0.05,Y1+Y2*2,1,CON2STR(C/REF(C,4),2)),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,X1+X2*4+0.05,Y1+Y2*3,1,CON2STR(C/REF(C,3),2)),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,X1+X2*4+0.05,Y1+Y2*4,1,CON2STR(C/REF(C,2),2)),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,X1+X2*4+0.05,Y1+Y2*5,1,CON2STR(C/REF(C,1),2)),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR AND C/REF(C,5)>預測均值/FINONE(1,YEAR6,1231),X1+X2*5+0.03,Y1+Y2*1,1,'高估'),COLORRED;

DRAWTEXT_FIX(ISLASTBAR AND C/REF(C,4)>預測均值/FINONE(1,YEAR5,1231),X1+X2*5+0.03,Y1+Y2*2,1,'高估'),COLORRED;

DRAWTEXT_FIX(ISLASTBAR AND C/REF(C,3)>預測均值/FINONE(1,YEAR4,1231),X1+X2*5+0.03,Y1+Y2*3,1,'高估'),COLORRED;

DRAWTEXT_FIX(ISLASTBAR AND C/REF(C,2)>預測均值/FINONE(1,YEAR3,1231),X1+X2*5+0.03,Y1+Y2*4,1,'高估'),COLORRED;

DRAWTEXT_FIX(ISLASTBAR AND C/REF(C,1)>預測均值/FINONE(1,YEAR2,1231),X1+X2*5+0.03,Y1+Y2*5,1,'高估'),COLORRED;

DRAWTEXT_FIX(ISLASTBAR AND C/REF(C,5)

DRAWTEXT_FIX(ISLASTBAR AND C/REF(C,4)

DRAWTEXT_FIX(ISLASTBAR AND C/REF(C,3)

DRAWTEXT_FIX(ISLASTBAR AND C/REF(C,2)

DRAWTEXT_FIX(ISLASTBAR AND C/REF(C,1)

DRAWTEXT_FIX(ISLASTBAR,0.975,0.08,0,'七'),COLORCYAN;

DRAWTEXT_FIX(ISLASTBAR,0.975,0.25,0,'月'),COLORCYAN;

DRAWTEXT_FIX(ISLASTBAR,0.975,0.43,0,'之'),COLORCYAN;

DRAWTEXT_FIX(ISLASTBAR,0.975,0.61,0,'夜'),COLORCYAN;

DRAWTEXT_FIX(ISLASTBAR,0.975,0.80,0,'著'),COLORCYAN;

DRAWTEXT_FIX(ISLASTBAR,0.76,Y1,0,'使 用 說 明'),COLORCYAN;

DRAWTEXT_FIX(ISLASTBAR,0.62,Y1+Y2*1,0,'1.通過網站等收集機構對每股收益預測；'),COLORBROWN;

DRAWTEXT_FIX(ISLASTBAR,0.62,Y1+Y2*2,0,'2.手工計算，機構對個股下一年度收益預測的平均值；'),COLORBROWN;

DRAWTEXT_FIX(ISLASTBAR,0.62,Y1+Y2*3,0,'3.確定主圖為年K線（設定模板時綁定周期）、不復權；'),COLORBROWN;

DRAWTEXT_FIX(ISLASTBAR,0.62,Y1+Y2*4,0,'4.請查看指標用法注釋，按方法錄入預估收益；'),COLORBROWN;

DRAWTEXT_FIX(ISLASTBAR,0.62,Y1+Y2*5,0,'5.評估結果會自動顯示，高估紅色低估綠色；'),COLORBROWN;

DRAWTEXT_FIX(ISLASTBAR,0.62,Y1+Y2*6,0,'6.詳情請參閱開宇老師BKD春季精英班課程，謝謝！'),COLORBROWN;

整個實例基本都是兩個函數的應用，運行后結果輸出如下圖：

表格應用

來源:生活資訊網