通達信與大盤、行業進行對比的個股強弱副圖指標源碼

以下是通達信與大盤、行業進行對比的個股強弱副圖指標源碼（無源碼的請下載附件導入）

N:=13;M:=5;{移動平均參數}
SCCD:=STR2CON(DPZSCODE);
LC:=REF(CLOSE,1);
HYC:=HY_INDEXC;{行業收盤價}
HYLC:=REF(HYC,1);

SRSI:=SMA(MAX(CLOSE-LC,0),N,1)/(SMA(ABS(CLOSE-LC),N,1))*100;{個股相對強弱}
HYRSI:=SMA(MAX(HYC-HYLC,0),N,1)/(SMA(ABS(HYC-HYLC),N,1))*100;{行業相對強弱}
DPRSI:=SMA(MAX(INDEXC-REF(INDEXC,1),0),N,1)/(SMA(ABS(INDEXC-REF(INDEXC,1)),N,1))*100;{大盤相對強弱}
個股:MA(SRSI,M),LINETHICK2,COLORRED;{個股相對強弱均線}
行業:MA(HYRSI,M),COLORYELLOW;{行業相對強弱均線}
大盤:MA(DPRSI,M),COLORCYAN;{大盤相對強弱均線};

DRAWTEXT_FIX(1,0,0,0, STRCAT(HYBLOCK,STRCAT(' + ', STRCAT(GNBLOCK,STRCAT('+ ', EXTERNSTR(0,1)))))),COLORWHITE;
Z1:=STRCAT(HYBLOCK,'----');
Z2:=STRCAT(Z1,FGBLOCK);
Z3:=STRCAT(Z2,DYBLOCK);
Z4:=STRCAT(Z3,'----');

滬A漲家數:="999999$ADVANCE",COLORRED,NODRAW;
滬A跌家數:="999999$DECLINE",COLORGREEN,NODRAW;
深A漲家數:="399107$ADVANCE",COLORRED,NODRAW;
深A跌家數:="399107$DECLINE",COLORGREEN,NODRAW;
上漲總家數:滬A漲家數+深A漲家數,COLORRED,NODRAW;
上漲總家數比:(滬A漲家數+深A漲家數)/(滬A漲家數+滬A跌家數+深A漲家數+深A跌家數)*100,COLORRED,NODRAW;
下跌總家數:滬A跌家數+深A跌家數,COLORGREEN,NODRAW;
下跌總家數比:(滬A跌家數+深A跌家數)/(滬A漲家數+滬A跌家數+深A漲家數+深A跌家數)*100,COLORGREEN,NODRAW;

漲停數:="880006$C",NODRAW;
E1:=CON2STR(漲停數,0);
E2:=STRCAT(E1,' 家');
E3:=STRCAT('大盤漲停數: ',E2);
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND ISLASTBAR,0.001,0.9,0,E3),COLORRED;
跌停數:="880006$O",NODRAW;
F1:=CON2STR(跌停數,0);
F2:=STRCAT(F1,' 家');
F3:=STRCAT('大盤跌停數: ',F2);
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND ISLASTBAR,0.075,0.9,0,F3),COLORGREEN;

X1:=個股,NODRAW;
BB5:=ATAN(EMA(X1,7)-REF(EMA(X1,7),1))*3.1416*10;
DRAWTEXT(FILTER(BB5>1 AND EMA(X1,7)>REF(EMA(X1,7),1),10) AND 大盤>REF(大盤,1) AND UPNDAY(行業,2) AND 個股<45 ,
X1*0.99,'★∠45'),COLORFFFFFF;

STICKLINE(個股<30 AND 行業<30 AND 大盤<30 ,23,30,2,0),COLOR008888;
30,DOTLINE,COLORYELLOW;
60,DOTLINE,COLORLIRED;