7.孔雀之舞
[
Last edited by 祖玛教祖 on 2005-10-5 at 16:42 ]
DRAWGBK(1, COLORRGB(100,100,100),COLORRGB(50,50,50),1);
{-----------------------☆功能开关------------------------}
B5:=(C-MA(C,5))/MA(C,5)*100;//5天乖离
B10:=(C-MA(C,10))/MA(C,10)*100;//10天乖离
Bj10:=ma(B10,3);
B55:=(C-MA(C,55))/MA(C,55)*100;//N天乖离,取55
Bj55:= MA(B55,8);
{-----------------【图解模板】---------------------}
{填色}
FILLRGN(Bj55>0 and Bj55>ref(Bj55,1),Bj55,0),Color0098FF;
FILLRGN(Bj55<0 and Bj55<ref(Bj55,1),Bj55,0),colorblue;
FILLRGN(Bj55>0 and Bj55<ref(Bj55,1),Bj55,0),ColorBEBCE2;
FILLRGN(Bj55<0 and Bj55>ref(Bj55,1),Bj55,0),COLORGRAY;
{背离}
A1:=BARSLAST(REF(CROSS(B55,Bj55),1));
底背离:=REF(C,A1+1)>C AND B55>REF(B55,A1+1) AND CROSS(B55,Bj55);
DRAWLINE(A1=0,Bj55,底背离,Bj55,0),Color0098FF,linethick3;
A2:=BARSLAST(REF(CROSS(Bj55,B55),1));
顶背离:=REF(C,A2+1)<C AND REF(Bj55,A2+1)>B55 AND CROSS(Bj55,B55);
DRAWLINE(A2=0,Bj55,顶背离,Bj55,0),COLORGREEN,linethick3;
{乖离}
乖离5:B5,PRECISION2,COLORWHITE;
均离10:Bj10,PRECISION2,COLORYELLOW;
乖离55:B55,PRECISION2,LINETHICK2,COLORMAGENTA;
均离55:Bj55,PRECISION2,LINETHICK2,COLORRED;
[
本帖最后由 祖玛教祖 于 2006-8-27 00:19 编辑 ]
楼主
发表于 2005-9-23 13:31
