通达信持仓k线主图未加密选股指标公式源码

源码正文：

使用说明:红色持股，绿色空仓，白色为预警。

LC:=REF(CLOSE,1){XG51};
rsi1:=SMA(maX(CLOSE-LC,0),6,1)/SMA(Abs(CLOSE-LC),6,1)*100{XG51};
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100{XG51};
X9:=FORCAst(C,9){XG51};
LLX:=LLV(FORCAST(C,9),2){XG51};
XX9:=X9*100-LLX*100{XG51};
DRAWBAND(X9,RGB(255,255,0),LLX,RGB(0,255,0)){XG51};
D:IF(XX9=0,LLX,DRAWNULL),COLORCYAN{XG51};
VAR1A:=(HHV(HIGH,9)-CLOSE)/(HHV(HIGH,9)-LLV(LOW,9))*100-70;
VAR2A:=SMA(VAR1A,9,1)+100;
VAR3A:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
VAR4A:=SMA(VAR3A,3,1);
VAR5A:=SMA(VAR4A,3,1)+100;
VAR6A:=VAR5A-VAR2A;
端庄窝:=IF(VAR6A>21,VAR6A-21,0);
T1:=(XX9=0 AND 端庄窝<=REF(端庄窝,1)){XG51};
T2:=(XX9=0 AND 端庄窝>REF(端庄窝,1)){XG51};
T3:=(XX9>0 AND 端庄窝>REF(端庄窝,1)){XG51};
T4:=(XX9>0 AND 端庄窝<=REF(端庄窝,1)){XG51};
T5:=RSI1>=RSI2{XG51};
T6:=RSI1<RSI2{XG51};
STICKLINE(T1,H,L,0,1),COLORCYAN{XG51};
STICKLINE(T1 AND C>O,O,C,3,1),COLORCYAN{XG51};
STICKLINE(T1 AND C<O,C,O,3,0),COLORCYAN{XG51};
STICKLINE(T2 AND T5,H,L,0,1),COLORRED{XG51};
STICKLINE(T2 AND T5 AND C>O,O,C,3,1),COLORRED{XG51};
STICKLINE(T2 AND T5 AND C<O,C,O,3,0),COLORRED{XG51};
STICKLINE(T2 AND T6,H,L,0,1),COLORCYAN{XG51};
STICKLINE(T2 AND T6 AND C>O,O,C,3,1),COLORCYAN{XG51};
STICKLINE(T2 AND T6 AND C<O,C,O,3,0),COLORCYAN{XG51};
STICKLINE(T3,H,L,0,1),COLORWHITE{XG51};
STICKLINE(T3 AND C>O,O,C,3,1),COLORWHITE{XG51};
STICKLINE(T3 AND C<O,C,O,3,0),COLORWHITE{XG51};
STICKLINE(T4 AND T5,H,L,0,1),COLORRED{XG51};
STICKLINE(T4 AND T5 AND C>O,O,C,3,1),COLORRED{XG51};
STICKLINE(T4 AND T5 AND C<O,C,O,3,0),COLORRED{XG51};
STICKLINE(T4 AND T6,H,L,0,1),COLORCYAN{XG51};
STICKLINE(T4 AND T6 AND C>O,O,C,3,1),COLORCYAN{XG51};
STICKLINE(T4 AND T6 AND C<O,C,O,3,0),COLORCYAN{XG51};
STICKLINE(T3 AND C<LLX,H,L,0,1),COLORRED{XG51};
STICKLINE(T3 AND C>O AND C<LLX,O,C,3,1),COLORRED{XG51};
STICKLINE(T3 AND C<O AND C<LLX,C,O,3,0),COLORRED{XG51};
短线:=MA(CLOSE,6),COLOR0000FF,LINETHICK2{XG51};
中线:MA(CLOSE,33),COLORGREEN,LINETHICK2{XG51};
多:IF(短线>=中线,中线,DRAWNULL),COLORLIMAGENTA,LINETHICK2{XG51};
空:IF(中线>=短线,中线,DRAWNULL),COLORYELLOW,LINETHICK2{XG51};
MA250:MA(C,250),LINETHICK2{X.G*5.1.C.N.{};

源码正文：

VAR2T:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21)))){XG51};
VAR3T:=(100 - ma(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34)){XG51};
涨幅:=(C-REF(C,1))/REF(C,1)*100{XG51};
VARA:=C>REF(C,1) AND C>REF(C,2){XG51};
VARB:=C<REF(C,1) AND C<REF(C,2){XG51};
VAR1:=REF(VARB,1) AND C>=REF(C,1) AND C<=REF(C,2){XG51};
VAR2:=REF(VAR1,1) AND C<=REF(C,1) AND C>=REF(C,2){XG51};
VAR3:=REF(VAR2,1) AND C>=REF(C,1) AND C<=REF(C,2){XG51};
VAR4:=REF(VAR3,1) AND C<=REF(C,1) AND C>=REF(C,2){XG51};
VAR5:=REF(VAR4,1) AND C>=REF(C,1) AND C<=REF(C,2){XG51};
VAR6:=REF(VAR5,1) AND C<=REF(C,1) AND C>=REF(C,2){XG51};
VAR7:=REF(VAR6,1) AND C>=REF(C,1) AND C<=REF(C,2){XG51};
VAR8:=REF(VAR7,1) AND C<=REF(C,1) AND C>=REF(C,2){XG51};
VAR9:=REF(VAR8,1) AND C>=REF(C,1) AND C<=REF(C,2){XG51};
VAR10:=REF(VAR9,1) AND C<=REF(C,1) AND C>=REF(C,2){XG51};
VAR11:=REF(VAR10,1) AND C>=REF(C,1) AND C<=REF(C,2){XG51};
JIN:=VARB OR VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VAR10 OR VAR11{XG51};
宝塔线转阳信号:=VARA AND REF(JIN,1){XG51};
MID:=REF(HIGH+LOW,1)/2{XG51};
cr:=SUM(MAX(0,HIGH-MID),26)/SUM(MAX(0,MID-LOW),26)*100{XG51};
股海四剑客之四:CROSS(VAR2T,MA(VAR3T,6)) AND 宝塔线转阳信号 AND CR>REF(CR,1) AND 涨幅>7{X=G~5*1=C=N={};