yngs 2006-11-17 13:07
年后山分时指标
年后山分时指标
有朋友问看分时的指标，刚好见到一组年后山分时指标源码，转贴给大家。我未做测试，能不能用，怎么用您看着办！
很长时间没有老年的消息了，中原的天气冷下来了，远方的朋友还好吧！
老年在论坛上的公开表现众所周知，被骂了不少，我讲个大家不知道的故事：有一次一位发言比较冲动的朋友在论坛上因为对年后山言语过于激烈，被macd的管理人员处以禁言，老年却给我（当时我是版主）发了个短消息为她说情，说听说对方还是个研究生，很不容易，希望放她一马等等。
股市也和人一样有些事情如果不是机缘巧合被点破的话，可能永远不会被众人所知！祝朋友们一路走好！
指标1：
t:=TIME0-if(hour>11,5400,0);
K:=180;
s:=sumbars(t-ref(t,1),k);
w:=if(barscount(c)<k,barscount(c),k);
oc:=DYNAINFO(4)-DYNAINFO(3);
sc:=if(capital,sma(amount/v,3,1),sma(c,3,1));
cp:=if(BARPOS=1,if(oc=0,sc,if(oc>0,sc-0.01,sc+0.01)),ref(sc,1));
wp:=barslast(sc<>cp);
dv:=(ref(sc-cp,wp)<0)*v;
zv:=(ref(sc-cp,wp)>0)*v;
sv:=sum(zv-dv,w)/if(capital,capital,1)*10000;
动量:sv,linethick0,COLORMAGENTA;
p:=SYSPARAM(3)-SYSPARAM(2)-2;
q:=SYSPARAM(3);
kh:=hhv(c,p);
kL:=LLv(c,p);
vh:=hhv(sv,p);
vL:=LLv(sv,p);
b:=(kh-kL)/max(vh,-vL)/3;
y:=(kh+kL)/2;
PARTLINE(1,y[q])COLORGRAY;
STICKLINE(sv>0,y[q],sv*b[q]+y[q],0.1,0)COLORMAGENTA;
STICKLINE(sv<0,y[q],sv*b[q]+y[q],0.1,0)COLORGREEN;
PARTLINE(1,sma(sv*b[q]+y[q],5,1))COLORCYAN;
bj:=if(capital,amount/v/100,c);
收:c,COLORWHITE;
S1:sma(c,13,1)COLORRED,LINETHICK2;
均价:bj,COLORCYAN,POINTDOT,LINETHICK3;
drawtext(sysparam(2)=barpos,0,'板块:'+blkname),colorccffff,align4;
均线:if(capital=0,sum(c,0)/BARPOS,sum(amount,0)/sum(v,0)/100),COLORYELLOW,LINETHICK2;
tb:=t-ref(t,barscount(c)-1);
zs:=if(ref(time,barscount(c)-1)<102900,14400,10800);
量比:sma(sum(v,0)*zs/tb,5,1)/DYNAINFO(38),LINETHICK0,ColorFD2068;
vL:=LLv(量比,P);
vh:=hhv(量比,p);
bb:=(kH-kL)/(vh-vL)/1.6;
yb:=(kh+kL-(vh+vL)*bb)/2;
PARTLINE(1,量比*bb[q]+yb[q]),ColorFD2068;
yngs 2006-11-17 13:08
指标2：
t:=TIME0-if(hour>11,5400,0);
p:=SYSPARAM(3)-SYSPARAM(2)-2;
q:=SYSPARAM(3);
kh:=hhv(c,p);
kL:=LLv(c,p);
XA:=SMA(C,8,1)-SMA(C,60,1);
RC:=(hhv(c,p)+LLv(c,p))/2;
PARTLINE(1,RC[q]),COLORGRAY;
STICKLINE(XA>0,RC[q],RC[q]+XA,1,0)COLORMAGENTA;
STICKLINE(XA<=0,RC[q],RC[q]+XA,1,0)COLORGREEN;
sma(RC[q]+XA,5,1);
收:c,COLORWHITE;
S1:sma(c,13,1)COLORRED,LINETHICK2;
均价:if(capital,amount/v/100,c)COLORCYAN,POINTDOT,LINETHICK3;
drawtext(sysparam(2)=barpos,0,'板块:'+blkname),colorccffff,align4;
均线:if(capital=0,sum(c,0)/BARPOS,sum(amount,0)/sum(v,0)/100),COLORYELLOW,LINETHICK2;
tb:=t-ref(t,barscount(c)-1);
zs:=if(ref(time,barscount(c)-1)<102900,14400,10800);
量比:sma(sum(v,0)*zs/tb,5,1)/DYNAINFO(38),LINETHICK0,ColorFD2068;
vL:=LLv(量比,P);
vh:=hhv(量比,p);
bb:=(kH-kL)/(vh-vL)/1.6;
yb:=(kh+kL-(vh+vL)*bb)/2;
PARTLINE(1,量比*bb[q]+yb[q]),ColorFD2068;
yngs 2006-11-17 13:08
指标3：
a:=BUYVOL-SELLVOL,colorSTICK;
t:=TIME0-if(hour>11,5400,0);
s:=sumbars(t-ref(t,1),300);
y:=sum(a,s),colorSTICK,linethick0;
kh:=hhv(h,0);
kL:=LLv(L,0);
yh:=hhv(Y,0);
yL:=LLv(y,0);
b:=(kh-kL)/(yh-yL)/4;
f:=(kh+kL-(yh+yL)*b)/2;
p:=datacount;f[p],COLORGRAY;
yx:STICKLINE(1,f[p],f[p]+y*(y<0)*b[p],0.1,0)COLORGREEN;
ys:STICKLINE(1,f[p],f[p]+y*(y>0)*b[p],0.1,0)COLORMAGENTA;
c,COLORWHITE;
sma(c,13,1),COLORRED;
amount/v/100,POINTDOT,linethick3,COLORCYAN;
sum(amount,0)/sum(v,0)/100,linethick2,COLORYELLOW;
STICKLINE(ISLASTBAR,DYNAINFO(3),DYNAINFO(3),100,0)COLORBLUE;
i:=NUMTOSTR(DYNAINFO(3),2);
DRAWTEXT(ISLASTBAR,DYNAINFO(3)*1.001,'前\n收\n盘\n'+i);
yngs 2006-11-17 13:08
指标4：
今日委买量:SUM((BIDVOL(1)+BIDVOL(2)+BIDVOL(3)),0),linethick1;
今日委卖量:SUM((ASKVOL(1)+ASKVOL(2)+ASKVOL(3)),0),linethick1;
A1:=SUM(BUYVOL,0)-SUM(SELLVOL,0);
今日买卖存量 :REF(A1,1)+A1,PRECISION0,linethick0;
drawicon(今日委买量>今日委卖量 and ref(今日委买量<今日委卖量,1),今日委卖量,4);
drawicon(今日委买量<今日委卖量 and ref(今日委买量>今日委卖量,1),今日委卖量,5);
t:=if(time<113000,TIME0,TIME0-5400);
w1:=sumbars(t-ref(t,1),60);
v1:=sum(v,w1)>400;//此处数据可以自行调整
获利盘:=winner(c)*100;
套牢盘:=100-获利盘;
进场筹码:SUM(BUYVOL,0),PRECISION0,colorred,linethick0;
出场筹码:SUM(SELLVOL,0),PRECISION0,colorgreen,linethick0;
筹码量差:=进场筹码-出场筹码;
stickline(筹码量差>0,150000,150000+(10*筹码量差),4,1),COLORRED;
stickline(筹码量差<=0,150000+(10*筹码量差),150000,4,1),COLORGREEN;
DRAWICON(V1,108000,6);
DRAWTEXT(V1 AND REF(sum(v,w1),1)<400,88888,'大量'),COLORCYAN;
TO1:=sum(进场筹码+出场筹码,1);
资金大单进量:=sum(IF(BUYVOL>=50,BUYVOL,0),0),linethick0; ;
资金大单出量:=sum(IF(SELLVOL>=50,SELLVOL,0),0),linethick0; ;
大单量差:资金大单进量-资金大单出量,colorcyan,linethick0;
VT1:=资金大单进量-REF(资金大单进量,1);
VT2:=资金大单出量-REF(资金大单出量,1);
DRAWICON(ABS(筹码量差)>(TO1*20/100) and 筹码量差<0 and VT2>100,120000,8);
DRAWICON(ABS(筹码量差)>(TO1*20/100) and 筹码量差>0 and VT1<100,120000,9);
DRAWICON(ABS(筹码量差)>(TO1*20/100) and 筹码量差>0 and VT1>100,128000,14),COLORWHITE;
DRAWICON(筹码量差>3000 and V1,128000,14),COLORWHITE;
WIN1:=cost(85);
WIN2:=cost(15);
XA:=SUM(CLOSE*VOL,0);
XB:=SUM(VOL,0);
分笔交易成本:=XA/XB;
股票卖出价预测:=(ma(c,60)*1.618/100+CLOSE),;
股票买进价预测:=C-ma(c,60)*1.618/100,;
Var11:=ma((v/(h-l)),4);
Var33:=abs(c-o);
Var44:=v/(h-l);
TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14),COLORRED;
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),14);
DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),14);
PDI:= DMP*100/TR;
MDI:= DMM*100/TR;
ADX:= MA(ABS(MDI-PDI)/(MDI+PDI)*100,6);
ADXR:=(ADX+REF(ADX,6))/2;
EXPLAIN(V1,'※瞬间大量出现※'),COLORRED;
EXPLAINEX(1,'【进场筹码】=',进场筹码,0,0),colorcc10ff;
EXPLAINEX(1,'【出场筹码】=',出场筹码,0,0),colorff9999;
EXPLAINEX(1,'【筹码量差】=',筹码量差,0,0),colorffaa11;
EXPLAINEX(1,'占总筹码％=',ABS(筹码量差/(进场筹码+出场筹码)*100) ,0,0),colorffaa11;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'【资金大单进量】=',资金大单进量,0,0),colorcc10ff;
EXPLAINEX(1,'占总买量％=',(资金大单进量/进场筹码)*100 ,0,0),colorffdd00;
EXPLAINEX(1,'【资金大单出量】=',资金大单出量,0,0),color33cc00;
EXPLAINEX(1,'占总卖量％=',(资金大单出量/出场筹码)*100 ,0,0),colorffdd00;
EXPLAINEX(1,'【大单量差】=',大单量差,0,0),color00FF99;
{EXPLAINEX(1,'★大资金进场单★ =',大资金进量,0,0),color3300dd;}
{EXPLAINEX(1,'占总买量％=',(大资金进量/进场筹码)*100 ,0,0),colorffdd33;}
{EXPLAINEX(1,'★大资金出场单★ =',大资金出量,0,0),colorgreen;}
{EXPLAINEX(1,'占总卖量％=',(大资金出量/出场筹码)*100 ,0,0),colorffdd22;}
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'【交易平均成本】=',分笔交易成本,0,0),coloryellow;
EXPLAINEX(1,'【卖出成本】=',WIN1,0,0),colordd3366;
EXPLAINEX(1,'【买进成本】=',WIN2,0,0),colorcc11ff;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'【获利盘%】=',获利盘,0,0),color339999;
EXPLAINEX(1,'【套牢盘%】=',套牢盘,0,0),color33ff99;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAIN(Var44<var11 AND Var33<ma(Var33,4),'资金无入场意愿，萎缩中'),COLORRED;
EXPLAIN(Var44<var11 AND Var33>ma(Var33,4),'场内资金运作中'),COLORRED;
EXPLAIN(Var44>var11 AND Var33<ma(Var33,4),'多空双方激烈争斗中'),COLORRED;
EXPLAIN(Var44>var11 AND Var33>ma(Var33,4),'场外资金介入（或出局）意愿强烈'),COLORRED;
EXPLAIN(cross(pdi,mdi) and c>o,'PDI线从下向上突破MDI线，显示市场主力做多'),colormagenta;
EXPLAIN(cross(mdi,pdi) and c<o,'PDI线从上向下跌破MDI线，显示市场主力做空'),colormagenta;
EXPLAIN(adx>ref(adx,1),'ADX值持续高于前一日，行情将维持原趋势'),colormagenta;
EXPLAIN(adx<ref(adx,1) and adx<20,'ADX值递减，降到20以下，且横向行进中，市场气氛为盘整'),colormagenta;
EXPLAIN(adx<ref(adx,1) and ref(adx,1)<ref(adx,2) and ref(adx,2)>ref(adx,3) and ref(adx,3)>ref(adx,4),'ADX值从上升方向转为下降时，表明行情即将反转'),colormagenta;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(COST(50),'市场平均成本:',COST(50),2,0),COLORYELLOW;
EXPLAINEX(COST(4),'主力平均成本:',COST(8),2,0),COLORRED;
EXPLAINEX(COST(30),'控盘平均成本:',COST(25),2,0),COLORRED;
EXPLAINEX(COST(75),'拉升平均成本:',COST(75),2,0),COLORYELLOW;
EXPLAINEX(COST(95),'头部区平均成本:',COST(95),2,0),COLORYELLOW;
EXPLAINEX(COST(0.05),'底部区平均成本:',COST(5),2,0),COLORYELLOW;
EXPLAIN(1,'==================================='),colorwhite;