機構底部建倉紅黃住指標源碼

A. 求一個通達信指標，副圖的，紅線是主力動向，綠線是散戶，紅線在底部上穿時會提示一個建倉信號，謝謝，，

DIFF := EMA(EMA(CLOSE,12) - EMA(CLOSE,26),5);
DEA := EMA(DIFF,9);
A1:DIFF;
A2:DEA;
MACDOK:=CROSS(DIFF,DEA) ;
MACD賣點:=CROSS(DEA,DIFF) ;
中間值:=(HHV(H,60)+LLV(L,60) )/2;
ZHANGFU:=(H-REF(C,1))/REF(C,1)*100;
MA3:=MA(C,3);
MA5:=MA(C,5);
MA10:=MA(C,10);
MA20:=MA(C,20);
MA25:=MA(C,25);
MA60:=MA(C,60);
MA90:=MA(C,90);
MA120:=MA(C,120);
A3:= (MA25-MA60)/MA60*100;
A4:= (MA25-MA90)/MA90*100;
A5:= (MA25-MA120)/MA120*100;
A6:=IF(C>=O,C,O);
A7:=(H-A6)/A6*100;
A8:=(H-REF(C,10))/REF(C,10)*100;
A9:=(H-REF(C,11))/REF(C,11)*100;
A10:=(H-REF(C,12))/REF(C,12)*100;
A11:=(H-REF(C,13))/REF(C,13)*100;
A12:=(H-REF(C,14))/REF(C,14)*100;
A13:=(H-REF(C,15))/REF(C,15)*100;
A14:=(H-REF(C,16))/REF(C,16)*100;
A15:=(H-REF(C,17))/REF(C,17)*100;
A16:=(H-REF(C,18))/REF(C,18)*100;
A17:=(H-REF(C,19))/REF(C,19)*100;
A18:=(H-REF(C,20))/REF(C,20)*100;
A19:=(H-REF(C,21))/REF(C,21)*100;
A20:=100;
A21:=A8<A20 AND
A9<A20 AND
A10<A20 AND
A11<A20 AND
A12<A20 AND
A13<A20 AND
A14<A20 AND
A15<A20 AND
A16<A20 AND
A17<A20 AND
A18<A20 AND
A19<A20;
B1:=30;
B2:=(L-REF(H,6))/REF(H,6)*100;
B3:=(L-REF(H,7))/REF(H,7)*100;
B4:=(L-REF(H,8))/REF(H,8)*100;
B5:=(L-REF(H,9))/REF(H,9)*100;
B6:=(L-REF(H,10))/REF(H,10)*100;
B7:=(L-REF(H,11))/REF(H,11)*100;
B8:=(L-REF(H,12))/REF(H,12)*100;
B9:=(L-REF(H,13))/REF(H,13)*100;
B10:=(L-REF(H,14))/REF(H,14)*100;
B11:=(L-REF(H,15))/REF(H,15)*100;
B12:=(L-REF(H,16))/REF(H,16)*100;
B13:=(L-REF(H,17))/REF(H,17)*100;
B14:=(L-REF(H,18))/REF(H,18)*100;
B15:=(L-REF(H,19))/REF(H,19)*100;
B16:=(L-REF(H,20))/REF(H,20)*100;
B17:=(L-REF(H,21))/REF(H,21)*100;
B18:=
B2<B1 AND
B3<B1 AND
B4<B1 AND
B5<B1 AND
B6<B1 AND
B7<B1 AND
B8<B1 AND
B9<B1 AND
B10<B1 AND
B11<B1 AND
B12<B1 AND
B13<B1 AND
B14<B1 AND
B15<B1 AND
B16<B1 AND
B17<B1
;
MID5 := MA(CLOSE,5);
UB5:=MID5+2*STD(CLOSE,5),COLORRED;
MID10 := MA(CLOSE,10);
UB10:=MID10+2*STD(CLOSE,10),COLORRED;
C1:=(H-REF(C,1))/REF(C,1)*100;
C4:=COUNT(C1>4.5,80 )>=5 AND COUNT(C1>3,60 )>=10;
D1:=MACDOK AND COUNT(MA60>REF(MA60,1),60)>=20 AND A3<10 AND C4 AND COUNT(A21,60)>=60 AND COUNT(B18,20)>=20 AND ZHANGFU>3.5 AND L<MA25 AND H >MA25;
D2:= COUNT(MA90>REF(MA90,1),90)>=30 AND A4<10 AND C4 AND COUNT(A21,90)>=90 AND COUNT(B18,20)>=20 AND ZHANGFU>3.5 AND L<MA25 AND H >MA25;
D3:= COUNT(MA120>REF(MA120,1),120)>=30 AND A5<10 AND C4 AND COUNT(A21,120)>=120 AND COUNT(B18,20)>=20 AND ZHANGFU>3.5 AND L<MA25 AND H >MA25;
橫盤突破 := D1 OR D2 OR D3 AND C>O;
買入:=橫盤突破 ;
FF:= (H - REF(C,BARSLAST(買入)) ) / REF(C,BARSLAST(買入) ) *100;
E3:= FF >15 AND BARSLAST(買入)<30 AND CROSS(DEA,DIFF);
E2:= FF >15 AND BARSLAST(買入)<30 AND UB5 <REF(UB5,1) AND REF(UB5,1) >=REF(UB5,2) AND REF(UB5,2) >=REF(UB5,3) AND UB10 >=REF(UB10,1) AND REF(UB10,1) >=REF(UB10,2);
減倉:=E3 OR E2;
賣出:= FF<-20 AND BARSLAST(買入)<30 AND CROSS(DEA,DIFF);

DRAWTEXT(買入 AND COUNT(買入,30)==1,DIFF+0.3,'建倉'),COLORRED;
DRAWICON( 買入 AND COUNT(買入,30)==1 ,DIFF,1);
DRAWTEXT( 減倉 ,DIFF-0.3,'減倉'),COLORGREEN;
DRAWICON( 減倉 ,DIFF,2);
DRAWTEXT( 賣出 ,DIFF+0.3,'賣出'),COLORGREEN;

B. 跪求機構控盤度公式源碼，不勝感激

莊家抬轎指標，通達信版本

VAR1:=EMA(EMA(CLOSE,9),9);
控盤:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
STICKLINE(控盤<0,控盤,0,1,0),COLORWHITE;
A10:=CROSS(控盤,0);
無庄控盤:IF(控盤<0,控盤,0),COLORWHITE,NODRAW;
開始控盤:IF(A10,5,0),LINETHICK1,COLORYELLOW;
STICKLINE(控盤>REF(控盤,1) AND 控盤>0,控盤,0,1,0),COLORRED;
有庄控盤:IF(控盤>REF(控盤,1) AND 控盤>0,控盤,0),COLORRED,NODRAW;
VAR2:=100*WINNER(CLOSE*0.95);
STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盤>0,控盤,0,1,0),COLORFF00FF;
高度控盤:IF(VAR2>50 AND COST(85)<CLOSE AND 控盤>0,控盤,0),COLORFF00FF,NODRAW;
STICKLINE(控盤<REF(控盤,1) AND 控盤>0,控盤,0,1,0),COLOR00FF00;
主力出貨:IF(控盤<REF(控盤,1) AND 控盤>0,控盤,0),COLOR00FF00,NODRAW;

C. 通達信金牛判勢指標源碼和機構震倉指標怎麼寫，如下圖效果

1. 金牛判勢主圖公式：

• DRAWGBK(C>O,RGB(60,0,0),RGB(0,0,0),1,2,1);

• DRAWTEXT_FIX(1,0.88,5,0,'~☆~皓天~☆~'),COLORBLUE;

• Z1:=STRCAT(HYBLOCK,' ');

• Z2:=STRCAT(Z1,DYBLOCK);

• Z3:=STRCAT(Z2,' ');

• DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLORRED;

• 金牛:(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1+XMA(XMA(H,25),25),DOTLINE,COLORYELLOW;

• 金鑽趨勢:XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1,LINETHICK2,COLORRED;

• 金牛2:EMA(金鑽趨勢,25)COLORCYAN,LINETHICK2;

• DRAWBAND(金鑽趨勢,RGB(55,0,0),金牛2,RGB(0,91,0));

• DRAWKLINE(H,O,L,C);

• STICKLINE(金鑽趨勢>LOW AND 金鑽趨勢<HIGH,金鑽趨勢,MIN(MIN(OPEN,CLOSE),金鑽趨勢),2,0),COLORYELLOW;

• STICKLINE(金鑽趨勢>MIN(C,O) AND 金鑽趨勢<MAX(C,O),金鑽趨勢,MIN(OPEN,CLOSE),2,0),COLORYELLOW;

• STICKLINE(金鑽趨勢>HIGH,OPEN,CLOSE,2,0),COLORYELLOW;

• STICKLINE(金鑽趨勢>HIGH,HIGH,LOW,0,0),COLORYELLOW;

• VAR23:=100*XMA(XMA((C-REF(C,1)),6),6)/XMA(XMA(ABS((C-REF(C,1))),6),6);

• 回調買:=LLV(VAR23,2)=LLV(VAR23,7) AND COUNT(VAR23<0,2) AND CROSS(VAR23,MA(VAR23,2));

• XG:=金鑽趨勢>HIGH AND 回調買 AND L<=金鑽趨勢;

• DRAWTEXT(XG,L,'▲買入'),COLORRED;

• JJ:=(HIGH+LOW+CLOSE)/3;

• QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);

• QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW)));

• QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN))));

• QJ3:=IF(CAPITAL=0,QJ0*(HIGH-MAX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE))));

• QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ)));

• DDX:=((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,10000,10000),COLOR00AAAA,LINETHICK;

• V2:=SMA(IF(C>=REF(C,1),DDX,-DDX/100),2,1);

• V5:=SMA(V2*120/FROMOPEN*5,2,1);

• V10:=SMA(V5,5,1);

• V20:=SMA(V10,5,1);

• DY:=CURRBARSCOUNT=1 AND C<REF(C,1);

• DY2:=REF(V2,1)-DY;

• XG2:=C>O AND DY2<0.02 AND MA(C,5)>MA(C,60) AND C/REF(C,1)>=1.02 AND H<金牛;

• {DRAWTEXT(XG2,L,'▲抓牛'),COLORYELLOW;}

• DRAWTEXT(XG2 AND L<金鑽趨勢,L,'↖金鑽起漲'),COLORMAGENTA;

2機構震倉副圖公式：

• 
  

  

• VAR1:=(CLOSE+HIGH+LOW)/3;

• VAR2:=EMA(VAR1,10);

• VAR3:=REF(VAR2,1);

• 綠探底震倉:IF(VAR2,10,DRAWNULL),COLORGREEN,LINETHICK9;

• 紅買: IF(VAR2>VAR3,10,DRAWNULL), COLORRED,LINETHICK9;

• 藍賣: IF(VAR2<VAR3,10,DRAWNULL),COLORFFFF00,LINETHICK9;

• RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

• 上穿買:SMA(RSV,3,1),COLORRED;

• 下穿賣:SMA(上穿買,3,1),COLORFFFF00;

希望我的回答能使你滿意。

D. 求通達信用的機構資金公式源碼

送你一個我珍藏的機構資金的公式,通達信機構資金流指標公式,源碼下面網址里有演示圖片.

MA21:MA (CLOSE,21),COLOR00FF00;
MA30:MA(CLOSE,30),COLOR0000FF;
買線:=EMA (C,2);
賣線:=EMA(SLOPE(C,21)*20+C,42);
BUY1:=CROSS(買線,賣線);
SEL:=CROSS(賣線,買線);DRAWTEXT(BUY1,LOW*0.95,'B'),COLORWHITE,LINETHICK5;
DRAWTEXT (SEL,HIGH*1.05,'S'),COLORWHITE,LINETHICK5;
STICKLINE(買線>=賣線,LOW,HIGH,0.1,0),COLORYELLOW;
STICKLINE(買線>=賣線,CLOSE,OPEN,3,3),COLORYELLOW;
STICKLINE(買線<賣線,CLOSE,OPEN,3,3),COLORGREEN;
STICKLINE(買線<賣線,LOW,HIGH,0.1,0),COLORGREEN;
STICKLINE(CROSS(買線,賣線) OR CROSS(賣線,買線),OPEN,CLOSE,2.5,0),COLORWHITE;
主力多空:=C;
V1:=DMA((((HIGH + LOW) + (CLOSE * 2)) / 4),0.9);
HY1:=REF(EMA(V1,3),1);
多空趨勢:=MA((CLOSE - HY1) * 10,2);
操盤:STICKLINE(多空趨勢>=0 AND 多空趨勢>=REF(多空趨勢,1),0,多空趨勢,3,3),COLORYELLOW;
減倉:STICKLINE(多空趨勢>=0 AND 多空趨勢< REF(多空趨勢,1),0,多空趨勢,3,3),COLORYELLOW;
反彈:STICKLINE(多空趨勢<0 AND 多空趨勢>=REF(多空趨勢,1),0,多空趨勢,3,3),COLORGREEN;
尋底:STICKLINE(多空趨勢<0 AND 多空趨勢< REF(多空趨勢,1),0,多空趨勢,3,3),COLORGREEN;

簡要說明：用法同MACD，底背離買入，頂背離賣出

E. 大智慧機構建倉指標源碼

VARA:=REF(LOW,1);
VARB:=SMA(ABS(LOW-VARA),3,1)/SMA(MAX(LOW-VARA,0),3,1)*100;
VARC:=EMA(IF(CLOSE*1.3,VARB*10,VARB/10),3);
VARD:=LLV(LOW,30);
VARE:=HHV(VARC,30);
VARF:=IF(MA(CLOSE,58),1,0);
VARG:=EMA(IF(LOW<=VARD,(VARC+VARE*2)/2,0),3)/618*VARF;
VARH:=IF(VARG>28,28,VARG);
吸籌:STICKLINE(VARH>-120,0,VARH,6,1),COLOR0FFFFF;
備錢:IF(吸籌,1,0),COLOR0FFFFF;
RSV:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
X:=LLV(J,2)=LLV(J,8);
買入時機: IF(CROSS(J,3),65,0),colorFF00FF,linethick3;
DRAWTEXT(買入時機,70.1,' 跟庄'),COLOR00FF00;
VA:=(2*C+H+L)/4;
VB:=LLV(L,5);
VC:=HHV(H,5);
紅線上穿買:EMA((VA-VB)/(VC-VB)*100,5),COLORred;
紅線下穿賣:EMA(紅線上穿買,3),COLORFFFF00;
趨勢: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),color00FFFF;
秘密買點: IF(趨勢<=3,20,0),color00ff00,linethick3;
機構建倉: IF(趨勢<5,40,0),colorFFFFFF,linethick3; 可以用