通达信指标公式源码黄金分割趋势.doc

参数:N(33010),M(1999150)网1:=EXPMA(C,5),COLORYELLOW;网2:=EXPMA(网1,2);网3:=EXPMA(网2,2);网12:EXPMA(CLOSE,12),RAY,HICK3;网33:EXPMA(CLOSE,33),COLORFF00FF,HICK4;TJ1A:IF(网1>网2,网1,网2),COLORLICYAN;TJ2A:IF(网1>网3,网1,网3),REEN;TJ3A:网1,COLORYELLOW,HICK2;{QS}网A:=EXPMA(CLOSE,5),COLORWHITE;网B:=EXPMA(CLOSE,33),COLORFF00FF,HICK3;IF(网B<REF(网B,1),网B,DRAWNULL),COLOR00FF00,HICK3;IF(网B<REF(网A,1),网A,DRAWNULL),COLORWHITE,HICK1;IF(网1<REF(网B,1),网A,DRAWNULL),REEN,HICK1; {黄金分割线}顶1:=REFDATE(HHV(H,M),DATE); 底1:=REFDATE(LLV(L,M),DATE);H1:=顶1-(顶1-底1)*;H2:=顶1-(顶1-底1)*;H3:=顶1-(顶1-底1)*;H4:=顶1-(顶1-底1)*;H5:=顶1-(顶1-底1)*;顶部:REFDATE(顶1,DATE),COLOR666666;%:REFDATE(H1,DATE),COLOR666666;%:REFDATE(H2,DATE),COLOR666666;%50:REFDATE(H3,DATE),COLOR666666;%:REFDATE(H4,DATE),COLOR666666;%:REFDATE(H5,DATE),COLOR666666;底部:REFDATE(底1,DATE),COLOR666666;DRAWTEXT(ISLASTBAR,顶部,'顶部'),REEN;DRAWTEXT(ISLASTBAR,%,'%'),COLORMAGENTA;DRAWTEXT(ISLASTBAR,%,'%'),COLORYELLOW;DRAWTEXT(ISLASTBAR,%50,'50%'),COLORWHITE;DRAWTEXT(ISLASTBAR,%,'%'),COLORYELLOW;DRAWTEXT(ISLASTBAR,%,'%'),COLORMAGENTA;DRAWTEXT(ISLASTBAR,底部,'底部'),COLORRED;  {BS标志}DRAWICON((ZIG(3,5)>REF(ZIG(3,5),1))AND(REF(ZIG(3,5),1)<=REF(ZIG(3,5),2))AND(REF(ZIG(3,5),2)<=REF(ZIG(3,5),3)),LOW*,7);DRAWICON((ZIG(3,5)<REF(ZIG(3,5),1))AND(REF(ZIG(3,5),1)>=REF(ZIG(3,5),2))AND(REF(ZIG(3,5),2)>=REF(ZIG(3,5),3)),HIGH*,8);{箱体}{箱顶: