软件名称：[B]风神榜解秘-----板块涨跌幅[/B]
软件类型：国产软件
运行环境：Win9X/2000/XP/2003/
软件语言：简体中文
授权方式：解密版
软件大小：3.00 KB
官方主页：Home Page
更新时间：2009-04-15 12:11:02
软件简介:

解秘--------板块涨跌幅(风神榜)
{风神榜}
VAR1:=MEMA(("399190$C"),3);
VAR2:=MEMA(("399200$C"),3);
VAR3:=MEMA(("399137$C"),3);
VAR4:=MEMA(("399139$C"),3);
VAR5:=MEMA(("399136$C"),3);
VAR6:=MEMA(("399110$C"),3);
VAR7:=MEMA(("399135$C"),3);
金融:SUM((VAR1/REF(VAR1,1)-1)*100,0),COLORRED;
地产:SUM((VAR2/REF(VAR2,1)-1)*100,0),COLORMAGENTA;
金属:SUM((VAR3/REF(VAR3,1)-1)*100,0),COLORLIRED;
医药:SUM((VAR4/REF(VAR4,1)-1)*100,0),COLORWHITE;
电子:SUM((VAR5/REF(VAR5,1)-1)*100,0),COLORCYAN;
农林:SUM((VAR6/REF(VAR6,1)-1)*100,0),COLORGREEN;
石化:SUM((VAR7/REF(VAR7,1)-1)*100,0),COLORYELLOW;
P1:=IF(BARSLAST(CURRBARSCOUNT=10),10,0);
P2:=IF(BARSLAST(CURRBARSCOUNT=7),10,0);
P3:=IF(BARSLAST(CURRBARSCOUNT=4),10,0);
DRAWTEXT((P3>=10 AND REF(P3,1)<=0),金融,'金融'),COLORRED;
DRAWTEXT((P2>=10 AND REF(P2,1)<=0),地产,'地产'),COLORMAGENTA;
DRAWTEXT((P1>=10 AND REF(P1,1)<=0),金属,'金属'),COLORLIRED;
DRAWTEXT((P3>=10 AND REF(P3,1)<=0),医药,'医药'),COLORWHITE;
DRAWTEXT((P2>=10 AND REF(P2,1)<=0),电子,'电子'),COLORCYAN;
DRAWTEXT((P1>=10 AND REF(P1,1)<=0),农林,'农林'),COLORGREEN;
DRAWTEXT((P3>=10 AND REF(P3,1)<=0),石化,'石化'),COLORYELLOW;
 

[url=http://www.70822.com/soft/sort013/sort05/down-8308.html]风神榜解秘-----板块涨跌幅[/url]