主图立体日线显示周线[淘股吧]

{此公式无需引用其它公式}
周O1:=IF(WEEKDAY lt;REF(WEEKDAY,1),O,DRAWNULL);

周O:HHV(周O1,WEEKDAY), LINE THICK0;

周H:HHV(H,WEEKDAY),LINETHICK0;

周L:LLV(L,WEEKDAY),LINETHICK0;

A:=DAY lt;REF(DAY,1);

B:=BARSLAST(A)+1;

MH:=HHV(H,B),LINETHICK0;

ML:=LLV(L,B),LINETHICK0;

日C:C#WEEK,COLORFFFF38,NODRAW;

{以下是画周K线}
STICKLINE(日C gt;=周O,周O,日C,4,0),COLOR003388;
STICKLINE(日C lt;周O,周O,日C,4,0),COLORCC5533;

{以下是画立体日K线}
XG1:=C gt;O;
STICKLINE(XG1,L,H,0.01,0),COLOR0000FF;
STICKLINE(XG1,CLOSE, OPEN ,3,0),COLOR 000055 ;
STICKLINE(XG1,CLOSE,OPEN,2.8,0),COLOR 000066 ;
STICKLINE(XG1,CLOSE,OPEN,2.5,0),COLOR000077;
STICKLINE(XG1,CLOSE,OPEN,2.2,0),COLOR 000088 ;
STICKLINE(XG1,CLOSE,OPEN,1.7,0),COLOR 000099 ;
STICKLINE(XG1,CLOSE,OPEN,1.2,0),COLOR0000AA;
STICKLINE(XG1,CLOSE,OPEN,0.7,0),COLOR0000CC;
STICKLINE(XG1,CLOSE,OPEN,0.2,0),COLOR0000FF;

XG2:=C lt;O;
STICKLINE(XG2,H,L,0.01,0),COLOR00FF00;
STICKLINE(XG2,C,O,3,0),COLOR009900;
STICKLINE(XG2,C,O,2,0),COLOR00BB00;
STICKLINE(XG2,C,O,1,0),COLOR00DD00;
STICKLINE(XG2,C,O,0.3,0),COLOR00FF00;

MA1:MA(C,N1),COLORWHITE;
MA2:MA(C,N2),COLORYELLOW;
DRAWTEXT_FIX(C gt;0,0,0.03,0,STRCAT(‘行业: ‘,HYBLOCK)),COLORYELLOW;

效果图：