[通达信指标]大资金机构布局公式源码

{友情提示：该指标使用获利盘，成本分布函数编写而成}

公:=EMA(WINNER(CLOSE)*70,3);

众:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);

号:=众/(公+众)*100;

量:=公/(公+众)*100;

化:=MA(公+众,13);

爱:=BARSLAST(号<90 AND REF(号,1)>90);

好:=EMA(号,89);

者:=EMA(量,89);

之:=INTPART(量-者);

家:=MA(C,1);

CM11:=SMA(SMA(SMA(家,2,1),2,1),2,1);

CM12:=HHV(MA(CM11,1),13);

CM13:=EMA(号,8);

CM14:=IF(量-REF(量,1)>号-REF(号,1),1,0);

CM15:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;

CM16:=SMA(CM15,10,1);

CM17:=SMA(CM16,5,1);

CM18:=INTPART(CM16);

CM19:=INTPART(CM17);

CM20:=CM18+CM19;

CM21:=MOD(CM20,10);

CM22:=(CM20-REF(CM20,1))*10;

CM23:=CM20+CM22;

CM24:=CM22,NODRAW,COLORRED;

CM25:=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),NODRAW;

CM26:=(((CM25-LLV(CM25,27))/(HHV(CM25,27)-LLV(CM25,27)))*(4))*(25),NODRAW;

CM27:=(((CM25-LLV(CM25,9))/(HHV(CM25,9)-LLV(CM25,9)))*(4))*(25),NODRAW;

CM28:=WINNER(C/1.10)*100,COLOR00FFFF,NODRAW;

CM29:=WINNER(C/1.25)*100,COLORFF00FF,NODRAW;

CM30:=EMA(WINNER(CLOSE)*70,3);

CM31:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);

CM32:=CM31/(CM30+CM31)*100;

CM33:=CM30/(CM30+CM31)*100,COLORFF6100,NODRAW;

CM34:=EMA(CM33,55),NODRAW,COLORFF00FF;

CM35:=EMA((EMA(CLOSE,4)+EMA(CLOSE,6)+EMA(CLOSE,12)+EMA(CLOSE,24))/4,2);

界:=MA(CLOSE,27);

M:=60;

N:=30;

CM39:=100*(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60)) COLORGRAY;

CM40:=50-SMA(SMA(SMA(CM39,2,1),2,1),2,1)/2,COLOR00FFFF,LINETHICK2;

CM41:=50-HHV(MA(CM40,1),13)/2,COLORFF00FF,LINETHICK4;

CM42:=V/FINANCE(7)*100;

CM43:=TMA(CM42,(1-CM42),1);

CM44:=DMA((C+O)/2,CM42/TMA(CM42,(1-CM42),1));

CM45:=BARSLAST(C>CM44*POW(1.1,0.9));

CM46:=BARSLAST(C<CM44*POW(1.1,-0.9));

CM47:=CROSS(CM45,CM46) OR CROSS(CM46,CM45) OR BARSSINCE(CM45+1)=0 OR BARSSINCE(CM46+1)=0 OR BARSCOUNT(C)=0;

CM48:=REF(CM44,BARSLAST(CM47));

CM49:=3*SMA((C-LLV(L,480))/(HHV(H,480)-LLV(L,480))*100,5,1)-2*SMA(SMA((C-LLV(L,480))/(HHV(H,480)-LLV(L,480))*100,180,1),15,1);

CM50:=EMA(CM49,5);

CM51:=CM50-100;

CM52:=EMA(C,5);

CM53:=(EMA(C,1)+EMA(C,5)+EMA(C,10)+EMA(C,15)+EMA(C,20)+EMA(C,25)+EMA(C,30)+EMA(C,35)+EMA(C,40)+EMA(C,45)+EMA(C,50)+EMA(C,55)+EMA(C,60)+EMA(C,65)+EMA(C,70)+EMA(C,75)+EMA(C,80)+EMA(C,85)+EMA(C,90)+EMA(C,95)+EMA(C,100)+EMA(C,105)+EMA(C,110)+EMA(C,115)+EMA(C,120)+EMA(C,125)+EMA(C,130)+EMA(C,135)+EMA(C,140)+EMA(C,150))/30;

CM54:=(CM52/CM53)*100;

CM55:=CM54-110;

A:=(H+L+2*C)/4;

CM57:=(A-REF(A,3))/3+A;

CM58:=EMA(CM57,7);

J:=EMA(HHV(CM57,20),60),LINETHICK3;

CM60:=EMA(COST(80),30),CIRCLEDOT;

CM61:=EMA(1.4*EMA(FORCAST(CM57,20),40),20),LINETHICK2;

CM62:=(J+CM60+CM61)/3,LINETHICK2;

CM63:=MA(C,20);

CM64:=EMA(EMA(C*1.38,50),50),DOTLINE,COLOR0000FF;

CM65:=SMA(HIGH,21,2)*1.05;

CM66:=SMA(LOW,21,2)*0.95;

CM67:=(CM65+CM66)/2;

CM68:=CM67+2*STD(CM67,20);

CM69:=REF(CM68,0);

CM70:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CM57,20))/MA(CM57,20);

CM71:=DMA(CLOSE,CM70);

CM72:=(1+9/100)*CM71;

CM73:=(1-7/100)*CM71;

CM74:=(REF((CM62+CM64+EMA(CM68*1.04,40)+CM72)/4,10)+MA(C,20)*1.04)/2;

CM75:=H*VOL;

CM76:=EMA((EXPMA(CM75,180)/EXPMA(VOL,180)+EXPMA(CM75,360)/EXPMA(VOL,360)+EXPMA(CM75,720)/EXPMA(VOL,720)+EXPMA(CM75,1440)/EXPMA(VOL,1440))/4,34);

CM77:=1.06*CM76;

CM78:=CM76*0.94;

CM79:=EMA((EXPMA(CM75,27)/EXPMA(VOL,27)+EXPMA(CM75,54)/EXPMA(VOL,54)+EXPMA(CM75,108)/EXPMA(VOL,108)+EXPMA(CM75,316)/EXPMA(VOL,316))/4,34);

CM80:=1.06*CM79;

CM81:=CM79*0.94;

CM82:=EMA((EXPMA(CM75,5)/EXPMA(VOL,5)+EXPMA(CM75,10)/EXPMA(VOL,10)+EXPMA(CM75,20)/EXPMA(VOL,20)+EXPMA(CM75,40)/EXPMA(VOL,40))/4,34);

CM83:=1.06*CM82;

CM84:=CM82*0.94;

T:=(CM77+CM83+CM80)/3*1.05;

CM86:=(CM58*2/(CM74+T)-1)*100;

CM87:=MA(COST(80),20);

CM88:=(CM58/CM87-1)*100;

CM89:=((HHV(H,42)-LLV(L,42)))/2+LLV(L,42);

CM90:=ABS(HHV(H,40)-LLV(L,40)-LLV(L,40))+CM89*0.5;

CM91:=(CM89/CM90-1)*100;

P:=EMA(EMA(C*1.14,55),20);

CM93:=(CM58/P-1)*100;

CM94:=(EMA(HHV(H,60),60)+EMA(CM89,453)*1.62)/2;

CM95:=HHV((H+L)/2,120);

CM96:=(2*C+H+L)/4;

CM97:=EMA(SLOPE(CLOSE,21)*20+CLOSE,55);

CM98:=EMA(CLOSE,3);

CM99:=(2*CLOSE+LOW+HIGH)/4;

CM100:=CM97-CM98;

CM101:=CLOSE*VOL;

CM102:=EMA((EMA(CM101,3)/EMA(VOL,3)+EMA(CM101,6)/EMA(VOL,6)+EMA(CM101,12)/EMA(VOL,12)+EMA(CM101,24)/EMA(VOL,24))/4,13);

CM103:=(EMA(CLOSE,5)*7+EMA(CLOSE,10)*3)/10;

CM104:=(CLOSE+OPEN)/2;

CM105:=EMA(CM103*1.15,15),COLORRED,LINETHICK0;

CM106:=(CM58/CM94-1)*100;

CM107:=(CM51+CM55+CM86+CM88+CM91+CM93+CM106)/2,LINETHICK2;

CM108:=IF((CM35>界)AND(CM31<CM30)AND((CM26>50)OR(CM26>REF(CM26,1))),-40,0),COLORRED,NODRAW;

CM109:=BARSLASTCOUNT(100*(HHV(H,14)-LLV(L,14))/LLV(L,14)<15 AND MA(C,5)>REF(MA(C,5),1) AND MA(C,10)>REF(MA(C,10),1) AND MA(C,20)>REF(MA(C,20),1))>=5 AND BARSLASTCOUNT(100*(HHV(H,14)-LLV(L,14))/LLV(L,14)<15 AND MA(C,5)>REF(MA(C,5),1) AND MA(C,10)>REF(MA(C,10),1) AND MA(C,20)>REF(MA(C,20),1))<=30;

CM110:=LN(C/CM48)/LN(1.1)*10,NODRAW,COLORFF0080;

CM111:=AMOUNT/VOL/100;

CM112:=(3*HIGH+LOW+OPEN+2*CLOSE)/7;

CM113:=EMA((CLOSE-REF(CLOSE,21))/REF(CLOSE,21)*100,4)*2,COLOR1E90FF,NODRAW;

CM114:=IF(C>200,C,DMA(CM112,VOL/CAPITAL))*1.1,COLOR00FFFF,LINETHICK0;

CM115:=HHV((H+L)/2,120),COLORFF0080,LINETHICK3;

CM116:=EMA(EMA(C,1),5);

本:=EMA(HHV(CM116,5),1);

急:=EMA(HHV(本,21),1);

稳:=EMA(HHV(急,21),2);

投:=EMA(HHV(稳,21),3);

散:=EMA(HHV(投,21),4);

集:=EMA(HHV(散,21),5);

CM123:=CLOSE;

CM124:=EMA(HHV(集,21),6),COLOR00FF00,LINETHICK3;

CM125:=MA(CM11,3);

CM126:=(C*2+H+L)/4*10;

CM127:=EMA(CM126,13)-EMA(CM126,21);

CM128:=EMA(CM127,5);

CM129:=2*(CM127-CM128)*100,COLORRED,LINETHICK2;

CM130:=IF(CM129>=0,CM129,0),COLORRED,LINETHICK2;

CM131:=CM12,COLOR4169E1,LINETHICK4;

CM132:=H=HHV(CM107,10);

CM133:=(H-L)/REF(C,1)*100;

CM134:=HHV(CM133,15);

CM135:=(REF(C,1)-REF(C,2))/REF(C,2)*100;

CM136:=(REF(C,2)-REF(C,3))/REF(C,3)*100;

CM137:=(C-REF(C,1))/REF(C,1)*100;

CM138:=(REF(C,1)-REF(C,21))/REF(C,21)*100;

CM139:=(REF(C,1)-REF(C,50))/REF(C,50)*100;

CM140:=(REF(C,1)-REF(C,11))/REF(C,11)*100;

CM141:=HHV(CLOSE,5)/LLV(CLOSE,5);

CM142:=(C-O)/O*100;

CM143:=(REF(C,1)-C)/REF(C,1)*100;

CM144:=(C-O)/O*100>5;

CM145:=(REF(C,1)-O)/O*100>2.5;

CM146:=COUNT(O>REF(C,1),3)=3;

CM147:=COUNT(O>REF(H,1) AND L>REF(H,1),10);

CM148:=COUNT(O>REF(C,1) AND L>REF(C,1),10) AND L<O;

CM149:=COUNT(O>REF(C,1) AND (O-REF(C,1))/REF(C,1)*100>0.1 AND C>REF(H,1),10);

CM150:=FILTER((CM137>5)AND(CM135>5)AND(CM107>=REF(CM107,1)AND(C>CM124)AND(CM140<40)AND(CM107>=REF(CM107,1))),3);

CM151:=3*SMA((C-LLV(L,180))/(HHV(H,180)-LLV(L,180))*100,5,1)-2*SMA(SMA((C-LLV(L,180))/(HHV(H,180)-LLV(L,180))*100,180,1),15,1);

CM152:=EMA(CM151,5),COLOR6600FF,LINETHICK2;

CM153:=COST(10)/(COST(80)-COST(10));

CM154:=EMA(CM153,1)*10,LINETHICK2;

CM155:=EMA(CM153,3)*10,LINETHICK2;

CM156:=EMA(CM153,7)*10,LINETHICK1;

CM157:=EMA(CM153,21)*10,LINETHICK1;

CM158:=EMA(CM153,34)*10,LINETHICK1;

CM159:=EMA(CM153,55)*10,LINETHICK1;

CM160:=EMA(CM153,89)*10,LINETHICK1;

CM161:=9;

CM162:=5;

CM163:=C-REF(C,1);

CM164:=100*EMA(EMA(CM163,CM161),CM161)/EMA(EMA(ABS(CM163),CM161),CM161),COLORYELLOW;

CM165:=100-MA(CM164,CM162),COLORFFFF00;

CM166:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);

CM167:=IF(CM100>REF(CM100,1),CM100,0),COLORRED,NODRAW;

CM168:=IF(CM154>CM160,(CM154-CM160)*100,0),COLORRED,LINESTICK;

CM169:IF(CM154>CM160 AND MA(C,34)>REF(MA(C,34),1) AND CM152>REF(CM152,1),CM168,0),COLORFF6100,NODRAW;

STICKLINE(CM159>REF(CM159,1)AND (MA(C,34)>REF(MA(C,34),1))AND CM152>REF(CM152,1),0,CM168,3,0),COLORGREEN;

CM170:=SMA(ABS(HIGH-CM166),13,1)/SMA(MIN(HIGH-CM166,0),10,1);

CM171:=EMA(CM170,10);

CM172:=HHV(HIGH,33);

CM173:=EMA(IF(HIGH>=CM172,CM171,0),3);

CM174:IF(CM173<REF(CM173,1)AND(CM143<3),CM130,0),COLORRED,NODRAW;

STICKLINE(CM173>REF(CM173,1),0,CM173,3,0 ),COLORGREEN;

CM175:=IF(((C<O)AND(C>CM124)AND(CM138<50)AND(CM174>0)AND(CM167>REF(CM167,1))),0,CM173),COLORFFFF00,NODRAW;

CM176:=IF(((C>REF(C,1))AND(C>CM124)AND(CM138<50)AND(CM174<=0)AND(CM167>REF(CM167,1))),0,CM173),COLORFFCC00,NODRAW;

CM177:=COUNT(REF(C,2)>REF(C,1),4)>=2;

CM178:=COUNT(V<=REF(V,1),4)>=2;

CM179:=EMA(CLOSE,2)-EMA(CLOSE,89);

CM180:=EMA(CM179,30);

CM181:=2*(CM179-CM180)*10;

CM182:=POW(CM181,3)*0.1+POW(CM181,2);

CM183:=IF(YEAR<2008 AND CM181>0.015,CM182,0)/45;

CM184:=EMA(CLOSE,2)-EMA(CLOSE,150);

CM185:=EMA(CM184,100);

CM186:=2*(CM184-CM185);

CM187:=POW(CM186,3)*0.1+POW(CM186,1);

CM188:=IF( CM186>0.1 AND CM11=CM131 AND CM137>0,CM187,0)*3;

CM189:CM188,VOLSTICK,COLORFF0080;

CM190:=IF((REF(CM137>5,1)AND(REF(CM135,1))AND(CM142<2)AND((CM137<2)AND(CM143<2)AND(CM138<28)AND(CM12=CM11))),18,0),COLORYELLOW,NODRAW;

CM191:=IF((REF(CM137>2,1)AND(CM137<2)AND(CM143<2)AND(CM12>REF(CM12,1))),18,0),COLORYELLOW,NODRAW;

STICKLINE(CM22>0 AND 80+CM22<CM23 AND MA(C,34)>REF(MA(C,34),1) AND 80+REF(CM22,1)>=REF(CM23,1),0,(80+ABS(CM22))*3,3,0),COLORFFFF00;

CM192:=(CM20>80 AND CM107>REF(CM107,1) AND CM20>REF(CM20,1)AND(C<CM124)AND MA(CLOSE,34)>REF(MA(CLOSE,34),1));

STICKLINE(CM20>80 AND CM107>REF(CM107,1) AND CM20>REF(CM20,1)AND(C<CM124)AND MA(CLOSE,34)>REF(MA(CLOSE,34),1),0,-128,4,0),COLORFF0080;

CM193:IF(CM20>80 AND CM107>REF(CM107,1)AND(C>CM124)AND(CM174>0)AND MA(CLOSE,34)>REF(MA(CLOSE,34),1),-158,0),COLORFF00FF,NODRAW;

STICKLINE(CM20>80 AND CM107>REF(CM107,1)AND(C>CM124)AND(CM174>0)AND MA(CLOSE,34)>REF(MA(CLOSE,34),1),0,-158,4,0),COLORFF00FF;

CM194:IF((CM130<REF(CM130,1))AND(CM12>REF(CM12,1))AND(CM113>REF(CM113,1))AND(C>CM124)AND(CM138>40)AND(MA(CLOSE,34)>REF(MA(CLOSE,34),1)),-158,0),COLORYELLOW,NODRAW;

STICKLINE((CM130<REF(CM130,1))AND(CM12>REF(CM12,1))AND(CM113>REF(CM113,1))AND(C>CM124)AND(CM138>40)AND(MA(CLOSE,34)>REF(MA(CLOSE,34),1)),0,-158,4,0),COLORYELLOW;

CM195:IF((CM130<REF(CM130,1))AND(CM140>40)AND(CM107>REF(CM107,1))AND(CM174<=0)AND(C>CM124)AND(MA(CLOSE,34)>REF(MA(CLOSE,34),1)),-158,0),COLORBLUE,NODRAW;

STICKLINE((CM130<REF(CM130,1))AND(CM140>40)AND(CM107>REF(CM107,1))AND(CM174<=0)AND(C>CM124)AND(MA(CLOSE,34)>REF(MA(CLOSE,34),1)),0,-158,4,0),COLORBLUE;

出:=IF((CM173>REF(CM173,1))OR((CM140>50)AND(CM143>4)AND(O>=REF(C,1))AND(C>CM124)),-CM130+CM107,0);

CM197:IF((CM169=0)AND(CM192=0),出,0),COLORGREEN,NODRAW;

STICKLINE((CM173>REF(CM173,1))OR((CM140>50)AND(CM143>4)AND(O>=REF(C,1))AND(C>CM124)),0,CM197,4,0 ),COLORGREEN;

CM198:IF((CM130<REF(CM130,1))AND(CM12>REF(CM12,1))AND(CM113<REF(CM113,1))AND(C>CM124)AND(CM138>40)AND(MA(CLOSE,34)>REF(MA(CLOSE,34),1)),-158,0),COLORGREEN,NODRAW;

STICKLINE((CM130<REF(CM130,1))AND(CM12>REF(CM12,1))AND(CM113<REF(CM113,1))AND(C>CM124)AND(CM138>40)AND(MA(CLOSE,34)>REF(MA(CLOSE,34),1)),0,-158,4,0),COLORGREEN;

CM199:=(C-REF(C,1))*100/REF(C,1)>2;

CM200:=5;

CM201:=3;

CM202:=(EMA(CLOSE,5)*7+EMA(CLOSE,10)*3)/10;

CM203:=IF(YEAR>=2025,0,1);

CM204:=EMA(EMA(LOW,21)+6.8*STD(LOW,2),55);

CM205:=EMA(CLOSE/CM204*(1.88*CLOSE+LOW+OPEN)/2.75,3);

CM206:=(CM205-CM204)/CM204/2;

CM207:=EMA(CM205-CM206*CM205,5)*CM203;

CM208:=EMA(CLOSE,34)-3*STD(CLOSE,34);

CM209:=IF(CM202>CM207,CM202,CM207)*CM203,COLORGREEN,LINETHICK3;

CM210:=IF(CM209>REF(CM209,1),CM209,CM209),COLORRED,LINETHICK3;

CM211:=IF(CM207<CM202 AND CM207<CLOSE*0.15,EMA(CLOSE,34)-3*STD(CLOSE,34),CM207),COLORFF0080,LINETHICK3;

CM212:=ATAN((CM210/REF(CM210,1)-1)*100)*180/3.1416;

CM213:=BARSLASTCOUNT(CM210>CM211)=1,NODRAW,COLORRED;

CM214:100,LINETHICK2,COLORFFFF00;

CM215:=IF(CM189>100,8,0),COLORRED,LINETHICK2;

STICKLINE(CM215,0,CM189,3,0),COLORRED,LINETHICK3;

STICKLINE(CM215,CM189/3,CM189/3*2,3,0),COLORFF0080,LINETHICK3;

STICKLINE(CM215,CM189/3*2,CM189,3,0),COLORYELLOW,LINETHICK3;

STICKLINE(CM173<REF(CM173,1)AND(CM143<3),0,CM130,3,0),COLORRED;

CM216:FILTER((CM215>5)AND(CM210>CM211),25),COLORRED,LINETHICK2;

DRAWTEXT(CM216>0.6 AND CM210>CM211 AND CM12>REF(CM12,1),CM189*2.35,’全仓出击’),COLORYELLOW;

DRAWICON(CM216>0.6 AND CM210>CM211 AND CM12>REF(CM12,1),CM189*1.25,25);

DRAWTEXT(CM22>0 AND 80+CM22<CM23 AND MA(CLOSE,34)>REF(MA(CLOSE,34),1) AND 80+REF(CM22,1)>=REF(CM23,1),(100+ABS(CM22))*5,’大资金净流入’),COLORYELLOW;

0,COLORFFFFFF,LINETHICK1;

CM217:=IF(CM189>=100 AND CM174>=100 AND C>CM105 AND CM108<-18,1,0);

CM218:=COUNT(CM217,BARSSINCE(CM217)+1);

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.20,0.01,0,SUM(CM217,15)),COLORYELLOW;

DRAWNUMBER(CM217,CM189*1.35,SUM(CM217,15)),COLORYELLOW;