把板块风神榜改为同花顺的

编写要求：

解答：

?网友求助：

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;