以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  策略编写求助区  (http://222.73.7.161/bbs/list.asp?boardid=11)
----  老师能帮忙改写成金字塔语言吗？  (http://222.73.7.161/bbs/dispbbs.asp?boardid=11&id=90790)
--  作者：qq代人发帖
--  发布时间：2016/1/28 14:16:38
--  老师能帮忙改写成金字塔语言吗？
 QHL:=(CLOSE-REF(CLOSE,1))-(VOL-REF(VOL,1))*(REF(HIGH,1)-REF(LOW,1))/REF(VOL,1);//收盘价减去上根K线的收盘价的差值 减去当前成交量减去上根成交量的差值乘以上根的高点减上根的低点的积除以上根的成交量；
A:=SUM(IFELSE(QHL>0,QHL,0),5);//如果QHL>0 则返回QHL的值 否则返回0，统计五周期内的和。
E:=SUM(IFELSE(QHL>0,QHL,0),10);//如果QHL>0 则返回QHL的值 否则返回0，统计十周期内的和。
B:=ABS(SUM(IFELSE(QHL<0,QHL,0),5));//如果QHL<0 则返回QHL的值 否则返回0，统计五周期内的和，结果取绝对值。
F:=ABS(SUM(IFELSE(QHL<0,QHL,0),10));//如果QHL<0 则返回QHL的值 否则返回0，统计十周期内的和，结果取绝对值。
D:=A/(A+B);//A除以A+B的和；
G:=E/(E+F);//E除以E+F的和；
QHL5:IFELSE(SUM(IFELSE(QHL>0,1,0),5)=5,1,IFELSE(SUM(IFELSE(QHL<0,1,0),5)=5,0,D));//如果5周期内连续满足QHL，则返回1，否则当五周期内连续满足QHL<0时，返回0，否则返回D值；
QHL10:G;
QHL5>0.25&&CROSS(QHL5,QHL10),BPK;//QHL5大于0.25并且QHL5金叉QHL10,买平开;
QHL5<0.75&&CROSS(QHL10,QHL5),SPK;//QHL5小于0.75并且QHL5死叉QHL10,卖平开;
AUTOFILTER;
--  作者：王锋
--  发布时间：2016/1/28 14:21:34
--  
QHL:=(CLOSE-REF(CLOSE,1))-(VOL-REF(VOL,1))*(REF(HIGH,1)-REF(LOW,1))/REF(VOL,1);//收盘价减去上根K线的收盘价的差值 减去当前成交量减去上根成交量的差值乘以上根的高点减上根的低点的积除以上根的成交量；
A:=SUM(IFELSE(QHL>0,QHL,0),5);//如果QHL>0 则返回QHL的值 否则返回0，统计五周期内的和。
E:=SUM(IFELSE(QHL>0,QHL,0),10);//如果QHL>0 则返回QHL的值 否则返回0，统计十周期内的和。
B:=ABS(SUM(IFELSE(QHL<0,QHL,0),5));//如果QHL<0 则返回QHL的值 否则返回0，统计五周期内的和，结果取绝对值。
F:=ABS(SUM(IFELSE(QHL<0,QHL,0),10));//如果QHL<0 则返回QHL的值 否则返回0，统计十周期内的和，结果取绝对值。
D:=A/(A+B);//A除以A+B的和；
G:=E/(E+F);//E除以E+F的和；
QHL5:IFELSE(SUM(IFELSE(QHL>0,1,0),5)=5,1,IFELSE(SUM(IFELSE(QHL<0,1,0),5)=5,0,D));//如果5周期内连续满足QHL，则返回1，否则当五周期内连续满足QHL<0时，返回0，否则返回D值；
QHL10:G;
QHL5>0.25&&CROSS(QHL5,QHL10),BPK,TFILTER;//QHL5大于0.25并且QHL5金叉QHL10,买平开;
QHL5<0.75&&CROSS(QHL10,QHL5),SPK,TFILTER;//QHL5小于0.75并且QHL5死叉QHL10,卖平开;
;