咨詢內容：

請老師修改

{參數：T? ?1? 1000? 180
?設置：T1? 1? 500? ?10}
DRAWGBK(C>0, RGB(01,01,01),RGB(01,01,01),0,0,1);{黑色}
DRAWKLINE(H,O,L,C);





{黃金分割}
HH:=REF(HHV(H,T),T1);
LL:=REF(LLV(L,T),T1);
H1:=HH-(HH-LL)*0.191;
H2:=HH-(HH-LL)*0.382;
H3:=HH-(HH-LL)*0.5;
H4:=HH-(HH-LL)*0.618;
H5:=HH-(HH-LL)*0.764;
H6:=HH-(HH-LL)*0.809;
H7:=HH-(HH-LL)*0.236;
頂1:=HH+(HH-LL)*0.191;
頂2:=HH+(HH-LL)*0.382;
頂3:=HH+(HH-LL)*0.618;
底1:=IF((HH-LL)<LL,LL-(HH-LL)*0.191,LL-LL*0.191);
底2:=IF((HH-LL)<LL,LL-(HH-LL)*0.382,LL-LL*0.382);
底3:=IF((HH-LL)<LL,LL-(HH-LL)*0.618,LL-LL*0.618);
高:=IF(CURRBARSCOUNT<=T+T1 AND CURRBARSCOUNT>T1,REFDATE(HH,DATE),DRAWNULL);
一:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H1,DATE),DRAWNULL);
二:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H2,DATE),DRAWNULL);
三:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H3,DATE),DRAWNULL);
四:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H4,DATE),DRAWNULL);
五:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H5,DATE),DRAWNULL);
六:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H6,DATE),DRAWNULL);
七:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H7,DATE),DRAWNULL);
低:=IF(CURRBARSCOUNT<=T+T1 AND CURRBARSCOUNT>T1,REFDATE(LL,DATE),DRAWNULL);
NOTEXT1:高,COLOR007799;
{NOTEXT2:IF(GOQI,DRAWNULL,一),DOTLINE,COLOR777777;
NOTEXT3:IF(GOQI,DRAWNULL,二),DOTLINE,COLOR777777;
NOTEXT4:IF(GOQI,DRAWNULL,三),DOTLINE,COLOR777777;
NOTEXT5:IF(GOQI,DRAWNULL,四),DOTLINE,COLOR777777;
NOTEXT6:IF(GOQI,DRAWNULL,五),DOTLINE,COLOR777777;
NOTEXT7:IF(GOQI,DRAWNULL,六),DOTLINE,COLOR777777;}
AA:REFDATE(一,DATE),DOTLINE,COLOR555555;
BB:REFDATE(二,DATE),DOTLINE,COLOR005858;
CC:REFDATE(三,DATE),DOTLINE,COLOR777777;
DD:REFDATE(四,DATE),DOTLINE,COLOR005858;
EE:REFDATE(五,DATE),DOTLINE,COLOR555555;
FF:REFDATE(六,DATE),DOTLINE,COLOR555555;
GG:REFDATE(七,DATE),DOTLINE,COLOR555555;
NOTEXT8:低,COLOR668800;
TT:=INTPART(T*0.5)+T1;
TT1:=(CURRBARSCOUNT=TT);
TT2:=(CURRBARSCOUNT=TT-32);
TT3:=(CURRBARSCOUNT=TT-40);
DRAWTEXT(TT1 AND 高,高-(高-低)*0.025,STRCAT('? 【高點】: ',CON2STR(HH,2))),COLOR007799;
DRAWTEXT(TT1 AND 一,一+(高-低)*0.020,STRCAT('191 (809): ',CON2STR(H1,2))),COLOR888888;
DRAWTEXT(TT1 AND 二,二+(高-低)*0.020,STRCAT('382 (618): ',CON2STR(H2,2))),COLOR008888;
DRAWTEXT(TT1 AND 三,三+(高-低)*0.020,STRCAT('? 【中點】: ',CON2STR(H3,2))),COLOR000088;
DRAWTEXT(TT1 AND 四,四+(高-低)*0.020,STRCAT('618 (382): ',CON2STR(H4,2))),COLOR008888;
DRAWTEXT(TT1 AND 五,五+(高-低)*0.020,STRCAT('764 (236): ',CON2STR(H5,2))),COLOR888888;
DRAWTEXT(TT1 AND 六,六+(高-低)*0.020,STRCAT('809 (191): ',CON2STR(H6,2))),COLOR888888;
DRAWTEXT(TT1 AND 七,七+(高-低)*0.020,STRCAT('236 (764): ',CON2STR(H7,2))),COLOR888888;
DRAWTEXT(TT1 AND 低,低+(高-低)*0.020,STRCAT('? 【低點】: ',CON2STR(LL,2))),COLOR668800;
DRAWTEXT(TT3 AND 高,高+(高-低)*0.040,''),COLOR007799;{頂距};

DRAWTEXT_FIX(1,0.68,0.02,0,'【注意：高低點的位置是否找對？不對一定要調整參數找準！】'),COLOR0000FF;

?

?來源:程序化99網（ www.kzuj.com.cn ）

博易技術人員： T:=5;
T1:=1;
CURRBARSCOUNT:=DATACOUNT-BARPOS-1;
HH:=REF(HHV(H,T),T1);
LL:=REF(LLV(L,T),T1);
H1:=HH-(HH-LL)*0.191;
H2:=HH-(HH-LL)*0.382;
H3:=HH-(HH-LL)*0.5;
H4:=HH-(HH-LL)*0.618;
H5:=HH-(HH-LL)*0.764;
H6:=HH-(HH-LL)*0.809;
H7:=HH-(HH-LL)*0.236;
頂1:=HH+(HH-LL)*0.191;
頂2:=HH+(HH-LL)*0.382;
頂3:=HH+(HH-LL)*0.618;
底1:=IF((HH-LL)<LL,LL-(HH-LL)*0.191,LL-LL*0.191);
底2:=IF((HH-LL)<LL,LL-(HH-LL)*0.382,LL-LL*0.382);
底3:=IF((HH-LL)<LL,LL-(HH-LL)*0.618,LL-LL*0.618);
高:=IF(CURRBARSCOUNT<=T+T1 AND CURRBARSCOUNT>T1,REFDATE(HH,DATE),DRAWNULL);
一:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H1,DATE),DRAWNULL);
二:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H2,DATE),DRAWNULL);
三:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H3,DATE),DRAWNULL);
四:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H4,DATE),DRAWNULL);
五:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H5,DATE),DRAWNULL);
六:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H6,DATE),DRAWNULL);
七:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H7,DATE),DRAWNULL);
低:=IF(CURRBARSCOUNT<=T+T1 AND CURRBARSCOUNT>T1,REFDATE(LL,DATE),DRAWNULL);
NOTEXT1:高,COLOR007799;
{NOTEXT2:IF(GOQI,DRAWNULL,一),DOTLINE,COLOR777777;
NOTEXT3:IF(GOQI,DRAWNULL,二),DOTLINE,COLOR777777;
NOTEXT4:IF(GOQI,DRAWNULL,三),DOTLINE,COLOR777777;
NOTEXT5:IF(GOQI,DRAWNULL,四),DOTLINE,COLOR777777;
NOTEXT6:IF(GOQI,DRAWNULL,五),DOTLINE,COLOR777777;
NOTEXT7:IF(GOQI,DRAWNULL,六),DOTLINE,COLOR777777;}
AA:REFDATE(一,DATE),POINTDOT,COLOR555555;
BB:REFDATE(二,DATE),POINTDOT,COLOR005858;
CC:REFDATE(三,DATE),POINTDOT,COLOR777777;
DD:REFDATE(四,DATE),POINTDOT,COLOR005858;
EE:REFDATE(五,DATE),POINTDOT,COLOR555555;
FF:REFDATE(六,DATE),POINTDOT,COLOR555555;
GG:REFDATE(七,DATE),POINTDOT,COLOR555555;
NOTEXT8:低,COLOR668800;
TT:=INTPART(T*0.5)+T1;
TT1:=(CURRBARSCOUNT=TT);
TT2:=(CURRBARSCOUNT=TT-32);
TT3:=(CURRBARSCOUNT=TT-40);
DRAWTEXT(TT1 AND 高,高-(高-低)*0.025,'? 【高點】: '+NUMTOSTR(HH,2)),COLOR007799;
DRAWTEXT(TT1 AND 一,一+(高-低)*0.020,'191 (809): ',NUMTOSTR(H1,2)),COLOR007799;
DRAWTEXT(TT1 AND 二,二+(高-低)*0.020,'382 (618): ',NUMTOSTR(H2,2)),COLOR007799;
DRAWTEXT(TT1 AND 三,三+(高-低)*0.020,'? 【中點】: ',NUMTOSTR(H3,2)),COLOR007799;
DRAWTEXT(TT1 AND 四,四+(高-低)*0.020,'618 (382): ',NUMTOSTR(H4,2)),COLOR007799;
DRAWTEXT(TT1 AND 五,五+(高-低)*0.020,'764 (236): ',NUMTOSTR(H5,2)),COLOR007799;
DRAWTEXT(TT1 AND 六,六+(高-低)*0.020,'809 (191): ',NUMTOSTR(H6,2)),COLOR007799;
DRAWTEXT(TT1 AND 七,七+(高-低)*0.020,'236 (764): ',NUMTOSTR(H7,2)),COLOR007799;
DRAWTEXT(TT1 AND 低,低+(高-低)*0.020,'? 【低點】: ',NUMTOSTR(LL,2)),COLOR007799;
DRAWTEXT(TT3 AND 高,高+(高-低)*0.040,''),COLOR007799;{頂距}; 謝老師。 來源 程序化久久網