黄金分割黄金通道主图指标公式[通达信公式]

相关标签:

黄金通道 黄金分割 主图公式

原理解析：
N2赋值:5 A1赋值:N2日前的最高价=2*N2+1日内最高价的最高值 B1赋值:A1的N2日过滤 C1赋值:若B1则将最近N2+1周期置为1 HD赋值: C1的N2日过滤 RH赋值:若到最后交易的周期=2则将最近上次HD距今天数+1周期置为1 SH赋值:RH>1日前的RH H1赋值:上次SH距今天数日前的最高价 当满足条件H1时,在H1和H1位置之间画柱状线,宽度为5,0不为0则画空心柱.,线宽为2,COLOR00FFFF 当满足条件是否最后一个周期时,在H1*1.005位置书写文字,COLORFFFF00 TTP赋值:(到最后交易的周期=5-4) 当满足条件TTPANDH1时,在H1位置书写数字,COLORFFFF00 A2赋值:N2日前的最低价=2*N2+1日内最低价的最低值 B2赋值:A2的N2日过滤 C2赋值:若B2则将最近N2+1周期置为1 LD赋值:C2的N2日过滤 RL赋值:若到最后交易的周期=2则将最近上次LD距今天数+1周期置为1 SL赋值:RL>1日前的RL L1赋值:上次SL距今天数日前的最低价 当满足条件L1时,在L1和L1位置之间画柱状线,宽度为5,0不为0则画空心柱.,COLORFFFF00,线宽为5 当满足条件是否最后一个周期时,在L1*1.005位置书写文字,COLORFFFF00 当满足条件TTPANDL1时,在L1位置书写数字,COLOR00FFFF VAR1赋值:收盘价>1日前的收盘价 AND 收盘价>2日前的收盘价 VAR2赋值:1日前的VAR1 AND 收盘价<=1日前的收盘价 AND 收盘价>=2日前的收盘价 VAR3赋值:1日前的VAR2 AND 收盘价>=1日前的收盘价 AND 收盘价<=2日前的收盘价 VAR4赋值:1日前的VAR3 AND 收盘价<=1日前的收盘价 AND 收盘价>=2日前的收盘价 VAR5赋值:1日前的VAR4 AND 收盘价>=1日前的收盘价 AND 收盘价<=2日前的收盘价 VAR6赋值:1日前的VAR5 AND 收盘价<=1日前的收盘价 AND 收盘价>=2日前的收盘价 VAR7赋值:1日前的VAR6 AND 收盘价>=1日前的收盘价 AND 收盘价<=2日前的收盘价 VAR8赋值:1日前的VAR7 AND 收盘价<=1日前的收盘价 AND 收盘价>=2日前的收盘价 VAR9赋值:1日前的VAR8 AND 收盘价>=1日前的收盘价 AND 收盘价<=2日前的收盘价 VARA赋值:1日前的VAR9 AND 收盘价<=1日前的收盘价 AND 收盘价>=2日前的收盘价 VARB赋值:1日前的VARA AND 收盘价>=1日前的收盘价 AND 收盘价<=2日前的收盘价 VARC赋值:1日前的VARB AND 收盘价<=1日前的收盘价 AND 收盘价>=2日前的收盘价 当满足条件VAR1ORVAR2ORVAR3ORVAR4ORVAR5ORVAR6ORVAR7ORVAR8ORVAR9ORVARAORVARBORVARC时,在收盘价和1日前的收盘价位置之间画柱状线,宽度为3,1不为0则画空心柱.,画红色 VARD赋值:收盘价<1日前的收盘价 AND 收盘价<2日前的收盘价 VARE赋值:1日前的VARD AND 收盘价>=1日前的收盘价 AND 收盘价<=2日前的收盘价 VARF赋值:1日前的VARE AND 收盘价<=1日前的收盘价 AND 收盘价>=2日前的收盘价 VAR10赋值:1日前的VARF AND 收盘价>=1日前的收盘价 AND 收盘价<=2日前的收盘价 VAR11赋值:1日前的VAR10 AND 收盘价<=1日前的收盘价 AND 收盘价>=2日前的收盘价 VAR12赋值:1日前的VAR11 AND 收盘价>=1日前的收盘价 AND 收盘价<=2日前的收盘价 VAR13赋值:1日前的VAR12 AND 收盘价<=1日前的收盘价 AND 收盘价>=2日前的收盘价 VAR14赋值:1日前的VAR13 AND 收盘价>=1日前的收盘价 AND 收盘价<=2日前的收盘价 VAR15赋值:1日前的VAR14 AND 收盘价<=1日前的收盘价 AND 收盘价>=2日前的收盘价 VAR16赋值:1日前的VAR15 AND 收盘价>=1日前的收盘价 AND 收盘价<=2日前的收盘价 VAR17赋值:1日前的VAR16 AND 收盘价<=1日前的收盘价 AND 收盘价>=2日前的收盘价 VAR18赋值:1日前的VAR17 AND 收盘价>=1日前的收盘价 AND 收盘价<=2日前的收盘价 当满足条件VARDORVAREORVARFORVAR10ORVAR11ORVAR12ORVAR13ORVAR14ORVAR15ORVAR16ORVAR17ORVAR18时,在收盘价和1日前的收盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLORFFCC66 VAR19赋值:1日前的VARDORVAREORVARFORVAR10ORVAR11ORVAR12ORVAR13ORVAR14ORVAR15ORVAR16ORVAR17ORVAR18 AND VAR1 当满足条件VAR19时,在1日前的收盘价和2日前的收盘价位置之间画柱状线,宽度为4,1不为0则画空心柱.,画黄色 VAR1A赋值:1日前的VAR1ORVAR2ORVAR3ORVAR4ORVAR5ORVAR6ORVAR7ORVAR8ORVAR9ORVARAORVARBORVARC AND VARD 当满足条件VAR1A时,在1日前的收盘价和2日前的收盘价位置之间画柱状线,宽度为4,2不为0则画空心柱.,COLOR00FF00 当满足条件VAR19时,在1日前的收盘价和2日前的收盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLOR00C8FF 当满足条件VAR19时,在1日前的收盘价和2日前的收盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLOR10ECFF 当满足条件VAR19时,在1日前的收盘价和2日前的收盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,画红色 当满足条件VAR1A时,在1日前的收盘价和2日前的收盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLOR00D900 当满足条件VAR1A时,在1日前的收盘价和2日前的收盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,画蓝色 当满足条件VAR1A时,在1日前的收盘价和2日前的收盘价位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLOR090FF2 输出FG:如果最高价>最高价7%之字转向的前1个波峰值,返回21日内最高价的最高值,否则返回最高价7%之字转向的前1个波峰值,画绿色 输出FD:如果最低价<最低价7%之字转向的前1个波谷值,返回21日内最低价的最低值,否则返回最低价7%之字转向的前1个波谷值,画红色 输出分割0.191[输出名错误]:(FG-FD)*0.191+FD,DOTLINE,画洋红色 输出分割0.382[输出名错误]:(FG-FD)*0.382+FD,DOTLINE,画青色 输出分割0.5[输出名错误]:(FG-FD)*0.5+FD,DOTLINE,画绿色 输出分割0.618[输出名错误]:(FG-FD)*0.618+FD,DOTLINE,画青色 输出分割0.809[输出名错误]:(FG-FD)*0.809+FD,DOTLINE,画黄色 当满足条件是否最后一个周期>0时,在分割0.191的绝对值位置书写文字画洋红色 当满足条件是否最后一个周期>0时,在分割0.382的绝对值位置书写文字画青色 当满足条件是否最后一个周期>0时,在分割0.5的绝对值位置书写文字画绿色 当满足条件是否最后一个周期>0时,在分割0.618的绝对值位置书写文字画青色 当满足条件是否最后一个周期>0时,在分割0.809的绝对值位置书写文字画黄色 当满足条件收阳线时,在横轴0.01纵轴0.9位置书写文字,画红色 当满足条件收阳线时,在横轴1纵轴1位置书写文字,画红色

 来源:程序化99（ WWW.CXH99.COM ）

源码：

N2:=5;
A1:=REF(H,N2)=HHV(H,2*N2+1);
B1:=FILTER(A1,N2);
C1:=BACKSET(B1,N2+1);
HD:= FILTER(C1,N2);
RH:=BACKSET(CURRBARSCOUNT=2,BARSLAST(HD)+1);
SH:=RH>REF(RH,1);
H1:=REF(H ,BARSLAST(SH));
STICKLINE(H1,H1,H1,5,0),LINETHICK2,COLOR00FFFF;
DRAWTEXT(ISLASTBAR,H1*1.005,'近期高点'),COLORFFFF00;
TTP:=(CURRBARSCOUNT=5-4);
DRAWNUMBER(TTP AND H1,H1,H1),COLORFFFF00;
A2:=REF(L,N2)=LLV(L,2*N2+1);
B2:=FILTER(A2,N2);
C2:=BACKSET(B2,N2+1);
LD:=FILTER(C2,N2);
RL:=BACKSET(CURRBARSCOUNT=2,BARSLAST(LD)+1);
SL:=RL>REF(RL,1);
L1:=REF(L ,BARSLAST(SL));
STICKLINE(L1,L1,L1,5,0),COLORFFFF00,LINETHICK5;
DRAWTEXT(ISLASTBAR,L1*1.005,'近期低点'),COLORFFFF00;
DRAWNUMBER(TTP AND L1,L1,L1),COLOR00FFFF;
VAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);
VAR2:=REF(VAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR3:=REF(VAR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR4:=REF(VAR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR5:=REF(VAR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR6:=REF(VAR5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR7:=REF(VAR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR8:=REF(VAR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR9:=REF(VAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARA:=REF(VAR9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VARB:=REF(VARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARC:=REF(VARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
STICKLINE(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR
VAR8 OR VAR9 OR VARA OR VARB OR VARC,CLOSE,REF(CLOSE,1),3,1),COLORRED;{红1}
VARD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);
VARE:=REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARF:=REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR10:=REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR11:=REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR12:=REF(VAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR13:=REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR14:=REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR15:=REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR16:=REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR17:=REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR18:=REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR
VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,CLOSE,REF(CLOSE,1),3,0),COLORFFCC66;
VAR19:=REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR
VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1) AND VAR1;
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),4,1),COLORYELLOW;
VAR1A:=REF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR
VAR8 OR VAR9 OR VARA OR VARB OR VARC,1) AND VARD;
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),4,2),COLOR00FF00{98FD};
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),3,0),COLOR00C8FF;
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),2,0),COLOR10ECFF;
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),2,0),COLORRED;{黄托底}
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),3,0),COLOR00D900;
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),3,0),COLORBLUE;{蓝压顶}
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),0,0),COLOR090FF2;
FG:IF (HIGH>PEAK(1,7,1),HHV(HIGH,21),PEAK(1,7,1)),COLORGREEN;
FD:IF (LOW<TROUGH(2,7,1),LLV(LOW,21),TROUGH(2,7,1)),COLORRED;
分割0.191:(FG-FD)*0.191+FD,DOTLINE,COLORMAGENTA;
分割0.382:(FG-FD)*0.382+FD,DOTLINE,COLORCYAN;
分割0.5:(FG-FD)*0.5+FD,DOTLINE,COLORGREEN;
分割0.618:(FG-FD)*0.618+FD,DOTLINE,COLORCYAN;
分割0.809:(FG-FD)*0.809+FD,DOTLINE,COLORYELLOW;
DRAWTEXT(ISLASTBAR>0 ,ABS(分割0.191),'F0.191')COLORMAGENTA;
DRAWTEXT(ISLASTBAR>0 ,ABS(分割0.382),'F0.382')COLORCYAN;
DRAWTEXT(ISLASTBAR>0 ,ABS(分割0.5),'F0.500')COLORGREEN;
DRAWTEXT(ISLASTBAR>0 ,ABS(分割0.618),'F0.618')COLORCYAN;
DRAWTEXT(ISLASTBAR>0 ,ABS(分割0.809),'F0.809')COLORYELLOW;DRAWTEXT_FIX(C>O,0.01,0.9,0,' WWW.CXH99.COM '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

 

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