通达信明日涨跌主图未加密选股指标公式源码

源码正文：

P1:=5{XG51};
P2:=10{XG51};
P3:=20{XG51};
P4:=30{XG51};
P5:=60{XG51};
P6:=120{XG51};
P7:=240{XG51};
P8:=340{XG51};
N:=4{XG51};
WX:=ma(CLOSE,0){XG51};
M1:=MA(CLOSE,P1){XG51};
M2:=(MA(CLOSE,P2) * IF((N < 2),WX,1)){XG51};
M3:=(MA(CLOSE,P3) * IF((N < 3),WX,1)){XG51};
M4:=(MA(CLOSE,P4) * IF((N < 4),WX,1)){XG51};
M5:=(MA(CLOSE,P5) * IF((N < 5),WX,1)){XG51};
M6:=(MA(CLOSE,P6) * IF((N < 6),WX,1)){XG51};
M7:=(MA(CLOSE,P7) * IF((N < 7),WX,1)){XG51};
M8:=(MA(CLOSE,P8) * IF((N < 8),WX,1)){XG51};
C1:=REF(CLOSE,1){XG51};
C2:=HHV(C1,2){XG51};
C3:=LLV(C1,1){XG51};
ET:=HHV(C1,2){XG51};
ET1:=REF(ET,1){XG51};
XB:=LLV(C1,1){XG51};
XB1:=REF(XB,1){XG51};
M:=BArslAst(((CLOSE < XB) AND (C1 >= XB1))){XG51};
M11:=REF(M,1){XG51};
N9:=BARSLAST(((CLOSE > ET) AND (C1 <= ET1))){XG51};
N1:=REF(N9,1){XG51};
M21:=(BARSLAST((((M - N9) > 0) AND (M11 <= N1))) + 1){XG51};
N2:=(BARSLAST((((N9 - M) > 0) AND (N1 <= M11))) + 1){XG51};
ET2:=HHV(ET,M21){XG51};
XB2:=LLV(XB,N2){XG51};
A:=IF((((M - N9) > 0) AND (M11 <= N1)),1,IF((((N9 - M) > 0) AND (N1 <= M11)),0,2)){XG51};
H1:=IF(((M - N9) > 0),CLOSE,ET2){XG51};
H2:=IF((A = 1),CLOSE,C2){XG51};
H3:=IF(((M - N9) < 0),CLOSE,XB2){XG51};
H4:=IF((A = 1),CLOSE,XB2){XG51};
H5:=IF((((M - N9) > 0) OR (A = 1)),CLOSE,H3){XG51};
H6:=REF(H5,1){XG51};
H7:=REF(H5,2){XG51};
H8:=(H5 > H6){XG51};
H9:=(((H4 = REF(H4,1)) AND (REF(H4,1) < REF(H4,2))) AND (H5 > REF(H5,2))){XG51};
H10:=(((H2 = REF(H2,1)) AND (H4 = REF(H4,1))) AND (H5 = REF(H5,2))){XG51};
W:=((H8 OR H9) OR H10){XG51};
T9:=((H5 < H6) AND (H5 < REF(H5,2))){XG51};
T10:=((H4 = REF(H4,1)) AND (H5 < REF(H5,2))){XG51};
T11:=((H3 > REF(H3,1)) AND (H5 < REF(H5,1))){XG51};
T12:=((H5 = REF(H5,1)) AND (H3 = H4)){XG51};
T13:=((H2 = REF(H2,1)) AND (H2 = H5)){XG51};
TW:=((((T9 OR T10) OR T11) OR T12) OR T13){XG51};
PK:=((AMOUNT * (((OPEN + CLOSE) + HIGH) + LOW)) / 4){XG51};
PK1:=IF((vol > 0),(PK / AMOUNT),((((OPEN + CLOSE) + HIGH) + LOW) / 4)){XG51};
BBP:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100){XG51};
STICKLINE((ISLASTBAR AND W),(H5 * 1.025),(H5 * 0.99),0.5,0),COLORFF8800{XG51};
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,8,0),COLOR102088{XG51};
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,7,0),COLOR102099{XG51};
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,6,0),COLOR1020AA{XG51};
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,5,0),COLOR1020BB{XG51};
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,4,0),COLOR1020CC{XG51};
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,3,0),COLOR1020DD{XG51};
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,2,0),COLOR1020EE{XG51};
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,1,0),COLOR1020FF{XG51};
DRAWTEXT((ISLASTBAR AND (BBP >= 96.5)),(H5 * 1.022),'明见\N 短高\N 龙头\N 除外'),COLORWHITE{XG51};
DRAWTEXT((ISLASTBAR AND (BBP < 1)),((H5 + H4) / 1.96),'明见\N 短低\N 跌停\N 除外'),COLORCYAN{XG51};
DRAWTEXT(((ISLASTBAR AND W) AND (BBP < 96.5)),(H5 * 1.022),'明日\N 看涨'),COLORBLUE{XG51};
DRAWTEXT(((ISLASTBAR AND TW) AND (BBP > 1)),((H5 + H4) / 2),'明日\N 看跌'),COLORCYAN{X+G_5.1+C+N+{};

源码正文：

无总天数:=HHVBARS(H,120){XG51};
无交换次数5:=FLOOR(无总天数/5){XG51};
无判断5:=IF(无交换次数5>0,无交换次数5,0){XG51};
无判定5:=IF(无判断5-REF(无判断5,1)>0,无判断5,0){XG51};
无距上次交换5:=BArslAst(无判定5)+1{XG51};
无交换次数6:=FLOOR(无总天数/6){XG51};
无判断6:=IF(无交换次数6>0,无交换次数6,0){XG51};
无判定6:=IF(无判断6-REF(无判断6,1)>0,无判断6,0){XG51};
无距上次交换6:=BARSLAST(无判定6)+1{XG51};
无交换次数9:=FLOOR(无总天数/9){XG51};
无判断9:=IF(无交换次数9>0,无交换次数9,0){XG51};
无判定9:=IF(无判断9-REF(无判断9,1)>0,无判断9,0){XG51};
无距上次交换9:=BARSLAST(无判定9)+1{XG51};
无顶56:(无距上次交换5+无距上次交换6=2)*80,COLOR3399FF,NODRAW{XG51};
STICKLINE(无距上次交换5+无距上次交换6=2 ,200 ,120 ,2 ,0 ),COLOR3399FF{XG51};
无顶69:(无距上次交换6+无距上次交换9=2)*80,COLOR33FF00,NODRAW{XG51};
STICKLINE(无距上次交换6+无距上次交换9=2 ,200 ,120 ,2 ,0 ),COLOR33FF00{XG51};
无底总天数:=LLVBARS(L,120){XG51};
无底交换次数5:=FLOOR(无底总天数/5){XG51};
无底判断5:=IF(无底交换次数5>0,无底交换次数5,0){XG51};
无底判定5:=IF(无底判断5-REF(无底判断5,1)>0,无底判断5,0){XG51};
无底距上次交换5:=BARSLAST(无底判定5)+1{XG51};
无底交换次数6:=FLOOR(无底总天数/6){XG51};
无底判断6:=IF(无底交换次数6>0,无底交换次数6,0){XG51};
无底判定6:=IF(无底判断6-REF(无底判断6,1)>0,无底判断6,0){XG51};
无底距上次交换6:=BARSLAST(无判定6)+1{XG51};
无底交换次数9:=FLOOR(无底总天数/9){XG51};
无底判断9:=IF(无底交换次数9>0,无底交换次数9,0){XG51};
无底判定9:=IF(无底判断9-REF(无底判断9,1)>0,无底判断9,0){XG51};
无底距上次交换9:=BARSLAST(无底判定9)+1{XG51};
无底56:(无底距上次交换5+无底距上次交换6=2)*80,COLOR3333FF,NODRAW{XG51};
STICKLINE(无底距上次交换5+无底距上次交换6=2 ,200 ,120 ,2 ,0 ),COLOR3333FF{XG51};
无底69:(无底距上次交换6+无底距上次交换9=2)*80,COLORFFFF00,NODRAW{XG51};
STICKLINE(无底距上次交换6+无底距上次交换9=2 ,200 ,120 ,2 ,0 ),COLORFFFF00;顶转点:=PEAKBARS(1,10,5){XG51};
顶总天数:=顶转点{XG51};
交换次数5:=FLOOR(顶总天数/5){XG51};
判断5:=IF(交换次数5>0,交换次数5,0){XG51};
判定5:=IF(判断5-REF(判断5,1)>0,判断5,0){XG51};
距上次交换5:=BARSLAST(判定5)+1{XG51};
交换次数6:=FLOOR(顶总天数/6){XG51};
判断6:=IF(交换次数6>0,交换次数6,0){XG51};
判定6:=IF(判断6-REF(判断6,1)>0,判断6,0){XG51};
距上次交换6:=BARSLAST(判定6)+1{XG51};
交换次数9:=FLOOR(顶总天数/9){XG51};
判断9:=IF(交换次数9>0,交换次数9,0){XG51};
判定9:=IF(判断9-REF(判断9,1)>0,判断9,0){XG51};
距上次交换9:=BARSLAST(判定9)+1{XG51};
有未顶56:(距上次交换5+距上次交换6=2)*80,COLOR3399FF,NODRAW{XG51};
STICKLINE(距上次交换5+距上次交换6=2 ,0 ,80 ,2 ,0 ),COLOR3399FF{XG51};
有未顶69:(距上次交换6+距上次交换9=2)*80,COLOR33FF00,NODRAW{XG51};
STICKLINE(距上次交换6+距上次交换9=2 ,0 ,80 ,2 ,0 ),COLOR33FF00;底转点:=TROUGHBARS(1,10,5){XG51};
底总天数:=底转点{XG51};
交换次数55:=FLOOR(底总天数/5){XG51};
判断55:=IF(交换次数55>0,交换次数55,0){XG51};
判定55:=IF(判断55-REF(判断55,1)>0,判断55,0){XG51};
距上次交换55:=BARSLAST(判定55)+1{XG51};
交换次数66:=FLOOR(底总天数/6){XG51};
判断66:=IF(交换次数66>0,交换次数66,0){XG51};
判定66:=IF(判断66-REF(判断66,1)>0,判断66,0){XG51};
距上次交换66:=BARSLAST(判定66)+1{XG51};
交换次数99:=FLOOR(底总天数/99){XG51};
判断99:=IF(交换次数99>0,交换次数99,0){XG51};
判定99:=IF(判断99-REF(判断99,1)>0,判断99,0){XG51};
距上次交换99:=BARSLAST(判定99)+1{XG51};
有未底56:(距上次交换55+距上次交换66=2)*80,COLOR3333FF,NODRAW{XG51};
STICKLINE(距上次交换55+距上次交换66=2 ,0 ,80 ,2 ,0 ),COLOR3333FF{XG51};
有未底69:(距上次交换66+距上次交换99=2)*80,COLORFFFF00,NODRAW{XG51};
STICKLINE(距上次交换66+距上次交换99=2 ,0 ,80 ,2 ,0 ),COLORFFFF00{X?G*5*1?C?N?{};