欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 公式模型编写问题提交 → 帮我把文华改成金字塔

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有2864人关注过本帖树形打印复制链接

主题：帮我把文华改成金字塔
美女呀，离线，留言给我吧！
代人发贴
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：金字塔客服 帖子：610 积分：0 威望：0 精华：0 注册：2013/10/22 14:33:15 		帮我把文华改成金字塔  发帖心情 Post By：2019/7/11 10:27:24    Post IP：180.169.30.6[只看该作者]

 M:=10;
A:=(3*C+L+O+H)/6;//3倍收盘价与最高价、最低价、开盘价之和的均值。
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;
//对A值做加权均值计算。
D:MA(B,M);
N:=1;//首次下单手数
AA:=COUNTSIG(BPK,BARPOS)+COUNTSIG(SPK,BARPOS);//之前没有BPK,SPK信号。
BB:=IF(TRADE_REF(1)=0,IF(REF(ISLASTBPK,1),REF(REFSIG_VOL(BPK,1)+1,1),REF(REFSIG_VOL(SPK,1)+1,1)),N);
CC:=IF(AA<1,N,BB);
CROSS(B,D),BPK(CC);
CROSSDOWN(B,D),SPK(CC);
MULTSIG(0,0,1,0);
//追价委托
SETSIGPRICETYPE(BPK,TRACING_ORDER);
SETSIGPRICETYPE(SPK,TRACING_ORDER);
 回到顶部
帅哥哟，离线，有人找我吗？
FireScript
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：14496 积分：0 威望：0 精华：0 注册：2017/7/4 13:40:18 		  发帖心情 Post By：2019/7/11 14:46:01    Post IP：180.169.30.6[只看该作者]

以下代码供参考：

M:=10;
A:=(3*C+L+O+H)/6;//3倍收盘价与最高价、最低价、开盘价之和的均值。
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;
//对A值做加权均值计算。
D:MA(B,M);
N:=1;//首次下单手数
cd1:ref(holding,1)<0 and holding>0;//利用持仓变化判断是否反手了
cd2:ref(holding,1)>0 and holding<0;
AA:=COUNT(cd1,BARPOS)+COUNT(cd2,BARPOS);//之前没有BPK,SPK信号。
BB:=IF(NUMPROFIT(1)=0,ENTERVOL,N);
CC:=IF(AA<1,N,BB);

if CROSS(B,D) then
begin
sellshort(holding<0,holding,market);
buy(holding=0,CC,market);
end

if CROSS(D,B) then
begin
sell(holding>0,holding,market);
buyshort(holding=0,CC,market);
end

//下面这个功能需要使用软件自带的追撤单，无法单纯用代码实现。

////追价委托
//SETSIGPRICETYPE(BPK,TRACING_ORDER);
//SETSIGPRICETYPE(SPK,TRACING_ORDER);
//

命数如织，当如磐石。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.06250 秒, 6 次数据查询