股市航灯主图(大智慧)

{股市航灯5}

TJTS:=BARstATUS=2;

cg:=hhv(h,125);

cgl:=llv(h,125);

j:=(cg-cgl)/8;

IF C>0 AND TJTS THEN BEGIN

DRAWTEXT(C>0,cg*1.04,'股市航灯 '),LINETHICK6,Coloryellow,ALIGN2;

DRAWTEXT(C>0,cg*1.04,STKLABEL+' '+STKNAME+' '),LINETHICK6,ColorFFFF80,ALIGN2;

DRAWTEXT(C>0,cg*1.04,' '+ '流通:'+NUMTOSTRN( FINANCE(7),0 )+' '+'换手:'+NUMTOSTRN( DYNAINFO(37)*100,3 )+' '),LINETHICK3,ColorFFFF80,ALIGN2;end;

fs:=SMA(h,21,2)*1.05;

ls:=sma(l,21,2)*0.95;

bd:=sma(l,5,1);

rd:=sma(c,2,1);

航灯１:=if(cross(rd,bd),fs*1.05,bd);

航灯２:=if(cross(rd,fs),fs*1.1,ls);

前兆:=航灯１;

fillrgn(bd,航灯１,航灯１>bd),colorff9900;

PARTLINE(航灯１,航灯１>bd),POINTDOT,LINETHICK7,colorff9900;

PARTLINE(航灯１,航灯１>bd),POINTDOT,LINETHICK3,colorffffff;

fillrgn(ls,航灯２,航灯２>ls),color0000ff;

PARTLINE(航灯２,航灯２>ls),POINTDOT,LINETHICK7,color0000ff;

PARTLINE(航灯２,航灯２>ls),POINTDOT,LINETHICK3,colorffffff;

热点:=航灯２;

上线:sma(h,21,2)*1.05,color0000ff;

IF rd>上线 and TJTS THEN DRAWTEXT(C>0,cg*1.04,'热点持续区：辨别黑马 '),LINETHICK3,color0000ff,ALIGN2;

中线:bd,colorff00ff;

下线:sma(l,21,2)*0.95,color00ffff;

股市:rd,POINTDOT,LINETHICK7,color00ff00;

PARTLINE(股市,c>0),POINTDOT,LINETHICK3,colorffffff;