因为已经有了一些源码我这里就不再费口舌,这一步决定了公式的仿真度,制作者丰富的指标经验--见多识广是关键。选择加权移动平均函数(WMA)的意义在于--时间距离越远对当前趋势的影响就越小,权重就越轻。
3、调试完成
对照仿写公式的图示,反复修改参数、色码使输出的公式图和数据尽量与被仿者一致。
-----------------------------------------------------------------------------------------------------------------------------
**王的要塞部分仿制源码如下:
//大盘1初级要塞
{当股指有效站到本指标上方时,
股指犹如"蛟龙出海",视为多头市场!
相反"龙潜海底",视为空头市场!}
a:=(3*indexc+indexl+indexo+indexh)/6;
b:=WMA(a,20);
d1:ma(b,3);
d2:ma(b,5);
d3:ma(b,21);
d4:ma(b,34);
yngs:ma(b,13),LINETHICK0;
fillrgn(d1>d2,d1,d2),colorff;
fillrgn(d1<d2,d1,d2),colorffff00;
fillrgn(d3>d4,d3,d4),colorff;
fillrgn(d3<d4,d3,d4),colorffff00;
stickline(indexc>=ref(indexc,1),indexc,indexo,4,0),colorff;
stickline(indexc>=ref(indexc,1),indexc,indexh,0,0),colorff;
stickline(indexc>=ref(indexc,1),indexc,indexl,0,0),colorff;
stickline(indexc<ref(indexc,1),indexc,indexo,4,0),colorff00;
stickline(indexc<ref(indexc,1),indexc,indexl,0,0),colorff00;
stickline(indexc<ref(indexc,1),indexc,indexh,0,0),colorff00;
//大盘2中级要塞
{本指标中的彩色区域为大盘的重要中级支撑及阻力,
用以区分大盘的牛熊市以及大盘的上涨及下跌空间!}
a1:"大盘1初级要塞.d1##WEEK",colorffffff;
a2:"大盘1初级要塞.d2##WEEK",colorffffff;
b1:"大盘1初级要塞.yngs##WEEK",colorffff00;
b2:"大盘1初级要塞.d3##WEEK",colorffff00;
b3:="大盘1初级要塞.d4##WEEK";
b:if(b3>max(a1,max(a2,max(b1,b2))),b3,b2),colorff;
fillrgn(a1>a2,a1,a2),colorff00ff;
fillrgn(a1<a2,a1,a2),colorffffff;
fillrgn(b1>b2,b1,b2),colorffff;
fillrgn(b1<b2,b1,b2),colorffff00;
fillrgn(b3>max(a1,max(a2,max(b1,b2))),b3,max(a1,max(a2,max(b1,b2)))),color808080;
stickline(indexc>=ref(indexc,1),indexc,indexo,4,0),colorff;
stickline(indexc>=ref(indexc,1),indexc,indexh,0,0),colorff;
stickline(indexc>=ref(indexc,1),indexc,indexl,0,0),colorff;
stickline(indexc<ref(indexc,1),indexc,indexo,4,0),colorff00;
stickline(indexc<ref(indexc,1),indexc,indexl,0,0),colorff00;
stickline(indexc<ref(indexc,1),indexc,indexh,0,0),colorff00;
//大盘3高级要塞
{}
a1:"大盘1初级要塞.d1##MONTH",colorffffff;
a2:"大盘1初级要塞.d2##MONTH",colorffffff;
b1:"大盘1初级要塞.yngs##MONTH",colorffff00;
b2:"大盘1初级要塞.d3##MONTH",colorffff00;
b3:="大盘1初级要塞.d4##MONTH";
b:if(b3>max(a1,max(a2,max(b1,b2))),b3,b2),colorff;
fillrgn(a1>a2,a1,a2),colorff00ff;
fillrgn(a1<a2,a1,a2),colorffffff;
fillrgn(b1>b2,b1,b2),colorffff;
fillrgn(b1<b2,b1,b2),colorffff00;
fillrgn(b3>max(a1,max(a2,max(b1,b2))),b3,max(a1,max(a2,max(b1,b2)))),color808080;
stickline(indexc>=ref(indexc,1),indexc,indexo,4,0),colorff;
stickline(indexc>=ref(indexc,1),indexc,indexh,0,0),colorff;
stickline(indexc>=ref(indexc,1),indexc,indexl,0,0),colorff;
stickline(indexc<ref(indexc,1),indexc,indexo,4,0),colorff00;
stickline(indexc<ref(indexc,1),indexc,indexl,0,0),colorff00;
stickline(indexc<ref(indexc,1),indexc,indexh,0,0),colorff00;
//个股1中级要塞
{本指标中的彩色区域为该股的重要中级支撑及阻力,
您所选中的目标故必须经该指标检验其是否具有上
升及下跌空间!}
a1:"个股3蛟龙出海.d1##WEEK",colorffffff;
a2:"个股3蛟龙出海.d2##WEEK",colorffffff;
b1:"个股3蛟龙出海.yngs##WEEK",colorffff00;
b2:"个股3蛟龙出海.d3##WEEK",colorffff00;
b3:="个股3蛟龙出海.d4##WEEK";
b:if(b3>max(a1,max(a2,max(b1,b2))),b3,b2),colorff;
fillrgn(a1>a2,a1,a2),colorff00ff;
fillrgn(a1<a2,a1,a2),colorffffff;
fillrgn(b1>b2,b1,b2),colorffff;
fillrgn(b1<b2,b1,b2),colorffff00;
fillrgn(b3>max(a1,max(a2,max(b1,b2))),b3,max(a1,max(a2,max(b1,b2)))),color808080;
stickline(c>=ref(c,1),c,o,8,0),colorff;
stickline(c>=ref(c,1),c,h,0,0),colorff;
stickline(c>=ref(c,1),c,l,0,0),colorff;
stickline(c<ref(c,1),c,o,8,0),colorff00;
stickline(c<ref(c,1),c,l,0,0),colorff00;
stickline(c<ref(c,1),c,h,0,0),colorff00;
//个股2高级要塞
{本指标中的彩色区域为该股的重要高级支撑及阻力,
您所选中的目标故必须经该指标检验其是否具有上
升及下跌空间!}
a1:"个股3蛟龙出海.d1##MONTH",colorffffff;
a2:"个股3蛟龙出海.d2##MONTH",colorffffff;
b1:"个股3蛟龙出海.yngs##MONTH",colorffff00;
b2:"个股3蛟龙出海.d3##MONTH",colorffff00;
b3:="个股3蛟龙出海.d4##MONTH";
b:if(b3>max(a1,max(a2,max(b1,b2))),b3,b2),colorff;
fillrgn(a1>a2,a1,a2),colorff00ff;
fillrgn(a1<a2,a1,a2),colorffffff;
fillrgn(b1>b2,b1,b2),colorffff;
fillrgn(b1<b2,b1,b2),colorffff00;
fillrgn(b3>max(a1,max(a2,max(b1,b2))),b3,max(a1,max(a2,max(b1,b2)))),color808080;
stickline(c>=ref(c,1),c,o,8,0),colorff;
stickline(c>=ref(c,1),c,h,0,0),colorff;
stickline(c>=ref(c,1),c,l,0,0),colorff;
stickline(c<ref(c,1),c,o,8,0),colorff00;
stickline(c<ref(c,1),c,l,0,0),colorff00;
stickline(c<ref(c,1),c,h,0,0),colorff00;
//个股3蛟龙出海
{使用时间:自"顺势而为"交易系统发出"大盘见底"信号至今,
股指从没有发生过击穿"股指风险栅栏"下轨的现象,
在此期间方可动用本决策系统选股操作!
具体用法:在以上所述大盘环境下,股价每一次回探"蛟龙出海"所显示的
支撑位均可以对该股进行逢低吸纳.}
ga:=(3*c+l+o+h)/6;
gb:=WMA(ga,20);
d1:ma(gb,3);
d2:ma(gb,5);
d3:ma(gb,21);
d4:ma(gb,34);
yngs:ma(gb,13),LINETHICK0;
fillrgn(d1>d2,d1,d2),colorff;
fillrgn(d1<d2,d1,d2),colorffff00;
fillrgn(d3>d4,d3,d4),colorff;
fillrgn(d3<d4,d3,d4),colorffff00;
stickline(c>=ref(c,1),c,o,8,0),colorff;
stickline(c>=ref(c,1),c,h,0,0),colorff;
stickline(c>=ref(c,1),c,l,0,0),colorff;
stickline(c<ref(c,1),c,o,8,0),colorff00;
stickline(c<ref(c,1),c,l,0,0),colorff00;
stickline(c<ref(c,1),c,h,0,0),colorff00;
本贴由 yngs 于 2005-9-20 02:53 最后编辑