通达信短线源码副图无未来）

多线:=25;
空线:=55;
P:=((2)*(CLOSE) + HIGH + LOW + OPEN)/(5);
BB:=MA(P,3);
CC:=(SUM(IF((P > REF(P,1)),(P)*(VOL),0),4))/(SUM(IF((P < REF(P,1)),(P)*(VOL),0),4));
DD:=REF(100 - (100)/(1 + CC),1);
A1:=HHV(P,15);
A2:=LLV(P,15);
A3:=A1 - A2;
A4:=(EMA((P - A2)/(A3),2))*(100);
多方力度1:=(3*EMA((CLOSE-LLV(LOW,24))/(HHV(HIGH,24)-LLV(LOW,24))*100,5)-2*EMA(EMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,24)-LLV(LOW,24))*100,5),3));
空方力度1:=(100*(HHV(HIGH,95)-CLOSE)/(HHV(HIGH,95)-LLV(LOW,95)));
强:空方力度1<多方力度1,COLORRED;
STICKLINE(空方力度1<多方力度1,0,100,6.6.0,0)COLOR001050;
弱:STICKLINE(空方力度1>多方力度1,0,100,9.9.0,0)COLORLICYAN;
短线:IF(CURRBARSCOUNT>15,  DRAWNULL,A4),COLOR888888,LINETHICK1;
IF(短线>REF(短线,1),短线,DRAWNULL),LINETHICK1,COLORRED;
多方力度:(3*SMA((CLOSE-LLV(LOW,多线))/(HHV(HIGH,多线)-LLV(LOW,多线))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,多线))/(HHV(HIGH,27)-LLV(LOW,多线))*100,5,1),3,1)),COLOR00FFFF,LINETHICK2;
空方力度:100*(HHV(HIGH,空线)-CLOSE)/(HHV(HIGH,空线)-LLV(LOW,空线)),COLOR00EC00,LINETHICK1;
DRAWTEXT(ISLASTBAR,短线,'←短线'),COLOR888888;
DRAWTEXT(ISLASTBAR,多方力度,'←多方'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,空方力度,'←空方'),COLORGREEN;
AVAR10:=LLV(LOW,10);
AVAR13:=HHV(HIGH,25);
红线:=EMA((CLOSE-AVAR10)/(AVAR13-AVAR10)*4,4)*25;
A:=IF(空方力度1<多方力度1,红线,DRAWNULL),LINETHICK2,COLOR0000FF;
RSV10:=(HHV(HIGH,11)-CLOSE)/(HHV(HIGH,11)-LLV(LOW,11))*100;
绿线:=SMA(RSV10,3,1);
B:=IF(空方力度1<多方力度1,绿线,DRAWNULL),LINETHICK2,COLORWHITE;
多方辅助:IF(CURRBARSCOUNT>15,  DRAWNULL,A)COLOR0000FF,LINETHICK2;
空方辅助:IF(CURRBARSCOUNT>15,  DRAWNULL,B)COLORWHITE,LINETHICK2;
强势持股:IF(空方力度<空方辅助 AND 空方力度<50 AND 空方力度<多方辅助 AND 空方辅助<多方辅助,空方力度 AND 空方辅助<REF(空方辅助,1),DRAWNULL),LINETHICK1,COLORRED;
趋势A:=100-100*(HHV(HIGH,5*8)-CLOSE)/(HHV(HIGH,5*8)-LLV(LOW,5*8)),COLOR00FFFF;
HHH:=DRAWBAND(趋势A,RGB(00,80,180),2.5,RGB(255,200,90));
CFF:DRAWBAND(60,0,40,0);
趋势线A:趋势A,COLORBLUE;
短线走强:IF((COUNT(趋势线A>60,10)>=1 AND 趋势线A>60),17,2.5),COLOR0000FF;