通达信博客操盘主图未加密选股指标公式源码

源码正文：

ema13:Ema(C,13),COLORRED;
EMA21:EMA(C,21),COLORBLUE;
EMA34:EMA(C,34),COLORFF00FF;
EMA120:EMA(C,120),COLORFFCCCC;
EMA250:MA(C,250),COLORFFCC66;
X1:=(C+L+H)/3;
X2:=EMA(X1,6);
X3:=EMA(X2,5);
stICKLINE(X2>X3 AND C>EMA13,LOW,HIGH,0.1,1),COLORWHITE;
STICKLINE(X2>X3 AND C>EMA13,CLOSE,OPEN,5,1),COLORWHITE;
STICKLINE(X2<X3 AND C<EMA13,LOW,HIGH,0.1,1),COLORFFFF54;
STICKLINE(X2<X3 AND C<EMA13,CLOSE,OPEN,5,0),COLORFFFF54{XG51};
DRAWTEXT(crOSS(X2,X3),L-0.09,'B'),COLORRED{XG51};
GR1:=BArslAST(BETWEEN("bias.BIAS2"(6,13,24),0,5)){XG51};
GR2:=EMA13>EMA21 AND EMA21>EMA34 AND EMA13>REF(EMA13,1){XG51};
GR3:=COUNT("BIAS.BIAS2"(6,13,24)>10 AND H=HHV(H,GR1),GR1){XG51};
GR4:=H=HHV(H,GR1){XG51};
GR5:="macd.MacD"(12,26,9)<REF("MACD.MACD"(12,26,9),1){XG51};
GR6:=GR2 AND GR3 AND GR4{XG51};
GR7:=GR2 AND GR3 AND GR4 AND GR5{XG51};
GR8:=GR6 AND GR7{XG51};
LC := REF(CLOSE,1){XG51};
rsi6:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(Abs(CLOSE-LC),6,1)*100{XG51};
BIAS5:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100{XG51};
换手:=100*V/CAPITAL{XG51};
DRAWTEXT(FILTER(RSI6>95 AND 换手>=7,3) OR FILTER(BIAS5>9,3) OR GR8,H*1.04,'S'),COLOR00FF00{XG51};
BB13:=ATAN(EMA13-REF(EMA13,1))*3.1416*10{XG51};
EMA8:=EMA(C,8){XG51};
DRAWTEXT(FILTER(BB13>1 AND EMA13>REF(EMA13,1),10),EMA8,'∠45'),COLORRED{XG51};
 {X+G-5^1+C+N+{};

源码正文：

SW:=1;CL:=10{XG51};
CON1:=IF(SW=1,IF(L=LLV(L,8*CL),L,DRAWNULL),IF(H=HHV(H,8*CL),H,DRAWNULL)){XG51};
CON2:=IF(SW=1,CONst(BArslAST(CON1=L))+1,CONST(BARSLAST(CON1=H))+1){XG51};
BLIN:IF(CURRBARSCOUNT<=CON2,CONST(IF(SW=1,IF(CON2=1,L,REF(L,CON2-1)),IF(CON2=1,H,REF(H,CON2-1)))),DRAWNULL){XG51};
ST0.5:IF(SW=1,BLIN*1.0809,BLIN/1.0809),COLOR89615F{XG51};
ST1:IF(SW=1,BLIN*1.1618,BLIN/1.1618),COLOR89615F{XG51};
ST1.5:IF(SW=1,IF(CONST(EXIST(C>ST1,CON2)),ST1*1.0809,DRAWNULL),IF(CONST(EXIST(C<ST1,CON2)),ST1/1.0809,DRAWNULL)),COLOR89615F{XG51};
ST2:IF(SW=1,IF(CONST(EXIST(C>ST1.5,CON2)),ST1*1.1618,DRAWNULL),IF(CONST(EXIST(C<ST1.5,CON2)),ST1/1.1618,DRAWNULL)),COLOR89615F{XG51};
ST2.5:IF(SW=1,IF(CONST(EXIST(C>ST2,CON2)),ST2*1.0809,DRAWNULL),IF(CONST(EXIST(C<ST2,CON2)),ST2/1.0809,DRAWNULL)),COLOR89615F{XG51};
ST3:IF(SW=1,IF(CONST(EXIST(C>ST2.5,CON2)),ST2*1.1618,DRAWNULL),IF(CONST(EXIST(C<ST2.5,CON2)),ST2/1.1618,DRAWNULL)),COLOR89615F{XG51};
ST3.5:IF(SW=1,IF(CONST(EXIST(C>ST3,CON2)),ST3*1.0809,DRAWNULL),IF(CONST(EXIST(C<ST3,CON2)),ST3/1.0809,DRAWNULL)),COLOR89615F{XG51};
ST4:IF(SW=1,IF(CONST(EXIST(C>ST3.5,CON2)),ST3*1.1618,DRAWNULL),IF(CONST(EXIST(C<ST3.5,CON2)),ST3/1.1618,DRAWNULL)),COLOR89615F{XG51};
ST4.5:IF(SW=1,IF(CONST(EXIST(C>ST4,CON2)),ST4*1.0809,DRAWNULL),IF(CONST(EXIST(C<ST4,CON2)),ST4/1.0809,DRAWNULL)),COLOR89615F{XG51};
ST5:IF(SW=1,IF(CONST(EXIST(C>ST4.5,CON2)),ST4*1.1618,DRAWNULL),IF(CONST(EXIST(C<ST4.5,CON2)),ST4/1.1618,DRAWNULL)),COLOR89615F{XG51};
ST5.5:IF(SW=1,IF(CONST(EXIST(C>ST5,CON2)),ST5*1.0809,DRAWNULL),IF(CONST(EXIST(C<ST5,CON2)),ST5/1.0809,DRAWNULL)),COLOR89615F{XG51};
ST6:IF(SW=1,IF(CONST(EXIST(C>ST5.5,CON2)),ST5*1.1618,DRAWNULL),IF(CONST(EXIST(C<ST5.5,CON2)),ST5/1.1618,DRAWNULL)),COLOR89615F{XG51};
ST6.5:IF(SW=1,IF(CONST(EXIST(C>ST6,CON2)),ST6*1.0809,DRAWNULL),IF(CONST(EXIST(C<ST6,CON2)),ST6/1.0809,DRAWNULL)),COLOR89615F{XG51};
ST7:IF(SW=1,IF(CONST(EXIST(C>ST6.5,CON2)),ST6*1.1618,DRAWNULL),IF(CONST(EXIST(C<ST6.5,CON2)),ST6/1.1618,DRAWNULL)),COLOR89615F{XG51};
ST7.5:IF(SW=1,IF(CONST(EXIST(C>ST7,CON2)),ST7*1.0809,DRAWNULL),IF(CONST(EXIST(C<ST7,CON2)),ST7/1.0809,DRAWNULL)),COLOR89615F{XG51};
ST8:IF(SW=1,IF(CONST(EXIST(C>ST7.5,CON2)),ST7*1.1618,DRAWNULL),IF(CONST(EXIST(C<ST7.5,CON2)),ST7/1.1618,DRAWNULL)),COLOR89615F{XG51};
ST8.5:IF(SW=1,IF(CONST(EXIST(C>ST8,CON2)),ST8*1.0809,DRAWNULL),IF(CONST(EXIST(C<ST8,CON2)),ST8/1.0809,DRAWNULL)),COLOR89615F{XG51};
ST9:IF(SW=1,IF(CONST(EXIST(C>ST8.5,CON2)),ST8*1.1618,DRAWNULL),IF(CONST(EXIST(C<ST8.5,CON2)),ST8/1.1618,DRAWNULL)),COLOR89615F{XG51};
ST9.5:IF(SW=1,IF(CONST(EXIST(C>ST9,CON2)),ST9*1.0809,DRAWNULL),IF(CONST(EXIST(C<ST9,CON2)),ST9/1.0809,DRAWNULL)),COLOR89615F{XG51};
ST10:IF(SW=1,IF(CONST(EXIST(C>ST9.5,CON2)),ST9*1.1618,DRAWNULL),IF(CONST(EXIST(C<ST9.5,CON2)),ST9/1.1618,DRAWNULL)),COLOR89615F{XG51};
ST10.5:IF(SW=1,IF(CONST(EXIST(C>ST10,CON2)),ST10*1.0809,DRAWNULL),IF(CONST(EXIST(C<ST10,CON2)),ST10/1.0809,DRAWNULL)),COLOR89615F{XG51};
ST11:IF(SW=1,IF(CONST(EXIST(C>ST10.5,CON2)),ST10*1.1618,DRAWNULL),IF(CONST(EXIST(C<ST10.5,CON2)),ST10/1.1618,DRAWNULL)),COLOR89615F{XG51};
ST11.5:IF(SW=1,IF(CONST(EXIST(C>ST11,CON2)),ST11*1.0809,DRAWNULL),IF(CONST(EXIST(C<ST11,CON2)),ST11/1.0809,DRAWNULL)),COLOR89615F{XG51};
ST12:IF(SW=1,IF(CONST(EXIST(C>ST11.5,CON2)),ST11*1.1618,DRAWNULL),IF(CONST(EXIST(C<ST11.5,CON2)),ST11/1.1618,DRAWNULL)),COLOR89615F{X.G_5?1.C.N.{};