以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  能将文华代码改成金字塔的吗  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=64590)
--  作者：hsl2069
--  发布时间：2014/5/4 10:11:03
--  能将文华代码改成金字塔的吗

能将下面的文华代码改成金字塔的吗，谢谢！

 

D1:=BARSLAST(CROSS(C,M60))+1;
K1:=BARSLAST(CROSS(M60,C))+1;
D2:=EVERY(C>M60,3)&&REF(CROSS(C,M60),2)||C>M60&&D1>=5&&EXIST(EVERY(L>M60&&L<M60+10,2),D1-3)&&C>REF(H,1);
K2:=EVERY(C<M60,3)&&REF(CROSS(M60,C),2)||C<M60&&K1>=5&&EXIST(EVERY(H>M60-10&&H<M60,2),K1-3)&&C<REF(L,1);

另外，想在在D2、K2条件成立的时候标出红绿箭头，只要求条件第一次满足的时候出现就行，能否把后面相同条件下的箭头去掉。
--  作者：jinzhe
--  发布时间：2014/5/4 10:14:54
--  
m60:=ma(c,60);
variable:m=0,n=0;
D1:=BARSLAST(CROSS(C,M60))+1;
K1:=BARSLAST(CROSS(M60,C))+1;
D2:=EVERY(C>M60,3)&&REF(CROSS(C,M60),2)||C>M60&&D1>=5&&EXIST(EVERY(L>M60&&L<M60+10,2),D1-3)&&C>REF(H,1);
K2:=EVERY(C<M60,3)&&REF(CROSS(M60,C),2)||C<M60&&K1>=5&&EXIST(EVERY(H>M60-10&&H<M60,2),K1-3)&&C<REF(L,1);
if d2 then N:=n+1;
if k2 then m:=m+1;
DRAWICON(d2 and n=1,high,4);
DRAWICON(k2 and m=1,l,5);