同花順分割圖提示代碼源碼分享指標公式[同花順公式]
相關標簽: 同花順bs買賣點自動提示 、 同花順小財神bs買賣點 、 大智慧bs買賣點可信嗎 、 通達信買賣點指標 、 通達信分時買賣點提示 、 通達信手機指標 、 同花順bs買賣點指標公式 、 買賣點提示指標公式 、 bs買賣點指標好用嗎 、 同花順bs點怎么設置 、 股票bs點分析方法 、 bs點出現的股票怎么篩選 、
?
參數使用：
1：調節參數切換；切換=1時顯示區間黃金分割；切換=2時顯示區間江恩分割；切換=3時顯示區間百分比；切換=4時顯示各個平均線；切換=5時顯示布林線；
2：當切換等于1或者2或者3時，分別調整起點和終點的值，可確定你要分割的區間（兩條豎線之間區間）
用途：任何各種分割，都是對前面的某個波段區間的分割，來研判現在股價的趨勢，以及可能的壓力位，支撐位；
對個股來說，有的主力資金習慣用黃金分割，有的主力資金習慣用江恩分割或者百分比來作為技術參考；
特別是能主導某個股票股價趨勢的主力資金，他們一段時間會用江恩分割，另一段時間會用百分比或者黃金分割（為什么？你一想就明白了）；本人做這個公式的目的就是在此；
平均線，均線粘合度，布林線這是通用問題不多說；
中位線是各個平均線的平均值線，他的作用是很大的，往往是波段的壓力線，支撐線，可以找個股比較比較就知道了；
//區間三分割主圖或者副圖
?
?
?
原理解析：
//參數 起點(0,999,60),終點(0,999,10),切換(1,5,1)DRAWGBKLAST(1,STRIP(自定色,自定色,1))
NX賦值:到最后交易的周期+1
WZ賦值:到最后交易的周期+1=1
WX賦值:到最后交易的周期+1=起點
WT賦值:上次WX距今天數
WXZ賦值:如果WT>=0,返回1,否則返回無效數
QH賦值:如果NX>=終點ANDNX<=起點,返回最高價,否則返回無效數
QL賦值:如果NX>=終點ANDNX<=起點,返回最低價,否則返回無效數
XZ賦值:如果NX>=終點,返回1,否則返回無效數
分割計算ZH賦值:0日內QH的最高值
ZL賦值:0日內QL的最低值
HXT賦值:(ZH-ZL)
J1賦值:ZH-HXT*0.241
J2賦值:ZH-HXT*0.382
J3賦值:ZH-HXT*0.613
J4賦值:ZH-HXT*0.786
JXT賦值:(ZH-ZL)/8
H1賦值:ZH-JXT*1
H2賦值:ZH-JXT*2
H3賦值:ZH-JXT*3
H4賦值:ZH-JXT*5
H5賦值:ZH-JXT*6
H6賦值:ZH-JXT*7
BXT賦值:(ZH-ZL)/10
B1賦值:ZH-BXT*1
B2賦值:ZH-BXT*2
B3賦值:ZH-BXT*3
B4賦值:ZH-BXT*4
B5賦值:ZH-BXT*6
B6賦值:ZH-BXT*7
B7賦值:ZH-BXT*8
B8賦值:ZH-BXT*9
//K線STICKLINE(開盤價,收盤價 ,開盤價,9,0 ),COLOR000000
當滿足條件收陰線時,在收盤價和開盤價位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR007700
當滿足條件收陰線時,在收盤價和開盤價位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLOR009900
當滿足條件收陰線時,在收盤價和開盤價位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR00BB00
當滿足條件收陰線時,在收盤價和開盤價位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR00DD00
當滿足條件收陰線時,在最高價和最低價位置之間畫柱狀線,寬度為1.5,0不為0則畫空心柱.,COLOR00FF00
當滿足條件收盤價>=開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為8,0不為0則畫空心柱. ,COLOR000077
當滿足條件收盤價>=開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為7,0不為0則畫空心柱. ,COLOR000099
當滿足條件收盤價>=開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為5,0不為0則畫空心柱. ,COLOR0000BB
當滿足條件收盤價>=開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為3,0不為0則畫空心柱. ,COLOR0000DD
當滿足條件收盤價>=開盤價時,在最高價和最低價位置之間畫柱狀線,寬度為1.5,0不為0則畫空心柱.,COLOR0000FF
當滿足條件最高價=LOWANDCLOSE>1日前的收盤價時,在最高價-0.01和最高價+0.01位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR0000FF
當滿足條件最高價=LOWANDCLOSE<1日前的收盤價時,在最高價-0.01和最高價+0.01位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR00FF00
//分割顯示IF 切換>=1 AND 切換<=3 THEN BEGINVERLINE(NX=終點 OR NX=起點,2),COLOR009FFF
X1賦值:如果切換=1,返回J1,否則返回如果切換=2,返回H1,否則返回如果切換=3,返回B1,否則返回無效數
X2賦值:如果切換=1,返回J2,否則返回如果切換=2,返回H2,否則返回如果切換=3,返回B2,否則返回無效數
X3賦值:如果切換=1,返回J3,否則返回如果切換=2,返回H3,否則返回如果切換=3,返回B3,否則返回無效數
X4賦值:如果切換=1,返回J4,否則返回如果切換=2,返回H4,否則返回如果切換=3,返回B4,否則返回無效數
輸出高:若如果WZ,返回ZH,否則返回無效數則將最近起點-1周期置為1*WXZ,COLORFF88FF,線寬為2
輸出低:若如果WZ,返回ZL,否則返回無效數則將最近起點-1周期置為1*WXZ,COLORFF88FF,線寬為2
輸出中:若如果WZ,返回(ZH+ZL)/2,否則返回無效數則將最近起點-1周期置為1*WXZ,COLORFF88FF
輸出分1:若如果WZ,返回X1,否則返回無效數則將最近起點-1周期置為1*WXZ,COLORFFFF00
輸出分2:若如果WZ,返回X2,否則返回無效數則將最近起點-1周期置為1*WXZ,COLORFFFF00
輸出分3:若如果WZ,返回X3,否則返回無效數則將最近起點-1周期置為1*WXZ,COLORFFFF00
輸出分4:若如果WZ,返回X4,否則返回無效數則將最近起點-1周期置為1*WXZ,COLORFFFF00
END
BEGINX5賦值:如果切換=2,返回H5,否則返回B5
X6賦值:如果切換=2,返回H6,否則返回B6
輸出分5:若如果WZ,返回X5,否則返回無效數則將最近起點-1周期置為1*WXZ,COLORFFFF00
輸出分6:若如果WZ,返回X6,否則返回無效數則將最近起點-1周期置為1*WXZ,COLORFFFF00
END
BEGINX7賦值:B7
X8賦值:B8
輸出分7:若如果WZ,返回X7,否則返回NULL則將最近起點-1周期置為1*WXZ,COLORFFFF00
輸出分8:若如果WZ,返回X8,否則返回NULL則將最近起點-1周期置為1*WXZ,COLORFFFF00
END
//分割提示DRAWTEXT(WZ,高,'`'+TOSTRING(高,2)+'(高)'),COLORFF88FF
當滿足條件WZ時,在低位置書寫文字,COLORFF88FF
當滿足條件WZ時,在中位置書寫文字,COLORFF88FF
當滿足條件WZ時,在分1位置書寫文字,COLORFFFFFF
當滿足條件WZ時,在分2位置書寫文字,COLORFFFFFF
當滿足條件WZ時,在分3位置書寫文字,COLORFFFFFF
當滿足條件WZ時,在分4位置書寫文字,COLORFFFFFF
當滿足條件WZ時,在分5位置書寫文字,COLORFFFFFF
當滿足條件WZ時,在分6位置書寫文字,COLORFFFFFF
當滿足條件WZ時,在分7位置書寫文字,COLORFFFFFF
當滿足條件WZ時,在分8位置書寫文字,COLORFFFFFF
輸出條件判斷 切換=4 THEN BEGINAA5:收盤價的5日簡單移動平均,COLORFFFFFF
輸出AA10:收盤價的10日簡單移動平均,COLOR00FFFF
輸出AA20:收盤價的20日簡單移動平均,COLOR009FFF
輸出AA30:收盤價的30日簡單移動平均,COLORFFFF00
輸出AA60:收盤價的60日簡單移動平均,COLOR0000FF
輸出AA120:收盤價的120日簡單移動平均,COLOR00FF00
輸出AA250:收盤價的250日簡單移動平均,COLORFF00FF
ZDX賦值:AA5和AA10的較大值
ZXX賦值:AA5和AA10的較小值
NHD賦值:(ZDX/ZXX-1)*100
中位線賦值:(AA5+AA10+AA20+AA30+AA60+AA120+AA250)/7
PARTLINE(中位線,1,自定色,1,自定色),線寬為2
當滿足條件到最后交易的周期+1=1時,在中位線位置書寫文字,COLORFF88FF
END
輸出條件判斷 切換=5 THEN BEGINBOLL:收盤價的20日簡單移動平均,COLORCCCCCC
//曲線屬性--輸出線性--不輸出PARTLINE(BOLL,BOLL>BOLL[1],自定色,BOLL<=BOLL[1],自定色)
輸出UB:BOLL+2*收盤價的20日估算標準差,COLORFF88FF
輸出LB:BOLL-2*收盤價的20日估算標準差,COLOR00FFFF
當滿足條件到最后交易的周期+1=1時,在BOLL位置書寫文字,COLORFF88FF
END
當滿足條件到最后交易的周期=1時,在橫軸1/100縱軸0位置書寫文字,COLOR00FFFF
源碼：
?
//參數 起點(0,999,60),終點(0,999,10),切換(1,5,1)
DRAWGBKLAST(1,STRIP(RGB(30,80,220),RGB(130,80,180),1));
nx:=CURRBARSCOUNT+1;
wz:=CURRBARSCOUNT+1=1;
wx:=CURRBARSCOUNT+1=起點;
wt:=BARSLAST(wx);
wxz:=IF(wt>=0,1,DRAWNULL);
QH:=IF(nx>=終點 AND nx<=起點,H,DRAWNULL);
QL:=IF(nx>=終點 AND nx<=起點,L,DRAWNULL);
XZ:=IF(nx>=終點,1,DRAWNULL);
//分割計算
ZH:=HHV(QH,0);
ZL:=LLV(QL,0);
HXT:=(ZH-ZL);
J1:=ZH-HXT*0.241;
J2:=ZH-HXT*0.382;
J3:=ZH-HXT*0.613;
J4:=ZH-HXT*0.786;
JXT:=(ZH-ZL)/8;
H1:=ZH-JXT*1;
H2:=ZH-JXT*2;
H3:=ZH-JXT*3;
H4:=ZH-JXT*5;
H5:=ZH-JXT*6;
H6:=ZH-JXT*7;
BXT:=(ZH-ZL)/10;
B1:=ZH-BXT*1;
B2:=ZH-BXT*2;
B3:=ZH-BXT*3;
B4:=ZH-BXT*4;
B5:=ZH-BXT*6;
B6:=ZH-BXT*7;
B7:=ZH-BXT*8;
B8:=ZH-BXT*9;
//k線
STICKLINE(OPEN,CLOSE ,OPEN,9,0 ),COLOR000000;
STICKLINE(OPEN>CLOSE ,CLOSE ,OPEN,8,0 ),COLOR007700;
STICKLINE(OPEN>CLOSE ,CLOSE ,OPEN,7,0 ),COLOR009900;
STICKLINE(OPEN>CLOSE ,CLOSE ,OPEN,5,0 ),COLOR00bb00;
STICKLINE(OPEN>CLOSE ,CLOSE ,OPEN,3,0 ),COLOR00dd00;
STICKLINE(OPEN>CLOSE ,HIGH,LOW,1.5 ,0 ),COLOR00ff00;
STICKLINE(CLOSE>=OPEN ,CLOSE,OPEN,8,0) ,COLOR000077;
STICKLINE(CLOSE>=OPEN ,CLOSE,OPEN,7,0) ,COLOR000099;
STICKLINE(CLOSE>=OPEN ,CLOSE,OPEN,5,0) ,COLOR0000bb;
STICKLINE(CLOSE>=OPEN ,CLOSE,OPEN,3,0) ,COLOR0000dd;
STICKLINE(CLOSE>=OPEN ,HIGH,LOW,1.5,0 ),COLOR0000FF;
STICKLINE(HIGH=LOW AND CLOSE>REF(CLOSE,1),HIGH-0.01,HIGH+0.01,8,0 ),COLOR0000FF;
STICKLINE(HIGH=LOW AND CLOSE<REF(CLOSE,1),HIGH-0.01,HIGH+0.01,8,0 ),COLOR00FF00;
//分割顯示
IF 切換>=1 AND 切換<=3 THEN BEGIN
VERLINE(nx=終點 OR nx=起點,2),COLOR009fff;
x1:=IF(切換=1,J1,IF(切換=2,H1,IF(切換=3,B1,DRAWNULL)));
x2:=IF(切換=1,J2,IF(切換=2,H2,IF(切換=3,B2,DRAWNULL)));
x3:=IF(切換=1,J3,IF(切換=2,H3,IF(切換=3,B3,DRAWNULL)));
x4:=IF(切換=1,J4,IF(切換=2,H4,IF(切換=3,B4,DRAWNULL)));
高:BACKSET(IF(wz,ZH,DRAWNULL),起點-1)*wxz,COLORff88ff,LINETHICK2;
低:BACKSET(IF(wz,ZL,DRAWNULL),起點-1)*wxz,COLORff88ff,LINETHICK2;
中:BACKSET(IF(wz,(ZH+ZL)/2,DRAWNULL),起點-1)*wxz,COLORff88ff;
分1:BACKSET(IF(wz,X1,DRAWNULL),起點-1)*wxz,COLORffff00;
分2:BACKSET(IF(wz,X2,DRAWNULL),起點-1)*wxz,COLORffff00;
分3:BACKSET(IF(wz,X3,DRAWNULL),起點-1)*wxz,COLORffff00;
分4:BACKSET(IF(wz,X4,DRAWNULL),起點-1)*wxz,COLORffff00;
END;
IF 切換=2 OR 切換=3 THEN BEGIN
x5:=IF(切換=2,H5,B5);
x6:=IF(切換=2,H6,B6);
分5:BACKSET(IF(wz,X5,DRAWNULL),起點-1)*wxz,COLORffff00;
分6:BACKSET(IF(wz,X6,DRAWNULL),起點-1)*wxz,COLORffff00;
END;
IF 切換=3 THEN BEGIN
x7:=B7;
x8:=B8;
分7:BACKSET(IF(wz,X7,NULL),起點-1)*wxz,COLORffff00;
分8:BACKSET(IF(wz,X8,NULL),起點-1)*wxz,COLORffff00;
END;
//分割提示
DRAWTEXT(wz,高,'`'+TOSTRING(高,2)+'(高)'),COLORff88ff;
DRAWTEXT(wz,低,'`'+TOSTRING(低,2)+'(低)'),COLORff88ff;
DRAWTEXT(wz,中,'`'+TOSTRING(中,2)+'(中)'),COLORff88ff;
DRAWTEXT(wz,分1,'`'+TOSTRING(分1,2)+'(分1)'),COLORffffff;
DRAWTEXT(wz,分2,'`'+TOSTRING(分2,2)+'(分2)'),COLORffffff;
DRAWTEXT(wz,分3,'`'+TOSTRING(分3,2)+'(分3)'),COLORffffff;
DRAWTEXT(wz,分4,'`'+TOSTRING(分4,2)+'(分4)'),COLORffffff;
DRAWTEXT(wz,分5,'`'+TOSTRING(分5,2)+'(分5)'),COLORffffff;
DRAWTEXT(wz,分6,'`'+TOSTRING(分6,2)+'(分6)'),COLORffffff;
DRAWTEXT(wz,分7,'`'+TOSTRING(分7,2)+'(分7)'),COLORffffff;
DRAWTEXT(wz,分8,'`'+TOSTRING(分8,2)+'(分8)'),COLORffffff;
IF 切換=4 THEN BEGIN
AA5:MA(C,5),colorffffff;
AA10:MA(C,10),color00ffff;
AA20:MA(C,20),color009fff;
AA30:MA(C,30),colorffff00;
AA60:MA(C,60),color0000ff;
AA120:MA(C,120),color00ff00;
AA250:MA(C,250),colorff00ff;
zdx:=MAX(AA5,AA10,AA20,AA30,AA60,AA120,AA250);
ZXx:=MIN(AA5,AA10,AA20,AA30,AA60,AA120,AA250);
nhd:=(zdx/ZXx-1)*100;
中位線:=(AA5+AA10+AA20+AA30+AA60+AA120+AA250)/7;
PARTLINE(中位線,1,RGB(255,100,255),1,RGB(255,100,255)),LINETHICK2;
DRAWTEXT(CURRBARSCOUNT+1=1,中位線,'``中位線:'+TOSTRING(中位線,2)+'`\n``粘合度:'+TOSTRING(nhd,2)+'%'),colorff88ff;
END;
IF 切換=5 THEN BEGIN
BOLL:MA(CLOSE,20),COLORcccccc;//曲線屬性--輸出線性--不輸出
PARTLINE(BOLL,BOLL>BOLL[1],RGB(255,0,0),BOLL<=BOLL[1],RGB(0,255,255));
UB:BOLL+2*STD(CLOSE,20),COLORff88ff;
LB:BOLL-2*STD(CLOSE,20),COLOR00FFff;
DRAWTEXT(CURRBARSCOUNT+1=1,BOLL,'``中軌值:'+TOSTRING(BOLL,2)+'`\n``上下軌比:'+TOSTRING((UB/LB-1)*100,2)+'%'),colorff88ff;
END;
DRAWTEXT_FIX(CURRBARSCOUNT=1,1/100,0,0,'休閑人原創【分割圖】 當前是'+IF(切換=1,'[黃金分割]',IF(切換=2,'[江恩分割]',
IF(切換=3,'[百分比]',IF(切換=4,'[平均線]','布林線'))))),color00ffff;
{來源:www.tumamayizhan.com 程序化交易}
?
公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】
?
原理解析：
?
源碼：
?
有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友
可聯系技術人員 QQ: 1145508240 進行 有償 編寫！（不貴！點擊查看價格！）
相關文章
-
沒有相關內容
會員登錄/注冊