|
t0:=if(time>093000 and time<094500 ,1,0);
t1:=if(time>093100 and time<145500 ,1,0);
t2:=if(time>100000 and time<145500 ,1,0);
t3:=if(time>140000 and time<145500 ,1,0);
涨幅:=dynainfo(14)*100;
cct:=dynainfo(8);{本文来源：小牛网www.....com }
ppp:= filter(cct=0,350) ;
drawtext(ppp,45,'★今日该股票未开盘,不能分析★'),colorff00ff;
var80:=if(troughbars(3,16,1)=0 and high>low+0.04,3,0);
var81:=zig(3,6)>ref(zig(3,6),1) and ref(zig(3,6),1)<=ref(zig(3,6),2)
and ref(zig(3,6),2)<=ref(zig(3,6),3);
var83:=zig(3,22)>ref(zig(3,22),1) and ref(zig(3,22),1)<=ref(zig(3,22),2)
and ref(zig(3,22),2)<=ref(zig(3,22),3);
var85:=zig(3,51)>ref(zig(3,51),1) and ref(zig(3,51),1)<=ref(zig(3,51),2)
and ref(zig(3,51),2)<=ref(zig(3,51),3);
var87:=zig(3,72)>ref(zig(3,72),1) and ref(zig(3,72),1)<=ref(zig(3,72),2)
and ref(zig(3,72),2)<=ref(zig(3,72),3);
nn1:=var80;
nn2:=(var81+var83+var85+var87);
var82:=zig(3,6)<ref(zig(3,6),1) and ref(zig(3,6),1)>=ref(zig(3,6),2)
and ref(zig(3,6),2)>=ref(zig(3,6),3);
var84:=zig(3,22)<ref(zig(3,22),1) and ref(zig(3,22),1)>=ref(zig(3,22),2)
and ref(zig(3,22),2)>=ref(zig(3,22),3);
var86:=zig(3,51)<ref(zig(3,51),1) and ref(zig(3,51),1)>=ref(zig(3,51),2)
and ref(zig(3,51),2)>=ref(zig(3,51),3);
var88:=zig(3,72)<ref(zig(3,72),1) and ref(zig(3,72),1)>=ref(zig(3,72),2)
and ref(zig(3,72),2)>=ref(zig(3,72),3);
mm1:=(var82+var84+var86+var88);
mm2:= if(mm1>0,-500,0);
mm:= if(c>1000,mm2*100,mm2),colorred,linethick3;
ct:sum(mm,0) and t1=1;{统计}
紫观顶:ema((close-llv(close,55))/(hhv(close,55)-llv(low,55))*100,5),linethick1,colorff00ff;
m1:= (7*sma((close-llv(low,27))/(hhv(high,27)-llv(low,27))*30,4,1)-
3*sma(sma((close-llv(low,27))/(hhv(high,27)-llv(low,27))*30,4,1),3,1)-
sma(sma(sma((close-llv(low,27))/(hhv(high,27)-llv(low,27))*30,4,1),3,1),2,1)),colorwhite;
蓝看底: ema(ma(m1,5),3),linethick1,colorffff00;
wh:=紫观顶;
wl:=蓝看底;{本文来源：小牛网www.....com }
ca:=if(t1=1 and wh>80 and ct=1,1,0);
p4:= filter(ca=1,350);
ddc:='★短线看跌，紫线高点出局';
drawtext(p4,45,ddc),colorgreen;
a:=ema(winner(close),10);
b:=ema(winner(close),34);
aad:=ma(close,32);
bad:=ma(close,12);
ddd:=cross(b,a);
aac:=ma(c,1);
bbb:=ma(aad,2);
var51:=(close-llv(low,60))/(hhv(high,60)-llv(low,60))*80;
bb:=sma(var51,7,1);
var67:=(low+high+close)/3;
var68:=(var67-ma(var67,14))/(0.015*avedev(var67,14));
wr30:=100*(hhv(high,79)-close)/(hhv(high,79)-llv(low,79));
var21:=(2*close+high+low+open)/5;
var22:=llv(low,34);
var23:=hhv(high,34);
sk1:=ema((var21-var22)/(var23-var22)*100,13);
wr31:=if(wr30=0 or sk1>=90 or var68>-250,100,wr30);
舟:if(nn1>0 or nn2>0,35,drawnull)*2,stick,colormagenta,linethick3;
岸:(t1=1 and ct=0 and sk1=100 or t1=1 and ct=0 and sk1>0 and wr30>98 and
sk1<=13)*60,stick,colormagenta,linethick1;
花:ema(if(wl<15 and t3=1 and l<= llv(l,30),sma(abs(l-ref(l,1)),30,1)/
sma(max(l-ref(l,1),0),30,1),0),3)*25,stick,coloryellow,linethick3;
w1:=cross(m1,wl);
n1:=wh<35 and wh > ma(ref(wh,3),3) and ct=0 and t2=1 and 涨幅<8;
技:if(w1=1 and n1=1,75,0),stick,colorred,linethick3;
p2:= filter(技,16) ;
drawtext(p2,25,'←短底'),coloryellow,linethick1;
varc:=(zig(3,5)>ref(zig(3,5),1)) and (ref(zig(3,5),1)<=ref(zig(3,5),2))
and (ref(zig(3,5),2)<=ref(zig(3,5),3));
看涨:varc=1;
ch:sum(看涨,0) and t1=1;{统计}
p1:= filter(看涨,16) ;
drawtext(p1,30,'←短线看涨'),coloryellow,linethick2;
var1z:=ref(close,1);
var2z:=sma(max(close-var1z,0),7,1)/sma(abs(close-var1z),7,1)*100;
var3z:=sma(max(close-var1z,0),13,1)/sma(abs(close-var1z),13,1)*100;
var4z:=sma(max(var1z-close,0),7,1)/sma(abs(close-var1z),7,1)*100;
var5z:=sma(max(var1z-close,0),13,1)/sma(abs(close-var1z),13,1)*100;
var6z:=barscount(close);
波:(t3=1 and var2z<25 and var3z<30 and var6z>35)*3,stick, colorstick,linethick2;
varf:=100-3*sma((close-llv(low,65))/(hhv(high,80)-llv(low,65))*100,20,1)+2*
sma(sma((close-llv(low,65))/(hhv(high,80)-llv(low,65))*100,20,1),15,1);
var9a:=100-3*sma((open-llv(low,65))/(hhv(high,80)-llv(low,65))*100,20,1)+2*
sma(sma((open-llv(low,65))/(hhv(high,80)-llv(low,65))*100,20,1),15,1);
var2a:=varf<ref(var9a,1) and vol>ref(vol,1) and close>ref(close,1);
drawtext(ct=0 and var2a and count(var2a,50)=1,75,'←大资金'),linethick1,coloryellow;
大资金:(ct=0 and var2a and count(var2a,50)=1)*85,stick,coloryellow,linethick1;
var31:=ma(vol,5)>ma(vol,60);{本文来源：小牛网www.....com }
介入: if(a<0.15 and abs(a-b)<0.05 and cross(a,b) and var31,1,0)*80,stick,colorred,,linethick2;
p3:= filter(介入,16) ;
ddb:='←进场注意';
drawtext(p3,if(介入>0 and 涨幅<8,60,70),ddb),coloryellow;
dif:=ema(close,12)-ema(close,26);
dea:=ema(dif,9);
sd:=(c>60 and c<100,500,300);
sf:=if(c<40 and c<=60,800,sd);
sg:=if(c>10 and c<=25,1000,if(c>25 and c<40,1000,sf));
sh:=if(c<5,5000,if(c>=5 and c<=10,3000,sg));
sj:=if(c>=6000,5,sh);
sk:=if(c>1000 and c<6000,25,sj);
macd:(dif-dea)*sk,colorstick;
nc2:=wl>35 and wl<65 and wl > ma(ref(wl,5),5) and ct=0 and t2=1 and 涨幅<8;
p5:=filter(nc2,32) ;
drawtext(p5 ,wl*1.01,'←加仓'),color00ffff,linethick2;
ma5:=ema(close,5);
ma65:=ema(close,65);
ma21:=ema(close,21);
dd1:=count(ma21>ma65,10)=10;
gx:=max(ma5,max(ma21,ma65));
dx:=min(ma5,min(ma21,ma65));
dd2:=abs(gx/dx-1)*100<=15;
dd3:=count(macd<0,10)=10;
dd4:=if(dd1 and dd2 and dd3,5,0);
dd5:=cct>0 and 0+if(cross(0.1,dd4) and cross(macd,0),8,0) ;
dde:='←买不亏';
stickline(filter(dd5=1,50)=1,0,30,3,0),linethick1,coloryellow;
drawtext(filter(dd5=1,50)=1,5,dde),linethick1,coloryellow;
警戒:90,color5aff9e;
轴:0;
var1:=ema(close,3);
var2:=ema(close,21);
var3:=barslast(cross(var2,var1))>15;
var4:=vol>ma(vol,5)*2 and vol<ma(vol,5)*5;
var5:=cross(var1,var2) and var4 and var3;
个股:=ema(100*(c-llv(low,34))/(hhv(h,34)-llv(low,34)),3),color1010ff;
大盘:=ema(100*(indexc-llv(indexl,34))/(hhv(indexh,34)-
llv(indexl,34)),3),colore67010,linethick2;
stickline(个股>=大盘,个股,大盘,0,0),colorred;
stickline(个股<大盘,个股,大盘,0,0),colorblue;
stickline(个股>=大盘,0,大盘,0,-1),coloryellow;
stickline(个股<大盘,0,个股,0,-1),coloryellow;
黑马:if(var5,80,0),stick,linethick4,colorf00ff0;
drawtext(var5,70,'黑马'),colorf00ff0;
短线反弹:if(cross(个股,9),25,0),stick,linethick3,colorred;
drawtext(cross(个股,9),15,'弹'),color00ff00;
drawicon((zig(3,5)<ref(zig(3,5),1)) and (ref(zig(3,5),1)>=ref(zig(3,5),2))
and (ref(zig(3,5),2)>=ref(zig(3,5),3)),95,15);
var41:=sma(max(c-ref(c,1),0),9,1)/sma(abs(c-ref(c,1)),9,1)*100;
drawicon(cross(82,var41),86,2);
var42:=ref(c,1);{本文来源：小牛网www.....com }
var43:=sma(max(c-var42,0),34,1)/sma(abs(c-var42),34,1)*100;
drawtext(cross(84,var43),93,'s'),colorgreen ;
aa:=(ma(c,1)+ma(c,3)+ma(c,5)+ma(c,7)+ma(c,9))/5;
bb1:=(ma(c,2)+ma(c,4)+ma(c,6)+ma(c,8)+ma(c,10))/5;
cc:=ema(aa,2);
dd:=ema(bb1,5);
tj0:=cross(cc,dd);
上:=ema(c,3);
中:=ema(c,5);
下:=ema(中,5);
tj1:=cross(上,中);
tj2:=上>ref(上,1);
x1:=(c+l+h)/3;
bb5:=atan(ema(x1,5)-ref(ema(x1,5),1))*3.1416*10;
drawicon((zig(3,5)>ref(zig(3,5),1)) and (ref(zig(3,5),1)<=ref(zig(3,5),2))
and (ref(zig(3,5),2)<=ref(zig(3,5),3)),-8,1) ;
ema3:=ema(c,3);
tj3:=bb5>1 and ema(x1,5)>ref(ema(x1,3),1);
stickline(tj1 and tj2 and tj0 and tj3,0,70,4,0),colorf00ff0;
drawtext((tj1 and tj2 and tj0 and tj3),60,'小黑马'),colorf00ff0;
牛市做长线的五指山万泉河第50c版发表后，我觉得此分时副图很有创意，结合自已的看盘方法，觉很有些地方可做修改，原想将其改为在一定的时间段内才将买卖信号显示出来，将已改成功部分源码发给牛市做长线与其交流，期待有更好的改进。
牛市做长线提议我将其公开，现改其名为五指山多情1版公开，希通过交流能使其完善。
公式与五指山万泉河第50c版不同之处是加了一些明确逃顶、买进的信号，方便用者看盘选择进出。由于进出点较多，以后我力求用时间设置的方法进一步做到简单直接准确。希望大家将贴顶起支持我，你将见到我下一个修改版。
向下绿箭头为短线看跌逃顶信号，
s为波段逃顶确立信号，
“小人”为近期高点信号，有未来；
向上红箭头为近期最低点买进信号，有未来；
“弹”为小反弹
小黑马、黑马均是波段买入信号
|
