牵牛线指标 <通达信>

{牵牛线} 
var1:=close>ref(close,1) and close>ref(close,2); 
var2:=ref(var1,1) and close<=ref(close,1) and close>=ref(close,2); 
var3:=ref(var2,1) and close>=ref(close,1) and close<=ref(close,2); 
var4:=ref(var3,1) and close<=ref(close,1) and close>=ref(close,2); 
var5:=ref(var4,1) and close>=ref(close,1) and close<=ref(close,2); 
var6:=ref(var5,1) and close<=ref(close,1) and close>=ref(close,2); 
var7:=ref(var6,1) and close>=ref(close,1) and close<=ref(close,2); 
var8:=ref(var7,1) and close<=ref(close,1) and close>=ref(close,2); 
var9:=ref(var8,1) and close>=ref(close,1) and close<=ref(close,2); 
vara:=ref(var9,1) and close<=ref(close,1) and close>=ref(close,2); 
varb:=ref(vara,1) and close>=ref(close,1) and close<=ref(close,2); 
varc:=ref(varb,1) and close<=ref(close,1) and close>=ref(close,2); 
vard:=close<ref(close,1) and close<ref(close,2); 
vare:=ref(vard,1) and close>=ref(close,1) and close<=ref(close,2); 
varf:=ref(vare,1) and close<=ref(close,1) and close>=ref(close,2); 
var10:=ref(varf,1) and close>=ref(close,1) and close<=ref(close,2); 
var11:=ref(var10,1) and close<=ref(close,1) and close>=ref(close,2); 
var12:=ref(var11,1) and close>=ref(close,1) and close<=ref(close,2); 
var13:=ref(var12,1) and close<=ref(close,1) and close>=ref(close,2); 
var14:=ref(var13,1) and close>=ref(close,1) and close<=ref(close,2); 
var15:=ref(var14,1) and close<=ref(close,1) and close>=ref(close,2); 
var16:=ref(var15,1) and close>=ref(close,1) and close<=ref(close,2); 
var17:=ref(var16,1) and close<=ref(close,1) and close>=ref(close,2); 
var18:=ref(var17,1) and close>=ref(close,1) and close<=ref(close,2); 
var19:=ref(vard or vare or varf or var10 or var11 or var12 or var13 or 
var14 or var15 or var16 or var17 or var18,1) and var1; 
stickline(var19,ref(close,1),ref(close,2),4,1),coloryellow; 
var1a:=ref(var1 or var2 or var3 or var4 or var5 or var6 or var7 or 
var8 or var9 or vara or varb or varc,1) and vard; 
stickline(var1a,ref(close,1),ref(close,2),4,2),color00ff00{98fd}; 
ema1:=ema(c,10); 
做空线:hhv(ema1,5),color00ff00,linethick2; 
牵牛线:if(ema1<做空线,(ema1-(做空线-ema1)),做空线),colorred,linethick2; 
泾渭线:ema(close,55), circledot,colorffcc66; 
v1:=(c+l+h)/3; 
v2:=ema(v1,6); 
v3:=ema(v2,5); 
获利卖出线: (v3+2.488*std(close,26)),color00dd00; 
a1:=cross(v2,v3) and c>o; 
drawtext(a1,l*0.99,'⊙'),coloryellow ; 
drawtext(a1,l*0.97,'介入'),coloryellow ; 
未:=sum(10000*close/indexc,2),linethick2; 
卜:=sma(未,2,1); 
震仓:=if(filter(cross(未,卜)and llv(未,10)=llv(未,60),10),1,0); 
drawtext(震仓,l*0.99,'★'),color00ff00; 
最低位:llv(low,120),colorffcccc; 
最高位:hhv(high,60),colorff00ff;                                                               {红绿线合一向上介入，红线分出绿线卖出，55日均线是强弱的泾渭线。 

该指标线条简单清晰，红绿两色显示股价涨跌趋势泾渭分明，适用于短中长线的操作}