通达信指标N个源码(2)

探索者: EMA(3*VARB-2*VARC,3); 主力: (-1)*(EMA(VAR7,1)-50)+50; VARD:=(-1)*(EMA(VAR7,1)-50)+50; VARE:=(-1)*(EMA(VAR7,12)-50)+50; 天涯: 100;

苦海:

EMA(100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14)),6),LINESTICK,COLORFF0000;

EMA(100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14)),6); ZS: MA(探索者,3); Z1: MA(主力,9);

ZM: MA(MA(探索者,3),3); {买入卖出}

VAR1A:=LLV(LOW,5)=LLV(LOW,45) AND CLOSE>=OPEN*1.04; VAR2A:=CLOSE>(REF(HIGH,1)+REF(LOW,1))/2;

买入:VAR1A AND VAR2A,STICK,LINETHICK2,COLORRED;

DRAWICON(买入,1.1,1); {蛮准}

LC:=REF(CLOSE,1);

RSI:=SMA(MAX(CLOSE-LC,0),4.1,1)/SMA(ABS(CLOSE-LC),4.1,1)*100; 蛮准:CROSS(RSI,11)*80,COLORRED;

{海底火山}

VAR1:=1/WINNER(CLOSE);

VAR2:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100; VAR3:=100-ABS(VAR2);

VAR4:=3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)-2*SMA(SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);

VAR5:=3*SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)-2*SMA(SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);

VAR6:=100-VAR5; VAR7:=100-VAR4;

VAR8:=MA(WINNER(CLOSE*0.95)*100,3);

VAR9:=IF(VAR1>5,IF(VAR1<100,VAR1,VAR3-10),0);

VARA:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100; VARB:=SMA(VARA,3,1); VARC:=SMA(VARB,3,1);

探索者: EMA(3*VARB-2*VARC,3); 主力: (-1)*(EMA(VAR7,1)-50)+50; VARD:=(-1)*(EMA(VAR7,1)-50)+50; VARE:=(-1)*(EMA(VAR7,12)-50)+50; 天涯: 100;

苦海:

EMA(100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14)),6),LINESTICK,COLORFF0000;

EMA(100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14)),6); ZS: MA(探索者,3); Z1: MA(主力,9);

ZM: MA(MA(探索者,3),3); {买入卖出}

VAR1A:=LLV(LOW,5)=LLV(LOW,45) AND CLOSE>=OPEN*1.04; VAR2A:=CLOSE>(REF(HIGH,1)+REF(LOW,1))/2;

买入:VAR1A AND VAR2A,STICK,LINETHICK2,COLORRED;

DRAWICON(买入,1.1,1); {蛮准}

LC:=REF(CLOSE,1);

RSI:=SMA(MAX(CLOSE-LC,0),4.1,1)/SMA(ABS(CLOSE-LC),4.1,1)*100; 蛮准:CROSS(RSI,11)*80,COLORRED;

{海底火山}

RSV:=(((CLOSE - LLV(LOW,29)) / (HHV(HIGH,29) - LLV(LOW,29))) * 100); K:=MA(RSV,5); D:=MA(K,2);

J:=((3 * K) - (2 * D));

海底火山:IF((J < 5),75,0),COLORGREEN; {分批出}

LL:=REF(CLOSE,1);

MM:=SMA(MAX(CLOSE-LL,0),6,1)/SMA(ABS(CLOSE-LL),6,1)*100; 分批出: IF(CROSS(80,MM),50,100),COLORYELLOW; {CCI}

TYP:=(HIGH+LOW+CLOSE)/3; 选

股:IF(CROSS((TYP-MA(TYP,N))/(0.015*AVEDEV(TYP,N)),-120),50,0),COLORMAGENTA;

理财专家

{参数 D:34,90,72}

VAR1:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20; VAR2:=2*ABS(VAR1);

VAR3:=100-3*SMA((CLOSE-LLV(LOW,D))/(HHV(HIGH,D)-LLV(LOW,D))*100,20,1)+2*SMA(SMA((CLOSE-LLV(LOW,D))/(HHV(HIGH,D)-LLV(LOW,D))*100,20,1),15,1);

VAR4:=100-3*SMA((OPEN-LLV(LOW,D))/(HHV(HIGH,D)-LLV(LOW,D))*100,20,1)+2*SMA(SMA((OPEN-LLV(LOW,D))/(HHV(HIGH,D)-LLV(LOW,D))*100,20,1),15,1); VAR5:=(HIGH+LOW+CLOSE)/3;

VAR6:=(VAR5-MA(VAR5,14))/(0.015*AVEDEV(VAR5,14)); VAR7:=(VAR5-MA(VAR5,89))/(0.015*AVEDEV(VAR5,89));

VAR8:=IF(VAR6>=150 AND VAR6<200 AND VAR7>=150 AND VAR7<200,10,0); VAR9:=IF(VAR6<=-150 AND VAR6>-200 AND VAR7<=-150 AND VAR7>-200,-10,VAR8);

VARA:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100; VARB:=100-ABS(VARA);

VARC:=3*SMA((INDEXC-LLV(INDEXL,D))/(HHV(INDEXH,D)-LLV(INDEXL,D))*100,20,1)-2*SMA(SMA

((INDEXC-LLV(INDEXL,D))/(HHV(INDEXH,D)-LLV(INDEXL,75))*100,20,1),15,1);

VARD:=3*SMA((INDEXO-LLV(INDEXL,D))/(HHV(INDEXH,D)-LLV(INDEXL,D))*100,20,1)-2*SMA(SMA

((INDEXO-LLV(INDEXL,D))/(HHV(INDEXH,D)-LLV(INDEXL,75))*100,20,1),15,1);

VARE:=REF(LOW,1)*0.9; VARF:=LOW*0.9;

VAR10:=(VARF*VOL+VARE*(CAPITAL-VOL))/CAPITAL; VAR11:=EMA(VAR10,30); VAR12:=VAR11-CLOSE; VAR13:=REF(CLOSE,1);

VAR14:=SMA(MAX(CLOSE-VAR13,0),7,1)/SMA(ABS(CLOSE-VAR13),7,1)*100; VAR15:=SMA(MAX(CLOSE-VAR13,0),13,1)/SMA(ABS(CLOSE-VAR13),13,1)*100; VAR16:=BARSCOUNT(CLOSE);

VAR17:=SMA(MAX(CLOSE-REF(CLOSE,1),0),6,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),6,1)*100;

VAR18:=((-100)*(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60))+50)*2; VAR19:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100; VAR1A:=(SMA(VAR19,4,1)-50)*2; VAR1B:=SMA(VAR1A,3,1);

VAR1C:=(INDEXC-LLV(INDEXL,14))/(HHV(INDEXH,14)-LLV(INDEXL,14))*100; VAR1D:=SMA(VAR1C,4,1); VAR1E:=SMA(VAR1D,3,1);

VAR1F:=(HHV(HIGH,30)-CLOSE)/CLOSE*100; VAR20:=IF(VAR17<=25 AND VAR18<-95 AND VAR1F>20 AND VAR1B<-30 AND VAR1E<30 AND VAR12>=-0.25 AND VAR14<22 AND VAR15<28 AND VAR16>50,80,0); 活筹OAMV: VAR3,COLORFF00FF;

OX: IF(VARB<90,VARB,100),COLORFFCC66; VAR21:=IF(VAR1>0,VAR1,0);

核能: IF(VAR1<0,VAR2,0), LINESTICK; 牛角: VAR20,COLORYELLOW;

预警: IF(VAR7>=200 AND VAR6>=150,15,IF(VAR7<=-200 AND VAR6<=-150,-15,VAR9)) +60,COLOR00FF00;

VAR22:=100*(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)); VAR23:=MA(VAR22,3);

VAR24:=EMA(AMOUNT/VOL/100,5); VAR25:=EMA(AMOUNT/VOL/100,13); VAR26:=VAR24-VAR25;

势能: IF(1000*VAR26/VAR24>0,1000*VAR26/VAR24,0),COLORRED,LINETHICK2; STICKLINE(VAR3>=REF(VAR4,1),VAR3,VAR4,8,1),COLORRED; STICKLINE(VAR3

VAR27:=CLOSE>MA(CLOSE,20) AND MA(CLOSE,20)>=REF(MA(CLOSE,20),1); VAR28:=CLOSE50 AND 预警>60 AND OX=100; VAR2A:=VAR21>48 AND 预警>60 AND OX<100; VAR2B:=核能>38 AND 预警<55; VAR2C:=牛角>50 AND OX<90;

VAR2D:=VAR3REF(VOL,1) AND CLOSE>REF(CLOSE,1); VAR2E:=VAR3>=REF(VAR4,1) AND CLOSE=REF(核能,1) AND VARC

DRAWTEXT(VAR27 AND COUNT(VAR27,30)=1,90,'持股待涨'),COLORFF00FF; DRAWTEXT(VAR28 AND COUNT(VAR28,30)=1,10,'出局为佳'),COLOR00FF00; DRAWTEXT(VAR29 AND COUNT(VAR29,30)=1,70,'上涨过急，需要调整'),COLORWHITE; DRAWTEXT(VAR2A AND COUNT(VAR2A,30)=1,80,'拉升在即狂牛！'),COLORYELLOW; DRAWTEXT(VAR2B AND COUNT(VAR2B,30)=1,20,'不必杀跌有反弹 '),COLORWHITE; DRAWTEXT(VAR2C AND COUNT(VAR2C,30)=1,30,'角斗士，阶段底部 '),COLORYELLOW;

DRAWTEXT(VAR2D AND COUNT(VAR2D,30)=1,60,'大资金进场'),COLOR0099FF; DRAWTEXT(VAR2E AND COUNT(VAR2E,30)=1,40,'高点回落'),COLORFFCC66;

筹码空间

筹码空间:IF(WINNER(CLOSE),WINNER(CLOSE)*100,20),VOLSTICK; TX80:80,POINTDOT COLORYELLOW; DX20:20,POINTDOT COLORGREEN; VAR1:=LLV(LOW,21); VAR2:=HHV(HIGH,21);

K: EMA((CLOSE-VAR1)/(VAR2-VAR1)*100,8),COLORYELLOW ; D: EMA(0.667*REF(K,1)+0.333*K,2),COLORWHITE; VAR3:=LLV(LOW,55); VAR4:=HHV(HIGH,34);

VAR5:=EMA((CLOSE-VAR3)/(VAR4-VAR3)*100,3); VAR6:=(K+VAR5)/2;

VAR7:=EMA(0.667*REF(VAR5,1)+0.333*K,2); VAR8:=EMA(VAR6,5);

VAR9:EMA(0.667*REF(VAR8,1)+0.333*VAR8,2);

均线筹码

X1:=(EMA(C,5)-EMA(C,13))/EMA(C,13)*100; X2:=(EMA(C,5)-EMA(C,34))/EMA(C,13)*100; X3:=(EMA(C,5)-EMA(C,60))/EMA(C,13)*100; X4:=(EMA(C,5)-EMA(C,120))/EMA(C,13)*100; X5:=V/CAPITAL*(C+O+L+H)/4;

X6:=(H-MAX(C,O))-(MIN(C,O)-L)+(C-REF(C,1)); X7:=IF(X6>0,X5,0-X5);

X8:=H-MAX(C,O)-(MIN(C,O)-L); X9:=(X7+X8)/2+C-REF(C,1); X10:=SUM(X9,0)+100; X11:=EMA(X10,5)+100; X12:=EMA(X10,13)+100; X13:=EMA(X10,34)+100; X14:=EMA(X10,60)+100; X15:=EMA(X10,120)+100;

X16:=(X11-X12)/EMA(C,13)*100; X17:=(X11-X13)/EMA(C,13)*100; X18:=(X11-X14)/EMA(C,13)*100; X19:=(X11-X15)/EMA(C,13)*100; X20:=(X19-X16); X21:=(X19-X17); X22:=(X19-X18);

Y1:=3*SMA((C-LLV(L,75))/(HHV(H,75)-LLV(L,75))*100,20,1);

Y2:=2*SMA(SMA((C-LLV(L,75))/(HHV(H,75)-LLV(L,75))*100,20,1),15,1); Y3:=Y1-Y2;