[文华财经指标]新多空密码线趋势主图公式
注意：本指标源码用于文华财经赢顺wh6、睿期wh7软件。
指标源码
ZBGS1:=EMA(EMA(C,13),13);
ZBGS2:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ZBGS3:=MA(ZBGS2,18);
ZBGS4:=ZBGS1+1.618*ZBGS3,COLOR454545;
ZBGS5:=ZBGS1-1.618*ZBGS3,COLOR454545;
ZBGS6:=IF(CROSS(EMA(C,2),REF(ZBGS4,1)),1,IF(CROSS(REF(ZBGS5,1),EMA(C,2)),-1,0));
ZBGS7:=IF(ZBGS6=0 && EMA(C,2)>REF(ZBGS4,1),1,IF(ZBGS6=0 && EMA(C,2)< REF(ZBGS5,1),-1,ZBGS6));
ZBGS8:=REF(ZBGS7,BARSLAST(ZBGS7));
ZBGS9:=ZBGS8=1,COLOR0000BB,NODRAW;
ZBGS10:=ZBGS8=-1,COLOR00BB00,NODRAW;
FILLRGN(C>0,ZBGS4,ZBGS5,COLOR003333);
FILLRGN(ZBGS9,ZBGS4,ZBGS5,COLOR000033);
FILLRGN(ZBGS10,ZBGS4,ZBGS5,COLOR333300);
ZBGS11:=ZBGS4,COLOR595900;
ZBGS12:=ZBGS5,COLOR000059;
ZBGS13:=REF(CLOSE,1);
ZBGS14:=SMA(MAX(CLOSE-ZBGS13,0),7,1)/SMA(ABS(CLOSE-ZBGS13),7,1)*100,NODRAW;
ZBGS15:=IF(CROSS(ZBGS14>65,0.9),1,IF(CROSS(45>ZBGS14,0.9),-1,0));
ZBGS16:=REF(ZBGS15,BARSLAST(ZBGS15));
ZBGS17:=IF(ZBGS16=1,45,IF(ZBGS16=-1,65,0)),NODRAW;
IF(ZBGS14>=ZBGS17,ZBGS1,NULL),CIRCLEDOT,COLORRED;
IF(ZBGS14<=ZBGS17,ZBGS1,NULL),CIRCLEDOT,COLORCYAN;
ZBGS18:=OPEN-CLOSE;
DRAWLINE(ZBGS9,H,C>0,C,RGB(170,0,0));
DRAWLINE(ZBGS9, O ,C>0,L,RGB(170,0,0));
DRAWLINE(ZBGS10,H,C>0,C,COLORFFFF00);
DRAWLINE(ZBGS10, O ,C>0,L,COLORFFFF00);
STICKLINE(ZBGS18<=0 && ZBGS9,C, O ,3.1,1),RGB(170,0,0);
STICKLINE(ZBGS18>0 && ZBGS9,C, O ,3.1,0),RGB(170,0,0);
STICKLINE(ZBGS18<=0 && ZBGS10,C, O ,3.1,1),COLORFFFF00;
STICKLINE(ZBGS18>0 && ZBGS10,C, O ,3.1,0),COLORFFFF00;
ZBGS19:=(ZBGS9 && ZBGS14<=ZBGS17) || (ZBGS10 && ZBGS14>=ZBGS17);
ZBGS20:=((SMA(MAX((CLOSE-REF(CLOSE,1)),0),3,1)/SMA(ABS((CLOSE-REF(CLOSE,1))),3,1))*100);
ZBGS21:=CROSS(ZBGS20,12);
ZBGS22:=ABS( O -C)/3;
STICKLINE(ZBGS21,L,L+ZBGS22,1,0),COLORFFFFFF;
ZBGS23:=CROSS(88,ZBGS20);
STICKLINE(ZBGS23,H,H-ZBGS22,1,0),COLORFFFFFF;
DRAWICON(ZBGS9 AND REF(ZBGS10,1) ,L , 1);
DRAWICON(ZBGS10 AND REF(ZBGS9,1) ,H , 2);
ASD5:=MA(C,15),COLORWHITE,LINETHICK4,POINTDOT;
IF(ASD5>REF(ASD5,1),ASD5,NULL),COLORRED,LINETHICK1,POINTDOT;
IF(ASD5>REF(ASD5,1),ASD5,NULL),COLORRED,LINETHICK1;
IF(ASD5=REF(ASD5,1),ASD5,NULL),COLORWHITE,LINETHICK1,POINTDOT;
IF(ASD5=REF(ASD5,1),ASD5,NULL),COLORWHITE,LINETHICK1;
IF(ASD5< REF(ASD5,1),ASD5,NULL),COLORGREEN,LINETHICK1;
IF(ASD5< REF(ASD5,1),ASD5,NULL),COLORGREEN,LINETHICK1,POINTDOT;
ASD6:=MAX(MAX((HIGH-LOW),ABS(REF(C,1)-HIGH)),ABS(REF(C,1)-LOW));
ASD7:MA(ASD6,15),NODRAW;
ASD8:=IF(1=1,H-2*ASD7,NULL),COLORRED;
ASD9:=IF(1=1,L+2*ASD7,NULL),COLORGREEN;
IF(ASD5>REF(ASD5,1),ASD5,NULL),COLORRED,LINETHICK1,POINTDOT;
IF(ASD5>REF(ASD5,1),ASD5,NULL),COLORRED,LINETHICK1;
IF(ASD5=REF(ASD5,1),ASD5,NULL),COLORWHITE,LINETHICK1,POINTDOT;
IF(ASD5=REF(ASD5,1),ASD5,NULL),COLORWHITE,LINETHICK1;
IF(ASD5< REF(ASD5,1),ASD5,NULL),COLORGREEN,LINETHICK1;
IF(ASD5< REF(ASD5,1),ASD5,NULL),COLORGREEN,LINETHICK1,POINTDOT;
ASD10:ASD5-ASD7,NODRAW;
IF(ASD10>REF(ASD10,1) AND 1=1,ASD10,NULL),COLORFF00FF,LINETHICK1,POINTDOT;
IF(ASD10=REF(ASD10,1) AND 1=1,ASD10,NULL),COLORYELLOW,LINETHICK1,POINTDOT;
IF(ASD10< REF(ASD10,1) AND 1=1,ASD10,NULL),COLORBLUE,LINETHICK1,POINTDOT;
ASD11:ASD5+ASD7,NODRAW;
IF(ASD11>REF(ASD11,1) AND 1=1,ASD11,NULL),RGB(255,128,0),LINETHICK1,POINTDOT;
IF(ASD11=REF(ASD11,1) AND 1=1,ASD11,NULL),COLORYELLOW,LINETHICK1,POINTDOT;
IF(ASD11< REF(ASD11,1) AND 1=1,ASD11,NULL),RGB(0,255,255),LINETHICK1,POINTDOT;
