蓝色狂想 2008-10-12 10:40
飞狐公式 一发千钧【市场全景】！
指标源码：
QQ:=STKCOUNT('A股板块');
AA:=ESTDATA(15);A:=ESTDATA(16);
BB:=ESTDATA(20);B:=ESTDATA(17);
日涨跌:(C/REF(C,1)-1)*100,PRECISION2,LINETHICK0;
周涨跌:(C/ref(C,BARSLAST(WEEKDAY<ref(WEEKDAY,1))+1)-1)*100,PRECISION2,LINETHICK0;
月涨跌:(C/REF(C,COUNT(MONTH,DAY))-1)*100,PRECISION2,LINETHICK0;
STICKLINE(A,0,a,8,1),COLORRED;
STICKLINE(B,0,b,6,0),COLORAA8800;
E:=QQ-(A+B);
F:=A-B;差:ma(sum(F,5),5)/3,COLOR0088FF;
势:wma(差,5),COLOR00EE00;
DRAWTEXTEX(C,1,20,150,'上涨家数:'+NUMTOSTR(A,0)),COLOR00FFFF;
DRAWTEXTEX(C,1,160,150,' 家 '),COLOR00FFFF;
DRAWTEXTEX(C,1,200,150, ' 占A股总数:'+NUMTOSTR(A/QQ*100,2)+' %'),COLOR00FFFF;
DRAWTEXTEX(C,1,20,300,'下跌家数:'+NUMTOSTR(B,0)),COLOR00FF00;
DRAWTEXTEX(C,1,160,300,' 家 '),COLOR00FF00;
DRAWTEXTEX(C,1,200,300, ' 占A股总数:'+NUMTOSTR(B/QQ*100,2)+' %'),COLOR00FF00;
DRAWTEXTEX(C,1,20,450,'涨停家数:'+NUMTOSTR(AA,0)),COLOR00FFFF;
DRAWTEXTEX(C,1,160,450,' 家 '),COLOR00FFFF;
DRAWTEXTEX(C,1,200,450, ' 占A股总数:'+NUMTOSTR(AA/QQ*100,2)+' %'),COLOR00FFFF;
DRAWTEXTEX(C,1,20,600,'跌停家数:'+NUMTOSTR(BB,0)),COLORFFDD00;
DRAWTEXTEX(C,1,160,600,' 家 '),COLORFFDD00;
DRAWTEXTEX(C,1,200,600, ' 占A股总数:'+NUMTOSTR(BB/QQ*100,2)+' %'),COLORFFDD00;
DRAWTEXTEX(C,1,20,750,'平--停盘:'+NUMTOSTR(E,0)),COLORFFDDDD;
DRAWTEXTEX(C,1,160,750,' 家 '),COLORFFDDDD;
DRAWTEXTEX(C,1,200,750, ' 占A股总数:'+NUMTOSTR(E/QQ*100,2)+' %'),COLORFFDDDD;
DRAWTEXTEX(C,1,20,0,'A-股总数:'+NUMTOSTR(QQ,0)),COLORFFDDDD;
DRAWTEXTEX(C,1,160,0,' 家 '),COLORFFDDDD;
[[i] 本帖最后由 蓝色狂想 于 2008-10-12 10:42 编辑 [/i]]
