黄金分割线主图叠加公式源码

admin

{公式名称: 黄金分割线
公式描述: 根据杨老师思路编写
无参数
公式类型: 技术指标公式-其他类型
画线方法: 主图叠加
公式版本: 8
显示小数: 缺省位数
坐标线位置: 自动
额外Y轴分界: 无

参数精灵:无
用法注释:无
公式源码:}
X_1:=1160429;
X_2:=IF(DATE<=X_1 AND DATE>1160101,1,0);
MA20:MA(CLOSE,20),COLORYELLOW;
X_3:=BARSLASTCOUNT(CLOSE<MA20);
X_4:=BACKSET((X_3>=4)*X_3,X_3);
X_5:=BARSLASTCOUNT(CLOSE>MA20);
X_6:=BACKSET((X_5>=4)*X_5,X_5);
X_7:=BARSLASTCOUNT(NOT(X_4 OR X_6));
X_8:=BARSLASTCOUNT(REF(X_4>0,X_7));
X_9:=BARSLASTCOUNT(REF(X_6>0,X_7));
X_10:=FILTERX(LLV(LOW,X_8)=LOW,X_8);
X_11:=FILTERX(HHV(HIGH,X_9)=HIGH,X_9);
X_12:=REF(HIGH,BARSLAST(X_11));
X_13:=REF(LOW,BARSLAST(X_10));
X_14:=BARSLAST(X_8=1);
X_15:=REF(X_12,BARSLAST(X_8))*X_2;
X_16:=REF(X_13,X_14)*X_2;
X_17:=((X_15-X_16)*0.236+X_16)*X_2;
X_18:=((X_15-X_16)*0.382+X_16)*X_2;
X_19:=((X_15-X_16)*0.5+X_16)*X_2;
X_20:=((X_15-X_16)*0.618+X_16)*X_2;
X_21:=((X_15-X_16)*0.809+X_16)*X_2;
X_22:=((X_15-X_16)*1.382+X_16)*X_2;
X_23:=((X_15-X_16)*1.618+X_16)*X_2;
X_24:=((X_15-X_16)*2+X_16)*X_2;
顶点A:REFDATE(X_15,DATE),COLORYELLOW;
低点A:REFDATE(X_16,DATE),COLORYELLOW;
%23.6:REFDATE(X_17,DATE),DOTLINE,COLORYELLOW;
%38.2:REFDATE(X_18,DATE),DOTLINE,COLORYELLOW;
%50:REFDATE(X_19,DATE),DOTLINE,COLORYELLOW;
%61.8:REFDATE(X_20,DATE),COLORYELLOW;
%80.9:REFDATE(X_21,DATE),DOTLINE,COLORYELLOW;
%138.2:REFDATE(X_22,DATE),DOTLINE,COLORYELLOW;
%161.8:REFDATE(X_23,DATE),COLORYELLOW;
%200:REFDATE(X_24,DATE),COLORYELLOW;
DRAWTEXT(ISLASTBAR,顶点A,8)*X_2,COLORWHITE;
DRAWTEXT(ISLASTBAR,%23.6,9)*X_2,COLORYELLOW;
DRAWTEXT(ISLASTBAR,%38.2,10)*X_2,COLORMAGENTA;
DRAWTEXT(ISLASTBAR,%50,11),COLORRED;
DRAWTEXT(ISLASTBAR,%61.8,12)*X_2,COLORMAGENTA;
DRAWTEXT(ISLASTBAR,%80.9,13)*X_2,COLORYELLOW;
DRAWTEXT(ISLASTBAR,低点A,14)*X_2,COLORWHITE;
DRAWTEXT(ISLASTBAR,%138.2,15)*X_2,COLORMAGENTA;
DRAWTEXT(ISLASTBAR,%161.8,16)*X_2,COLORMAGENTA;
DRAWTEXT(ISLASTBAR,%200,17)*X_2,COLORMAGENTA;
DRAWTEXT(CROSS(DATE,X_1) OR DATE=X_1,BARSLAST(X_10=1)=1,18),COLORYELLOW;