通达信支撑压力主图选股指标公式源码

通达信支撑压力主图选股指标公式源码

源码正文：

上市日期:FINANCE(42)/100, NODRAW {XG51};
VAR1:=ma(CLOSE,5),COLOR00FFFF{XG51};
VAR2:MA(CLOSE,13),COLOR00FF33{XG51};
VAR5:MA(CLOSE,34),COLORFF9900{XG51};
VAR6:=MA(CLOSE,54),COLORFF9900{XG51};
VAR7:((ema(CLOSE,5)*7+EMA(CLOSE,5)*3)/10),COLORBBBBBB{XG51};
VAR8:= dma(EMA(CLOSE,12),SUM(vol/CAPITAL,5)/3),LINETHICK2{XG51};
VARA:=REF(CLOSE,1){XG51};
VARE:=SMA(MAX(CLOSE-VARA,0),6,1)/SMA(Abs(CLOSE-VARA),6,1)*100{XG51};
DRAWTEXT(DATE>700101 AND crOSS(84,VARE),HIGH,'☆机构减仓'),COLORCYAN{XG51};
VARF:=(2*CLOSE+HIGH+LOW)/4{XG51};
VAR10:=LLV(LOW,34){XG51};
VAR11:=HHV(HIGH,34){XG51};
VAR12:=EMA((VARF-VAR10)/(VAR11-VAR10)*100,6){XG51};
VAR13:=EMA(0.667*REF(VAR12,1)+0.333*VAR12,4){XG51};
VAR14:=LLV(LOW,120){XG51};
VAR15:=HHV(HIGH,120){XG51};
VAR16:=VAR15-VAR14{XG51};
DRAWTEXT(IF(COUNT(CLOSE<REF(CLOSE,1),8)/8>0.3 AND COUNT(VAR12>VAR13,3) AND REF(LOW,1)=LLV(LOW,120) AND CLOSE>OPEN,1,0),LOW,'★机构进场'),COLORBLUE{XG51};
stICKLINE(VAR7>VAR2,VAR2,VAR7,0.01,1),COLORFF00FF{XG51};
STICKLINE(VAR7<VAR2,VAR2,VAR7,0.01,1),COLOR33FF33{XG51};
RSV:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
RSV12:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;
K12:=SMA(RSV12,3,1);
D12:=SMA(K12,3,1);
J12:=3*K12-2*D12;
RSV24:=(CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100;
K24:=SMA(RSV24,3,1);
D24:=SMA(K24,3,1);
J24:=3*K24-2*D24;
压力位:IF(CROSS(J24,J),H,REF(H,BArslAST(CROSS(J24,J)))),COLOR00FF33,LINETHICK1;
支撑位:IF(CROSS(J,J24),L,REF(L,BARSLAST(CROSS(J,J24)))),COLORCC33CC,LINETHICK1{XG51};
支撑价:LLV(LOW,19) , COLOR009900,LINETHICK2{XG51};
阻力价:HHV(HIGH,19),COLORFF9900, LINETHICK2{XG51};
VAR4:EMA(C,21),COLOR0000FF, LINETHICK2{X^G?5*1^C^N^{};