显示动态黄金分割+成交量+撑压位，附千股千评（主图指标公式、原码、演示图）[通达信公式]

相关标签:

原理解析：
E赋值:(最高价+最低价+开盘价+2*收盘价)/5 AAA赋值:2*E-最低价,NODRAW AB赋值:2*E-最高价,NODRAW ACC赋值:E+(最高价-最低价),NODRAW ADD赋值:E-(最高价-最低价),NODRAW 输出今阻力:1日前的AAA,画白色,NODRAW 输出今支撑:1日前的AB,画黄色,NODRAW 输出明阻力:AAA,画青色,NODRAW 输出明支撑:AB,画洋红色,NODRAW 输出明突破:ACC,画绿色,NODRAW 输出明反转:ADD,画淡青色,NODRAW 输出指导线:收盘价的5日简单移动平均 VAR1赋值:N日内最低价的最低值 VAR2赋值:N日内最高价的最高值 VAR3赋值:VAR2-VAR1 输出H191: VAR3*0.191+VAR1,DOTLINE 输出H382: VAR3*0.382+VAR1,DOTLINE 输出H050: VAR3*0.5+VAR1,DOTLINE 输出H618: VAR3*0.618+VAR1,DOTLINE 输出H809: VAR3*0.809+VAR1,DOTLINE 输出低点: VAR1,DOTLINE 输出高点: VAR2,DOTLINE AA1赋值:成交额(元)/成交量(手) BB1赋值:最低价<AA1*0.9 CC1赋值:(收盘价-1日前的收盘价)/1日前的收盘价*100>1.2 DD1赋值:最低价<收盘价的5日简单移动平均*0.921 EE1赋值:成交量(手)<成交量(手)的5日简单移动平均*1.5 FF1赋值:BB1 AND CC1 AND DD1 AND EE1 当满足条件FF1时,在(最低价*0.96)位置书写文字,COLOR00FFFF MAXV赋值:21日内成交量(手)的最高值的最后一日取值设为常数 MAXS赋值:21日内最高价的最高值的最后一日取值设为常数 BS赋值:MAXV/MAXS VOLUME赋值:成交量(手)/BS*0.10 ORIGIN赋值:0日内最低价的最低值的最后一日取值设为常数-0.5*0日内VOLUME的最高值的最后一日取值设为常数, 当满足条件收盘价>=开盘价时,在ORIGIN和ORIGIN+VOLUME位置之间画柱状线,宽度为0.2,0不为0则画空心柱.,画红色 当满足条件收阴线时,在ORIGIN和ORIGIN+VOLUME位置之间画柱状线,宽度为0.2,0不为0则画空心柱.,画绿色 输出分析家公式网HTTP://WWW.cxh99.COM整理:1日前的30日内收盘价的最高值的2日简单移动平均,画红色 输出支撑:1日前的30日内收盘价的最低值的2日简单移动平均,画红色 当满足条件1时,在横轴0纵轴0.01位置书写文字,COLOR0000FF

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

源码：

E:=(HIGH+LOW+OPEN+2*CLOSE)/5;
AAA:=2*E-LOW,NODRAW;
AB:=2*E-HIGH,NODRAW;
ACC:=E+(HIGH-LOW),NODRAW;
ADD:=E-(HIGH-LOW),NODRAW;
今阻力:REF(AAA,1),COLORWHITE,NODRAW;
今支撑:REF(AB,1),COLORYELLOW,NODRAW;
明阻力:AAA,COLORCYAN,NODRAW;
明支撑:AB,COLORMAGENTA,NODRAW;
明突破:ACC,COLORGREEN,NODRAW;
明反转:ADD,COLORLICYAN,NODRAW;{动态黄金分割}
{N 1 1000 120}指导线:MA(CLOSE,5);VAR1:=LLV(LOW,N);VAR2:=HHV(HIGH,N);VAR3:=VAR2-VAR1;H191: VAR3*0.191+VAR1,DOTLINE;H382: VAR3*0.382+VAR1,DOTLINE;H050: VAR3*0.5+VAR1,DOTLINE;H618: VAR3*0.618+VAR1,DOTLINE;H809: VAR3*0.809+VAR1,DOTLINE;低点: VAR1,DOTLINE;高点: VAR2,DOTLINE;AA1:=AMOUNT/V;BB1:=L<AA1*0.9;CC1:=(C-REF(C,1))/REF(C,1)*100>1.2;DD1:=L<MA(C,5)*0.921;EE1:=V<MA(V,5)*1.5;FF1:=BB1 AND CC1 AND DD1 AND EE1;DRAWTEXT(FF1,(LOW* 0.96),'短进'),COLOR00FFFF;{成交量}
MAXV:=CONST(HHV(VOL,21));
MAXS:=CONST(HHV(HIGH,21));
BS:=MAXV/MAXS;
VOLUME:=VOL/BS*0.10;
ORIGIN:=CONST(LLV(LOW,0))-CONST(0.5*HHV(VOLUME,0)),;
STICKLINE(CLOSE>=OPEN,ORIGIN,ORIGIN+VOLUME,0.2,0),COLORRED;
STICKLINE(CLOSE<OPEN,ORIGIN,ORIGIN+VOLUME,0.2,0),COLORGREEN;
{压力+支撑}
压力:MA(REF(HHV(C,30),1),2),COLORRED;
支撑:MA(REF(LLV(C,30),1),2),COLORRED;
{千股千评}
DRAWTEXT_FIX(1,0,0.01,0,STRCAT('千股千评: ',EXTERNSTR(0,1))),COLOR0000FF;

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