西安名牌包包维修:[股市论谈]我常用的几个通达信指标公式源码

我常用的几个通达信指标公式源码，无私贡献（或许会有许多炒股的人需要）！
　　
　　1、海风2号
　　MA5:MA(CLOSE,5),COLORFFFFFF,LINETHICK2;
　　MA13:MA(CLOSE,13),COLOR00FF00;
　　MA21:MA(CLOSE,21),COLOR00FFFF,LINETHICK2;
　　MA34:MA(CLOSE,34),COLORFF00FF;
　　{MA55:MA(CLOSE,55),COLOR0000FF;}
　　{MA120:=MA(CLOSE,120),COLORFFFF00;}
　　天使:=EMA(C,2),COLOR000000;
　　魔鬼:=EMA(SLOPE(C,21)*20+C,42),COLOR000000;
　　买:=CROSS(天使,魔鬼);
　　卖:=CROSS(魔鬼,天使);
　　DRAWICON(买,L*0.97,1);
　　DRAWTEXT(买,L*0.95,'进攻'),COLORYELLOW;
　　DRAWICON(卖,H*1.03,2);
　　DRAWTEXT(卖,H*1.05,'撤退'),COLORWHITE;
　　STICKLINE(天使>=魔鬼,LOW,HIGH,0.01,0),COLOR0000DD;
　　STICKLINE(天使>=魔鬼,CLOSE,OPEN,2,1),COLORRED;
　　{STICKLINE(天使>=魔鬼,CLOSE,OPEN,3,0),COLOR0000CC;
　　STICKLINE(天使>=魔鬼,CLOSE,OPEN,2,0),COLOR0000DD;
　　STICKLINE(天使>=魔鬼,CLOSE,OPEN,1,0),COLOR0000FF;}
　　{STICKLINE(天使<魔鬼,CLOSE,OPEN,1,0),COLOREEEE00;
　　STICKLINE(天使<魔鬼,CLOSE,OPEN,2,0),COLORDDDD00;
　　STICKLINE(天使<魔鬼,CLOSE,OPEN,3,0),COLORCCCC00;}
　　STICKLINE(天使<魔鬼,LOW,HIGH,0.01,0),COLORFFDD00;
　　STICKLINE(天使<魔鬼,CLOSE,OPEN,2,0),COLORFFFF00;
　　STICKLINE(CROSS(天使,魔鬼),OPEN,CLOSE,2.5,0),COLORYELLOW;
　　STICKLINE(CROSS(魔鬼,天使),OPEN,CLOSE,2.5,0),COLORWHITE;
　　
　　2、益盟操盘手
　　VAR1:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));
　　VAR2:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));
　　VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));
　　DIR1:=ABS(CLOSE-REF(CLOSE,5));
　　VIR1:=SUM(ABS(CLOSE-REF(CLOSE,1)),5);
　　ER1:=DIR1/VIR1;
　　CS1:=ER1*(0.8-2/8)+2/8;
　　CQ1:=CS1*CS1;
　　AMA1:EMA(DMA(CLOSE,CQ1),2) ,COLORWHITE;
　　DIR2:=ABS(CLOSE-REF(CLOSE,10));
　　VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),10);
　　ER2:=DIR2/VIR2;
　　CS2:=ER2*(0.8-2/24)+2/24;
　　CQ2:=CS2*CS2;
　　AMA2:EMA(DMA(CLOSE,CQ2),2),COLORGREEN,LINETHICK2;
　　AMA3:IF(AMA2/REF(AMA2,1)>0.997,AMA2,DRAWNULL),COLORYELLOW,LINETHICK2;
　　AMA4:IF(AMA2/REF(AMA2,1)>1.001,AMA2,DRAWNULL),COLORRED,LINETHICK2;
　　STICKLINE((VAR2 < MA(VAR3,6)),CLOSE,OPEN,3,1),COLOR008000;
　　STICKLINE((VAR2 > MA(VAR3,6)),OPEN,CLOSE,3,1),COLORRED;
　　STICKLINE(((OPEN > CLOSE) AND (VAR2 > MA(VAR3,6))),(OPEN * 0.998),(CLOSE * 1.0001),2.3,0),COLOR008000;
　　STICKLINE(((OPEN < CLOSE) AND (VAR2 < MA(VAR3,6))),(CLOSE * 0.998),(OPEN * 1.002),2.3,0),COLORRED;
　　STICKLINE(((OPEN > CLOSE) AND (VAR2 < MA(VAR3,6))),CLOSE,OPEN,2.3,0),COLOR008000;
　　DRAWICON(CROSS(VAR2,MA(VAR3,6)),(LOW - (LOW*0.04)),7);
　　DRAWICON(CROSS(MA(VAR3,6),VAR1),(HIGH+(HIGH*0.03)),8);
　　PT:=REF(H,1)-REF(L,1);
　　CDP:=(REF(H,1)+REF(L,1)+REF(C,1)*2)/4;
　　AH:=CDP+PT;
　　AL:=CDP-PT;
　　NH:=CDP*2-REF(L,1);
　　NL:=CDP*2-REF(H,1);
　　强:IF(AH>REF(C,1)*1.1,REF(C,1)*1.1,AH)NODRAW;
　　阻:IF(NH>强,(强-CDP)*0.618+CDP,NH)NODRAW,COLORCYAN;
　　M:=IF(AL　　撑:IF(NL　　底:IF(AL　　
　　3、操盘手BS线
　　MA5:MA(C,5),COLORF00FF0;
　　MA10:MA(C,10),COLORYELLOW;
　　MA21:MA(C,21),COLORE66878;
　　MA30:MA(C,30),COLORWHITE;
　　MA120:MA(C,120),COLOR399C7F,POINTDOT;
　　MA240:MA(C,240),COLOR000999,POINTDOT;
　　X1:=(C+L+H)/3;
　　X2:=EMA(X1,6);
　　X3:=EMA(X2,5);
　　DRAWICON(CROSS(X2,X3),L*0.98,7);
　　DRAWICON(CROSS(X3,X2),H*1.02,8);
　　STICKLINE(X2>=X3,LOW,HIGH,0.1,1),COLORRED;
　　STICKLINE(X2>=X3,CLOSE,OPEN,2,2),COLORRED;
　　STICKLINE(X2>=X3,CLOSE,OPEN,2,8),COLORBROWN;
　　STICKLINE(X2　　STICKLINE(X2　　STICKLINE(CROSS(X2,X3),OPEN,CLOSE,2,1),COLORYELLOW;
　　STICKLINE(CROSS(X3,X2),OPEN,CLOSE,2,1),COLORBLUE;
　　
　　4、四方力道(主)
　　V1:=DMA((((HIGH + LOW) + (CLOSE * 2)) / 4.15),0.9);
　　HY1:=REF(EMA(V1,3),1);
　　实时线:MA(CLOSE,1),COLOR006400;
　　神秘线:HY1,COLOR400080;
　　
　　STICKLINE(C>HY1,LOW,HIGH,1,0),COLORRED;
　　STICKLINE(C>HY1,CLOSE,OPEN,4.5,0),COLORRED;
　　STICKLINE(C>HY1,CLOSE,OPEN,4,0),COLORRED;
　　STICKLINE(C>HY1,CLOSE,OPEN,3,0),COLORRED;
　　STICKLINE(C>HY1,CLOSE,OPEN,2,0),COLORRED;
　　STICKLINE(C<=HY1,CLOSE,OPEN,4.5,0),COLORFF4242;
　　STICKLINE(C<=HY1,CLOSE,OPEN,4,0),COLORFF4242;
　　STICKLINE(C<=HY1,CLOSE,OPEN,3,0),COLORFF4242;
　　STICKLINE(C<=HY1,CLOSE,OPEN,2,0),COLORFF4242;
　　STICKLINE(C<=HY1,LOW,HIGH,1,0),COLORFF4242;
　　
　　DRAWTEXT(CROSS(CLOSE,HY1),LOW,'买点'),LINETHICK2,COLORYELLOW;
　　DRAWTEXT(CROSS(HY1,CLOSE),HIGH*1.08,'卖点'),LINETHICK3,COLORWHITE;
　　APP:=(VOL / (((HIGH - LOW) * 2) - ABS((CLOSE - OPEN))));
　　ZL:=IF((CLOSE > OPEN),(APP * (HIGH - LOW)),IF((CLOSE < OPEN),(APP * ((HIGH - OPEN) + (CLOSE - LOW))),(VOL / 2)));
　　SF:=IF((CLOSE > OPEN),(0 - (APP * ((HIGH - CLOSE) + (OPEN - LOW)))),IF((CLOSE < OPEN),(0 - (APP * (HIGH - LOW))),(0 - (VOL / 2))));
　　库存能量:=MA((ZL + SF),2);
　　库存平均:=MA((ZL + SF),5);
　　DRAWTEXT(CROSS(库存能量,库存平均),L*0.97,''),COLORFF00FF,LINETHICK4;
　　
　　5、上出下买+三背离
　　A:=MA(CLOSE,17)+ABS(MA(CLOSE,17)-REF(MA(CLOSE,17),1));
　　B:=MA(CLOSE,17)+MA(CLOSE,17)-REF(MA(CLOSE,17),1);
　　分水岭:IF(MA(CLOSE,17)　　PMA:=分水岭;
　　DD:=分水岭　　IF(DD,分水岭,DRAWNULL),COLOR00FF00,LINETHICK2;
　　操作线:分水岭-(EMA(C,3)-分水岭),COLOR00FFFF,LINETHICK2;
　　S:=(PMA>操作线);
　　IF(S,分水岭,DRAWNULL),COLOR00FF00,POINTDOT,LINETHICK4;
　　PM:MA(C,5),COLORFFFFCC,LINETHICK2;
　　IF(PM>REF(PM,1),PM,DRAWNULL),COLORRED,LINETHICK2;
　　IF(PM=REF(PM,1),PM,DRAWNULL),COLORRED;
　　IF(PM　　DRAWICON(CROSS(分水岭,操作线),分水岭-0.1,1);
　　A1:=BARSLAST(REF(CROSS("MACD.DIF","MACD.DEA"),1));
　　B1:=REF(C,A1+1)>C AND REF("MACD.DIF",A1+1)<"MACD.DIF" AND CROSS("MACD.DIF","MACD.DEA");
　　DRAWTEXT(B1>0,L-0.02,'★M'),COLOR00FFFF;
　　A2:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1));
　　B2:=REF(C,A2+1)>C AND REF("KDJ.K",A2+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D");
　　DRAWTEXT(B2,L-0.10,'◎K'),COLORFF00FF;
　　A3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));
　　B3:=REF(C,A3+1)>C AND REF("RSI.RSI1",A3+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2");
　　DRAWTEXT(B3>0,L-0.18,'◆R'),COLOR0000FF;
　　C1:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1));
　　D1:=REF(C,C1+1)"MACD.DIF" AND CROSS("MACD.DEA","MACD.DIF");
　　DRAWTEXT(D1>0,H+0.16,'★M'),COLOR00FF00;
　　C2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1));
　　D2:=REF(C,C2+1)"KDJ.K" AND CROSS("KDJ.D","KDJ.K");
　　DRAWTEXT(D2>0,H+0.08,'◎K'),COLORFFFFCC;
　　C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1));
　　D3:=REF(C,C3+1)"RSI.RSI1" AND CROSS("RSI.RSI2","RSI.RSI1");
　　DRAWTEXT(D3>0,H+0.04,'◆R'),COLORFF9900;
　　
　　6、变色KDJ
　　RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
　　K:SMA(RSV,3,1),COLORWHITE;
　　D:SMA(K,3,1),COLORYELLOW;
　　J:3*K-2*D,COLORYELLOW;
　　IF(K　　IF(D　　IF(J　　IF(K>REF(K,1),K,DRAWNULL),COLORRED,LINETHICK1;
　　IF(D>REF(D,1),D,DRAWNULL),COLORRED,LINETHICK1;
　　IF(J>REF(J,1),J,DRAWNULL),COLORFF00FF,LINETHICK1;
　　
　　7、变色RSI
　　N:=3;
　　
　　
　　N1:=5;N2:=10;N3:=20;N4:=1;M1:=7;M2:=2;
　　
　　LC :=REF(C,N4);
　　RSI1:SMA(MAX(C-LC,0),N1,1)/SMA(ABS(C-LC),N1,1)*100,COLORRED,LINETHICK1;
　　RSI2:SMA(MAX(C-LC,0),N2,1)/SMA(ABS(C-LC),N2,1)*100,COLOR0099FF;
　　RSI3:SMA(MAX(C-LC,0),N3,1)/SMA(ABS(C-LC),N3,1)*100,COLORYELLOW,LINETHICK1;
　　IF(RSI1　　IF(RSI2>RSI1,RSI2,DRAWNULL),COLORAA8800,LINETHICK1;
　　IF(RSI3>RSI2,RSI3,DRAWNULL)COLORAA8800,LINETHICK1;
　　
　　
　　
　　TY:=RSI1;{通用曲线值的引入}
　　
　　AA:=REF(TY,N)=HHV(TY,2*N+1);
　　BB:=BACKSET(AA,N+1);
　　CC:=FILTER(BB,N) AND TY=HHV(TY,N+1);
　　DRAWICON(CC,TY*1.07,10);
　　AA2:=REF(TY,N)=LLV(TY,2*N+1);
　　BB2:=BACKSET(AA2,N+1);
　　CC2:=FILTER(BB2,N) AND TY=LLV(TY,N+1);
　　DRAWICON(CC2,TY*0.95,11);
　　
　　GG:=ISLASTBAR AND REF(CC,BARSLAST(CC));
　　HH:=BACKSET(GG,BARSLAST(CC)+1);
　　II:=HH>REF(HH,1);
　　JJ:=REF(BARSLAST(CC),1);
　　KK:=BACKSET(II,JJ+2);
　　LL:=KK>REF(KK,1);
　　DRAWLINE(LL,TY,II,TY,1),COLORRED;
　　CS:=(REF(TY,BARSLAST(II))-REF(TY,BARSLAST(LL)))/(BARSLAST(LL)-BARSLAST(II));
　　阻力线:=REF(TY,BARSLAST(II))+BARSLAST(II)*CS;
　　阻力值:阻力线,LINETHICK0;
　　DRAWICON(CROSS(TY,阻力线),阻力线*0.99,12);
　　
　　GG2:=ISLASTBAR AND REF(CC2,BARSLAST(CC2));
　　HH2:=BACKSET(GG2,BARSLAST(CC2)+1);
　　II2:=HH2>REF(HH2,1);
　　JJ2:=REF(BARSLAST(CC2),1);
　　KK2:=BACKSET(II2,JJ2+2);
　　LL2:=KK2>REF(KK2,1);
　　DRAWLINE(LL2,TY,II2,TY,1),COLORGREEN;
　　
　　8、变色MACD
　　DIF1:=EMA(CLOSE,12) - EMA(CLOSE,26);
　　DEA1:=EMA(DIF1,9);
　　MACD1:=2*(DIF1-DEA1),STICK;
　　MACD2:=EMA(MACD1,3);
　　STICKLINE(MACD1>MACD2 AND MACD1>0,0,MACD1,1,0),COLORRED;
　　STICKLINE(MACD1>MACD2 AND MACD1<0,0,MACD1,1,0),COLORGREEN;
　　STICKLINE(MACD1　　STICKLINE(MACD1>=0 OR MACD1<=0,0,0,50,1),COLORWHITE;
　　DIF:DIF1,COLOR33FF33;
　　DEA:DEA1,COLORYELLOW;
　　MACD:MACD1,NODRAW,COLORMAGENTA;
　　强:IF(DIF1>=DEA1,DIF1,DRAWNULL),COLORRED,LINETHICK2;