黄金分割线 主图 源码
原理解析：
当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为8,0不为0则画空心柱.,COLOR000038
当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为7,0不为0则画空心柱.,COLOR000048
当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为6,0不为0则画空心柱.,COLOR000058
当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为5,0不为0则画空心柱.,COLOR000068
当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为4,0不为0则画空心柱.,COLOR000078
当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLOR000088
当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLOR000098
当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR0000A8
当满足条件收阳线时,在最高价和最低价位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLOR0008A8
当满足条件收阴线时,在收盘价和开盘价位置之间画柱状线,宽度为8,0不为0则画空心柱.,COLOR003800
当满足条件收阴线时,在收盘价和开盘价位置之间画柱状线,宽度为7,0不为0则画空心柱.,COLOR004800
当满足条件收阴线时,在收盘价和开盘价位置之间画柱状线,宽度为6,0不为0则画空心柱.,COLOR005800
当满足条件收阴线时,在收盘价和开盘价位置之间画柱状线,宽度为5,0不为0则画空心柱.,COLOR006800
当满足条件收阴线时,在收盘价和开盘价位置之间画柱状线,宽度为4,0不为0则画空心柱.,COLOR007800
当满足条件收阴线时,在收盘价和开盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLOR008800
当满足条件收阴线时,在收盘价和开盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLOR009800
当满足条件收阴线时,在收盘价和开盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR00A800
当满足条件收阴线时,在最高价和最低价位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLOR00A800
C3赋值:1日前的收盘价
涨停赋值:如果(收盘价-C3)*100/C3>=(10-0.01*100/C3),返回1,否则返回0 OR ((字符串比较=0 OR 字符串比较=0) AND 收盘价>=1日前的收盘价*1.05*100+0.5的整数部分/100)
当满足条件涨停时,在开盘价和收盘价位置之间画柱状线,宽度为2.0,0不为0则画空心柱.,COLOR00D8D8
跌停赋值:如果(C3-收盘价)*100/C3>=(10-0.01*100/C3),返回1,否则返回0 OR ((字符串比较=0 OR 字符串比较=0) AND (C3-收盘价)*100/C3>=1日前的收盘价*1.05*100+0.5的整数部分/100)
当满足条件跌停时,在开盘价和收盘价位置之间画柱状线,宽度为2.0,0不为0则画空心柱.,COLOR00EE00
C3赋值:1日前的收盘价
涨停赋值:如果(收盘价-C3)*100/C3>=(10-0.01*100/C3),返回1,否则返回0 OR ((字符串比较=0 OR 字符串比较=0) AND 收盘价>=1日前的收盘价*1.05*100+0.5的整数部分/100)
当满足条件涨停时,在开盘价和收盘价位置之间画柱状线,宽度为2.0,0不为0则画空心柱.,COLOR00D8D8
跌停赋值:如果(C3-收盘价)*100/C3>=(10-0.01*100/C3),返回1,否则返回0 OR ((字符串比较=0 OR 字符串比较=0) AND (C3-收盘价)*100/C3>=1日前的收盘价*1.05*100+0.5的整数部分/100)
当满足条件跌停时,在开盘价和收盘价位置之间画柱状线,宽度为2.0,0不为0则画空心柱.,COLOR00EE00
当满足条件平盘时,在收盘价和开盘价位置之间画柱状线,宽度为8,0不为0则画空心柱.,COLOR888888
当满足条件平盘时,在最高价和最低价位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLOR888888
LHNH赋值:上次DISPSTATUS=1距今天数+1
NNL赋值:DISPSTATUS=2
AL赋值:若NNL则将最近LHNH日内最高价距今天数+1周期置为1
BL赋值:AL>1日前的AL
AL2赋值:若NNL则将最近LHNH日内最低价距今天数+1周期置为1
BL2赋值:AL2>1日前的AL2
输出前高:上次BL距今天数日前的最高价,PRECIS2,COLOR00A800,线宽为1
当满足条件NNL时,在前高*0.995位置书写文字,ALIGN2,COLOR00A800,PRECIS2
输出前低:上次BL2距今天数日前的最低价,PRECIS2,COLOR580058,线宽为1
当满足条件NNL时,在前低*1.010位置书写文字,ALIGN2,COLOR380088,PRECIS2
输出FL1:((前高-前低)*0.191)+前低,DOTLINE,COLOR282828,线宽为1,PRECIS2
当满足条件NNL时,在FL1位置书写文字,ALIGN2,COLOR282828
输出FL2:((前高-前低)*0.236)+前低,DOTLINE,COLOR282828,线宽为1,PRECIS2
当满足条件NNL时,在FL2位置书写文字,ALIGN2,COLOR383838
输出FL3:((前高-前低)*0.382)+前低,DOTLINE,COLOR003838,线宽为1,PRECIS2
当满足条件NNL时,在FL3位置书写文字,ALIGN2,COLOR003838
输出FL4:((前高-前低)*0.5)+前低,DOTLINE,COLOR383800,线宽为1,PRECIS2
当满足条件NNL时,在FL4位置书写文字,ALIGN2,COLOR000058
输出FL5:((前高-前低)*0.618)+前低,DOTLINE,COLOR003838,线宽为1,PRECIS2
当满足条件NNL时,在FL5位置书写文字,ALIGN2,COLOR003838
输出FL6:((前高-前低)*0.764)+前低,DOTLINE,COLOR282828,线宽为1,PRECIS2
当满足条件NNL时,在FL6位置书写文字,ALIGN2,COLOR383838
输出FL7:((前高-前低)*0.809)+前低,DOTLINE,COLOR282828,线宽为1,PRECIS2
当满足条件NNL时,在FL7位置书写文字,ALIGN2,COLOR282828
A赋值:上次DISPSTATUS=1距今天数+1
HH赋值:A日内最高价的最高值
LL赋值:A日内最低价的最低值
上涨赋值:首次若DISPSTATUS=2则将最近上次最低价=LL距今天数+1周期置为1距今天数
↑空间％赋值:(收盘价/上涨日前的最低价-1)*100
最高％赋值:(HHVALL(HH)/上涨日前的最低价-1)*100
下跌赋值:首次若DISPSTATUS=2则将最近上次最高价=HH距今天数+1周期置为1距今天数
↓空间％赋值:(收盘价/下跌日前的最高价-1)*100
最低％赋值:(LLVALL(LL)/下跌日前的最高价-1)*100
W赋值:上次DISPSTATUS=1距今天数
低涨赋值:(最高价/W日内最低价的最低值-1)*100
高跌赋值:(最低价/W日内最高价的最高值-1)*100
天日赋值:上次最低价=W日内最低价的最低值距今天数
天赋值:上次最高价=W日内最高价的最高值距今天数
输出DRAWTEXTREL(280,15,'▲低点至今日高点上涨:'+NUMTOSTRN(低涨,2)+'％ '+NUMTOSTRN(天日,0)+'天'),COLOR000088,线宽为1
输出DRAWTEXTREL(128,15,'▼高点至今日低点下跌:'+NUMTOSTRN(高跌,2)+'％ '+NUMTOSTRN(天,0)+'天'),COLOR005800,线宽为1
输出DRAWTEXTREL(018,15,'目前可见K线数:'+NUMTOSTRN(W+1,0)+'根'),COLOR585858,线宽为1
VERTLINE(上涨=0,2),COLOR380088,LAYER7
VERTLINE(下跌=0,2),COLOR005800,LAYER7
当满足条件上涨=0AND最高％>10时,在LL*1.1位置书写文字,COLOR008888
当满足条件上涨=0AND最高％>20时,在LL*1.2位置书写文字,COLOR005800
当满足条件上涨=0AND最高％>30时,在LL*1.3位置书写文字,COLOR380088
当满足条件上涨=0AND最高％>40时,在LL*1.4位置书写文字,COLOR585858
当满足条件上涨=0AND最高％>50时,在LL*1.5位置书写文字,COLOR580058
当满足条件上涨=0AND最高％>60时,在LL*1.6位置书写文字,COLOR585800
当满足条件上涨=0AND最高％>70时,在LL*1.7位置书写文字,COLOR005800
当满足条件上涨=0AND最高％>80时,在LL*1.8位置书写文字,COLOR005858
当满足条件上涨=0AND最高％>90时,在LL*1.9位置书写文字,COLOR000058
当满足条件上涨=0AND最高％>100时,在LL*2位置书写文字,COLOR380088
当满足条件上涨=0AND最高％>100时,在LL*2.25位置书写文字,COLOR383800
当满足条件上涨=0AND最高％>150时,在LL*2.5位置书写文字,COLOR585858
当满足条件上涨=0AND最高％>200时,在LL*3.0位置书写文字,COLOR580058
当满足条件上涨=0AND最高％>250时,在LL*3.5位置书写文字,COLOR585800
当满足条件下跌=0AND最低％180000 AND (CXH=1 OR CXH=6))
DRAWTEXTREL(10 ,10 ,'指标公式')
源码：
{红K}
STICKLINE(C>O,C,O,8,0),COLOR000038;
STICKLINE(C>O,C,O,7,0),COLOR000048;
STICKLINE(C>O,C,O,6,0),COLOR000058;
STICKLINE(C>O,C,O,5,0),COLOR000068;
STICKLINE(C>O,C,O,4,0),COLOR000078;
STICKLINE(C>O,C,O,3,0),COLOR000088;
STICKLINE(C>O,C,O,2,0),COLOR000098;
STICKLINE(C>O,C,O,1,0),COLOR0000A8;
STICKLINE(C>O,H,L,0,0),COLOR0008A8;
{绿K}
STICKLINE(C=(10-0.01*100/C3),1,0) or ((STRCMP(STRLEFT(STKNAME,2),'ST')=0 or STRCMP( STRLEFT(STKNAME,3),'*ST')=0) and c>=INTPART(REF(c ,1 )*1.05*100+0.5)/100);
STICKLINE(涨停,OPEN,CLOSE,2.0,0),color00D8D8;
跌停:=IF((C3-C)*100/C3>=(10-0.01*100/C3),1,0) or ((STRCMP(STRLEFT(STKNAME,2),'ST')=0 or STRCMP( STRLEFT(STKNAME,3),'*ST')=0) and (C3-C)*100/C3>=INTPART(REF(c ,1 )*1.05*100+0.5)/100);
STICKLINE(跌停,OPEN,CLOSE,2.0,0),COLOR00EE00;
{涨停跌停标示}
C3:=REF(C,1);
涨停:=IF((C-C3)*100/C3>=(10-0.01*100/C3),1,0) or ((STRCMP(STRLEFT(STKNAME,2),'ST')=0 or STRCMP( STRLEFT(STKNAME,3),'*ST')=0) and c>=INTPART(REF(c ,1 )*1.05*100+0.5)/100);
STICKLINE(涨停,OPEN,CLOSE,2.0,0),color00D8D8;
跌停:=IF((C3-C)*100/C3>=(10-0.01*100/C3),1,0) or ((STRCMP(STRLEFT(STKNAME,2),'ST')=0 or STRCMP( STRLEFT(STKNAME,3),'*ST')=0) and (C3-C)*100/C3>=INTPART(REF(c ,1 )*1.05*100+0.5)/100);
STICKLINE(跌停,OPEN,CLOSE,2.0,0),COLOR00EE00;
{星}
STICKLINE(C=O,C,O,8,0),COLOR888888;
STICKLINE(C=O,H,L,0,0),COLOR888888;
{不喜欢立体K线及涨停标识的，以上内容可删除}
{说明：公式借用一品茶缘等老师编写源码而优化，在此表示感谢！！！}
{黄金分割线}
lhnh:=BARSLAST(DISPSTATUS=1)+1;
nnl:=DISPSTATUS=2;
Al:=BACKSET(nnl,hhvBARS(h,lhnh)+1);
Bl:=Al>REF(Al,1);
Al2:=BACKSET(nnl,LLVBARS(L,lhnh)+1);
Bl2:=Al2>REF(Al2,1);
前高:REF(H,BARSLAST(bl)),PRECIS2,COLOR00A800,LINETHICK1;
DRAWTEXT(nnl,前高*0.995,'前高:'+NUMTOSTRN(前高,2)),ALIGN2,COLOR00A800,PRECIS2;
前低:REF(L,BARSLAST(Bl2)),PRECIS2,COLOR580058,LINETHICK1;
DRAWTEXT(nnl,前低*1.010,'前低： '+NUMTOSTRN(前低,2)),ALIGN2,COLOR380088,PRECIS2;
Fl1:((前高-前低)*0.191)+前低,DOTLINE,Color282828,LINETHICK1,PRECIS2;
DRAWTEXT(nnl,Fl1,'191(809)： '+NUMTOSTRN(Fl1,2)),ALIGN2,Color282828;
Fl2:((前高-前低)*0.236)+前低,DOTLINE,Color282828,LINETHICK1,PRECIS2;
DRAWTEXT(nnl,Fl2,'236(764)： '+NUMTOSTRN(Fl2,2)),ALIGN2,Color383838;
Fl3:((前高-前低)*0.382)+前低,DOTLINE,Color003838,LINETHICK1,PRECIS2;
DRAWTEXT(nnl,Fl3,'382(618)： '+NUMTOSTRN(Fl3,2)),ALIGN2,COLOR003838;
Fl4:((前高-前低)*0.5)+前低,DOTLINE,COLOR383800,LINETHICK1,PRECIS2;
DRAWTEXT(nnl,Fl4,'0.50： '+NUMTOSTRN(Fl4,2)),ALIGN2,Color000058;
Fl5:((前高-前低)*0.618)+前低,DOTLINE,Color003838,LINETHICK1,PRECIS2;
DRAWTEXT(nnl,Fl5,'618(382)： '+NUMTOSTRN(Fl5,2)),ALIGN2,COLOR003838;
Fl6:((前高-前低)*0.764)+前低,DOTLINE,Color282828,LINETHICK1,PRECIS2;
DRAWTEXT(nnl,Fl6,'764(236)： '+NUMTOSTRN(Fl6,2)),ALIGN2,COLOR383838;
Fl7:((前高-前低)*0.809)+前低,DOTLINE,Color282828,LINETHICK1,PRECIS2;
DRAWTEXT(nnl,Fl7,'809(191)： '+NUMTOSTRN(Fl7,2)),ALIGN2,COLOR282828;
A:=BARSLAST(DISPSTATUS=1)+1;
HH:=HHV(H,A);
LL:=LLV(L,A);
上涨:=BARSSINCE(BACKSET(DISPSTATUS=2,BARSLAST(L=LL)+1));
↑空间％:=(C/REF(L,上涨)-1)*100;
最高％:=(HHVALL(HH)/REF(L,上涨)-1)*100;
下跌:=BARSSINCE(BACKSET(DISPSTATUS=2,BARSLAST(H=HH)+1));
↓空间％:=(C/REF(H,下跌)-1)*100;
最低％:=(LLVALL(LL)/REF(H,下跌)-1)*100;
W:=BARSLAST(DISPSTATUS=1);
低涨:=(H/LLV(LOW,W)-1)*100;
高跌:=(L/HHV(HIGH,W)-1)*100;
天日:=BARSLAST(L=LLV(LOW,W));
天:=BARSLAST(H=HHV(HIGH,W));
{以下设置提示文字部分}
DRAWTEXTREL(280,15,'▲低点至今日高点上涨:'+NUMTOSTRN(低涨,2)+'％ '+NUMTOSTRN(天日,0)+'天'),COLOR000088,linethick1;
DRAWTEXTREL(128,15,'▼高点至今日低点下跌:'+NUMTOSTRN(高跌,2)+'％ '+NUMTOSTRN(天,0)+'天'),COLOR005800,linethick1;
DRAWTEXTREL(018,15,'目前可见K线数:'+NUMTOSTRN(W+1,0)+'根'),COLOR585858,linethick1;
VERTLINE(上涨=0,2),COLOR380088,LAYER7;
VERTLINE(下跌=0,2),COLOR005800,LAYER7;
{DRAWTEXT(上涨=0,LLVALL(HH)*0.99,'-最高'),COLOR0000D8;
DRAWTEXT(下跌=0,LLVALL(LL)*1.01,'-最低'),COLORD85800;}
DRAWTEXT(上涨=0 AND 最高％>10,LL*1.1,'-10% '+NUMTOSTRN(LL*1.1,2)),COLOR008888;
DRAWTEXT(上涨=0 AND 最高％>20,LL*1.2,'-20% '+NUMTOSTRN(LL*1.2,2)),COLOR005800;
DRAWTEXT(上涨=0 AND 最高％>30,LL*1.3,'-30% '+NUMTOSTRN(LL*1.3,2)),COLOR380088;
DRAWTEXT(上涨=0 AND 最高％>40,LL*1.4,'-40% '+NUMTOSTRN(LL*1.4,2)),COLOR585858;
DRAWTEXT(上涨=0 AND 最高％>50,LL*1.5,'-50% '+NUMTOSTRN(LL*1.5,2)),COLOR580058;
DRAWTEXT(上涨=0 AND 最高％>60,LL*1.6,'-60% '+NUMTOSTRN(LL*1.6,2)),COLOR585800;
DRAWTEXT(上涨=0 AND 最高％>70,LL*1.7,'-70% '+NUMTOSTRN(LL*1.7,2)),COLOR005800;
DRAWTEXT(上涨=0 AND 最高％>80,LL*1.8,'-80% '+NUMTOSTRN(LL*1.8,2)),COLOR005858;
DRAWTEXT(上涨=0 AND 最高％>90,LL*1.9,'-90% '+NUMTOSTRN(LL*1.9,2)),COLOR000058;
DRAWTEXT(上涨=0 AND 最高％>100,LL*2,'-100% '+NUMTOSTRN(LL*2.0,2)),COLOR380088;
DRAWTEXT(上涨=0 AND 最高％>100,LL*2.25,'-125% '+NUMTOSTRN(LL*2.25,2)),COLOR383800;
DRAWTEXT(上涨=0 AND 最高％>150,LL*2.5,'-150% '+NUMTOSTRN(LL*2.5,2)),COLOR585858;
DRAWTEXT(上涨=0 AND 最高％>200,LL*3.0,'-200% '+NUMTOSTRN(LL*3.0,2)),COLOR580058;
DRAWTEXT(上涨=0 AND 最高％>250,LL*3.5,'-250% '+NUMTOSTRN(LL*3.5,2)),COLOR585800;
DRAWTEXT(下跌=0 AND 最低％180000 and (CXH=1 OR CXH=6));
DRAWTEXTREL(10 ,10 ,'指标公式');