程序化指标-黄金分割线主图指标公式

程序化指标公众号 2021-01-16阅读量：3326

安装后如下图，友情提示（指标只是辅助，不作建议）所有程序均为免费分享。

不会安装点击安装指南步骤操作。

N:=13;DO:=250612;DA:=250826;DB:=251117;DC:=260108;

DRAWTEXT_FIX(1,0.52,0,0,'☆微信公众号：(程序化指标) ☆'),COLORRED;

高:IF (HIGH>PEAK(1,N,1),HHV(HIGH,N),PEAK(1,N,1))LINETHICK2,COLORBLUE;{最高价}

低:IF (LOW<TROUGH(2,N,1),LLV(LOW,N),TROUGH(2,N,1))LINETHICK2,COLORMAGENTA;{最低价}

F0191:(高-低)*0.191+低,DOTLINE,COLORMAGENTA;

F0382:(高-低)*0.382+低,DOTLINE,COLORCYAN;

F0500:(高-低)*0.500+低,DOTLINE,COLORWHITE;

F0618:(高-低)*0.618+低,DOTLINE,COLORCYAN;

F0809:(高-低)*0.809+低,DOTLINE,COLORYELLOW;

{三角背景}

趋势下:DRAWLINE(H=HHV(H,N),H,L=LLV(L,N),L,0)LINETHICK2,COLORGREEN;

SX:=REF(趋势下,1)<趋势下;

SS:=DRAWLINE(SX,趋势下,REF(SX,1),REF(趋势下,1),1);

DRAWBAND(SS,RGB(0,0,160),趋势下,RGB(0,0,0));

趋势上:DRAWLINE(L=LLV(L,N),L,H=HHV(H,N),H,0)LINETHICK2,COLORMAGENTA;

JX:=REF(趋势上,1)>趋势上;

JJ:=DRAWLINE(JX,趋势上,REF(JX,1),REF(趋势上,1),1);

DRAWBAND(JJ,RGB(0,0,0),趋势上,RGB(180,0,180));

DRAWKLINE(HIGH,OPEN,LOW,CLOSE) ;

{大资金流向}

超B:=L2_AMO(0,2)/10000.0;

大B:=L2_AMO(1,2)/10000.0;

中B:=L2_AMO(2,2)/10000.0;

小B:=L2_AMO(3,2)/10000.0;

超S:=L2_AMO(0,3)/10000.0;

大S:=L2_AMO(1,3)/10000.0;

中S:=L2_AMO(2,3)/10000.0;

小S:=L2_AMO(3,3)/10000.0;

大资金流向:(超B+大B)-(超S+大S)COLORYELLOW,NODRAW;

DRAWKLINE(HIGH,OPEN,LOW,CLOSE) ;

STICKLINE(大资金流向<0,O,C,2,0),COLORFF3300;

STICKLINE(大资金流向<0,O,C,1.2,0),COLORFF6600;

STICKLINE(大资金流向<0,O,C,0.5,0),COLORFF9900;

STICKLINE(大资金流向>0,O,C,2,0),COLOR0066FF;

STICKLINE(大资金流向>0,O,C,1.2,0),COLOR099FFF;

STICKLINE(大资金流向>0,O,C,0.5,0),COLOR00FFFF;

TL:=1000000+DA;

TH:=1000000+DB;

TC:=1000000+DC;

TO:=1000000+DO;

AL:=IF(REFDATE(CLOSE,TL)>REFDATE(CLOSE,TH),REFDATE(HIGH,TL),REFDATE(LOW,TL));

BH:=IF(REFDATE(CLOSE,TL)>REFDATE(CLOSE,TH),REFDATE(LOW,TH),REFDATE(HIGH,TH));

CZF:=IF(REFDATE(CLOSE,TL)>REFDATE(CLOSE,TH),REFDATE(HIGH,TC),REFDATE(LOW,TC));

DJB:=IF(REFDATE(CLOSE,TL)>REFDATE(CLOSE,TH),REFDATE(LOW,TO),REFDATE(HIGH,TO));

OP:=BH-AL+CZF;

COP:=0.618*(BH-AL)+CZF;

XOP:=IF((1.618*(BH-AL)+CZF)<0,OP,1.618*(BH-AL)+CZF);

TODAY:=DATE;

STICKLINE(DATE=TC,CZF,XOP,0,-1),COLORYELLOW;

DRAWLINE(DATE=TC,COP,DATE=TODAY,COP,1),DOTLINE,COLORYELLOW;

DRAWLINE(DATE=TC,OP,DATE=TODAY,OP,1),DOTLINE,COLORYELLOW;

DRAWLINE(DATE=TC,XOP,DATE=TODAY,XOP,1),DOTLINE,COLORYELLOW;

DRAWTEXT(DATE=TC,COP*1.003,'(COP=0.618)'),COLORYELLOW;

DRAWTEXT(DATE=TC,OP*1.003,'(OP=1.000)'),COLORYELLOW;

DRAWTEXT(DATE=TC,XOP*1.003,'(XOP=1.618)'),COLORYELLOW;

DRAWNUMBER(DATE=TC,COP,COP),COLORYELLOW;

DRAWNUMBER(DATE=TC,OP,OP),COLORYELLOW;

DRAWNUMBER(DATE=TC,XOP,XOP),COLORYELLOW;

DRAWLINE(DATE=TO,DJB,DATE=TL,AL,0)CIRCLEDOT,COLORGREEN;

DRAWLINE(DATE=TL,AL,DATE=TH,BH,0)LINETHICK2,COLORYELLOW;

DRAWLINE(DATE=TH,BH,DATE=TC,CZF,0)LINETHICK2,COLORCYAN;

{区间涨跌}

向上:=TROUGHBARS(2,N,1);

向下:=PEAKBARS(1,N,1);

涨％:=IF(向上<向下,(C/低-1)*100,REF((C/低-1)*100,向下));

跌％:=IF(向下<向上,(C/高-1)*100,REF((C/高-1)*100,向上));

DRAWNUMBER(向上=0,低*0.99,ABS(高-低)),COLORGREEN;

DRAWNUMBER(向下=0,高*1.02,ABS(高-低)),COLORRED;

ZHSJ:=IF(向下<向上,BACKSET(ISLASTBAR,向下),IF(向上<向下,BACKSET(ISLASTBAR,向上),0));

DRAWTEXT(向下<向上 AND CROSS(ZHSJ,0.1),高*1.004,'本高'),COLORGREEN;

DRAWTEXT(向下<向上 AND CROSS(ZHSJ,0.1),低*1.004,'本低'),COLORRED;

DRAWTEXT(向下<向上 AND CROSS(ZHSJ,0.1),F0191*1.003,'80.9%'),COLORYELLOW;

DRAWTEXT(向下<向上 AND CROSS(ZHSJ,0.1),F0382*1.003,'61.8%'),COLORCYAN;

DRAWTEXT(向下<向上 AND CROSS(ZHSJ,0.1),F0500*1.003,'50.0%'),COLORWHITE;

DRAWTEXT(向下<向上 AND CROSS(ZHSJ,0.1),F0618*1.003,'38.2%'),COLORGREEN;

DRAWTEXT(向下<向上 AND CROSS(ZHSJ,0.1),F0809*1.003,'19.1%'),COLORRED;

DRAWNUMBER(向下<向上 AND CROSS(ZHSJ,0.1),高,高)COLORGREEN;

DRAWNUMBER(向下<向上 AND CROSS(ZHSJ,0.1),F0191,F0191)COLORYELLOW;

DRAWNUMBER(向下<向上 AND CROSS(ZHSJ,0.1),F0382,F0382)COLORCYAN;

DRAWNUMBER(向下<向上 AND CROSS(ZHSJ,0.1),F0500,F0500)COLORGREEN;

DRAWNUMBER(向下<向上 AND CROSS(ZHSJ,0.1),F0618,F0618)COLORCYAN;

DRAWNUMBER(向下<向上 AND CROSS(ZHSJ,0.1),F0809,F0809)COLORMAGENTA;

DRAWNUMBER(向下<向上 AND CROSS(ZHSJ,0.1),低,低)COLORRED;

DRAWTEXT(向下>向上 AND CROSS(ZHSJ,0.1),高*1.003,'前高'),COLORGREEN;

DRAWTEXT(向下>向上 AND CROSS(ZHSJ,0.1),低*1.003,'前低'),COLORRED;

DRAWTEXT(向下>向上 AND CROSS(ZHSJ,0.1),F0191*1.003,'19.1%'),COLORRED;

DRAWTEXT(向下>向上 AND CROSS(ZHSJ,0.1),F0382*1.003,'38.2%'),COLORGREEN;

DRAWTEXT(向下>向上 AND CROSS(ZHSJ,0.1),F0500*1.003,'50.0%'),COLORWHITE;

DRAWTEXT(向下>向上 AND CROSS(ZHSJ,0.1),F0618*1.003,'61.8%'),COLORCYAN;

DRAWTEXT(向下>向上 AND CROSS(ZHSJ,0.1),F0809*1.003,'80.9%'),COLORYELLOW;

DRAWNUMBER(向下>向上 AND CROSS(ZHSJ,0.1),高,高)COLORGREEN;

DRAWNUMBER(向下>向上 AND CROSS(ZHSJ,0.1),F0809,F0809)COLORYELLOW;

DRAWNUMBER(向下>向上 AND CROSS(ZHSJ,0.1),F0618,F0618)COLORCYAN;

DRAWNUMBER(向下>向上 AND CROSS(ZHSJ,0.1),F0500,F0500)COLORGREEN;

DRAWNUMBER(向下>向上 AND CROSS(ZHSJ,0.1),F0382,F0382)COLORCYAN;

DRAWNUMBER(向下>向上 AND CROSS(ZHSJ,0.1),F0191,F0191)COLORMAGENTA;

DRAWNUMBER(向下>向上 AND CROSS(ZHSJ,0.1),低,低)COLORRED;