查看完整版本: 操盘王的风险栅栏

yngs 2005-9-13 11:01

操盘王的风险栅栏

[code]
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;
[/code]

yngs 2005-9-13 11:31

可以用的源码
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;

[color=Teal][align=right] 本贴由 yngs 于 2005-9-13 12:42 最后编辑 [/align][/color]

peter109 2005-9-13 12:05

引用公式/數據都沒有該公式內容耶??!!

yngs 2005-9-13 13:11

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

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

[color=Teal][align=right] 本贴由 yngs 于 2005-9-13 13:32 最后编辑 [/align][/color]

peter109 2005-9-13 13:22

多謝您的說明
二樓公式中的DMI引用數據部分 咱也沒有

yngs 2005-9-13 13:35

[quote]Originally posted by [i]peter109[/i] at 2005-9-13 13:22:
多謝您的說明
二樓公式中的DMI引用數據部分 咱也沒有 [/quote]
呵,我真是眼睛昏花了!已经上传引用文件DMIY:p

yngs 2005-9-13 14:00

再看
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;

shuy 2005-9-13 15:24

ok

shuy 2005-9-13 15:27

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

股山有路 2005-9-13 22:25

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

peter109 2005-9-14 00:13

[quote]Originally posted by [i]yngs[/i] at 2005-9-13 13:35:
呵,我真是眼睛昏花了!已经上传引用文件DMIY:p [/quote]

感謝 感謝 感謝 感謝 感謝 ....
咱只能這麼說 :clap:

xujie 2005-9-14 03:26

谢谢!

xxllxxll 2005-9-14 08:53

谢谢!

wdguiw 2005-9-14 15:48

谢谢

股神大哥 2005-9-15 06:57

谢谢

goldhill1965 2005-9-15 07:04

谢谢 股神大哥

天高任鸟飞 2005-9-15 20:34

老年的栅栏破了:D:clap:

qizi112233 2005-9-19 15:11

谢谢!

goldhill1965 2005-9-19 21:06

永远难忘,谢谢!

king 2005-9-19 22:12

谢谢!

辛吉红旗 2005-9-20 05:37

谢谢啦!!!

6406753 2006-2-12 22:47

0000000000

6406753 2006-2-13 19:13

0000000000000

6406753 2006-3-13 21:50

00000000000000

zzm8 2006-4-7 14:36

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

shujenwen 2006-5-12 15:58

3Q!謝謝提供者

3Q3Q3Q! ALL !

zjxu58 2006-5-20 14:08

谢谢 !!

372100 2006-5-21 22:42

谢谢啦!!!

372100 2006-5-21 22:43

应该加分!

红枫 2006-6-11 17:37

:D:clap:非常感谢!

msyaa 2006-10-5 23:35

DDDDDDDDDDDDDDD

shangjing558 2006-10-8 09:44

[quote]原帖由 [i]股山有路[/i] 于 2005-9-13 22:25 发表

DMI指标直接引入飞狐即可 [/quote]

多谢老师!!!

liyucheng118 2008-4-3 14:10

kkkkkkk

cyzpp 2008-4-13 16:52

:): :smokin: :smokin:
页: [1]
查看完整版本: 操盘王的风险栅栏