通达信跟庄进场主图指标公式

aaa:=(3*c+h+l+o)/6;
var1:=(8*aaa+7*ref(aaa,1)+6*ref(aaa,2)+5*ref(aaa,3)+4*ref(aaa,4)+3*ref(aaa,5)+2*ref(aaa,6)+ref(aaa,8))/36,colorff7700;
var2:=(hhv(var1,5)+hhv(var1,10)+hhv(var1,20))/3;
var3:=(llv(var1,5)+llv(var1,10)+llv(var1,20))/3;
var4:=(hhv(var2,5)+hhv(var2,10)+hhv(var2,20))/3;
var5:=(llv(var3,5)+llv(var3,10)+llv(var3,20))/3;
var6:=(llv(var1,2)+llv(var1,4)+llv(var1,6))/3;
{长期趋势线}
{长期趋势线:(ma(c,188)),colorgreen,linethick2;
lc:=ref(close,1);
rs1:=sma(max(close-lc,0),12,1)/sma(abs(close-lc),12,1)*100;
起步:if((rs1 >58),长期趋势线,drawnull),,colorred,linethick2;
drawtext(islastbar,长期趋势线,' 长期')coloryellow;}
{红}
stickline(close>open,close,open,3,0),color000099;
stickline(close>open,close,open,2.2,0),color0000cc;
stickline(close>open,close,open,1.5,0),color0000ff;
stickline(close>open,close,open,0.5,0),colorcc66ff;
drawband(var1,rgb(155,50,50),var6,rgb(250,250,0));
drawkline(high,open,low,close);
短线趋势线:var1,colorwhite;
中线趋势线:var6,coloryellow,linethick3;
下跌:if(var1=var6,var6,drawnull),colorff5500,linethick4;
bias13:=ma((close-ma(close,13))/ma(close,13),3)*100,colorff5500,linethick4;
xg2:=drawicon(cross(bias13,ref(bias13,1)),bias13,1);
drawtext(filter(xg2=1,5),low-0.03,'↖进场'),coloryellow;
stickline(xg2,o,c,2,0),color00ffff;
{牛熊}
nx:=ma(c,100);
牛熊:nx,colorffffff,linethick1;
drawtext(islastbar,nx,' 牛熊')colorffffff;
短趋势:ema(ema(ema(ema(ema(close,60),2),2),2),2),linethick1,colorred;
drawtext(islastbar,短趋势,' 短期')colorred;
{下面表述的所属行业、地域、板块}
drawtext_fix(islastbar,0.00,0.0,0,dyblock),colorred;{地域}
drawtext_fix(islastbar,0.07,0.00,01,hyblock),coloryellow;{产业}
drawtext_fix(1,0.09,0.00,0,externstr(0,1))colorgreen;{详细业务}
drawtext_fix(1,0.00,0.04,0,'主题概念：')colorff00ff;
drawtext_fix(1,0.04,0.04,0,externstr(0,2))colorff00ff;
drawtext_fix(1,0.00,0.08,0,'公司亮点：')color00ff00;
drawtext_fix(1,0.04,0.08,0,externstr(0,3))color00ff00;
{显示年月日}
n11:=strcat(con2str(year,0),' 年 ');
y:=strcat(con2str(month,0),' 月 ');
r:=strcat(con2str(day,0),' 日 ');
sj:=strcat(strcat(n11,y), r);
drawtext_fix(c>0,0.78,0.01,0,sj);
drawtext_fix(1,0.01,1,0,'~★~吉星高照~★~'),colorred;
{波段操作解盘原码}
{stickline(close> ref(close,1) ,high,low,0,0),color8080ff;
stickline(close> ref(close,1) ,open,close,3.1,0),color000033;
stickline(close> ref(close,1) ,open,close,2.1,0),colorred;
stickline(close> ref(close,1) ,open,close,1.5,0),color0000cc;
stickline(close> ref(close,1) ,open,close,0.3,0),colorcc66ff;{立体红颜色};
{stickline(close< ref(close,1) ,high,low,0,0 ),colorffff00;
stickline(close< ref(close,1) ,open,close,3.1,0 ),color000000;
stickline(close< ref(close,1) ,open,close,2.1,0),colorff6600;
stickline(close< ref(close,1) ,open,close,1.5,0 ),colordddd00;
stickline(close< ref(close,1) ,open,close,0.3,0),colorffff00;{立体青色};
均价:=(3*c+h+l+o)/6;
var1a:=(8*均价+7*ref(均价,1)+6*ref(均价,2)+5*ref(均价,3)+
4*ref(均价,4)+3*ref(均价,5)+2*ref(均价,6)+ref(均价,8))/36;
var2a:=(llv(var1a,2)+llv(var1a,4)+llv(var1a,6))/3;
sz1:=ref(var1a,1)=ref(var2a,1) and var1a>var2a and close>var1a;
sz2:=var1a>var2a and var1a>ref(var1a,1) and var2a>ref(var2a,1) and h/var1a<1.1 and l>var2a and close>var1a;
sz3:=var1a>var2a and var1a>ref(var1a,1) and var2a>=ref(var2a,1) and h/var1a>1.1;
sz4:=var1a>var2a and var1a>ref(var1a,1) and var2a>ref(var2a,1) and close>var2a and close<var1a;
sz5:=(var1a>var2a and var2a>ref(var2a,1) and var1a<>ref(var1a,1) and close<var2a) or (var1>var2a and var1a<ref(var1a,1) and var2a<ref(var2a,1) and close<var2a);
sz6:=ref(var1a,1)>ref(var2a,1) and var1a=var2a and close<var2a;
xd1:=var1=var2a and close<var2a or (var1a<ref(var1a,1) and var2a<ref(var2a,1) and ref(var1a,1)=ref(var2a,1) and close<var2a);
xd2:=var1=var2a and close>var1a;
{sat:=(amount/c)/(hhv(amount,20)/hhv(c,20));}
{量能饱和度:=if(sat>1,1,sat)*100;}
drawtext_fix(barstatus=2 and sz1,0.65,0.05,0,'调整结束短线介入'),colorff00ff;
drawtext_fix(barstatus=2 and sz2,0.65,0.05,0,'上升通道走势良好'),colorred;
drawtext_fix(barstatus=2 and sz3,0.65,0.05,0,'股价偏离注意调整'),color00ffff;
drawtext_fix(barstatus=2 and sz4,0.65,0.05,0,'上升通道调整洗盘'),colorffffff;
drawtext_fix(barstatus=2 and sz5,0.65,0.05,0,'转向特征注意离场'),colorff9933;
drawtext_fix(barstatus=2 and sz6,0.65,0.05,0,'通道改变坚决离场'),colorffff00;
drawtext_fix(barstatus=2 and xd1,0.72,0.05,0,'下跌通道只宜观望'),color00ff00;
drawtext_fix(barstatus=2 and xd2,0.65,0.05,0,'短期底部准备进入'),coloryellow;
{drawtext_fix(1,0.00,0.15,0,externstr(0,1)),colorffffff; }
drawtext_fix(1,0.48,0.05,0,'红带持股-----蓝线持币')colorred,linethick2;
drawtext_fix(1,0.1,1,0,'守则：1、跟踪红彩带、牛熊线走平及向上股！2、在牛熊线走平或上翘时要关注。3、下跌蓝线时不要买股！')coloryellow; {0.5=x坐标；0.06=y坐标};
{逃顶}
lcc:=ref(close,1);
rsic:=sma(max(close-lcc,0),6,1)/sma(abs(close-lcc),6,1)*100;
drawtext(cross(84,rsic) , high*0.99,' 逃顶'),colorgreen;
{绝顶逃}
日:=150;
昨前:=3;
高1:=ref(hhv(h,日),昨前);
天顶:refdate(高1,date)nodraw,colorcyan;
顶:=refdate(高1,date);
极顶:=refdate(顶,date);
跑:=极顶=h and ((c-l)<(o-c) or (o-l)<(c-o));
stickline(跑,c,o,3,0),colorgreen;
stickline(跑,l,h,0.1,0),colorgreen;
drawtext(跑,h*0.96,'---绝顶跑')colorgreen;
{涨跌停}
c3:=ref(c,1);
涨停:=if((c-c3)*100/c3>=(10-0.01*100/c3),1,0);
stickline(涨停,open,close,2,0),colormagenta;
跌停:=if((c3-c)*100/c3>=(10-0.01*100/c3),1,0);
stickline(跌停,open,close,2,0),colorwhite;
{顶底背离，无未来}
tc1:=if(h=hhv(h,48),h,drawnull);
tc2:=const(barslast(tc1=h))+1;
upper1:=const(if(tc2=1,h,ref(h,tc2-1)));
bc1:=if(l=llv(l,48),l,drawnull);
bc2:=const(barslast(bc1=l))+1;
lower1:=const(if(bc2=1,l,ref(l,bc2-1)));
lp:=currbarscount<=bc2 and l=lower1;{低点定位}
hp:=currbarscount<=tc2 and h=upper1;{高点定位}
drawtext(lp,l*1,'底背'),coloryellow;{波段底文字提示，黄色}
drawtext(hp,h*0.98,' 波段顶'),color00ff00;{波段顶文字提示，绿色};