通达信机构能量建仓公式源码
P(10,1,100),
A(5,1,100)
VAR12:=(HHV(HIGH,36)-CLOSE)/(HHV(HIGH,36)-LLV(LOW,36))*100;
VAR1Q:=REF(CLOSE,2);
做多能量: SMA(MAX(CLOSE-VAR1Q,0),7,1)/SMA(ABS(CLOSE-VAR1Q),7,1)*100,COLORYELLOW,LINETHICK1;
做多能量线:= SMA((CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100,5,1)-8,COLORRED,LINETHICK1;
做空能量: SMA((HHV(HIGH,36)-CLOSE)/(HHV(HIGH,36)-LLV(LOW,36))*100,2,1),COLORGREEN,LINETHICK1;
DRAWBAND(10,RGB(0,0,0),做空能量,RGB(0,156,96));
{P(10,1,100),A(5,1,100);}
SVOL:=INTPART(SUM(V,0)/CAPITAL);
TJ0:=SVOL>REF(SVOL,1) OR BARSSINCE(CLOSE)=0;
S1:=BARSLAST(TJ0)+1;
TJ2:=S1<REF(S1,1);
S2:=IF(TJ2,REF(S1,1)+1,S1);
S3:=SUM(TJ2,0);
ZK1:="KD.K#WEEK"(9,3,3);
ZD2:="KD.D#WEEK"(9,3,3);
ZF1:="MACD.DIF#WEEK"(12,26,9);
ZA2:="MACD.DEA#WEEK"(12,26,9);
换手:=V/CAPITAL*100,LINETHICK0;
JCD:=FILTER(CROSS(ZK1,ZD2) AND REF(ZD2,1)<30,13),NODRAW;
取点:=BARSLAST(JCD);
吸筹区:=IF(取点>0 AND 取点<61,取点,0);
ZS1:=吸筹区;
ZS2:=吸筹区+1;
ZS3:=换手/5;
ZSA:=IF(ZS1>0,SUM((ZS3),吸筹区+1),0),NODRAW;
主力筹码%:=ZSA,NODRAW;
建仓天数:ZS1,NODRAW;
阶段总额（万）:=SUM(AMOUNT/10000,S2)*100,NODRAW;
阶段总量（手）:=SUM(V,S2)*100,NODRAW;
阶段成本（元）:(阶段总额（万）/(阶段总量（手）/100)),NODRAW;
STICKLINE(换手<3,-20,-20+换手*1.5,0,0),COLORCYAN;
青冷清:(换手<3,-80,(换手-6)*4,0.0,0),COLORCYAN;
STICKLINE(换手>=3 AND 换手<7,-20,-20+换手*1.5,0,0),COLORYELLOW;
黄活跃:(换手>=3 AND 换手<7,-80,(换手-6)*4,0.0,0),COLORYELLOW;
STICKLINE(换手>=7,-20,-20+换手*1.5,0.5,0),COLORRED;
红热烈:(换手>=7,-80,(换手-6)*4,0.5,0),COLORRED;
DRAWTEXT(建仓天数,40,'建仓'),COLORGREEN;
Q:= SMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),P,1);
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SMA(IF(HD>0 AND HD>LD,HD,0),P,1);
DMM:= SMA(IF(LD>0 AND LD>HD,LD,0),P,1);
多头:= DMP*100/Q;
转折线:=20;
空头:= DMM*100/Q;
真实波:= SMA(ABS(空头-多头)/(空头+多头)*100,M,1);
VAR11:=((((HHV(HIGH,19) - CLOSE) / (HHV(HIGH,19) - LLV(LOW,19))) * 100) - 10);
VAR22:=(((CLOSE - LLV(LOW,19)) / (HHV(HIGH,19) - LLV(LOW,19))) * 100);
VAR33:=SMA(VAR22,9,8);
红线:=SMA(VAR33,9,8);
青线:=SMA(VAR11,9,8);
转强买点:CROSS(红线,青线) AND (多头>转折线 AND 真实波>转折线);
DRAWTEXT(转强买点,28,'买点'),COLORFFFFFF;
STICKLINE(转强买点,0,85,0,0),COLORYELLOW;
股价趋势:3*SMA((CLOSE- LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*10,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*10,5,1),3,1),LINETHICK0;
IF(做多能量>REF(做多能量,1),做多能量,DRAWNULL),COLORLIMAGENTA,LINETHICK2;
{IF(做空能量>REF(做空能量,1),做空能量,DRAWNULL),COLORGREEN,LINETHICK2;}
VAR17:=CROSS(82,SMA(MAX(C-(REF(C,1)),0),6,1)/SMA(ABS(C-(REF(C,1))),6,1)*100);
顶部:IF(VAR17,80,85),COLORCYAN;
DRAWTEXT(VAR17,80,'顶'),COLORCYAN;
STICKLINE(CROSS(做多能量,顶部),90,85,2,0),COLORYELLOW;
DRAWTEXT(FILTER(CROSS(做多能量,顶部),21),90,'注意高位'),COLORRED;
STICKLINE(CROSS(顶部,做空能量),90,85,1,0),COLORCYAN;
DRAWTEXT(FILTER(CROSS(顶部,做空能量),21),80,'下买'),COLORCYAN;
N:=20;
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:20*((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,100000000,1000000),COLOR00AAAA,LINETHICK;
DX:=(MA(DDX,5)*N)*2;
STICKLINE(DDX>0,50,50+DDX*8.5,2.5,0),COLORRED;
STICKLINE(DDX<0,50,50+DDX*8.5,2.5,0),COLORBLUE;
涨跌:=IF(BETWEEN(C,REF(C,1),H),VOL,0);
动因:=IF(BETWEEN(C,REF(C,1),L),VOL,0);
CC2:=IF(涨跌 AND 动因,0,VOL/3);
涨跌动因:3*(涨跌-(动因+CC2))/IF(CAPITAL<1,SUM(INDEXV,71),CAPITAL),LINETHICK0;
STICKLINE(涨跌动因>0,20,20+涨跌动因*18.5,2.5,0 ),COLORYELLOW;
STICKLINE(涨跌动因<0,20,20+涨跌动因*18.5,2.5,0 ),COLORBLUE;
MA1:MA(涨跌动因,N)*2;
AA:=(WINNER((CLOSE + ((CLOSE * 15) / 100))) * 100);
BB:=(WINNER((CLOSE + ((CLOSE * 0) / 100))) * 100);
CC:=(AA - BB);
DD:=((WINNER((CLOSE - ((CLOSE * 0.1) / 100))) - WINNER((CLOSE - ((CLOSE * 15) / 100)))) * 100);
EE:=(((CC < 3) AND (DD < 0.5)) AND (OPEN > LOW));
A1:=DYNAINFO(6);
A22:=IF((LOW > A1),0,IF((HIGH < A1),1,(((A1 - LOW) + 0.01) / ((HIGH - LOW) + 0.01))));
A3:=(VOL / WINNER(LOW));
A4:=REF(HHV(CLOSE,120),1);
A5:=REF(LLV(CLOSE,120),1);
A6:=((100 * (CLOSE - A5)) / (A4 - A5));
A7:=((A22 > 0) OR (A22 = 1));
A8:=((A7 AND ((A3 / REF(A3,3)) >= 3)) AND (A6 < 80));
A9:=(((REF(A8,1) OR REF(A8,2)) OR REF(A8,3)) OR REF(A8,4));
A10:=(A8 AND A9);
进场:IF(FILTER(A8,3),5,0);
加仓:IF((FILTER(A10,3) OR EE),10,0);
STICKLINE(进场,0,10,2,0),COLORFF7700;
STICKLINE(进场,0,10,1.5,0),COLORFFDD00;
STICKLINE(进场,0,10,1,0),COLORFFEE00;
STICKLINE(加仓,0,12,2,0),COLOR1020DD;
STICKLINE(加仓,0,12,1.5,0),COLOR1020EE;
STICKLINE(加仓,0,12,1,0),COLOR1020FF;
DRAWTEXT(进场=5,10,'进场'),COLORFFFF00;
DRAWTEXT(加仓=10,12,'加仓'),COLORFFFFFF;
箱底:=TROUGH(CLOSE,10,1)*1.02;
底:=CROSS(CLOSE,箱底);
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,2,1);
D:=SMA(K,2,1);
J:=3*K-2*D;
J1:=REVERSE(J);
庄:=REF(MA(C,1),10)>REF(MA(C,60),10);
进:=CROSS(J,J1) AND 庄 AND 底;
DRAWTEXT(进,做多能量-8,' 庄进'),COLORMAGENTA;
DRAWICON(进,做多能量-8,13);
