|
论坛版主
指标公式版主 - 帖子
- 3206
- 积分
- 15905
- 威望
- 0
- 注册时间
- 2007-4-11
|
41楼
大 中
小 发表于 2008-5-10 09:18 只看该作者
引用:金龙行天下－－－改编网上的公式
说明：飞狐效果较好，有解盘。分析家可凑合着用，因为将解盘改成“评”，很费事，所以一删了之。其他股软，恕我无能为力。
飞狐的：
{金龙行天下}
rsv:=(c-llv(l,7))/(hhv(h,7)-llv(l,7))*100;
rsv1:=(c-llv(l,38))/(hhv(h,38)-llv(l,38))*100;
流金:sma(rsv1,5,1),colorff;
岁月:sma(流金,10,1),color66cc33;
fillrgn(流金<=岁月,流金,岁月),color669933;
fillrgn(流金>=岁月,流金,岁月),colorF00FF0;
a:=(3*c+l+o+h)/6;
b:=(20*a+19*ref(a,1)+18*ref(a,2)+17*ref(a,3)+16*ref(a,4)+15*ref(a,5)+14*ref(a,6)+13*ref(a,7)+12*ref(a,8)+11*ref(a,9)+10*ref(a,10)+9*ref(a,11)+8*ref(a,12)+7*ref(a,13)+6*ref(a,14)+5*ref(a,15)+4*ref(a,16)+3*ref(a,17)+2*ref(a,18)+ref(a,20))/210;
d:=ma(b,10);
持仓:stickline(b>d,103,107,6,1),Linethick2,colorff;
空仓:stickline(b<d,103,107,6,1),Linethick2,colorff00;
var2q:=ma(c,80)-ma(c,13)/3;
神奇线:=ma((c-var2q)/var2q,1);
xa:=ema(神奇线,12)*0.7;
xb:=ema(神奇线,3);
底部区域:if(llv(xb-xa,12)>0,0,-15),Linethick2,colorff00;
diff:=(ema(c,17)-ema(c,73))*100;
dea:=ema(diff,73);
macd:=2*(diff-dea);
stickline(diff<=0 and dea<=diff and ref(diff,1)<ref(dea,1),3,26,10,0),Linethick2,colorffff;
diff:=(ema(c,17)-ema(c,73))*100;
dea:=ema(diff,73);
macd:=2*(diff-dea);
if(diff<=0 and dea<=diff and ref(diff,1)<ref(dea,1),10,0),colorff0000;
var1:=(c-ref(c,1))/ref(c,1)*100;
var2:=(indexc-ref(indexc,1))/ref(indexc,1)*100;
var3:=ema(sum(var1,10),3);
var4:=ema(sum(var2,10),3);
var5:=(var3-var4);
drawicon(var5<-20 and filter(var5>ref(var5,2),7),0,1),colorff;
drawicon(var5>20 and filter(var5<ref(var5,2),7),97,2),colorffffff;
a1:=ma(c,13);
zx:=ref(a1,13/2+1);
b1:=cross(c,zx);
s1:=cross(zx,c);
drawicon(cross(c,zx),-3,12),colorff00;
drawicon(c>zx and ref(c,1)>ref(zx,1),-3,10);
drawicon(c<zx and ref(c,1)>ref(zx,1),-3,11);
lgl:=c-ref(ma(c,20),11);
wr1:=if(ema(c,5)/ema(ema(c,9),16)<=0.85 and c/ref(c,1)>0.905 and c/ref(c,1)<1.05 and v/capital*100<5,50,0);
wr2:=-(100*(hhv(h,34)-c)/(hhv(h,34)-llv(l,34)))+100*lgl;
wr3:=-(100*(hhv(h,50)-c)/(hhv(h,50)-llv(l,50)))+100;
bias1:=-(100*(hhv(h,70)-c)/(hhv(h,70)-llv(l,70)))+100*lgl;
bias2:=((c-ma(c,34))/ma(c,34)*100+10)*5;
bias3:=((c-ma(c,50))/ma(c,50)*100+10)*5;
sx:=((c-ma(c,70))/ma(c,70)*100+10)*5;
s1:=(wr2+wr3+bias1+bias2+bias3+sx)/6*lgl;
ccc:=abs(bias2-sx);
zjz:=(s1+ccc)/2;
lxl:=(-1)*(ema(100*(1-winner(c)),1)-50)+50;
jbj:=lxl+zjz;
ma3:=if(wr1>0 and jbj<0,200,0)*lgl;
c0:=if(zjz<0 and c=llv(c,5) and c/ref(c,1)>0.905 and c/ref(c,1)<1.05 and v/capital*100<5,-50,0);
bot:=if(jbj<0 and c0=-50,100,0)*lgl;
cxc:=ref(c,2)*0.865;
vmc:=ref(c,13)*0.772;
v93:=min(cxc,vmc);
v90:=100*v/capital*lgl;
半年线:=(c-v93)/c<3/100 and sum(v90,5)/5<1.8;
预测:=半年线>0 and (c0<0 or wr1>0);
if(ma3>0 and bot>0 and sum(v/capital*100,5)/5<1 or 半年线>0 and ref(c,1)/ref(c,2)>0.902 or (ma3>0 and bot>0 and sum(v/capital*100,5)/5<1 or 半年线>0) and (c0<0 or wr1>0) and 预测<10,50,0),Linethick2,colorff;
a:=ema(winner(c),10);
b:=ema(winner(c),34);
var1:=ma(v,5)>ma(v,60);
追涨:if(a<0.15 and abs(a-b)<0.05 and cross(a,b) and var1,60,0),Linethick2,colorffcc33;
if(a>0.9 and c<ma(c,5),69,100),Linethick2,colorff;
多空2:=ema(c,148);
多空3:=ema(c,250);
explain(c>=多空2,'股价在半年线之上'),Linethick2,colorff00;
explain(c>=多空3,'股价在年线之上 '),colorffff;
explain(c<多空2,'股价在半年线之下 '),colorffff;
explain(c<多空3,'股价在年线之下 '),colorffff00;
explain(多空2>=ref(多空2,1),'半年线趋势向上'),colorffff00;
explain(多空3>=ref(多空3,1),'年线趋势向上 '),colorffff;
explain(多空2<ref(多空2,1),'半年线趋势向下 '),colorffff;
explain(多空3<ref(多空3,1),'年线趋势向下 '),colorffff00;
tr:=c*2.5/100+c;
hd:=c-c*2.5/100;
explainex(cost(50),'市场平均成本:',cost(50),2,0),colorffff00;
explainex(cost(4),'主力平均成本:',cost(4),2,0),colorffff;
explainex(cost(30),'控盘平均成本:',cost(30),2,0),colorff;
explainex(cost(75),'拉升平均成本:',cost(75),2,0),colorff;
explainex(cost(95),'顶部平均成本:',cost(95),2,0),colorffff;
explainex(cost(0.05),'底部平均成本:',cost(0.05),2,0),colorffff;
explainex(tr,'股道卖出价预测:',tr,2,0),colorffff;
explainex(hd,'股道买入价预测:',hd,2,0),color99ff;
explainex(1,'获利盘比例=',winner(c)*100,2,0),color99ff;
explainex(1,'套牢盘比例=',100-winner(c)*100,2,0),colorff;
ld:=ma(v/(h-l),4);
dmp:=abs(c-o);
dmm:=v/(h-l);
explain(dmm<ld and dmp<ma(dmp,4),'资金无入场意愿，萎缩中'),colorffff00;
explain(dmm<ld and dmp>ma(dmp,4),'场内资金有运作行为'),colorffff00;
explain(dmm>ld and dmp<ma(dmp,4),'多空双方激烈争夺中'),colorffff;
explain(dmm>ld and dmp>ma(dmp,4),'场外资金介入（或出局）意愿强烈'),colorffff;
pdi:=sum(max(max(h-l,abs(h-ref(c,1))),abs(l-ref(c,1))),14);
mdi:=h-ref(h,1);
adx:=ref(l,1)-l;
adxr:=sum(if(mdi>0 and mdi>adx,mdi,0),14);
typ:=sum(if(adx>0 and adx>mdi,adx,0),14);
cci:=adxr*100/pdi;
wr:=typ*100/pdi;
mtm:=ma(abs(wr-cci)/(wr+cci)*100,6);
mtmma:=(mtm+ref(mtm,6))/2;
explain(cross(cci,wr),'PDI线从下向上突破MDI线，显示有新多头进场，为买进信号'),color99ff;
explain(cross(wr,cci),'PDI线从上向下跌破MDI线，显示有新空头进场，为卖出信号'),colorff00;
explain(mtm>ref(mtm,1),'ADX值持续高于前一日，行情将维持原趋势'),colorffff00;
explain(mtm<ref(mtm,1) and mtm<20,'ADX值递减，降到20以下，且横向行进时，市场气氛为盘整'),colorffff;
explain(mtm<ref(mtm,1) and ref(mtm,1)<ref(mtm,2) and ref(mtm,2)>ref(mtm,3) and ref(mtm,3)>ref(mtm,4),'ADX值从上升倾向转为下降时，表明行情即将反转'),color99ff;
lc:=(h+l+c)/3;
rsi1:=(lc-ma(lc,14))/0.015*avedev(lc,14);
explain(rsi1<-180,'CCI指标底位，买入机会'),colorffff;
explain(rsi1>180,'CCI指标高位，卖出机会'),colorff00;
explain(v/capital>0.075,'换手过大，小心主力出逃，短期头部'),colorffff00;
rsi2:=-(100*(hhv(h,14)-c)/(hhv(h,14)-llv(l,14)));
explain(rsi2>-20,'W&R超买，短线即将见顶，应及时卖出'),colorffff00;
explain(rsi2<-80,'W&R超卖，短线即将见底，应伺机买进'),colorffff00;
psy:=c-ref(c,6);
布林1:=ma(psy,6);
explain(cross(psy,布林1) and 布林1<-0.8,'MTM从下向上突破MTMMA，买入信号'),colorff00;
explain(cross(布林1,psy) and 布林1>0.8,'MTM从上向下跌破MTMMA，卖出信号'),colorff00;
布林2:=ref(c,1);
布林3:=sma(max(c-布林2,0),6,1)/sma(abs(c-布林2),6,1)*100;
布林4:=sma(max(c-布林2,0),12,1)/sma(abs(c-布林2),12,1)*100;
explain(布林3>85,'6日RSI超买,防止回挡'),colorffff00;
explain(布林3>80,'6日RSI向上突破85，超买,考虑卖出'),colorffff00;
explain(布林3<15,'6日RSI超卖,随时有可能反弹'),colorffff00;
explain(布林3<15,'6日RSI向下跌破15，超卖，考虑买入'),colorffff;
explain(cross(布林3,15),'6日RSI向上突破15，买进信号'),colorffff;
explain(cross(布林3,85),'6日RSI向下跌破85，卖出信号'),colorff00;
布林5:=count(c>ref(c,1),12)/12*100;
布林6:=(ma(c,3)+ma(c,6)+ma(c,12)+ma(c,24))/4;
布林7:=布林6+3*std(布林6,10);
xx:=布林6-3*std(布林6,10);
a001:=(布林7-xx)/布林7<0.03;
a002:=(布林7-xx)/布林7>0.18;
a003:=(ma(c,60)-ma(c,5))/ma(c,60)>0.15;
a004:=(ma(c,5)-ma(c,60))/ma(c,5)>0.15;
explain(a001,'多空布林收敛中，有变盘的可能，上下自己分析'),colorffff00;
explain(a003 and a002 and c>o,'布林上下乖离太大，有反弹的可能'),colorffff;
explain(a004 and a002 and c<o,'布林上下乖离太大，有回落的可能'),colorff00;
explain(h>=hhv(h,20),'创20天新高'),colorffff00;
var1:=100*(c-llv(l,21))/(hhv(h,21)-llv(l,21));
sma(var1,3,1),colorff00;
股神:3*sma((c-llv(l,13))/(hhv(h,13)-llv(l,13))*100,5,1)-2*sma(sma((c-llv(l,13))/(hhv(h,13)-llv(l,13))*100,5,1),3,1),colorffff;
短线进出:if(股神<=10,-13,0),colorffff00;
if(cross(股神,10)AND 岁月<50,40,0),Linethick2,colorf00ff0;
分析家的：
{金龙行天下}
rsv:=(c-llv(l,7))/(hhv(h,7)-llv(l,7))*100;
rsv1:=(c-llv(l,38))/(hhv(h,38)-llv(l,38))*100;
流金:sma(rsv1,5,1),colorfff000;
岁月:sma(流金,10,1),color66cc33;
fillrgn(流金,岁月,流金<=岁月,rgb(0,250,0));
fillrgn(岁月,流金,流金>=岁月,250);
a:=(3*c+l+o+h)/6;
var2q:=ma(c,80)-ma(c,13)/3;
神奇线:=ma((c-var2q)/var2q,1);
xa:=ema(神奇线,12)*0.7;
xb:=ema(神奇线,3);
底部区域:if(llv(xb-xa,12)>0,0,-15),Linethick2,color00ff00;
diff:=(ema(c,17)-ema(c,73))*100;
dea:=ema(diff,73);
macd:=2*(diff-dea);
stickline(diff<=0 and dea<=diff and ref(diff,1)<ref(dea,1),3,26,10,0),Linethick2,colorffff00;
diff:=(ema(c,17)-ema(c,73))*100;
dea:=ema(diff,73);
macd:=2*(diff-dea);
if(diff<=0 and dea<=diff and ref(diff,1)<ref(dea,1),10,0),colorff0000;
var1:=(c-ref(c,1))/ref(c,1)*100;
var2:=(indexc-ref(indexc,1))/ref(indexc,1)*100;
var3:=ema(sum(var1,10),3);
var4:=ema(sum(var2,10),3);
var5:=(var3-var4);
drawicon(var5<-20 and filter(var5>ref(var5,2),7),0,1);
drawicon(var5>20 and filter(var5<ref(var5,2),7),97,2);
a1:=ma(c,13);
zx:=ref(a1,13/2+1);
b1:=cross(c,zx);
s1:=cross(zx,c);
drawicon(cross(c,zx),-3,12);
drawicon(c>zx and ref(c,1)>ref(zx,1),-3,10);
drawicon(c<zx and ref(c,1)>ref(zx,1),-3,11);
lgl:=c-ref(ma(c,20),11);
wr1:=if(ema(c,5)/ema(ema(c,9),16)<=0.85 and c/ref(c,1)>0.905 and c/ref(c,1)<1.05 and v/capital*100<5,50,0);
wr2:=-(100*(hhv(h,34)-c)/(hhv(h,34)-llv(l,34)))+100*lgl;
wr3:=-(100*(hhv(h,50)-c)/(hhv(h,50)-llv(l,50)))+100;
bias1:=-(100*(hhv(h,70)-c)/(hhv(h,70)-llv(l,70)))+100*lgl;
bias2:=((c-ma(c,34))/ma(c,34)*100+10)*5;
bias3:=((c-ma(c,50))/ma(c,50)*100+10)*5;
sx:=((c-ma(c,70))/ma(c,70)*100+10)*5;
s1:=(wr2+wr3+bias1+bias2+bias3+sx)/6*lgl;
ccc:=abs(bias2-sx);
zjz:=(s1+ccc)/2;
lxl:=(-1)*(ema(100*(1-winner(c)),1)-50)+50;
jbj:=lxl+zjz;
ma3:=if(wr1>0 and jbj<0,200,0)*lgl;
c0:=if(zjz<0 and c=llv(c,5) and c/ref(c,1)>0.905 and c/ref(c,1)<1.05 and v/capital*100<5,-50,0);
bot:=if(jbj<0 and c0=-50,100,0)*lgl;
cxc:=ref(c,2)*0.865;
vmc:=ref(c,13)*0.772;
v93:=min(cxc,vmc);
v90:=100*v/capital*lgl;
半年线:=(c-v93)/c<3/100 and sum(v90,5)/5<1.8;
预测:=半年线>0 and (c0<0 or wr1>0);
if(ma3>0 and bot>0 and sum(v/capital*100,5)/5<1 or 半年线>0 and ref(c,1)/ref(c,2)>0.902 or
(ma3>0 and bot>0 and sum(v/capital*100,5)/5<1 or 半年线>0) and (c0<0 or wr1>0) and 预测<10,50,0),Linethick2,colorffff00;
a:=ema(winner(c),10);
b:=ema(winner(c),34);
var1:=ma(v,5)>ma(v,60);
追涨:if(a<0.15 and abs(a-b)<0.05 and cross(a,b) and var1,60,0),Linethick2,colorffcc33;
if(a>0.9 and c<ma(c,5),69,100),Linethick2,colorred;
sma(var1,3,1),colorf00ff0;
股神:3*sma((c-llv(l,13))/(hhv(h,13)-llv(l,13))*100,5,1)-2*sma(sma((c-llv(l,13))/(hhv(h,13)-llv(l,13))*100,5,1),3,1),colorff8888;
短线进出:if(股神<=10,-13,0);
if(cross(股神,10)AND 岁月<50,40,0),Linethick2; [ 本帖最后由 蓝鼠 于 2008-5-10 09:22 编辑 ] 附件: 您所在的用户组无法下载或查看附件
骤雨过，琼珠乱撒，打遍新荷。
人生百年有几，念良辰美景，休放虚过。
穷通前定，何用苦张罗。
命友邀宾玩赏，对芳尊浅酌低歌。
且酩酊，任他两轮日月，来往如梭。
|
