魔道源码（主图，源码，贴图）

input: p(10,1,100);
均价:=(h+l+o+c)/4;
b:=2*ema(llv(均价,88),5)-均价;
财神线下穿买！:3*b-2*sma(b,5,1),linethick0;
drawicon(cross(c,财神线下穿买！),c,4),align5;
vertline(cross(c,财神线下穿买！)),linedot;
主线:=wma(c,p)*0.99;
var1:=pow(c-主线,1);
var2:=ma(var1,3);
var3:=sqrt(var2);
阻力线:=主线+1.96*var3;
支撑线:=主线-1.96*var3;
partline(主线>ref(主线,1) and 阻力线<>支撑线,主线),colorff;
drawicon(主线>ref(主线,1),主线,10);
drawicon(主线>ref(主线,1) and ref(主线,1)<ref(主线,2),主线*0.99,8);
魔中轨:=ma(c,20);
魔道上:魔中轨+2*std(c,24),pointdot,Linethick3,colorff9966;
魔道下:魔中轨-2*std(c,24),pointdot,Linethick3,colorff9966;
v1:=(c+4*h)/5;
v2:=llv(v1,30);
生死线:v2*0.98,Linethick2,colorff;
var1:=ref(c,1);
var2:=sma(max(c-var1,0),6,1)/sma(abs(c-var1),6,1)*100;
drawtext(cross(80,var2),h*1.02,'顶 '),Linethick2,coloreeff;
阻挡:=sma(h,13,2)*1.04;
stickline(o>=c,c,o,9,0),colorff5b00;
stickline(o>=c,c,o,8,0),colorff6c00;
stickline(o>=c,c,o,7,0),colorff7b00;
stickline(o>=c,c,o,6,0),colorff9c00;
stickline(o>=c,c,o,5,0),colorffbe00;
stickline(o>=c,c,o,3.5,0),colorffcc00;
stickline(o>=c,c,o,1.5,0),colorffff00;
stickline(c>=o,c,o,8,0),coloraa;
stickline(c>=o,c,o,6,0),colorcc;
stickline(c>=o,c,o,4,0),colordd;
stickline(c>=o,c,o,2,0),colorff;
stickline(c>=o,h,l,0,0),colorffff;
stickline(c<=o,c,o,8,0),color998855;
stickline(c<=o,c,o,6,0),colorbbaa77;
stickline(c<=o,c,o,4,0),colorddcc99;
stickline(c<=o,c,o,2,0),colorffeebb;
stickline(c<=o,h,l,0,0),colorffff00;
stickline(c<o,h,l,1,0),color8800;
stickline(c<o,h,l,0,0),colorff00;
stickline(c<o,c,o,8,0),color8800;
stickline(c<o,c,o,7,0),color9900;
stickline(c<o,c,o,6,0),coloraa00;
stickline(c<o,c,o,5,0),colorbb00;
stickline(c<o,c,o,4,0),colorcc00;
stickline(c<o,c,o,3,0),colordd00;
stickline(c<o,c,o,2,0),coloree00;
stickline(c<o,c,o,1,0),colorff00;
stickline(c>=o,h,l,1,0),colorff;
stickline(c>=o,h,l,0,0),coloreeff;
stickline(c>=o,c,o,8,0),colorff;
stickline(c>=o,c,o,7,0),color22ff;
stickline(c>=o,c,o,6,0),color44ff;
stickline(c>=o,c,o,5,0),color66ff;
stickline(c>=o,c,o,4,0),color88ff;
stickline(c>=o,c,o,3,0),coloraaff;
stickline(c>=o,c,o,2,0),colorccff;
stickline(c>=o,c,o,1,0),coloreeff;
stickline(c>=o,c,o,2,0),colorccff;
stickline(c>=o,c,o,1,0),coloreeff;
stickline(c<o,h,l,1,0),color8800;
stickline(c<o,h,l,0,0),colorff00;
stickline(c<o,c,o,8,0),color8800;
stickline(c<o,c,o,7,0),color9900;
stickline(c<o,c,o,6,0),coloraa00;
stickline(c<o,c,o,5,0),colorbb00;
stickline(c<o,c,o,4,0),colorcc00;
stickline(c<o,c,o,3,0),colordd00;
stickline(c<o,c,o,2,0),coloree00;
stickline(c<ref(c,1) and c<ref(c,1) and h>阻挡 and c<阻挡,o,l,0.7,0),colorff0000;
stickline(c<ref(c,1) and c<ref(c,1) and h>阻挡 and c<阻挡,c,h,0.7,0),colorff0000;
stickline(c<ref(c,1) and c<ref(c,1) and h>阻挡 and c<阻挡,c,o,9,0),colorff0000;
stickline(c<ref(c,1) and c<ref(c,1) and h>阻挡 and c<阻挡,c,o,6,0),colorff0000;
stickline(c<ref(c,1) and c<ref(c,1) and h>阻挡 and c<阻挡,c,o,4,0),colorff0000;
stickline(c<ref(c,1) and c<ref(c,1) and h>阻挡 and c<阻挡,c,o,2,0),colorff0000;
drawicon(c<ref(c,1) and h>阻挡 and c<阻挡,h*1.02,5);
mid:=ma(c,20);
upper:=mid+2*std(c,20);
lower:=mid-2*std(c,20);
v1:=(c-lower)/(upper-lower)*100;
v2:=v1-ema(v1,5);
k1:=sum(llv(v2,4),4)/4;
v3:=ema(v2,64)*10;
v4:=ema(0.4*v2*(-1),3);
v5:=-1*ema(v2,39)*10;
a:=v3>10;
b:=v2>v4;
e:=v5>10;
ks:=v3<=10 or v2<=v4 or v5<=10;
rks:=(c-sma(c,13,1))/sma(c,13,1)*(-100);
mls:=ref(rks,1);
开:=mls/rks>1.23 and mls>13 and c/ref(c,1)>1.03;
高:=o;
低:=h;
收:=l;
var4:=c;
超跌:stickline(rks>13,低,收,0,1),Linethick2,colorffffff;
反弹:stickline(开=1,低,收,0,1),Linethick2,colorff00ff;
stickline(rks>13,高,var4,8,1),Linethick2,colorffffff;
stickline(开=1,高,var4,8,1),Linethick2,colorff00ff;
var1:=ema(c,3)-ema(c,6)-(ema(c,6)-ema(c,12))*(-100);
var2:=ema(var1,3);
var3:=ema(c,3)-ema(c,6)-(ema(c,24)-ema(c,36))*(-100);
var5:=ema(var3,9);
var6:=cross(var1,var2);
vara:=cross(var2,var1);
牛:stickline(var6,o,c,10,0),colorffff;
纪律:stickline(var6,o,c-(c-o)*0.33,10,0),colorff00ff;
赚了跑:stickline(var6,o,c-(c-o)*0.66,10,0),Linethick2,colorff;
var1:=ema((c+l+o+h)/2,2);
stickline(var1<=ref(var1,3) and c>o,o,c,9,3),colorffffff;
varb:=amount/v/100;
varc:=(3*h+l+o+2*c)/7;
vard:=sum(amount,7)/varb/100;
vare:=dma(varc,v/vard);
varf:=(c-vare)/vare*100;
varj:=(c-llv(l,34))/(hhv(h,34)-llv(l,34))*100;
bias18:=ma(varf,20)+std(varf,20);
k:=(c-ma(c,18))/ma(c,18)*100;
顶:=sma(varj,3,1);
趋势线:=ref(k,1)>=5 and cross(bias18,varf) and 顶>79;
drawtext(filter(ref(k,1)>=5 and cross(bias18,varf) and 顶>79,5),h*1.02,'风险'),colorffff;
短期乖离率:=3*sma((c-llv(l,28))/(hhv(h,28)-llv(l,28))*100,5,1)-2*sma(sma((c-llv(l,27))/(hhv(h,27)-llv(l,27))*100,5,1),3,1);
var44:=(c-ma(c,13))/ma(c,13)*100;
drawtext(filter(if(cross(短期乖离率,10) and c/l>1.04 and var44<0.35,1,0) and c>o,5),l-0.07,' ★底'),align2,coloreeff;