通达信大小通道主图未加密选股指标公式源码

通达信大小通道主图未加密选股指标公式源码

源码正文：

N:=5{XG51};
V1:=(ma(HIGH,30))*(1.149999976158){XG51};
V2:=(MA(HIGH,3))*(1.02999997139){XG51};
V3:=(MA(LOW,3))*(0.9700000286102){XG51};
V4:=(MA(LOW,30))*(0.8500000238419){XG51};
大通道上:MA(V1,30),COLORBLUE{XG51};
大通道下:MA(V4,30),COLORBLUE{XG51};
小通道上:MA(V2,30),COLORFF00FF{XG51};
小通道下:MA(V3,30),COLOR00FF00{XG51};
A1:=大通道上 - REF(大通道上,1){XG51};
A2:=小通道上 - REF(小通道上,1){XG51};
A3:=小通道下 - REF(小通道下,1){XG51};
A4:=大通道下 - REF(大通道下,1){XG51};
IF((A1 > 0),大通道上,DRAWNULL),LINETHICK2,COLORWHITE{XG51};
IF((A1 = 0),大通道上,DRAWNULL),LINETHICK2,COLORFFFFFF{XG51};
IF((A1 < 0),大通道上,DRAWNULL),LINETHICK2,COLOR008000{XG51};
IF((A2 > 0),小通道上,DRAWNULL),LINETHICK2,COLORLIMAGENTA{XG51};
IF((A2 = 0),小通道上,DRAWNULL),LINETHICK2,COLORFFFFFF{XG51};
IF((A2 < 0),小通道上,DRAWNULL),LINETHICK2,COLORCYAN{XG51};
IF((A3 > 0),小通道下,DRAWNULL),LINETHICK2,COLORGREEN{XG51};
IF((A3 = 0),小通道下,DRAWNULL),LINETHICK2,COLORFFFFFF{XG51};
IF((A3 < 0),小通道下,DRAWNULL),LINETHICK2,COLORCYAN{XG51};
IF((A4 > 0),大通道下,DRAWNULL),LINETHICK2,COLORWHITE{XG51};
IF((A4 = 0),大通道下,DRAWNULL),LINETHICK2,COLORFFFFFF{XG51};
IF((A4 < 0),大通道下,DRAWNULL),LINETHICK2,COLOR008000{XG51};
KXS:=2{XG51};
DSJ:=1{XG51};
GET:zig(3,N),COLORBLUE{XG51};
PL5:=(ZIG(3,5))*(DSJ){XG51};
EN1:=(ZIG(3,5) > REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1) <= REF(ZIG(3,5),2)) AND (REF(ZIG(3,5),2) <= (REF(ZIG(3,5),3))*(DSJ)){XG51};
EX1:=(ZIG(3,5) < REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1) >= REF(ZIG(3,5),2)) AND (REF(ZIG(3,5),2) >= (REF(ZIG(3,5),3))*(DSJ)){XG51};
PL10:=(ZIG(3,10))*(DSJ){XG51};
EN2:=(ZIG(3,10) > REF(ZIG(3,10),1)) AND (REF(ZIG(3,10),1) <= REF(ZIG(3,10),2)) AND (REF(ZIG(3,10),2) <= (REF(ZIG(3,10),3))*(DSJ)){XG51};
EX2:=(ZIG(3,10) < REF(ZIG(3,10),1)) AND (REF(ZIG(3,10),1) >= REF(ZIG(3,10),2)) AND (REF(ZIG(3,10),2) >= (REF(ZIG(3,10),3))*(DSJ)){XG51};
PL20:=(ZIG(3,20))*(DSJ){XG51};
EN3:=(ZIG(3,20) > REF(ZIG(3,20),1)) AND (REF(ZIG(3,20),1) <= REF(ZIG(3,20),2)) AND (REF(ZIG(3,20),2) <= (REF(ZIG(3,20),3))*(DSJ)){XG51};
EX3:=(ZIG(3,20) < REF(ZIG(3,20),1)) AND (REF(ZIG(3,20),1) >= REF(ZIG(3,20),2)) AND (REF(ZIG(3,20),2) >= (REF(ZIG(3,20),3))*(DSJ)){XG51};
PL40:=(ZIG(3,40))*(DSJ){XG51};
走强1:=BArslAst((PL5 < REF(PL5,1))){XG51};
走弱1:=BARSLAST((PL5 > REF(PL5,1))){XG51};
走强2:=BARSLAST((PL10 < REF(PL10,1))){XG51};
走弱2:=BARSLAST((PL10 > REF(PL10,1))){XG51};
走强3:=BARSLAST((PL20 < REF(PL20,1))){XG51};
走弱3:=BARSLAST((PL20 > REF(PL20,1))){XG51};
ZTJZ5:=IF((PL10 > REF(PL10,1)),COUNT(EN1,走强2),0){XG51};
ZTJD5:=IF((PL10 > REF(PL10,1)),COUNT(EX1,走强2),0){XG51};
DTJZ5:=IF((PL10 < REF(PL10,1)),COUNT(EN1,走弱2),0){XG51};
DTJD5:=IF((PL10 < REF(PL10,1)),COUNT(EX1,走弱2),0){XG51};
ZTJZ10:=IF((PL20 > REF(PL20,1)),COUNT(EN2,走强3),0){XG51};
ZTJD10:=IF((PL20 > REF(PL20,1)),COUNT(EX2,走强3),0){XG51};
DTJZ10:=IF((PL20 < REF(PL20,1)),COUNT(EN2,走弱3),0){XG51};
DTJD10:=IF((PL20 < REF(PL20,1)),COUNT(EX2,走弱3),0){XG51};
DRAWTEXT(EN1 AND (DTJZ5 = 1),(LOW)*(0.9800000190735),'㈠'),COLORFFFF00{XG51};
DRAWTEXT(EX1 AND (DTJD5 = 2),(HIGH)*(1.019999980927),'㈡'),COLORFFFF00{XG51};
DRAWTEXT(EN2 AND (ZTJZ5 = 1),(LOW)*(0.9800000190735),'㈢'),COLORFFFF00{XG51};
DRAWTEXT(EX1 AND (PL10 > REF(PL10,1)) AND (ZTJD5 = 1),(HIGH)*(1.019999980927),'⑴'),COLOR00FF00{XG51};
DRAWTEXT(EN1 AND (PL10 > REF(PL10,1)) AND (ZTJZ5 = 2),(LOW)*(0.9800000190735),'⑵'),COLOR00FF00{XG51};
DRAWTEXT(EX1 AND (PL10 > REF(PL10,1)) AND (ZTJZ5 = 2),(HIGH)*(1.019999980927),'⑶'),COLOR00FF00{XG51};
DRAWTEXT(EN1 AND (PL10 > REF(PL10,1)) AND (ZTJZ5 = 3),(LOW)*(0.9800000190735),'⑷'),COLOR00FF00{XG51};
DRAWTEXT(EX2 AND (PL20 > REF(PL20,1)) AND (ZTJD10 = 1),(HIGH)*(1.019999980927),'⑸'),COLOR00FF00{XG51};
DRAWTEXT(EN2 AND (DTJZ10 = 1),(LOW)*(0.9399999976158),'Ⅰ'),COLORFF0000{XG51};
DRAWTEXT(EX2 AND (DTJD10 = 2),(HIGH)*(1.05999994278),'Ⅱ'),COLORFF0000{XG51};
DRAWTEXT(EN3 AND (ZTJZ10 = 1),(LOW)*(0.9399999976158),'Ⅲ'),COLORFF0000{XG51};
DRAWTEXT(EX2 AND (PL20 > REF(PL20,1)) AND (ZTJD10 = 1),(HIGH)*(1.05999994278),'①'),LINETHICK3,COLOR008000{XG51};
DRAWTEXT(EN2 AND (PL20 > REF(PL20,1)) AND (ZTJZ10 = 2),(LOW)*(0.9399999976158),'②'),LINETHICK3,COLOR008000{XG51};
DRAWTEXT(EX2 AND (PL20 > REF(PL20,1)) AND (ZTJD10 = 2) OR (ZTJD10 = 0) OR (ZTJD10 = 2) AND EX2,((HIGH)*(1.05999994278))*(DSJ),'③'),LINETHICK3,COLOR008000{XG51};
DRAWTEXT(EN2 AND (PL20 > REF(PL20,1)) AND (ZTJZ10 = 3),(LOW)*(0.9399999976158),'④'),LINETHICK3,COLOR008000{X.G_5!1.C.N.{};

通达信江恩法则5.0主图未加密选股指标公式源码

源码正文：

N:=17{XG51};
GDFZ0:=C{XG51};
GDFZ1:=H{XG51};
GDFZ2:=L{XG51};
TYA:=((((((((((GDFZ2 + GDFZ1) + GDFZ0) + REF(GDFZ0,1)) + REF(GDFZ2,1)) + REF(GDFZ1,1)) + REF(GDFZ0,2)) + REF(GDFZ2,2)) + REF(GDFZ1,2)) / 9)){XG51};
HDA:=(((((HHV(TYA,(17 * 2)) + REF(HHV(TYA,(17 * 2)),1)) + REF(HHV(TYA,(17 * 2)),2)) + REF(HHV(TYA,(17 * 2)),3)) + REF(HHV(TYA,(17 * 2)),4)) / 5){XG51};
LDA:=(((((LLV(TYA,(17 * 2)) + REF(LLV(TYA,(17 * 2)),1)) + REF(LLV(TYA,(17 * 2)),2)) + REF(LLV(TYA,(17 * 2)),3)) + REF(LLV(TYA,(17 * 2)),4)) / 5){XG51};
A1:=(REF(HDA,1) = (HHV(TYA,((2 * N) + 0)))){XG51};
B1:=(FILTER(A1,N)){XG51};
HD:=(FILTER(B1,N)){XG51};
A2:=(REF(LDA,1) = (LLV(TYA,((2 * N) + 0)))){XG51};
B2:=(FILTER(A2,N) ){XG51};
LD:=(FILTER(B2,N)){XG51};
A:=(REF(HDA,BArslAst(HD))){XG51};
B:=(REF(LDA,BARSLAST(LD))){XG51};
T1:=((BARSLAST(HD) < BARSLAST(LD)) AND (NOT(HD))){XG51};
T2:=((BARSLAST(HD) > BARSLAST(LD)) AND (NOT(LD))){XG51};
BF:=IF(T1,A,A){XG51};
HH:=ma(BF,1){XG51};
BG:=IF(T2,B,B){XG51};
LL:=MA(BG,1){XG51};
HH1:=(BARSLAST((GDFZ0 > (REF(HH,1) * 1.003)))){XG51};
LL1:=(BARSLAST((GDFZ0 < (REF(LL,1) * 0.997)))){XG51};
IF((HH1 < LL1),LL,DRAWNULL),,COLOR00FFFF{XG51};
IF((HH1 > LL1),HH,DRAWNULL),LINETHICK2,COLORFFFFFF{XG51};
DRAWICON(crOSS(HH1,LL1),HH,2){XG51};
DRAWICON(CROSS(LL1,HH1),LL,1){XG51};
STICKLINE((HH1 < LL1),OPEN,CLOSE,3,0),COLORWHITE{XG51};
STICKLINE((HH1 < LL1),HIGH,LOW,0,0),COLORWHITE{XG51};
STICKLINE((HH1 > LL1),OPEN,CLOSE,3,0),COLORFF00FF{XG51};
STICKLINE((HH1 > LL1),HIGH,LOW,0,0),COLORFF00FF{X_G*5_1_C_N_{};