财务信息背景主图－－－－

(2012-03-28 16:07:45)作者：大鹅

{财务信息背景主图}
DRAWGBK(C>0, RGB(0,0,00),RGB(0,0,0),0,'12',0);
DRAWKLINE(H,O,L,C);
M5:MA(CLOSE,5);
M10:MA(CLOSE,10);
M20:MA(CLOSE,20);
M30:=MA(CLOSE,30);
M60:MA(CLOSE,60);
M90:=MA(CLOSE,90);
M120:=MA(CLOSE,120);
M250:=MA(CLOSE,250);
HH:=CONST(HHV(H,160));
LL:=CONST(LLV(L,160));
MM0:=CONST((HH+LL)/2);
HL:=CONST(IF(MM0<CONST(REF(C,160)),LL+(HH-LL)*0.20,HH-(HH-LL)*0.20));
HH1:=IF(MM0>CONST(REF(C,160)),HH-(HH-LL)*0.1,HL);
LL1:=IF(MM0<CONST(REF(C,160)),LL+(HH-LL)*0.1,HL);
HLMAX:=MAX(HH1,LL1);
HLMIN:=MIN(HH1,LL1);
HLMN1:=(HLMAX+HLMIN)/2;
HLMN2:=HLMAX-HLMIN;
HLMN3:=1;
HLMN4:=2;
DRAWTEXT(CURRBARSCOUNT=160,(7-HLMN3)*HLMN2/HLMN4+HLMN1,'股本:'),COLORFF00FF;
DRAWNUMBER(CURRBARSCOUNT=154,(7-HLMN3)*HLMN2/HLMN4+HLMN1,CONST(FINANCE(1))/100000000),COLORFF00FF;
DRAWTEXT(CURRBARSCOUNT=160,(5-HLMN3)*HLMN2/HLMN4+HLMN1,'流通:'),COLORFF9900;
DRAWNUMBER(CURRBARSCOUNT=154,(5-HLMN3)*HLMN2/HLMN4+HLMN1,CONST(FINANCE(7))/100000000),COLORFF9900;
DRAWTEXT(CURRBARSCOUNT=160,(3-HLMN3)*HLMN2/HLMN4+HLMN1,'公积:'),COLOR00FF00;
DRAWNUMBER(CURRBARSCOUNT=154,(3-HLMN3)*HLMN2/HLMN4+HLMN1,CONST(FINANCE(18))),COLOR00FF00;
DRAWTEXT(CURRBARSCOUNT=160,(1-HLMN3)*HLMN2/HLMN4+HLMN1,'动PE:'),COLOR3080FF;
DRAWNUMBER(CURRBARSCOUNT=154,(1-HLMN3)*HLMN2/HLMN4+HLMN1,CONST(DYNAINFO(39))),COLOR3080FF;
DRAWTEXT(CURRBARSCOUNT=160,(-1-HLMN3)*HLMN2/HLMN4+HLMN1,'市盈:'),COLORE0C2E0;
DRAWNUMBER(CURRBARSCOUNT=154,(-1-HLMN3)*HLMN2/HLMN4+HLMN1,CONST(C/FINANCE(33))),COLORE0C2E0;
DRAWTEXT(CURRBARSCOUNT=143,(7-HLMN3)*HLMN2/HLMN4+HLMN1,'收入:'),COLORE0C2E0;
DRAWNUMBER(CURRBARSCOUNT=137,(7-HLMN3)*HLMN2/HLMN4+HLMN1,CONST(FINANCE(20)/10000)),COLORE0C2E0;
DRAWTEXT(CURRBARSCOUNT=143,(5-HLMN3)*HLMN2/HLMN4+HLMN1,'利润:'),COLOR00EEEE;
DRAWNUMBER(CURRBARSCOUNT=137,(5-HLMN3)*HLMN2/HLMN4+HLMN1,CONST(FINANCE(21)/10000)),COLOR00EEEE;
DRAWTEXT(CURRBARSCOUNT=143,(3-HLMN3)*HLMN2/HLMN4+HLMN1,'收益:'),COLORFF00FF;
DRAWNUMBER(CURRBARSCOUNT=137,(3-HLMN3)*HLMN2/HLMN4+HLMN1,CONST(FINANCE(33))),COLORFF00FF;
DRAWTEXT(CURRBARSCOUNT=143,(1-HLMN3)*HLMN2/HLMN4+HLMN1,'净资:'),COLOR00FFFF;
DRAWNUMBER(CURRBARSCOUNT=137,(1-HLMN3)*HLMN2/HLMN4+HLMN1,CONST(FINANCE(34))),COLOR00FFFF;
DRAWTEXT(CURRBARSCOUNT=143,(-1-HLMN3)*HLMN2/HLMN4+HLMN1,'上市:'),COLORBA8EBA;
DRAWNUMBER(CURRBARSCOUNT=137,(-1-HLMN3)*HLMN2/HLMN4+HLMN1,CONST(FINANCE(42))),COLORBA8EBA;
DRAWTEXT_FIX(1,0,0,0,HYBLOCK),COLOR0080FF;
DRAWTEXT_FIX(1,0.07,0,0,DYBLOCK),COLOR00FFFF;
DRAWTEXT_FIX(1,0.00,0.06,0,EXTERNSTR(0,1)),COLORWHITE{COLOR0000FF};
DRAWTEXT_FIX(1,0.00,0.12,0,EXTERNSTR(0,2)),COLORFF00FF;
DRAWTEXT_FIX(1,0.00,0.18,0,EXTERNSTR(0,3)),COLORFF88FF;
DRAWTEXT_FIX(1,0.00,0.24,0,EXTERNSTR(0,4)),COLOR00FFFF;