写一个自动的黄金分割比例：0.382、0．5、1.618

写一个自动的黄金分割比例：0.382、0.5、0.618、0.809

N:=6000;

高:=REFDATE(HHV(H,N),DATE);

低:=REFDATE(LLV(L,N),DATE);

H1:=高-(高-低)*0.382;

H2:=高-(高-低)*0.5;

H3:=高-(高-低)*0.618;

H4:=高-(高-低)*0.809;

DRAWTEXT(CURRBARSCOUNT=10,H1,'0.809');

DRAWTEXT(CURRBARSCOUNT=10,H2,' 0.618');

DRAWTEXT(CURRBARSCOUNT=10,H3,' 0.500');

DRAWTEXT(CURRBARSCOUNT=10,H4,' 0.382');

DRAWTEXT(CURRBARSCOUNT=50,H1,CON2STR(H1,2));

DRAWTEXT(CURRBARSCOUNT=50,H2,CON2STR(H2,2));

DRAWTEXT(CURRBARSCOUNT=50,H3,CON2STR(H3,2));

DRAWTEXT(CURRBARSCOUNT=50,H4,CON2STR(H4,2));

HDAY:=800;LDAY:=800;调点:=3;角度:=100;之字幅度:=25;横向调节:=1;

CURR:=CURRBARSCOUNT;

TCH:=CONST(FINDHIGH(H,0,HDAY*10,1));

GTT:=CONST(BARSLAST(TCH=H))+1;

SX跌H:=CONST(IF(GTT=1,H,REF(H,GTT-1)));

BCL:=CONST(FINDLOW(L,0,LDAY*10,1));

DTT:=CONST(BARSLAST(BCL=L))+1;

SX涨L:=CONST(IF(DTT=1,L,REF(L,DTT-1)));

涨点:=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(L=SX涨L)+1));

跌点:=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(H=SX跌H)+1));

最低:=IF(调点=1,跌点,IF(调点=2,涨点,IF(调点=3,涨点,跌点)));

L斜率:=角度/IF(C

最高:=IF(调点=1,跌点,IF(调点=2,涨点,IF(调点=3,跌点,涨点)));

H斜率:=角度/IF(C

IM68:=((SX跌H-SX涨L)/6-(SX跌H-SX涨L)/8);

GH跌X:=SX跌H+(SX跌H-SX涨L)/8;

DL涨X:=SX涨L-(SX跌H-SX涨L)/8;

GTHT:=IF(DTT>GTT,DTT,GTT);

{黄金分割}

X191:IF(CURR<=GTHT,SX跌H-(SX跌H-SX涨L)*0.382,DRAWNULL),DOTLINE,COLOR556600;

DRAWTEXT(CURR=GTHT,(X191)*1.001,STRCAT(' 0.382 ',CON2STR(X191,2)));

X236:IF(CURR<=GTHT,SX跌H-(SX跌H-SX涨L)*0.5,DRAWNULL),DOTLINE,COLOR556600;

DRAWTEXT(CURR=GTHT,(X236)*1.001,STRCAT(' 0.5 ',CON2STR(X236,2)));

X382:IF(CURR<=GTHT,SX跌H-(SX跌H-SX涨L)*0.618,DRAWNULL),DOTLINE,COLOR556600;

DRAWTEXT(CURR=GTHT,(X382)*1.001,STRCAT(' 0.618 ',CON2STR(X382,2)));

X500:IF(CURR<=GTHT,SX跌H-(SX跌H-SX涨L)*0.809,DRAWNULL),DOTLINE,COLOR556600;

DRAWTEXT(CURR=GTHT,(X500)*1.001,STRCAT(' 0.809 ',CON2STR(X500,2)));