大智慧先胜黄金分割主图指标

源码

{背景设置}
DRAWGBKLAST(C>0,STRIP(RGB(90,90,90),RGB(0,0,0),0));

{黄金分割}
x:=BARPOS-hhv(if(DISPSTATUS=1,BARPOS,0),0)+1;
hh:=hhv(h,x);  ll:=llv(l,x);   hl:=hh-ll;
a80:=.809*hl+ll;a61:=.618*hl+ll;a38:=.382*hl+ll;
a19:=.191*hl+ll;   a5:=.5*hl+ll;
a0:=.001*hl+ll;   a100:=1.00*hl+ll;
DRAWTEXTREL(0,0,'最高￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣' ),COLORRED;
DRAWTEXTREL(0,900+76,'最低.................................................................................................................................'),color00ff00;
DRAWTEXTREL(0,0.50*(900+76),'0.5..................................................................................................................................'),color0099ff;
DRAWTEXTREL(0,0.191*(900+76),'0.809................................................................................................................................'),COLORYELLOW;
DRAWTEXTREL(0,0.382*(900+76),'0.618................................................................................................................................'),COLORYELLOW;
DRAWTEXTREL(0,0.618*(900+76),'0.382................................................................................................................................'),COLORYELLOW;
DRAWTEXTREL(0,0.809*(900+76),'0.191................................................................................................................................'),COLORYELLOW;
DRAWTEXTREL(999,0.809*(900+76),NUMTOSTR(a19)),VALIGN2,ALIGN2,colorwhite;
DRAWTEXTREL(999,0.618*(900+76),NUMTOSTR(a38)),VALIGN2,ALIGN2,colorwhite;
DRAWTEXTREL(999,0.5*(900+76),NUMTOSTR(a5)),VALIGN2,ALIGN2,color0099ff;
DRAWTEXTREL(999,0.382*(900+76),NUMTOSTR(a61)),VALIGN2,ALIGN2,colorwhite;
DRAWTEXTREL(999,0.191*(900+76),NUMTOSTR(a80)),VALIGN2,ALIGN2,colorwhite;
DRAWTEXTREL(999,1.00*(900+76),NUMTOSTR(a0)),VALIGN2,ALIGN2,colorwhite;
DRAWTEXTREL(999,0.001*(900+76),NUMTOSTR(a100)),VALIGN0,ALIGN2,colorwhite;

主线:(WMA(CLOSE,5) * 0.98),LINETHICK2,COLORRED;
主线1:WMA(主线,2),color00ff00,linethick2;
DRAWICON((主线 > REF(主线,1)),主线,10);

VAR18:=(EMA(CLOSE,3) - EMA(CLOSE,6)) + (EMA(CLOSE,6) - EMA(CLOSE,12))*100;
VAR28:=EMA(VAR18,3); 
VAR58:=CROSS(VAR18,VAR28);
VAR36:=CROSS(VAR28,VAR18);
STICKLINE(VAR36,OPEN,CLOSE,1.5,0),colorFFFFFF;
STICKLINE(VAR58,OPEN,CLOSE,8,0),COLORRED;
STICKLINE(VAR58,OPEN,(CLOSE - ((CLOSE - OPEN) * 0.33)),8,0),COLORYELLOW;
STICKLINE(VAR58,OPEN,(CLOSE - ((CLOSE - OPEN) * 0.66)),8,0),LINETHICK2,colorFF00FF;
拐点:=MA(CLOSE,4);
拐点1:=MA(CLOSE,4);
GD1:=(REF((COUNT((拐点 <= REF(拐点,1)),5) = 5),1) AND (拐点 > REF(拐点,1)));
GD2:=(REF((COUNT((拐点1 <= REF(拐点1,1)),5) = 5),1) AND (拐点1 > REF(拐点1,1))); 
DRAWTEXT(GD1,L*0.985,'▲'),ALIGN1,VALIGN0,Colorff00ff;
DRAWTEXT(GD1,L*0.990,'￣'),ALIGN1,VALIGN0,Colorff00ff;
KS:=(((CLOSE - SMA(CLOSE,13,1)) / SMA(CLOSE,13,1)) * (0 - 100));
RKS:=REF(KS,1);
MLS:=((((RKS / KS) > 1.23) AND (RKS > 13)) AND ((CLOSE / REF(CLOSE,1)) > 1.03));
开:=OPEN;
高:=HIGH;
低:=LOW;
收:=CLOSE;
超跌:STICKLINE((KS > 13),高,低,0,1),LINETHICK2,colorFFFFFF;
反弹:STICKLINE((MLS = 1),高,低,0,1),LINETHICK2,colorFF00FF;
STICKLINE((KS > 13),开,收,8,1),LINETHICK2,colorFFFFFF;
STICKLINE((MLS = 1),开,收,8,1),LINETHICK2,colorFF00FF; 
VARk2:=((REF(HIGH,1) + REF(LOW,1)) / 2);
VARk3:=(MA(CLOSE,27) + (2 * STD(CLOSE,27))); 
DRAWTEXT(CROSS(VARk2,VARk3),H*