通达信〖黄金分割多空〗自动识别长期周期的高低点感知市场情绪源码
黄金分割多空主图指标，基于斐波那契0.382与0.618核心分割位，自动识别长期周期的高低点，完成全比例画线。同时，通过红、黄、绿、蓝四种颜色的K线，直观展示多空量能状态。
在用法上，红色K线伴随放量代表强势多头，绿色K线确认空头趋势，黄色K线提示变盘预警，蓝色K线则对应弱势反弹。结合0.618分割线判断关键支撑与阻力位，当短线回调至0.382位时，若出现红色K线放量信号，可捕捉低吸机会。该指标是趋势预判与短线买卖点锚定的实用工具。
{公式名称：黄金分割多空}{公式描述：通过K线四种颜色变化直观感知市场情绪}ZBGS1:=AMOUNT/100000000,COLORWHITE;ZBGS2:=ZBGS1,VOLSTICK;ZBGS3:=V,VOLSTICK;ZBGS4:=ZBGS3>REF(ZBGS3,1);ZBGS5:=ZBGS3< REF(ZBGS3,1);ZBGS6:=EMA(((SLOPE(C,20)*5)+C),20);STICKLINE(ZBGS6<=C&&C>=O&&ZBGS4,H,L,0,1),COLORRED;STICKLINE(ZBGS6<=C&&C>=O&&ZBGS4,C,O,3,0),COLORRED;STICKLINE(ZBGS6<=C&&C>=O&&ZBGS5,H,L,0,1),COLORYELLOW;STICKLINE(ZBGS6<=C&&C>=O&&ZBGS5,C,O,3,0),COLORYELLOW;STICKLINE(ZBGS6<=C&&C< O,H,L,0,0),COLORYELLOW;STICKLINE(ZBGS6<=C&&C< O,C,O,3,0),COLORYELLOW;STICKLINE(ZBGS6>C&&C>=O&&ZBGS4,H,L,0,1),COLORBLUE;STICKLINE(ZBGS6>C&&C>=O&&ZBGS4,C,O,3,0),COLORBLUE;STICKLINE(ZBGS6>C&&C>=O&&ZBGS5,H,L,0,1),COLORYELLOW;STICKLINE(ZBGS6>C&&C>=O&&ZBGS5,C,O,3,0),COLORYELLOW;STICKLINE(ZBGS6>C&&C< O,H,L,0,0),COLORGREEN;STICKLINE(ZBGS6>C&&C< O,C,O,3,0),COLORGREEN;ZBGS7:=2000;ZBGS8:=CONST(HHV(H,ZBGS7));ZBGS9:=CONST(LLV(L,ZBGS7));ZBGS10:=ZBGS8-(ZBGS8-ZBGS9)*0.191;ZBGS11:=ZBGS8-(ZBGS8-ZBGS9)*0.382;ZBGS12:=ZBGS8-(ZBGS8-ZBGS9)*0.5;ZBGS13:=ZBGS8-(ZBGS8-ZBGS9)*0.618;ZBGS14:=ZBGS8-(ZBGS8-ZBGS9)*0.809;ZBGS15:=ZBGS8-(ZBGS8-ZBGS9)*0.764;ZBGS16:=ZBGS8-(ZBGS8-ZBGS9)*0.236;STICKLINE(CURRBARSCOUNT=8,ZBGS8,ZBGS8,0,1),COLORGREEN;STICKLINE(CURRBARSCOUNT=8,ZBGS10,ZBGS10,0,1),COLORCYAN;STICKLINE(CURRBARSCOUNT=8,ZBGS11,ZBGS11,0,1),COLORCCCCCC;DRAWTEXT(CURRBARSCOUNT=10,ZBGS8,'1.000'),COLORGREEN;DRAWTEXT(CURRBARSCOUNT=10,ZBGS10,'0.809'),COLORCYAN;DRAWTEXT(CURRBARSCOUNT=10,ZBGS11,'0.618'),COLORFFFFFF;DRAWTEXT(CURRBARSCOUNT=10,ZBGS12,'0.500'),COLORYELLOW;DRAWTEXT(CURRBARSCOUNT=10,ZBGS13,'0.382'),COLORLIRED;DRAWTEXT(CURRBARSCOUNT=10,ZBGS15,'0.236'),COLORGREEN;DRAWTEXT(CURRBARSCOUNT=10,ZBGS14,'0.191'),COLORMAGENTA;DRAWTEXT(CURRBARSCOUNT=10,ZBGS16,'0.764'),COLORRED;DRAWTEXT(CURRBARSCOUNT=10,ZBGS9,'0.000'),COLORRED;STICKLINE(CURRBARSCOUNT=8,ZBGS12,ZBGS12,0,1),COLORYELLOW;STICKLINE(CURRBARSCOUNT=8,ZBGS13,ZBGS13,0,1),COLORLIRED;STICKLINE(CURRBARSCOUNT=8,ZBGS15,ZBGS15,0,1),COLORGREEN;STICKLINE(CURRBARSCOUNT=8,ZBGS14,ZBGS14,0,1),COLORMAGENTA;STICKLINE(CURRBARSCOUNT=8,ZBGS9,ZBGS9,0,1),COLORRED;STICKLINE(CURRBARSCOUNT=8,ZBGS16,ZBGS16,0,1),COLORRED;DRAWTEXT(CURRBARSCOUNT=50,ZBGS8*0.99,CON2STR(ZBGS8,2)),COLORGREEN;DRAWTEXT(CURRBARSCOUNT=50,ZBGS10,CON2STR(ZBGS10,2)),COLORCYAN;DRAWTEXT(CURRBARSCOUNT=50,ZBGS11,CON2STR(ZBGS11,2)),COLORFFFFFF;DRAWTEXT(CURRBARSCOUNT=50,ZBGS12,CON2STR(ZBGS12,2)),COLORYELLOW;DRAWTEXT(CURRBARSCOUNT=50,ZBGS15,CON2STR(ZBGS15,2)),COLORGREEN;DRAWTEXT(CURRBARSCOUNT=50,ZBGS13,CON2STR(ZBGS13,2)),COLORLIRED;DRAWTEXT(CURRBARSCOUNT=50,ZBGS14,CON2STR(ZBGS14,2)),COLORMAGENTA;DRAWTEXT(CURRBARSCOUNT=50,ZBGS16,CON2STR(ZBGS16,2)),COLORRED;DRAWTEXT(CURRBARSCOUNT=50,ZBGS9*1.01,CON2STR(ZBGS9,2)),COLORRED;DRAWTEXT_FIX(1,0.980,20,1,'， '),COLOR333333;ZBGS17:=2000;ZBGS18:=2000;ZBGS19:=3;ZBGS20:=100;ZBGS21:=25;ZBGS22:=1;ZBGS23:=CURRBARSCOUNT;ZBGS24:=CONST(FINDHIGH(H,0,ZBGS17*10,1));ZBGS25:=CONST(BARSLAST(ZBGS24=H))+1;ZBGS26:=CONST(IF(ZBGS25=1,H,REF(H,ZBGS25-1)));ZBGS27:=CONST(FINDLOW(L,0,ZBGS18*10,1));ZBGS28:=CONST(BARSLAST(ZBGS27=L))+1;ZBGS29:=CONST(IF(ZBGS28=1,L,REF(L,ZBGS28-1)));ZBGS30:=BARSSINCE(SUM(ISLASTBAR,BARSLAST(L=ZBGS29)+1));ZBGS31:=BARSSINCE(SUM(ISLASTBAR,BARSLAST(H=ZBGS26)+1));ZBGS32:=IF(ZBGS19=1,ZBGS31,IF(ZBGS19=2,ZBGS30,IF(ZBGS19=3,ZBGS30,ZBGS31)));ZBGS33:=ZBGS20/IF(C< 300,1000,10);ZBGS34:=IF(ZBGS19=1,ZBGS31,IF(ZBGS19=2,ZBGS30,IF(ZBGS19=3,ZBGS31,ZBGS30)));ZBGS35:=ZBGS20/IF(C< 300,1000,10);ZBGS36:=((ZBGS26-ZBGS29)/6-(ZBGS26-ZBGS29)/8);ZBGS37:=ZBGS26+(ZBGS26-ZBGS29)/8;ZBGS38:=ZBGS29-(ZBGS26-ZBGS29)/8;ZBGS39:=IF(ZBGS28>ZBGS25,ZBGS28,ZBGS25);ZBGS40:IF(ZBGS23<=ZBGS39,ZBGS26-(ZBGS26-ZBGS29)*0.000,DRAWNULL),DOTLINE,COLOR556600;DRAWTEXT(ZBGS23=ZBGS39,(ZBGS40)*1.001,STRCAT('0.000',CON2STR(ZBGS40,2))),COLORF5CCEB;ZBGS41:IF(ZBGS23<=ZBGS39,ZBGS26-(ZBGS26-ZBGS29)*0.191,DRAWNULL),DOTLINE,COLOR556600;DRAWTEXT(ZBGS23=ZBGS39,(ZBGS41)*1.001,STRCAT('0.191',CON2STR(ZBGS41,2))),COLORF5CCEB;ZBGS42:IF(ZBGS23<=ZBGS39,ZBGS26-(ZBGS26-ZBGS29)*0.236,DRAWNULL),DOTLINE,COLOR556600;DRAWTEXT(ZBGS23=ZBGS39,(ZBGS42)*1.001,STRCAT('0.236',CON2STR(ZBGS42,2))),COLORF5CCEB;ZBGS43:IF(ZBGS23<=ZBGS39,ZBGS26-(ZBGS26-ZBGS29)*0.382,DRAWNULL),DOTLINE,COLOR556600;DRAWTEXT(ZBGS23=ZBGS39,(ZBGS43)*1.001,STRCAT('0.382',CON2STR(ZBGS43,2))),COLORF5CCEB;ZBGS44:IF(ZBGS23<=ZBGS39,ZBGS26-(ZBGS26-ZBGS29)*0.500,DRAWNULL),DOTLINE,COLOR556600;DRAWTEXT(ZBGS23=ZBGS39,(ZBGS44)*1.001,STRCAT('0.500',CON2STR(ZBGS44,2))),COLORF5CCEB;ZBGS45:IF(ZBGS23<=ZBGS39,ZBGS26-(ZBGS26-ZBGS29)*0.618,DRAWNULL),DOTLINE,COLOR556600;DRAWTEXT(ZBGS23=ZBGS39,(ZBGS45)*1.001,STRCAT('0.618',CON2STR(ZBGS45,2))),COLORF5CCEB;ZBGS46:IF(ZBGS23<=ZBGS39,ZBGS26-(ZBGS26-ZBGS29)*0.764,DRAWNULL),DOTLINE,COLOR556600;DRAWTEXT(ZBGS23=ZBGS39,(ZBGS46)*1.001,STRCAT('0.764',CON2STR(ZBGS46,2))),COLORF5CCEB;ZBGS47:IF(ZBGS23<=ZBGS39,ZBGS26-(ZBGS26-ZBGS29)*0.809,DRAWNULL),DOTLINE,COLOR556600;DRAWTEXT(ZBGS23=ZBGS39,(ZBGS47)*1.001,STRCAT('0.809',CON2STR(ZBGS47,2))),COLORF5CCEB;ZBGS48:IF(ZBGS23<=ZBGS39,ZBGS26-(ZBGS26-ZBGS29)*1.000,DRAWNULL),DOTLINE,COLOR556600;DRAWTEXT(ZBGS23=ZBGS39,(ZBGS48)*1.001,STRCAT('1.000.',CON2STR(ZBGS48,2))),COLORF5CCEB;
未来函数检测结果如下：
该公式包含未来函数:DHIGH
该公式包含未来函数:DLOW
定制指标公式、软件请联系QQ或微信同号：88652583
ZBGS1赋值:成交额(元)/100000000,画白色
ZBGS2赋值:ZBGS1,VOLSTICK
ZBGS3赋值:成交量(手),VOLSTICK
ZBGS4赋值:ZBGS3>1日前的ZBGS3
ZBGS5赋值:ZBGS3< 1日前的ZBGS3
ZBGS6赋值:((收盘价的20日线性回归斜率*5)+收盘价)的20日指数移动平均
当满足条件ZBGS6<=收盘价并且收盘价>=开盘价并且ZBGS4时,在最高价和最低价位置之间画柱状线,宽度为0,1不为0则画空心柱.,画红色
当满足条件ZBGS6<=收盘价并且收盘价>=开盘价并且ZBGS4时,在收盘价和开盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,画红色
当满足条件ZBGS6<=收盘价并且收盘价>=开盘价并且ZBGS5时,在最高价和最低价位置之间画柱状线,宽度为0,1不为0则画空心柱.,画黄色
当满足条件ZBGS6<=收盘价并且收盘价>=开盘价并且ZBGS5时,在收盘价和开盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,画黄色
当满足条件ZBGS6<=收盘价并且收阴线时,在最高价和最低价位置之间画柱状线,宽度为0,0不为0则画空心柱.,画黄色
当满足条件ZBGS6<=收盘价并且收阴线时,在收盘价和开盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,画黄色
当满足条件ZBGS6>收盘价并且收盘价>=开盘价并且ZBGS4时,在最高价和最低价位置之间画柱状线,宽度为0,1不为0则画空心柱.,画蓝色
当满足条件ZBGS6>收盘价并且收盘价>=开盘价并且ZBGS4时,在收盘价和开盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,画蓝色
当满足条件ZBGS6>收盘价并且收盘价>=开盘价并且ZBGS5时,在最高价和最低价位置之间画柱状线,宽度为0,1不为0则画空心柱.,画黄色
当满足条件ZBGS6>收盘价并且收盘价>=开盘价并且ZBGS5时,在收盘价和开盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,画黄色
当满足条件ZBGS6>收盘价并且收阴线时,在最高价和最低价位置之间画柱状线,宽度为0,0不为0则画空心柱.,画绿色
当满足条件ZBGS6>收盘价并且收阴线时,在收盘价和开盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,画绿色
ZBGS7赋值:2000
ZBGS8赋值:ZBGS7日内最高价的最高值的最后一日取值设为常数
ZBGS9赋值:ZBGS7日内最低价的最低值的最后一日取值设为常数
ZBGS10赋值:ZBGS8-(ZBGS8-ZBGS9)*0.191
ZBGS11赋值:ZBGS8-(ZBGS8-ZBGS9)*0.382
ZBGS12赋值:ZBGS8-(ZBGS8-ZBGS9)*0.5
ZBGS13赋值:ZBGS8-(ZBGS8-ZBGS9)*0.618
ZBGS14赋值:ZBGS8-(ZBGS8-ZBGS9)*0.809
ZBGS15赋值:ZBGS8-(ZBGS8-ZBGS9)*0.764
ZBGS16赋值:ZBGS8-(ZBGS8-ZBGS9)*0.236
当满足条件到最后交易的周期=8时,在ZBGS8和ZBGS8位置之间画柱状线,宽度为0,1不为0则画空心柱.,画绿色
当满足条件到最后交易的周期=8时,在ZBGS10和ZBGS10位置之间画柱状线,宽度为0,1不为0则画空心柱.,画青色
当满足条件到最后交易的周期=8时,在ZBGS11和ZBGS11位置之间画柱状线,宽度为0,1不为0则画空心柱.,COLORCCCCCC
当满足条件到最后交易的周期=10时,在ZBGS8位置书写文字,画绿色
当满足条件到最后交易的周期=10时,在ZBGS10位置书写文字,画青色
当满足条件到最后交易的周期=10时,在ZBGS11位置书写文字,COLORFFFFFF
当满足条件到最后交易的周期=10时,在ZBGS12位置书写文字,画黄色
当满足条件到最后交易的周期=10时,在ZBGS13位置书写文字,画淡红色
当满足条件到最后交易的周期=10时,在ZBGS15位置书写文字,画绿色
当满足条件到最后交易的周期=10时,在ZBGS14位置书写文字,画洋红色
当满足条件到最后交易的周期=10时,在ZBGS16位置书写文字,画红色
当满足条件到最后交易的周期=10时,在ZBGS9位置书写文字,画红色
当满足条件到最后交易的周期=8时,在ZBGS12和ZBGS12位置之间画柱状线,宽度为0,1不为0则画空心柱.,画黄色
当满足条件到最后交易的周期=8时,在ZBGS13和ZBGS13位置之间画柱状线,宽度为0,1不为0则画空心柱.,画淡红色
当满足条件到最后交易的周期=8时,在ZBGS15和ZBGS15位置之间画柱状线,宽度为0,1不为0则画空心柱.,画绿色
当满足条件到最后交易的周期=8时,在ZBGS14和ZBGS14位置之间画柱状线,宽度为0,1不为0则画空心柱.,画洋红色
当满足条件到最后交易的周期=8时,在ZBGS9和ZBGS9位置之间画柱状线,宽度为0,1不为0则画空心柱.,画红色
当满足条件到最后交易的周期=8时,在ZBGS16和ZBGS16位置之间画柱状线,宽度为0,1不为0则画空心柱.,画红色
当满足条件到最后交易的周期=50时,在ZBGS8*0.99位置书写文字,画绿色
当满足条件到最后交易的周期=50时,在ZBGS10位置书写文字,画青色
当满足条件到最后交易的周期=50时,在ZBGS11位置书写文字,COLORFFFFFF
当满足条件到最后交易的周期=50时,在ZBGS12位置书写文字,画黄色
当满足条件到最后交易的周期=50时,在ZBGS15位置书写文字,画绿色
当满足条件到最后交易的周期=50时,在ZBGS13位置书写文字,画淡红色
当满足条件到最后交易的周期=50时,在ZBGS14位置书写文字,画洋红色
当满足条件到最后交易的周期=50时,在ZBGS16位置书写文字,画红色
当满足条件到最后交易的周期=50时,在ZBGS9*1.01位置书写文字,画红色
当满足条件1时,在横轴0.980纵轴20位置书写文字,COLOR333333
ZBGS17赋值:2000
ZBGS18赋值:2000
ZBGS19赋值:3
ZBGS20赋值:100
ZBGS21赋值:25
ZBGS22赋值:1
ZBGS23赋值:到最后交易的周期
ZBGS24赋值:最高价在0日前的ZBGS17*10天内第1个最高价的最后一日取值设为常数
ZBGS25赋值:上次ZBGS24=最高价距今天数的最后一日取值设为常数+1
ZBGS26赋值:如果ZBGS25=1,返回最高价,否则返回ZBGS25-1日前的最高价的最后一日取值设为常数
ZBGS27赋值:最低价在0日前的ZBGS18*10天内第1个最低价的最后一日取值设为常数
ZBGS28赋值:上次ZBGS27=最低价距今天数的最后一日取值设为常数+1
ZBGS29赋值:如果ZBGS28=1,返回最低价,否则返回ZBGS28-1日前的最低价的最后一日取值设为常数
ZBGS30赋值:首次是否最后一个周期的上次最低价=ZBGS29距今天数+1日累和距今天数
ZBGS31赋值:首次是否最后一个周期的上次最高价=ZBGS26距今天数+1日累和距今天数
ZBGS32赋值:如果ZBGS19=1,返回ZBGS31,否则返回如果ZBGS19=2,返回ZBGS30,否则返回如果ZBGS19=3,返回ZBGS30,否则返回ZBGS31
ZBGS33赋值:ZBGS20/如果收盘价<300,返回1000,否则返回10
ZBGS34赋值:如果ZBGS19=1,返回ZBGS31,否则返回如果ZBGS19=2,返回ZBGS30,否则返回如果ZBGS19=3,返回ZBGS31,否则返回ZBGS30
ZBGS35赋值:ZBGS20/如果收盘价<300,返回1000,否则返回10
ZBGS36赋值:((ZBGS26-ZBGS29)/6-(ZBGS26-ZBGS29)/8)
ZBGS37赋值:ZBGS26+(ZBGS26-ZBGS29)/8
ZBGS38赋值:ZBGS29-(ZBGS26-ZBGS29)/8
ZBGS39赋值:如果ZBGS28>ZBGS25,返回ZBGS28,否则返回ZBGS25
输出ZBGS40:如果ZBGS23<=ZBGS39,返回ZBGS26-(ZBGS26-ZBGS29)*0.000,否则返回无效数,DOTLINE,COLOR556600
当满足条件ZBGS23=ZBGS39时,在(ZBGS40)*1.001位置书写文字,COLORF5CCEB
输出ZBGS41:如果ZBGS23<=ZBGS39,返回ZBGS26-(ZBGS26-ZBGS29)*0.191,否则返回无效数,DOTLINE,COLOR556600
当满足条件ZBGS23=ZBGS39时,在(ZBGS41)*1.001位置书写文字,COLORF5CCEB
输出ZBGS42:如果ZBGS23<=ZBGS39,返回ZBGS26-(ZBGS26-ZBGS29)*0.236,否则返回无效数,DOTLINE,COLOR556600
当满足条件ZBGS23=ZBGS39时,在(ZBGS42)*1.001位置书写文字,COLORF5CCEB
输出ZBGS43:如果ZBGS23<=ZBGS39,返回ZBGS26-(ZBGS26-ZBGS29)*0.382,否则返回无效数,DOTLINE,COLOR556600
当满足条件ZBGS23=ZBGS39时,在(ZBGS43)*1.001位置书写文字,COLORF5CCEB
输出ZBGS44:如果ZBGS23<=ZBGS39,返回ZBGS26-(ZBGS26-ZBGS29)*0.500,否则返回无效数,DOTLINE,COLOR556600
当满足条件ZBGS23=ZBGS39时,在(ZBGS44)*1.001位置书写文字,COLORF5CCEB
输出ZBGS45:如果ZBGS23<=ZBGS39,返回ZBGS26-(ZBGS26-ZBGS29)*0.618,否则返回无效数,DOTLINE,COLOR556600
当满足条件ZBGS23=ZBGS39时,在(ZBGS45)*1.001位置书写文字,COLORF5CCEB
输出ZBGS46:如果ZBGS23<=ZBGS39,返回ZBGS26-(ZBGS26-ZBGS29)*0.764,否则返回无效数,DOTLINE,COLOR556600
当满足条件ZBGS23=ZBGS39时,在(ZBGS46)*1.001位置书写文字,COLORF5CCEB
输出ZBGS47:如果ZBGS23<=ZBGS39,返回ZBGS26-(ZBGS26-ZBGS29)*0.809,否则返回无效数,DOTLINE,COLOR556600
当满足条件ZBGS23=ZBGS39时,在(ZBGS47)*1.001位置书写文字,COLORF5CCEB
输出ZBGS48:如果ZBGS23<=ZBGS39,返回ZBGS26-(ZBGS26-ZBGS29)*1.000,否则返回无效数,DOTLINE,COLOR556600
当满足条件ZBGS23=ZBGS39时,在(ZBGS48)*1.001位置书写文字,COLORF5CCEB
