高点:=HHV(H,9);
低点:=LLV(L,9);
箱体:=高点-低点;
背离:=CLOSE/箱体-低点/箱体;
慢线:SMA(背离,3,1),linethick2,colorff0000;
修正:=SMA(慢线,3,1);
快线:(39*慢线-26*修正)/13,linethick2,color0000ff;
买入:=ref(快线,1)<ref(慢线,1) and 快线>=慢线;
drawic

ma5:MA(CLOSE,5),colorf00ff0;
ma13:MA(CLOSE,13),colorwhite;
ma60:MA(CLOSE,60),linethick1,colorred;
ma90:ma(c,90),linethick2,colorf0f000;
ma120:MA(CLOSE,120),color00ff00;
aa:=cross(ma(c,5),ma(c,20)) and cross(ma(c,5),ma(c,30))

input:YINGL(13,1,999),LI(24,1,999);
DRAWTEXTABS(3,1,'用法：1、当股价逐波走高，而庄长期和庄短期出现与股价背离走低现象，卖出。 庄动力线'),linethick1,Colorred;
DRAWTEXTABS(3,16,'用法：2、当股价逐波走低，而庄长期和庄短期出现背离上扬，并向上突破下降趋势 考虑建仓。'),linethick1,Colorred

var2:=REF(LOW,1);
var3:=SMA(ABS(LOW-var2),3,1)/SMA(MAX(LOW-var2,0),3,1)*100;
var4:=EMA(IF(CLOSE*1.2,var3*10,var3/10),3);
var5:=LLV(LOW,38);
var6:=HHV(var4,38);
var7:=IF(LLV(LOW,90),1,0);
var8:=EMA(IF(LOW<=var5,(var4+

散户:= EMA(((2*CLOSE+HIGH+LOW)/4-LLV(LOW,5))/(HHV(HIGH,4)-LLV(LOW,5))*100,4);
庄家:= EMA(0.667*REF(散户,1)+0.333*散户,2);
低:(CROSS(散户,庄家) AND 散户<30);
DRAWTEXT(低=1,0.5,'低');
RSV:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100

var2:=REF(LOW,1);
var3:=SMA(ABS(LOW-var2),3,1)/SMA(MAX(LOW-var2,0),3,1)*100;
var4:=EMA(IF(CLOSE*1.2,var3*10,var3/10),3);
var5:=LLV(LOW,38);
var6:=HHV(var4,38);
var7:=IF(LLV(LOW,90),1,0);
var8:=EMA(IF(LOW<=var5,(var4+

VAR1:= (CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100;
VAR2:= SMA(VAR1,2,1);
VAR3:= SMA(VAR2,2,1);
VAR4:= VOL/CAPITAL*34;
VAR5:= REF(VAR4,1);
大户减仓: VAR5>50 AND VAR5<4.2,LINETHICK3,STICK,COLOR00FF00;
机构出货: VAR3

{计算股价}
input:股数(0,0,10000000),买入价(0,0,500),预期涨幅(0,0,100),服务费(0,0,100){根据各证券所收费不同，自行调节};
预卖价位:=买入价*(预期涨幅*0.01+1);
买入收费:=买入价*股数*0.0018{各证券所收费不同，自行调节}+服务费;
卖出收费:=预卖价位*股数*0.0028{各证券所收费不同，自行调节}+服务费;
预期盈利:=预卖价位*股数-买入价*股数-买入收费-卖出收费;

VAR3:=LLV(HIGH,240);
VAR4:=((100 * (CLOSE - VAR3)) / VAR3);
VAR5:=REF(LLV(CLOSE,480),1);
VAR6:=REF(HHV(CLOSE,480),1);
VAR7:=(100 * (CLOSE - VAR5))/(VAR6 - VAR5);
VAR8:=((CLOSE-LLV(CLOSE,981))/(HHV(CLOSE,981)- LLV(CLOSE,981)))

庄筹估算值:EMA(WINNER(C)*70,3),colorffcc66, linethick2;
散筹估算值:EMA((WINNER(C*1.1)-WINNER(C*0.9))*70,3),color0099ff,linethick2;
获利线:EMA(WINNER(C)*100,3),colorwhite;
庄筹线:EMA(WINNER(C)*70,5),colorred,linethick2;
散筹线:EMA((WINNER(C*1.1)-WINNE

A1:=CAPITAL;
A2:=(((H + L) + O) + C) / 4;
A3:=(((INDEXH + INDEXL) + INDEXO) + INDEXC) / 4;
A4:=(A2 - (REF(A2,1))) / (REF(A2,1));
A5:=(A3 - (REF(A3,1))) / (REF(A3,1));
A6:=(((SUM(A4,10)) + (SUM(A5,10))) / 10) * 1000;
A7:

庄长期:SUM((VOL * ((CLOSE / (REF(CLOSE,1))) - 1)),24),linethick2;
庄短期:SUM((VOL * ((CLOSE / (REF(CLOSE,1))) - 1)),13),linethick2,colorGreen;

VAR2:=1; VAR3:=VOL/CAPITAL*100;
VAR4:=CLOSE/OPEN;
短期兵力: EMA(VAR3*VAR4,9)*44.545*0.999*VAR2 , COLORRED;
中期兵力: EMA(VAR3*VAR4,33)*44.545*0.999*VAR2;
长期兵力: EMA(VAR3*VAR4,61)*44.545*0.999*VAR2;
预备兵力: EMA(VAR3*VAR4,120)*44.545*0.88

M:=55;
N:=34;
LC:=REF(CLOSE,1);
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);
FF:=EMA(CLOSE,3);
MA15:=EMA(CLOSE,21);
DRAWTEXT(CROSS(85,RSI),75,'▼'),COLORGREEN;
VAR1:=IF(YEAR

Var2:=REF(LOW,1);
Var3:=SMA(ABS(LOW-Var2),3,1)/SMA(MAX(LOW-Var2,0),3,1)*100;
Var4:=EMA(IF(CLOSE*1.2,Var3*10,Var3/10),3);
Var5:=LLV(LOW,38);
Var6:=HHV(Var4,38);
Var7:=IF(LLV(LOW,90),1,0);
Var8:=EMA(IF(LOW<=Var5,(Var4+

M:=60;
N:=30;
散户线: 100*(HHV(HIGH,M)-CLOSE)/(HHV(HIGH,M)-LLV(LOW,M)),ColorFFFF00,LINETHICK3;
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
庄家线:EMA(j,3),colorff00f

ss1:=(LOW+HIGH+CLOSE*2)/4;
ss2:= MA(ss1,4);
ss3:=HHV(ss2,10);
ss4:=ma(ss3,3);
ss5:=1.25*ss4-0.25*ss3;
xkkj:=if(ss5>ss3,ss3,ss5);
ff1:=LLV(ss2,10);
ff2:=ma(ff1,3);
ff3:=1.25*ff2-0.25*ff1;
dkkj:=if(ff

N:=30;
M:=95;
v1:ema(close,5),coloryellow;
v2:ema(ema(close,29)*1.01,10),colorffcc66;
DRAWICON(cross(v1,v2),v2,1);
v3:ema(close,10),colorff00ff;
v4:ema(ema(close,60)*0.99,10),color0099ff;
DRAWICON(cross(v3,v4),v4,

input:n(9,1,100);
DRAWGBK(CLOSE>1,STRIP(RGB(0,150,150),RGB(0,20,20),0));
VAR2:=(HIGH+LOW+(CLOSE)*(2))/(4);
B: ((EMA((VAR2-LLV(VAR2,15))/(HHV(LOW,15)-LLV(VAR2,15)),2))*(38)),COLOR0000FF,LINESTICK;
VAR22:=((CLOSE-LLV(LOW,10))/(HHV

VAR1:=EMA(EMA(CLOSE,13),13);
控盘:= (VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
STICKLINE(控盘<0,控盘,0,2,0),COLORWHITE;
无庄控盘:控盘<0,COLORWHITE;
STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,2,1),COLORRED;
有庄控盘: 控盘>REF(控盘,1) AND 控盘