通达信主图上显示基本面关键信息源码

发布原码{来源于: 股海网WWW.Guhai.com.cn}

 HJH:=CONST(HHV(H,160));
 LL:=CONST(LLV(L,160));{160可改成你习惯锁定的日K线数}
HL1:=CONST(IF(CONST(REF(MA(C,10),10))>CONST((HJH+LL)/2),0.76,0.04));
 HL2:=CONST(IF(CONST(REF(MA(C,10),10))>CONST((HJH+LL)/2),0.80,0.08));
 HL3:=CONST(IF(CONST(REF(MA(C,10),10))>CONST((HJH+LL)/2),0.84,0.12));
 HL4:=CONST(IF(CONST(REF(MA(C,10),10))>CONST((HJH+LL)/2),0.88,0.16));
 HL5:=CONST(IF(CONST(REF(MA(C,10),10))>CONST((HJH+LL)/2),0.92,0.20));
 HL6:=CONST(IF(CONST(REF(MA(C,10),10))>CONST((HJH+LL)/2),0.96,0.24));
 DRAWTEXT_FIX(1,0.00,0.0,0,'所属行业：')COLOR0080FF;
 DRAWTEXT_FIX(1,0.07,0,0,EXTERNSTR(0,2))COLOR0080FF;
 DRAWTEXT_FIX(1,0.00,0.03,0,'所属地区：')COLOR00FFFF;
 DRAWTEXT_FIX(1,0.07,0.03,0,EXTERNSTR(0,3))COLOR00FFFF;
 DRAWTEXT_FIX(1,0.00,0.06,0,'主题投资：')COLOR0000FF;
 DRAWTEXT_FIX(1,0.07,0.06,0,EXTERNSTR(0,1))COLOR0000FF;
 DRAWTEXT_FIX(1,0.00,0.09,0,'星评'),COLOR00FFFF;
 DRAWTEXT_FIX(1,0.07,0.09,0,EXTERNSTR(0,4)),COLOR00FFFF;