通达信机构吸筹指标公式
趋势顶部:=27;
趋势底部:=55;
VAR1:=((2)*(CLOSE)+HIGH+LOW+OPEN)/(5);
VAR2:=MA(VAR1,3);
VAR3:=(SUM(IF((VAR1>REF(VAR1,1)),(VAR1)*(vol),0),4))/(SUM(IF((VAR1< REF(VAR1,1)),(VAR1)*(VOL),0),4));
VAR4:=REF(100-(100)/(1+VAR3),1);
VAR5:=HHV(VAR1,15);
VAR6:=LLV(VAR1,15);
VAR7:=VAR5-VAR6;
VAR8:=(EMA((VAR1-VAR6)/(VAR7),2))*(100);
多方力度1:=(3*SMA((CLOSE-LLV(LOW,24))/(HHV(HIGH,24)-LLV(LOW,24))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,24)-LLV(LOW,24))*100,5,1),3,1))*1;
空方力度1:=(100*(HHV(HIGH,95)-CLOSE)/(HHV(HIGH,95)-LLV(LOW,95)))*1;
强:空方力度1< 多方力度1,COLORRED;
STICKLINE(空方力度1< 多方力度1,0,100,6.0,0)COLOR001050;
弱:STICKLINE(空方力度1>多方力度1,0,100,6.0,0)COLORLICYAN;
短线1:=VAR8;
短线:IF(CURRBARSCOUNT>5,DRAWNULL,短线1),COLORWHITE,LINETHICK1;
IF(短线>REF(短线,1),短线,DRAWNULL),LINETHICK1,COLORRED;
多方力度:(3*SMA((CLOSE-LLV(LOW,趋势顶部))/(HHV(HIGH,趋势顶部)-LLV(LOW,趋势顶部))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,趋势顶部))/(HHV(HIGH,27)-LLV(LOW,趋势顶部))*100,5,1),3,1)),COLOR00FFFF,LINETHICK2;
空方力度:100*(HHV(HIGH,趋势底部)-CLOSE)/(HHV(HIGH,趋势底部)-LLV(LOW,趋势底部)),COLOR00EC00,LINETHICK1;
DRAWTEXT(ISLASTBAR,短线,'←短线'),COLORWHITE;
DRAWTEXT(ISLASTBAR,多方力度,'↖多方力度'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,空方力度,'↓←空方力度'),COLORGREEN;
持币:(IF(SAR(10,2,20)>=H,sar(10,2,20),DRAWNULL))*1,COLORCYAN,NODRAW;
持股:(IF(SAR(10,2,20)<=L,SAR(10,2,20),DRAWNULL))*1,COLORRED,NODRAW;
STICKLINE(持币,50,45,2.1.1,0),COLORCYAN;
STICKLINE(持股,50,55,2.1.1,0),COLORRED;
买点:=REF(持币,1)>0&&持股>0,COLORLIRED;
DRAWTEXT(买点&&多方力度<=50,多方力度,'←买点'),COLORYELLOW;
VAR9:=(CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100;
VAR10:=SMA(VAR9,3,1);
VAR11:=SMA(VAR10,3,1);
VAR12:=3*VAR10-2*VAR11;
VAR13:=3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1);
VAR14:=EMA(VAR13,8);
VAR15:=3*SMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,5,1),3,1);
趋势:=EMA(VAR15,3)-10;
VAR16:=(趋势-REF(趋势,1))/REF(趋势,1)*100;
VAR17:=FILTER((趋势<=13&&VAR16>13),10);
VAR18:=FILTER((趋势>=90&&VAR16),10);
VAR19:=LLV(LOW,30);
VAR20:=HHV(HIGH,30);
VAR21:=EMA((CLOSE-VAR19)/(VAR20-VAR19)*4,4)*25;
VAR22:=(VAR21-LLV(VAR21,4))/(HHV(VAR21,4)-LLV(VAR21,4))*100;
VAR23:=SMA(Abs(LOW-REF(LOW,1)),3,1)/SMA(MAX(LOW-REF(LOW,1),0),3,1);
VAR24:=HHV(VAR23,30)*8;
VAR25:=REF(LOW,1);
VAR26:=(SMA(ABS(LOW-VAR25),3,1))/(SMA(MAX(LOW-VAR25,0),3,1))*100;
VAR27:=EMA(IF(CLOSE*1.3,VAR26*10,VAR26/10),3);
VAR28:=LLV(LOW,30);
VAR29:=HHV(VAR27,30);
VAR30:=IF(MA(CLOSE,58),1,0);
机构吸筹:(EMA(IF(LOW<=VAR28,(VAR27+VAR29*2)/2,0),3))/(618)*VAR30,COLORRED,NODRAW;
VAR31:=IF(机构吸筹>100,100,机构吸筹)*1;
MA1:=MA(C,5);
MA2:=MA(C,10);
MA3:=MA(C,20);
MA4:=MA(C,60);
MA5:=MA(C,120);
筹码:=(COST(90)+COST(70)+COST(50)+COST(30)+COST(10))/5;
今获利:WINNER(C)*100,COLORWHITE,NODRAW;
昨获利:=REF(今获利,1),COLORYELLOW,NODRAW;
获利比增:今获利-昨获利,COLORRED,NODRAW;
VAR32:=(C-REF(C,5))/REF(C,5)*100;
VAR33:=(C-REF(C,5))/REF(C,5)*100;
VAR34:=(C-REF(C,10))/REF(C,10)*100;
VAR35:=(C-REF(C,20))/REF(C,20)*100;
VAR36:=(C-REF(C,15))/REF(C,15)*100;
VAR37:=(C-REF(C,60))/REF(C,60)*100;
量比:=V/REF(MA(V,1),1);
VAR38:=SUM(VOL,5)*100/CAPITAL;
VAR39:=SUM(VOL,20)*100/CAPITAL;
VAR40:=SUM(VOL,60)*100/CAPITAL;
趋势线:=(MA(CLOSE,5)+MA(CLOSE,10)+MA(CLOSE,15)+MA(CLOSE,20))/4;
牛熊线:=MA(CLOSE,26);
生命线:=EMA(CLOSE,55);
VAR41:=LLV(LOW,10);
VAR42:=HHV(HIGH,25);
红线:=EMA((CLOSE-VAR41)/(VAR42-VAR41)*4,4)*25;
VAR43:=IF(空方力度1< 多方力度1,红线,DRAWNULL),LINETHICK2,COLOR0000FF;
VAR44:=(HHV(HIGH,11)-CLOSE)/(HHV(HIGH,11)-LLV(LOW,11))*100;
绿线:=SMA(VAR44,3,1);
VAR45:=IF(空方力度1< 多方力度1,绿线,DRAWNULL),LINETHICK2,COLORWHITE;
多方辅助:IF(CURRBARSCOUNT>5,DRAWNULL,VAR43)COLOR0000FF,LINETHICK2;
空方辅助:IF(CURRBARSCOUNT>5,DRAWNULL,VAR45)COLORWHITE,LINETHICK2;
强势持股:IF(空方力度< 空方辅助&&空方力度< 50&&空方力度< 多方辅助&&空方辅助< 多方辅助,空方力度&&空方辅助< REF(空方辅助,1),DRAWNULL),LINETHICK1,COLORRED;
天:95,POINTDOT,COLORFFFF00;
界:=50,POINTDOT,COLORFFFFFF;
地:5,POINTDOT;
VAR46:=MAX(MAX(趋势线,牛熊线),生命线);
VAR47:=MIN(MIN(趋势线,牛熊线),生命线);
一阳定势:=(C>VAR46&&O< VAR47&&量比>1&&crOSS(多方力度,空方力度)&&C/REF(C,1)>1.02)*1,COLORRED,NODRAW;
金银袋:=(C>生命线&&L< 生命线&&C>趋势线&&CROSS(多方力度,空方力度)&&C/REF(C,1)>1.02&&量比>1.1&&C>O&&H/MAX(O,C)< 1.05)*1,COLORYELLOW,NODRAW;
红钻石:=C/REF(C,1)>1.03&&量比>1.1&&CROSS(多方力度,空方力度)*1,COLORLIRED,NODRAW;
STICKLINE(一阳定势,50,65,2.7.2,0),COLOR0000AA;
STICKLINE(一阳定势,50,65,1.9.4,0),COLOR0000BB;
DRAWICON(红钻石,35,25);
DRAWICON(金银袋,45,9);
VAR48:=((CLOSE-(LLV(LOW,9)))/((HHV(HIGH,9))-(LLV(LOW,9))))*100;
VAR49:=SMA(VAR48,3,1);
VAR50:=SMA(VAR49,3,1);
VAR51:=MA(CLOSE,90);
VAR52:=((CLOSE-VAR51)/VAR51)*100;
VAR53:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
VAR54:=SMA(VAR53,3,1);
VAR55:=SMA(VAR54,3,1);
VAR56:=(CROSS(VAR54,VAR55))*60;
VAR57:=MA(CLOSE,27);
VAR58:=((CLOSE-VAR57)/VAR57)*100;
VAR59:=(MA(VAR58,3));
VAR60:=BARSLAST(((CROSS(-10,VAR59))=1));
VAR61:=BARSLAST(((CROSS(VAR59,10))=1));
VAR62:=((VAR59< -10)&&(VAR60>3));
VAR63:=((VAR59>10)&&(VAR61>3));
安全:=(((IF(VAR62,VAR59,0))< 0)*-10),COLORGREEN;
STICKLINE(VAR31>-150,0,VAR31,2,0),COLORFF00FF;
龙抬头:=((((((VAR56&&安全)&&((VAR49-VAR50)>1.5))&&(OPEN!=HIGH))&&(VAR52< -10))||(安全&&(CROSS(VAR49,VAR50))))*20)*1;
IF(龙抬头,6,DRAWNULL),CROSSDOT,LINETHICK6,COLORRED;
趋势线2:=MA((CLOSE-MA(CLOSE,40))/MA(CLOSE,40)*100,2);
钻石底:=(趋势线2< -20)*1,COLORLIGREEN,NODRAW;
DRAWICON(钻石底,2,27);
VAR64:=(HIGH+LOW+CLOSE)/3;
VAR65:=(VAR64-MA(VAR64,14))/(0.015*AVEDEV(VAR64,14));
VAR66:=(VAR64-MA(VAR64,70))/(0.015*AVEDEV(VAR64,70));
VAR67:=IF(VAR65>=150&&VAR65< 200&&VAR66>=150&&VAR66< 200,10,0);
VAR68:=IF(VAR65<=-150&&VAR65>-200&&VAR66<=-150&&VAR66>-200,-10,VAR67);
VAR69:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;
短期强弱:=VAR69;
VAR70:=IF(VAR69>0,VAR69,0);
VAR71:=IF(VAR66>=200&&VAR65>=150,15,IF(VAR66<=-200&&VAR65<=-150,-15,VAR68));
抄底:REF(VAR71=-15,1)&&VAR71>-15,NODRAW;
DRAWTEXT(抄底,5,'★抄底'),COLORYELLOW;
通达信龙头起点选股指标公式
G1:=CLOSE;G2:=LOW;G3:=OPEN;G4:=HIGH;
VARB1:=DYNAINFO(7)>G3;
VARB2:=VARB1 AND DYNAINFO(7)>EMA(G1,8) AND DYNAINFO(7)>EMA(G1,21) AND DYNAINFO(7)>EMA(G1,60);
VARB3:=VARB2 AND G3< EMA(G1,21) AND G3< EMA(G1,60);
VARB4:=VARB3 AND (DYNAINFO(7)-G3)>0.0618*DYNAINFO(7);
VARB5:=REF(VARB4,2) OR REF(VARB4,1);
VARB6:=MA((vol-REF(VOL,1))/REF(VOL,1),5);
VARB7:=(G1-MA(G1,24))/MA(G1,24)*100;
VARB8:=VARB7*(1+VARB6);
VARB9:=MA(VARB8,5);
VARB10:=crOSS(VARB8,VARB9);
龙头起点:VARB5 AND VARB10 AND REF(MA(C,20),1)>REF(MA(C,20),2) AND C>MA(C,20),COLORRED;
