【图】再来个见面礼.正宗年后山指标

正宗年后山指标------"三剑客系统KDJ"(解盘):
源码:
input: n(9,1,100),m1(3,1,100),m2(3,1,100);
var1w:=1;
drawgbk(1,colorrgb(633,0,0),colorrgb(33,33,0),1);
rsv:=(c-llv(l,n))/(hhv(h,n)-llv(l,n))*100;
k:sma(rsv,m1,1);
d:sma(k,m2,1);
j:3*k-2*d;
rsv1:=(c-llv(l,25))/(hhv(h,25)-llv(l,25))*100;
var2a:=sma(rsv1,3,1)*var1w;
k1:=sma(var2a,2,1);
ks:=(c-ma(c,13))/ma(c,13)*(-100);
金线:=ema(ks/10+ema(c,10),3);
遍地黄金:stickline(金线<=c and var1w,103,108,6,0),colorffff;
蓝色海洋:stickline(金线>=c and var1w,103,108,6,0),colorff0000;
stickline(k1>80 and var1w,92,99,8,0),colorffffff;
drawicon(k1>80 and var1w,90,6),colorffff;
112,Linethick2,colorffffff;
99,Linethick2,colorffffff;
if(cross(金线,c) and var1w,79,99),colorffffff;
if(cross(c,金线) and var1w,22,2),colorffffff;
升跌:=ema((c/ma((2*c+h+l)/4,10)-1)*100,3);
黄灯:drawicon(升跌>=0 and var1w,0,12),colorffff;
绿灯:drawicon(升跌<=0 and var1w,0,11),colorff00;
2,Linethick2,colorff;
-16,Linethick2,colorffffff;
vv8:=sumbars(v,capital/100/0.1);
ao:=sysparam(1)=barpos;
td:=backset(ao,vv8);
td1:=td>ref(td,1);
drawtext(td1,80,'*NHs'),colorff;
var1wd:=if(currentdate<=1031125,1,0);
explain(0=var1w,'       欢迎您使用年后山作品'),colorffff;
explain(0=var1w,'    电话: 0398---3804272 '),colorffff;
explain(0=var1w,'邮箱地址:  [e-mail] '),colorffff;
obv:=sum(if(c>ref(c,1),v,if(c<ref(c,1),-(v),0)),0)/1000;
主力:=ema(obv,5);
庄家:=ema(主力,10);
能量系数:=主力-ref(主力,1);
explainex(能量系数 and var1w,'OBV能量系数：',能量系数,1,0),colorff;
explain(c>0 and var1w,'******************************************************');
explain(j>98 and var1w,'J值在高位 大众羊群效应 股价振荡随时就会来临 有时候庄家做骗线 股价拼命上升'),colorff;
explain(j<1 and var1w,'J值在低位 大众羊群效应 股价振荡随时就会来临 有时候庄家做骗线 股价拼命下跌'),colorff;
explain(j<ref(j,1) and c<ref(c,1) and var1w,'解：股价下跌J值在向下运行 观望为主'),colorffff00;
explain(j>ref(j,1) and c<ref(c,1) and var1w,'解：股价下跌J值在向上运行 背离走势  D值在20以下 关注分批建仓 D值在80以上 股价有调整要求'),colorffff00;
explain(j<ref(j,1) and c>ref(c,1) and var1w,'解：股价上涨J值在向下运行 背离走势  J值在90以上 减仓为好'),colorffff00;
explain(j>ref(j,1) and c>ref(c,1) and var1w,'解：股价上涨J值在向上运行  D值在80以上 时刻做好减仓准备 D值在20以下可以逢低买入股票'),colorffff00;
explain(cross(d,k) and var1w,'K值向下穿越D值形成死叉形态'),colorffff00;
explain(cross(k,d) and var1w,'K值向上穿越D值形成金叉形态'),colorffff00;
explain(k>d and c>=ref(c,2) and var1w,'解：KDJ多头排列,有走好迹象 '),colorffff00;
explain(k>d and c<=ref(c,2) and var1w,'解：KDJ多头排列,但股价走势不太理想，有调整要求，明天要是上涨可以跟进'),colorffff00;
explain(k<d and c<ref(c,2) and var1w,'解：KDJ空头排列,没有走好企稳迹象,操作上小心为好'),colorffff00;
explain(k<d and c>ref(c,2) and var1w,'解：KDJ空头排列,有企稳迹象，关注，'),colorffff00;
explain(c>0 and var1w,'******************************************************');
多价:=ema(c,12)*var1w-ema(c,26)*var1w;
空价:=ema(多价,9)*var1w;
多空价值:=2*(多价-空价)*var1w;
explain(多空价值>0 and 多空价值>=ref(多空价值,1) and var1w,'      MACD红柱慢慢在放大'),colorffff;
explain(多空价值>0 and 多空价值<ref(多空价值,1) and var1w,'      MACD红柱慢慢在缩小'),colorffff;
explain(多空价值<0 and 多空价值>ref(多空价值,1) and var1w,'      MACD绿柱慢慢在缩小'),colorffff;
explain(多空价值<0 and 多空价值<=ref(多空价值,1) and var1w,'      MACD绿柱慢慢在放大'),colorffff;
explain(多价>0 and cross(空价,多价) and var1w,'      MACD高位死叉向下'),colorff;
explain(多价>0 and cross(多价,空价) and var1w,'      MACD高位金叉向上'),colorff;
explain(多价<0 and cross(空价,多价) and var1w,'      MACD低位死叉向下'),colorff;
explain(多价<0 and cross(多价,空价) and var1w,'      MACD低位金叉向上'),colorff;
explain(多价<0 and c<ref(c,2) and var1w,'MACD现在弱势区域上  操作上小心为好 注意低位金叉死叉'),colorff00;
explain(多价>0 and c>ref(c,2) and var1w,'MACD现在强势区域上  操作上持股或逢低买进股票，关注高位金叉死叉'),colorff;
explain(多价>空价 and 金线<=c and 多空价值>ref(多空价值,1) and 多空价值>0 and c>ref(c,2) and var1w,'MACD多头排列 可以逢低买入股票或持股待涨'),colorffff;
explain(多价>空价 and 多空价值<0 and c>ref(c,2) and var1w,'MACD多头排列 提示可以逢低少量买入股票'),colorffff;
explain(多价>空价 and 金线<=c and 多空价值>ref(多空价值,1) and c<ref(c,2) and var1w,'该股票多头排列 ,可是目前在调整'),colorffff;
explain(多价>空价 and 多空价值>0 and 金线>=c and 多空价值<ref(多空价值,1) and c<ref(c,2) and var1w,'MACD多头排列 MACD红柱慢慢在缩小,股价在调整中，注意洗盘和变盘'),colorffff;
explain(多价>空价 and 多空价值>0 and 金线<=c and 多空价值<=ref(多空价值,1) and c<ref(c,2) and var1w,'MACD多头排列 MACD红柱慢慢在缩小,股价在调整中，注意洗盘和变盘'),colorffff;
explain(多价>空价 and 多空价值<0 and 金线>=c and 多空价值<=ref(多空价值,1) and c<ref(c,2) and var1w,'MACD弱势区域多头排列 MACD绿柱慢慢在放大,股价在调整中，注意洗盘和变盘'),colorffff;
explain(多价<空价 and 金线<=c and 多空价值>ref(多空价值,1) and c>ref(c,2) and var1w,'MACD空头排列 遍地黄金出现提示可以逢低买入股票或持股待涨'),colorffff;
explain(多价<空价 and 金线<=c and 多空价值>ref(多空价值,1) and c<ref(c,2) and var1w,'MACD空头排列 遍地黄金出现,可是目前在调整'),colorffff;
explain(多价<空价 and 金线<=c and 多空价值<=ref(多空价值,1) and c<=ref(c,2) and var1w,'MACD空头排列 MACD绿柱慢慢在放大,股价在下跌调整之中，'),colorffff;
explain(多价<空价 and 金线>=c and 多空价值<=ref(多空价值,1) and 多空价值>0 and c<=ref(c,2) and var1w,'MACD空头排列 MACD绿柱慢慢在缩小,弱势不改'),colorffff;
explain(多价<空价 and 金线>=c and 多空价值<=ref(多空价值,1) and 多空价值<0 and c<=ref(c,2) and var1w,'MACD空头排列 MACD绿柱慢慢在放大,弱势不改'),colorffff;
explain(多价<空价 and 金线>=c and 多空价值>=ref(多空价值,1) and var1w,'该股票空头排列 MACD绿柱慢慢在缩小,股价调整，注意变盘'),colorffff;
explain(多价<空价 and 金线>=c and 多空价值<=ref(多空价值,1) and c>=ref(c,2) and var1w,'MACD空头排列 MACD绿柱慢慢在放大,可以关注，注意变盘'),colorffff;
explain(多价<空价 and 金线<=c and 多空价值>0 and 多空价值<=ref(多空价值,1) and var1w,'股价在调整中，注意洗盘和变盘'),colorffff;
explain(多价<空价 and 金线<=c and 多空价值>0 and 多空价值>ref(多空价值,1) and var1w,'股价在调整中，有望结束洗盘和整理'),colorffff;
explain(c>0 and var1w,'******************************************************');
explain(主力>庄家 and 主力>=ref(主力,1) and c>=ref(c,2) and var1w,'OBV能量潮上行，能量系数逐步放大,后市有上涨动力存在'),colorff00ff;
explain(主力>庄家 and 主力>=ref(主力,1) and c<=ref(c,2) and var1w,'OBV能量潮上行，注意洗盘和变盘'),colorff00ff;
explain(主力>庄家 and 主力<=ref(主力,1) and var1w,'OBV能量潮上行，能量系数逐步减小,注意洗盘和变盘'),colorff00ff;
explain(主力<庄家 and 主力<=ref(主力,1) and c<=ref(c,2) and var1w,'OBV能量潮下行，能量系数逐步减小,后市上涨动力不足'),colorff00ff;
explain(主力<庄家 and 主力>=ref(主力,1) and var1w,'OBV能量潮下行，能量系数逐步放大 注意变盘,'),colorff00ff;

[ Last edited by 炒着玩 on 2005-7-29 at 09:07 ]股票论坛 www.