以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  高手们来看看呗。文华指标改成金字塔的。谢谢！  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=6790)
--  作者：xian_0_9
--  发布时间：2011/6/8 8:57:34
--  高手们来看看呗。文华指标改成金字塔的。谢谢！
HH1:=IFELSE(H<REF(H,2)&&REF(H,1)<REF(H,2),REF(H,2),0);
LL1:=IFELSE(L>REF(L,2)&&REF(L,1)>REF(L,2),REF(L,2),0);
HH2:=VALUEWHEN(HH1>0,HH1);
LL2:=VALUEWHEN(LL1>0,LL1);
K1:=IFELSE(CLOSE>HH2,-3,IFELSE(CLOSE<LL2,1,0));
K2:=VALUEWHEN(K1<>0,K1);
G:=IFELSE(K2=1,HH2,LL2);
G1:=VALUEWHEN(ISLASTBAR,G);
DRAWNUMBER(L>0,G1,G1,0,COLORCYAN);
W1:=K2;
W2:=OPEN-CLOSE;
HT:=IFELSE(OPEN>CLOSE,OPEN,CLOSE);
LT:=IFELSE(OPEN<CLOSE,OPEN,CLOSE);
DRAWLINE(W1=1,HIGH,W1=1,HT,COLORCYAN);
DRAWLINE(W1=1,LOW,W1=1,LT,COLORCYAN);
DRAWLINE(W1=-3,HIGH,W1=-3,HT,COLORRED);
DRAWLINE(W1=-3,LOW,W1=-3,LT,COLORRED);
STICKLINE(W1>0,OPEN,CLOSE,COLORCYAN,1);
STICKLINE(W1<=0,OPEN,CLOSE,COLORRED,1);
STICKLINE(W2>0&&W1<=0,OPEN,CLOSE,COLORRED,0);
STICKLINE(W2>0&&W1>0,OPEN,CLOSE,COLORCYAN,0);
DRAWLINE(W1=1&&REF(W1,1)=1,G,W1=1&&REF(W1,1)=1,REF(G,1),COLORGREEN);
DRAWLINE(W1=-3&&REF(W1,1)=-3,G,W1=-3&&REF(W1,1)=-3,REF(G,1),COLORYELLOW);
DRAWSL(K2=1,G,0,1,0,COLORGREEN);
DRAWSL(K2=-3,G,0,1,0,COLORYELLOW);
--  作者：jinzhe
--  发布时间：2011/6/8 9:20:20
--  

看错了，编辑了

这个公式能直接用了

[此贴子已经被作者于2011-6-8 9:36:32编辑过]
--  作者：fly
--  发布时间：2011/6/8 9:50:16
--  

请参考此帖

里面已介绍了DRAWLINE函数和STICKLINE函数,金字塔和文华之间如何转化

http://www.weistock.com/bbs/dispbbs.asp?boardid=2&Id=6660

 
--  作者：jinzhe
--  发布时间：2011/6/8 10:14:30
--  

HH1:=IFELSE(H<REF(H,2)&&REF(H,1)<REF(H,2),REF(H,2),0);
LL1:=IFELSE(L>REF(L,2)&&REF(L,1)>REF(L,2),REF(L,2),0);
HH2:=VALUEWHEN(HH1>0,HH1);
LL2:=VALUEWHEN(LL1>0,LL1);
K1:=IFELSE(CLOSE>HH2,-3,IFELSE(CLOSE<LL2,1,0));
K2:=VALUEWHEN(K1<>0,K1);
G:=IFELSE(K2=1,HH2,LL2);
G1:=VALUEWHEN(ISLASTBAR,G);
DRAWNUMBER(L>0,G1,G1,0,COLORCYAN);
W1:=K2;
W2:=OPEN-CLOSE;
HT:=IFELSE(OPEN>CLOSE,OPEN,CLOSE);
LT:=IFELSE(OPEN<CLOSE,OPEN,CLOSE);
DRAWLINE(W1=1,HIGH,W1=1,HT,0,COLORCYAN);
DRAWLINE(W1=1,LOW,W1=1,LT,0,COLORCYAN);
DRAWLINE(W1=-3,HIGH,W1=-3,HT,0,COLORRED);
DRAWLINE(W1=-3,LOW,W1=-3,LT,0,COLORRED);
STICKLINE(W1>0,OPEN,CLOSE,16,1,COLORCYAN);
STICKLINE(W1<=0,OPEN,CLOSE,16,1,COLORRED);
STICKLINE(W2>0&&W1<=0,OPEN,CLOSE,16,0,COLORRED);
STICKLINE(W2>0&&W1>0,OPEN,CLOSE,16,0,COLORCYAN);
DRAWLINE(W1=1&&REF(W1,1)=1,G,W1=1&&REF(W1,1)=1,REF(G,1),0,COLORGREEN);
DRAWLINE(W1=-3&&REF(W1,1)=-3,G,W1=-3&&REF(W1,1)=-3,REF(G,1),0,COLORYELLOW);
DRAWSL(K2=1,G,0,1,0,COLORGREEN);
DRAWSL(K2=-3,G,0,1,0,COLORYELLOW);

 

按照FLY兄的帖子修改了下

图片点击可在新窗口打开查看
--  作者：jinzhe
--  发布时间：2011/6/8 11:27:05
--  
能给个图不？改了好几次效果都不理想
--  作者：xian_0_9
--  发布时间：2011/6/9 14:09:13
--  
以下是引用jinzhe在2011-6-8 11:27:05的发言：
能给个图不？改了好几次效果都不理想

我给你图？没图。有也不会贴。。图片点击可在新窗口打开查看
--  作者：jinzhe
--  发布时间：2011/6/9 14:15:59
--  

图片点击可在新窗口打开查看http://www.weistock.com/bbs/dispbbs.asp?boardid=2&Id=79

贴图教程
--  作者：xian_0_9
--  发布时间：2011/6/10 10:07:24
--  

HH1:=IFELSE(H<REF(H,2)&&REF(H,1)<REF(H,2),REF(H,2),0);
LL1:=IFELSE(L>REF(L,2)&&REF(L,1)>REF(L,2),REF(L,2),0);
HH2:=VALUEWHEN(HH1>0,HH1);
LL2:=VALUEWHEN(LL1>0,LL1);
K1:=IFELSE(CLOSE>HH2,-3,IFELSE(CLOSE<LL2,1,0));
K2:=VALUEWHEN(K1<>0,K1);
G:=IFELSE(K2=1,HH2,LL2);
G1:=VALUEWHEN(ISLASTBAR,G);
DRAWNUMBER(L>0,G1,G1,0,COLORCYAN);
W1:=K2;
W2:=OPEN-CLOSE;
HT:=IFELSE(OPEN>CLOSE,OPEN,CLOSE);
LT:=IFELSE(OPEN<CLOSE,OPEN,CLOSE);


VERTLINE( w1=1,h,ht,COLORCYAN,1,VTDOT);
VERTLINE( w1=1,l,lt,COLORCYAN,1,VTDOT)
VERTLINE( w1=-3,h,ht,COLORCYAN,1,VTDOT)
VERTLINE( w1=-3,l,lt,COLORCYAN,1,VTDOT)

STICKLINE(W1>0,OPEN,CLOSE,1,COLORCYAN);
STICKLINE(W1<=0,OPEN,CLOSE,1,COLORCYAN);
STICKLINE(W2>0&&W1<=0,OPEN,CLOSE,1,COLORCYAN);
STICKLINE(W2>0&&W1>0,OPEN,CLOSE,1,COLORCYAN);

 

VERTLINE(W1=1&&REF(W1,1)=1,g,REF(G,1),COLORCYAN,1,VTDOT);
VERTLINE(W1=-3&&REF(W1,1)=-3,g,REF(G,1),COLORCYAN,1,VTDOT);
DRAWSL(K2=1,G,0,1,0,COLORGREEN);
DRAWSL(K2=-3,G,0,1,0,COLORYELLOW);

 

 

自己试着用FLY教的方法。。通不过啊。。55
--  作者：jinzhe
--  发布时间：2011/6/10 10:20:02
--  
stickline写错啦，有个在close和colorcyan之间有2个数字，代表width和empty，你少写了一个，当然会error
--  作者：xian_0_9
--  发布时间：2011/6/10 10:45:39
--  
以下是引用jinzhe在2011-6-10 10:20:02的发言：
stickline写错啦，有个在close和colorcyan之间有2个数字，代表width和empty，你少写了一个，当然会error


STICKLINE(W1>0,OPEN,CLOSE,1,0,COLORCYAN);
STICKLINE(W1<=0,OPEN,CLOSE,1,0,COLORCYAN);
STICKLINE(W2>0&&W1<=0,OPEN,CLOSE,0,1,COLORCYAN);
STICKLINE(W2>0&&W1>0,OPEN,CLOSE,0,1,COLORCYAN);

也不好使该成这样了。。你会不？