通达信密码系列源码副图贴图

VAR1:=("399139$C");  

VAR2:=("399190$C");  

VAR3:=("399132$C");  

VAR4:=("399150$C");  

VAR5:=("399138$C");  

VAR6:=("399200$C");  

VAR7:=("399110$C");  

VAR8:=("399136$C");  

VAR9:=("399135$C");  

VAR10:=("399130$C");  

VAR11:=("399160$C");  

VAR12:=("999999$C");  

VAR13:=("399137$C");  

医药:=SUM((VAR1/REF(VAR1,1)-1)*100,0);  

金融:=SUM((VAR2/REF(VAR2,1)-1)*100,0);  

纺织:=SUM((VAR3/REF(VAR3,1)-1)*100,0);  

建筑:=SUM((VAR4/REF(VAR4,1)-1)*100,0);  

机械:=SUM((VAR5/REF(VAR5,1)-1)*100,0);  

地产:=SUM((VAR6/REF(VAR6,1)-1)*100,0);  

农林:=SUM((VAR7/REF(VAR7,1)-1)*100,0);  

电子:=SUM((VAR8/REF(VAR8,1)-1)*100,0);  

石化:=SUM((VAR9/REF(VAR9,1)-1)*100,0);  

制造:=SUM((VAR10/REF(VAR10,1)-1)*100,0);  

运输:=SUM((VAR11/REF(VAR11,1)-1)*100,0);  

上证:SUM((VAR12/REF(VAR12,1)-1)*100,0),COLORRED;  

金属:=SUM((VAR13/REF(VAR13,1)-1)*100,0);  

VAR17:=CONST(MA(医药,N));  

VAR18:=CONST(MA(金融,N));  

VAR19:=CONST(MA(纺织,N));  

VAR20:=CONST(MA(建筑,N));  

VAR21:=CONST(MA(机械,N));  

VAR22:=CONST(MA(地产,N));  

VAR23:=CONST(MA(农林,N));  

VAR24:=CONST(MA(电子,N));  

VAR25:=CONST(MA(石化,N));  

VAR26:=CONST(MA(制造,N));  

VAR27:=CONST(MA(运输,N));  

VAR28:=CONST(MA(上证,N));  

VAR29:=CONST(MA(金属,N));  

PQ:=VAR29;  

P1:=IF(BARSLAST(CURRBARSCOUNT=4),1,0);  

P2:=IF(BARSLAST(CURRBARSCOUNT=6),1,0);  

P3:=IF(BARSLAST(CURRBARSCOUNT=8),1,0);  

P4:=IF(BARSLAST(CURRBARSCOUNT=10),1,0);  

P5:=IF(BARSLAST(CURRBARSCOUNT=12),1,0);  

P6:=IF(BARSLAST(CURRBARSCOUNT=14),1,0);  

P7:=IF(BARSLAST(CURRBARSCOUNT=16),1,0);  

P8:=IF(BARSLAST(CURRBARSCOUNT=18),1,0);  

P9:=IF(BARSLAST(CURRBARSCOUNT=20),1,0);  

P10:=IF(BARSLAST(CURRBARSCOUNT=22),1,0);  

P11:=IF(BARSLAST(CURRBARSCOUNT=24),1,0);  

P12:=IF(BARSLAST(CURRBARSCOUNT=26),1,0);  

P13:=IF(BARSLAST(CURRBARSCOUNT=28),1,0);  

P14:=IF(BARSLAST(CURRBARSCOUNT=2),1,0);  

STICKLINE(医药,VAR17,IF(P2-P1,CONST(医药),DRAWNULL),5,-2),COLORFF00FF;  

STICKLINE(金融,VAR18,IF(P3-P2,CONST(金融),DRAWNULL),5,-2),COLORFF00FF;  

STICKLINE(纺织,VAR19,IF(P4-P3,CONST(纺织),DRAWNULL),5,-2),COLORFF00FF;  

STICKLINE(建筑,VAR20,IF(P5-P4,CONST(建筑),DRAWNULL),5,-2),COLORFF00FF;  

STICKLINE(机械,VAR21,IF(P6-P5,CONST(机械),DRAWNULL),5,-2),COLORFF00FF;  

STICKLINE(地产,VAR22,IF(P7-P6,CONST(地产),DRAWNULL),5,-2),COLORFF00FF;  

STICKLINE(农林,VAR23,IF(P8-P7,CONST(农林),DRAWNULL),5,-2),COLORFF00FF;  

STICKLINE(电子,VAR24,IF(P9-P8,CONST(电子),DRAWNULL),5,-2),COLORFF00FF;  

STICKLINE(石化,VAR25,IF(P10-P9,CONST(石化),DRAWNULL),5,-2),COLORFF00FF;  

STICKLINE(制造,VAR26,IF(P11-P10,CONST(制造),DRAWNULL),5,-2),COLORFF00FF;  

STICKLINE(运输,VAR27,IF(P12-P11,CONST(运输),DRAWNULL),5,-2),COLORFF00FF;  

STICKLINE(上证,VAR28,IF(P1-P14,CONST(上证),DRAWNULL),5,-1),COLORFF00FF;  

STICKLINE(金属,VAR29,IF(P13-P12,CONST(金属),DRAWNULL),5,-2),COLORFF00FF;  

STICKLINE(医药,PQ,IF(P2-P1,VAR17,DRAWNULL),4,0),COLORRED;  

STICKLINE(金融,PQ,IF(P3-P2,VAR18,DRAWNULL),4,0),COLORRED;  

STICKLINE(纺织,PQ,IF(P4-P3,VAR19,DRAWNULL),4,0),COLORRED;  

STICKLINE(建筑,PQ,IF(P5-P4,VAR20,DRAWNULL),4,0),COLORRED;  

STICKLINE(机械,PQ,IF(P6-P5,VAR21,DRAWNULL),4,0),COLORRED;  

STICKLINE(地产,PQ,IF(P7-P6,VAR22,DRAWNULL),4,0),COLORRED;  

STICKLINE(农林,PQ,IF(P8-P7,VAR23,DRAWNULL),4,0),COLORRED;  

STICKLINE(电子,PQ,IF(P9-P8,VAR24,DRAWNULL),4,0),COLORRED;  

STICKLINE(石化,PQ,IF(P10-P9,VAR25,DRAWNULL),4,0),COLORRED;  

STICKLINE(制造,PQ,IF(P11-P10,VAR26,DRAWNULL),4,0),COLORRED;  

STICKLINE(运输,PQ,IF(P12-P11,VAR27,DRAWNULL),4,0),COLORRED;  

STICKLINE(医药,PQ,IF(P2-P1,CONST(MA(医药,M)),DRAWNULL),0.8,0),COLORAAAAFF;  

STICKLINE(金融,PQ,IF(P3-P2,CONST(MA(金融,M)),DRAWNULL),0.8,0),COLORAAAAFF;  

STICKLINE(纺织,PQ,IF(P4-P3,CONST(MA(纺织,M)),DRAWNULL),0.8,0),COLORAAAAFF;  

STICKLINE(建筑,PQ,IF(P5-P4,CONST(MA(建筑,M)),DRAWNULL),0.8,0),COLORAAAAFF;  

STICKLINE(机械,PQ,IF(P6-P5,CONST(MA(机械,M)),DRAWNULL),0.8,0),COLORAAAAFF;  

STICKLINE(地产,PQ,IF(P7-P6,CONST(MA(地产,M)),DRAWNULL),0.8,0),COLORAAAAFF;  

STICKLINE(农林,PQ,IF(P8-P7,CONST(MA(农林,M)),DRAWNULL),0.8,0),COLORAAAAFF;  

STICKLINE(电子,PQ,IF(P9-P8,CONST(MA(电子,M)),DRAWNULL),0.8,0),COLORAAAAFF;  

STICKLINE(石化,PQ,IF(P10-P9,CONST(MA(石化,M)),DRAWNULL),0.8,0),COLORAAAAFF;  

STICKLINE(制造,PQ,IF(P11-P10,CONST(MA(制造,M)),DRAWNULL),0.8,0),COLORAAAAFF;  

STICKLINE(运输,PQ,IF(P12-P11,CONST(MA(运输,M)),DRAWNULL),0.8,0),COLORAAAAFF;

STICKLINE(金属,PQ,IF(P13-P12,CONST(MA(金属,M)),DRAWNULL),0.8,0),COLORAAAAFF;  

{以下源码可以不要}

DRAWTEXT(P2-P1,PQ-2,'医药'),COLORYELLOW;  

DRAWTEXT(P3-P2,PQ-2,'金融'),COLORYELLOW;  

DRAWTEXT(P4-P3,PQ-2,'纺织'),COLORYELLOW;  

DRAWTEXT(P5-P4,PQ-2,'建筑'),COLORYELLOW;  

DRAWTEXT(P6-P5,PQ-2,'机械'),COLORYELLOW;  

DRAWTEXT(P7-P6,PQ-2,'地产'),COLORYELLOW;  

DRAWTEXT(P8-P7,PQ-2,'农林'),COLORYELLOW;  

DRAWTEXT(P9-P8,PQ-2,'电子'),COLORYELLOW;  

DRAWTEXT(P10-P9,PQ-2,'石化'),COLORYELLOW;  

DRAWTEXT(P11-P10,PQ-2,'制造'),COLORYELLOW;  

DRAWTEXT(P12-P11,PQ-2,'运输'),COLORYELLOW;  

DRAWTEXT(P13-P12,PQ-2,'金属'),COLORYELLOW;