「翔博精选指标」全息黄金分割（通达信公式 主图 源码 测试图）
2022-05-25原创 编 辑：翔博软件
{全息黄金分割}
高1:=REF(HHV(H,0),0);
低1:=REF(LLV(L,0),0);
最高位置:REFDATE(高1,DATE),COLORLIGRAY;
最低位置:REFDATE(低1,DATE),COLORWHITE;
H0:=高1-(高1-低1)*0.000;
H1:=高1-(高1-低1)*0.191;
H2:=高1-(高1-低1)*0.382;
H3:=高1-(高1-低1)*0.500;
H4:=高1-(高1-低1)*0.618;
H5:=高1-(高1-低1)*0.809;
H10:=高1-(高1-低1)*1.000;
%0.000位置:REFDATE(H1,DATE),COLORWHITE;
%0.191位置:REFDATE(H1,DATE),COLORLIBLUE;
%0.382位置:REFDATE(H2,DATE),COLORLIGREEN;
%0.500位置:REFDATE(H3,DATE),COLORLIRED;
%0.618位置:REFDATE(H4,DATE),COLORLIMAGENTA;
%0.809位置:REFDATE(H5,DATE),COLORYELLOW;
%1.000位置:REFDATE(H10,DATE),COLORLIBLUE;
H11:=高1-(高1-低1)*1.191;
H12:=高1-(高1-低1)*1.382;
H13:=高1-(高1-低1)*1.500;
H14:=高1-(高1-低1)*1.618;
H15:=高1-(高1-低1)*1.809;
H20:=高1-(高1-低1)*2.000;
%1.191位置:REFDATE(H11,DATE),COLORLIBLUE;
%1.382位置:REFDATE(H12,DATE),COLORLIGREEN;
%1.500位置:REFDATE(H13,DATE),COLORLIRED;
%1.618位置:REFDATE(H14,DATE),COLORLIMAGENTA;
%1.809位置:REFDATE(H15,DATE),COLORYELLOW;
%2.000位置:REFDATE(H20,DATE),COLORLIBLUE;
H21:=高1-(高1-低1)*2.191;
H22:=高1-(高1-低1)*2.382;
H23:=高1-(高1-低1)*2.500;
H24:=高1-(高1-低1)*2.618;
H25:=高1-(高1-低1)*2.809;
H26:=高1-(高1-低1)*3.000;
%2.191位置:REFDATE(H21,DATE),COLORLIBLUE;
%2.382位置:REFDATE(H22,DATE),COLORLIGREEN;
%2.500位置:REFDATE(H23,DATE),COLORLIRED;
%2.618位置:REFDATE(H24,DATE),COLORLIMAGENTA;
%2.809位置:REFDATE(H25,DATE),COLORYELLOW;
%3.000位置:REFDATE(H26,DATE),COLORYELLOW;
LLP:=L=CONST(LLV(L,0));
TTP:=BARSLAST(LLP)+1;
STICKLINE((TTP=1),HHV(H,0),LLV(L,0),4,1),COLORMAGENTA;
LLP1:=L=CONST(LLV(L,250));
TTP1:=BARSLAST(LLP1)+1;
STICKLINE((TTP1=1),HHV(H,0),LLV(L,0),4,1),COLORMAGENTA;
LLP2:=L=CONST(LLV(L,150));
TTP2:=BARSLAST(LLP2)+1;
STICKLINE((TTP2=1),HHV(H,0),LLV(L,0),4,1),COLORMAGENTA;
LLP3:=L=CONST(LLV(L,100));
TTP3:=BARSLAST(LLP3)+1;
STICKLINE((TTP3=1),HHV(H,0),LLV(L,0),4,1),COLORMAGENTA;
LLP4:=L=CONST(LLV(L,50));
TTP4:=BARSLAST(LLP4)+1;
STICKLINE((TTP4=1),HHV(H,0),LLV(L,0),4,1),COLORMAGENTA;
LLP5:=L=CONST(LLV(L,25));
TTP5:=BARSLAST(LLP5)+1;
STICKLINE((TTP5=1),HHV(H,0),LLV(L,0),4,1),COLORMAGENTA;
LLP6:=L=CONST(LLV(L,10));
TTP6:=BARSLAST(LLP6)+1;
STICKLINE((TTP6=1),HHV(H,0),LLV(L,0),4,1),COLORMAGENTA;
{年月日星期}
DA:=YEAR AND MONTH AND DAY;
AA1:=STRCAT(CON2STR(YEAR,0),'年');
AA2:=STRCAT(CON2STR(MONTH,0),'月');
AA3:=STRCAT(CON2STR(DAY,0),'日');
AA4:=STRCAT('【',IF(WEEKDAY=1,'星期一',IF(WEEKDAY=2,'星期二',
IF(WEEKDAY=3,'星期三',IF(WEEKDAY=4,'星期四',IF
(WEEKDAY=5,'星期五',IF(WEEKDAY=6,'星期六','星期日')))))));
AA:=STRCAT(STRCAT(STRCAT(AA1,AA2),STRCAT(AA3,AA4)),'】');
DRAWTEXT_FIX(DA,0.84,0.01,0,AA),COLORWHITE;
DRAWKLINE(H,O,L,C);
B111:=MONTH!=REF(MONTH,1);
Y111:=VARCAT(VAR2STR(MONTH,0),' 月 ');
DRAWTEXT(B111,LOW,Y111),COLORYELLOW;
STICKLINE(B111=1,CONST(HHV(H,0)),CONST(LLV(L,0)),0,-1),COLORWHITE;
