多线:=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;
A