您现在的位置:程序化交易>> 股票公式>> 同花顺>> 同花顺公式>>正文内容

同花顺分割图提示代码源码分享指标公式[同花顺公式]

相关标签: 同花顺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.cxh99.com 程序化交易}

 

公式导入教程: 【通达信公式源码导入方法教程】 【同花顺公式源码导入方法教程】 【大智慧新一代公式源码导入方法教程

 

原理解析:

 

源码:

 

 

有思路,想编写各种指标公式,程序化交易模型,选股公式,预警公式的朋友

可联系技术人员 QQ: 1145508240  点击这里给我发消息进行 有偿 编写!不贵!点击查看价格!

 


【字体: 】【打印文章】【查看评论

相关文章

    没有相关内容