通达信机构能量选股指标公式源码

通达信机构能量选股指标公式源码

源码正文：

（参数: P 2 100 14  M 1 100 3）

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