回复 #1 af8889 的帖子
{源码}
input: gll(-12,-20,10);
var1:=ma(c,20);
布林极限:=100*(c-var1)/std(c,20);
布林值:=ema(布林极限,10);
var2:=ema(布林极限,5);
var3:=ema(布林值,5);
stickline(布林极限>=布林值,100,102,8,0),color0000ff;
stickline(布林极限<=布林值,100,102,8,0),colorff0000;
stickline(var2>=var3,102,104,8,0),color00ffff;
stickline(var2<var3,102,104,8,0),colorff0000;
var1k:=(l+h+2*c)/4;
var2k:=ref(var1k,1);
var3k:=sma(var1k-var2k,6,1)/sma(abs(var1k-var2k),6,1)*100;
mms:=ma(var3k,1)+50;
mmm:=ema(mms,8);
mml:=ema(mms,24);
mmc:=ema(mmm,40);
stickline(mms>=100,105,107,10,0),colorffffff;
drawicon(ref(mms,1)>=100 and mms<100,100,9);
drawtext(ref(mms,1)>=100 and mms<100,90,'--m');
stickline(mms<0,40,50,6,0),color00ff00;
mav:=(c*2+h+l)/4;
sk:=ema(mav,1)-ema(mav,40);
sd:=ema(sk,5);
b:=(sk-sd)*100;
t:=(c-llv(1.02*l,20))/(hhv(h,20)-llv(l,20))*100;
q1:=(hhv(h,13)-c)/(hhv(h,13)-llv(l,13))*120;
卖:=if(q1>100,100,q1);
买:=if(t>100,100,if(t<0,0,t));
a:=(hhv(h,5)-c)/(hhv(h,5)-llv(l,5))*20;
a1:=(3*a-2*sma(a,3,1))*1;
短线阻力:=if(a1>100,100,if(a1<-5,-5,a1));
短线能量:=if(b<-20,-20,if(b>100,100,b));
stickline(短线能量>=短线阻力,0,短线能量+10,6,0),color0000ff;
stickline(短线能量>=短线阻力 and 短线能量-ref(短线能量,1)<0,0,短线能量/2+10,6,0),color00ff00;
stickline(短线能量<短线阻力,0,短线能量+10,6,0),colorff0000;
bias1w:=(c-ma(c,6))/ma(c,6)*100;
bias2w:=(c-ma(c,12))/ma(c,12)*100;
bias3w:=(c-ma(c,24))/ma(c,24)*100;
mm:=(bias1w+2*bias2w+3*bias3w)/6;
mn:=ma(mm,3);
stickline(mn<gll,-10,-15,6,0),color00ff00;
stickline(mn<-9,-10,-15,6,0),color0000ff;
stickline(mn<-12,-10,-15,6,0),color00ffff;
20,pointdot,Linethick3;
80,pointdot,Linethick3;
rsv:=(c-llv(l,9))/(hhv(h,9)-llv(l,9))*100;
k:sma(rsv,3,1),colorff0000;
d:sma(k,3,1),colorff0000;
j:3*k-2*d,color00ff00;
drawicon(cross(j,d) and d<=20,18,12);
partline(j,j<k,RGB(0,255,255),j>k,RGB(255,255,0));{,colorffff00;}
{partline(j>k,j),color00ffff;}
partline(j,j>k and j<ref(j,1),RGB(0,255,0));{,color00ff00;}
partline(k,j>k,RGB(255,0,0));{,color0000ff;}
partline(k,j>k and k<ref(k,1),RGB(0,255,0));{,color00ff00;}
partline(d,j>k,RGB(0,255,0)),color00ff00;
0,color00ff00;
lc:=ref(c,1);
rsi1:=sma(max(c-lc,0),6,1)/sma(abs(c-lc),6,1)*100;
drawicon(cross(76,rsi1),110,9);
drawtext(cross(76,rsi1),120,'--r');
