挺漂亮的图形,改写成通达信版本以供欣赏!
{瀑布}
STICKLINE(C>=O,L,H,0.00001,0),COLORRED;
STICKLINE(C>O,O,C,2.5,0),COLORRED;
STICKLINE(C>O,O,C,0.6,0),COLORCC66FF;
STICKLINE(C<O,O,C,2.5,0),COLORFF6600;
STICKLINE(C<O,O,C,0.6,0),COLORFF9900;
STICKLINE(C<O,L,H,0.00001,0),COLORFF9900;
{以上是立体K线部分}
Q:=(2*C+O+L+H)/5;
XM:XMA(FORCAST(MA(Q,2),2),5),COLORWHITE;
MA5:=EMA(FORCAST(MA(Q,2),2),5);
A1:IF(C,REF(MA5,13),DRAWNULL),COLORFFC010;
A2:IF(C,REF(XM,12),DRAWNULL),COLORFFC010;
A3:IF(C,REF(MA5,11),DRAWNULL),COLORFFC010;
A4:IF(C,REF(XM,10),DRAWNULL),COLORFFC010;
A5:IF(C,REF(MA5,9),DRAWNULL),COLORFFC010;
A6:IF(C,REF(XM,8),DRAWNULL),COLORFFC010;
A7:IF(C,REF(MA5,7),DRAWNULL),COLORFFC010;
A8:IF(C,REF(XM,6),DRAWNULL),COLORFFC010;
A9:IF(C,REF(MA5,5),DRAWNULL),COLORFFC010;
A10:IF(C,REF(XM,4),DRAWNULL),COLORFFC010;
A11:IF(C,REF(MA5,3),DRAWNULL),COLORFFC010;
A12:IF(C,REF(XM,2),DRAWNULL),COLORFFC010;
A13:IF(C,REF(MA5,1),DRAWNULL),COLORFFC010;