 | N:=6000;
高:=REFDATE(HHV(H,N),DATE);
低:=REFDATE(LLV(L,N),DATE);
{7条黄金分割线}
G000:低,COLORRED;
G191:低+(高-低)*0.191,COLORMAGENTA;
G236:低+(高-低)*0.236,COLORGREEN;
G382:低+(高-低)*0.382,COLORWHITE;
G500:低+(高-低)*0.5,COLORYELLOW;
G618:低+(高-低)*0.618,COLORLIRED;
G764:低+(高-低)*0.764,COLORGREEN;
G809:低+(高-低)*0.809,COLORMAGENTA;
G1000:高,COLORRED;
{用DRAWSL画水平射线，只显示最新交易日右侧}
DRAWSL(CURRBARSCOUNT=5,G000,0,0,0),COLORRED;
DRAWSL(CURRBARSCOUNT=5,G191,0,0,0),COLORMAGENTA;
DRAWSL(CURRBARSCOUNT=5,G236,0,0,0),COLORGREEN;
DRAWSL(CURRBARSCOUNT=5,G382,0,0,0),COLORWHITE;
DRAWSL(CURRBARSCOUNT=5,G500,0,0,0),COLORYELLOW;
DRAWSL(CURRBARSCOUNT=5,G618,0,0,0),COLORLIRED;
DRAWSL(CURRBARSCOUNT=5,G764,0,0,0),COLORGREEN;
DRAWSL(CURRBARSCOUNT=5,G809,0,0,0),COLORMAGENTA;
DRAWSL(CURRBARSCOUNT=5,G1000,0,0,0),COLORRED;
{仅在右侧标注数值，不影响坐标范围}
DRAWTEXT(CURRBARSCOUNT=8,G000,' 0'),COLORRED;
DRAWTEXT(CURRBARSCOUNT=8,G191,'0.191'),COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=8,G236,'0.236'),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=8,G382,'0.382'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=8,G500,'0.5'),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=8,G618,'0.618'),COLORLIRED;
DRAWTEXT(CURRBARSCOUNT=8,G764,'0.764'),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=8,G809,'0.809'),COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=8,G1000,' 1'),COLORRED;
| |
