32 12
发新话题
打印

[源码] 操盘王的风险栅栏

操盘王的风险栅栏

复制内容到剪贴板
代码:
a:=LLV(INDEXC,24)*"PRICEOSC.N";
b:="PRICEOSC.B";
DRAWICON(CROSS(INDEXC,a) and LLV(INDEXC,24)=LLV(INDEXC,60) and COUNT(CROSS(INDEXC,a),13)<=1 and "DMI.B3"<"DMI.B4" or CROSS(INDEXC,a) and LLV(INDEXC,24)=LLV(INDEXC,60) and INDEXC<MIN("DMI.B1",MIN("DMI.B2",MIN("DMI.B3","DMI.B4"))) and COUNT(CROSS(INDEXC,a),13)<=1 or CROSS(INDEXC,a) and INDEXC>REF(INDEXC,1)*"PRICEOSC.N" and INDEXC<MIN("DMI.B1",MIN("DMI.B2",MIN("DMI.B3","DMI.B4"))) and COUNT(CROSS(INDEXC,a),13)<=1 or CROSS(INDEXC,a) and INDEXC>MAX("DMI.B1",MAX("DMI.B2",MAX("DMI.B3","DMI.B4"))) and MAX("DMI.B1","DMI.B2")<MAX("DMI.B3","DMI.B4") and "DMI.B3"<"DMI.B4" and COUNT(CROSS(INDEXC,a),13)<=1 or CROSS(INDEXC,a) and INDEXC>MAX("DMI.B1",MAX("DMI.B2",MAX("DMI.B3","DMI.B4"))) and MAX("DMI.B1","DMI.B2")<MIN("DMI.B3","DMI.B4") and "DMI.B3">"DMI.B4" and COUNT(CROSS(INDEXC,a),13)<=1,LOW,1);
s:=if(date<1080701,1,0);

b1:ma(b,5)*s,colorff;
b2:ma(b,10)*s,colorff;
b3:ma(b,30)*s,colorffff;
b4:ma(b,60)*s,colorffff;

x:=REF(CLOSE,1)<REF(CLOSE,2) and REF(VOL,1)>MAX(REF(MA(VOL,5),1),MAX(REF(MA(VOL,10),1),REF(MA(VOL,20),1))) and REF(VOL,1)>REF(MA(VOL,20),1)*1.1;
y:=IF(x,MIN(REF(LOW,1),LOW),0);
z1:REF(y,BARSLAST(x)),Linethick5,colorffff;
x1:=REF(CLOSE,1)<REF(OPEN,1) and REF(VOL,1)>MAX(REF(MA(VOL,5),1),MAX(REF(MA(VOL,10),1),REF(MA(VOL,20),1))) and REF(AMOUNT,1)=REF(HHV(AMOUNT,20),1) or REF(CLOSE,1)<REF(OPEN,1) and REF(AMOUNT,1)=REF(HHV(AMOUNT,20),1);
y1:=IF(x1,REF(CLOSE,1),0);
z2:REF(y1,BARSLAST(x1)),COLORred,Linethick5,colorffff;
STICKLINE(CLOSE>0 and (MAX(z1,z2)-MIN(z1,z2))/MIN(z1,z2)*100<3 and MAX("DMI.B1","DMI.B2")>MIN("DMI.B3","DMI.B4"),z1,z2,3,0),COLORred;
CG:ma(C,17),colorffcc66;
FL:hhv(CG,2);
FS:if(CG<FL,(CG-(FL-CG)),FL);
STICKLINE(close>=open,open,close,5,1),colorred;
STICKLINE(open>close,close,open,5,0 ),color00ff00;
STICKLINE(close>=open,close,HIGH,0.5 ,1 ),colorred;
STICKLINE(close>=open,open,low,0.5 ,1 ),colorred;
STICKLINE(open>close,close,low,0.5 ,0 ),color00ff00;
STICKLINE(open>close,open,HIGH,0.5 ,0 ),color00ff00;
附件: 您所在的用户组无法下载或查看附件
愿朋友们在交流中提高, 在实战中获利!

          你的朋友yngs

TOP

可以用的源码
x:=REF(CLOSE,1)<REF(CLOSE,2) and REF(VOL,1)>MAX(REF(MA(VOL,5),1),MAX(REF(MA(VOL,10),1),REF(MA(VOL,20),1))) and REF(VOL,1)>REF(MA(VOL,20),1)*1.1;
y:=IF(x,MIN(REF(LOW,1),LOW),0);
z1:REF(y,BARSLAST(x)),Linethick5,colorffff;
x1:=REF(CLOSE,1)<REF(OPEN,1) and REF(VOL,1)>MAX(REF(MA(VOL,5),1),MAX(REF(MA(VOL,10),1),REF(MA(VOL,20),1))) and REF(AMOUNT,1)=REF(HHV(AMOUNT,20),1) or REF(CLOSE,1)<REF(OPEN,1) and REF(AMOUNT,1)=REF(HHV(AMOUNT,20),1);
y1:=IF(x1,REF(CLOSE,1),0);
z2:REF(y1,BARSLAST(x1)),COLORred,Linethick5,colorffff;
STICKLINE(CLOSE>0 and (MAX(z1,z2)-MIN(z1,z2))/MIN(z1,z2)*100<3 and MAX("DMIy.B1","DMIy.B2")>MIN("DMIy.B3","DMIy.B4"),z1,z2,5,0),COLORred;
STICKLINE(close>=open,open,close,5,1),colorred;
STICKLINE(open>close,close,open,5,0 ),color00ff00;
STICKLINE(close>=open,close,HIGH,0.5 ,1 ),colorred;
STICKLINE(close>=open,open,low,0.5 ,1 ),colorred;
STICKLINE(open>close,close,low,0.5 ,0 ),color00ff00;
STICKLINE(open>close,open,HIGH,0.5 ,0 ),color00ff00;

本贴由 yngs 于 2005-9-13 12:42 最后编辑

愿朋友们在交流中提高, 在实战中获利!

          你的朋友yngs

TOP

引用公式/數據都沒有該公式內容耶??!!
至誠能勝天下至偽
至拙能勝天下至巧

TOP

用2楼的源码不必引用什么了。有许多公式都是垃圾语句多特别是一些商品公式,因为大多都是拼装组合(过程可参看我的《公式制作速成》http://bbs.fjfox.com/t-21789-f2.html)制作重点是在化妆上面,并不厌其烦的添加时间控制语句进行多重加密(参看这个公式源码http://bbs.fjfox.com/t-22292-f1.html),能够像我《公式制作速成》最终尽量清除冗余代码的实在是很少很少了。我在《公式制作速成》帖子中“满纸荒唐言...谁解其中味?”

风险栅栏指标主要是说股价跌破风险栅栏后将加速下跌应尽快离场,如果股价受到风险栅栏的支撑则后市看涨。

本贴由 yngs 于 2005-9-13 13:32 最后编辑

附件: 您所在的用户组无法下载或查看附件
愿朋友们在交流中提高, 在实战中获利!

          你的朋友yngs

TOP

多謝您的說明
二樓公式中的DMI引用數據部分 咱也沒有
至誠能勝天下至偽
至拙能勝天下至巧

TOP

引用:
Originally posted by peter109 at 2005-9-13 13:22:
多謝您的說明
二樓公式中的DMI引用數據部分 咱也沒有
呵,我真是眼睛昏花了!已经上传引用文件DMIY:p
愿朋友们在交流中提高, 在实战中获利!

          你的朋友yngs

TOP

再看
x:=REF(CLOSE,1)<REF(CLOSE,2) and REF(VOL,1)>MAX(REF(MA(VOL,5),1),MAX(REF(MA(VOL,10),1),REF(MA(VOL,20),1))) and REF(VOL,1)>REF(MA(VOL,20),1)*1.1;
y:=IF(x,MIN(REF(LOW,1),LOW),0);
z1:REF(y,BARSLAST(x)),Linethick5,colorffff;
x1:=REF(CLOSE,1)<REF(OPEN,1) and REF(VOL,1)>MAX(REF(MA(VOL,5),1),MAX(REF(MA(VOL,10),1),REF(MA(VOL,20),1))) and REF(AMOUNT,1)=REF(HHV(AMOUNT,20),1) or REF(CLOSE,1)<REF(OPEN,1) and REF(AMOUNT,1)=REF(HHV(AMOUNT,20),1);

a:=(3*CLOSE+LOW+OPEN+HIGH)/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;
b1:=MA(b,3),colorff;
b2:=MA(b,5),colorff;
b3:=MA(b,21),colorffff;
b4:=MA(b,34),colorffff;
y1:=IF(x1,REF(CLOSE,1),0);
z2:REF(y1,BARSLAST(x1)),COLORred,Linethick5,colorffff;

STICKLINE(CLOSE>0 and (MAX(z1,z2)-MIN(z1,z2))/MIN(z1,z2)*100<3 and MAX(B1,B2)>MIN(B3,B4),z1,z2,5,0),COLORred;
愿朋友们在交流中提高, 在实战中获利!

          你的朋友yngs

TOP

ok

TOP

请问楼主DMI怎样引用到指标里,谢谢

TOP

引用:
Originally posted by shuy at 2005-9-13 15:27:
请问楼主DMI怎样引用到指标里,谢谢
DMI指标直接引入飞狐即可

TOP

引用:
Originally posted by yngs at 2005-9-13 13:35:
呵,我真是眼睛昏花了!已经上传引用文件DMIY:p
感謝 感謝 感謝 感謝 感謝 ....
咱只能這麼說
至誠能勝天下至偽
至拙能勝天下至巧

TOP

谢谢!

TOP

谢谢!

TOP

谢谢

TOP

谢谢 股神大哥

TOP

老年的栅栏破了
☆☆   天空已没有翅膀痕迹,而我已经飞过...... ☆☆

TOP

永远难忘,谢谢!

TOP

谢谢!

TOP

谢谢啦!!!

TOP

0000000000

TOP

0000000000000

TOP

00000000000000

TOP

支持源码,应该加分!!!!!!

TOP

3Q!謝謝提供者

3Q3Q3Q! ALL !

TOP

 32 12
发新话题