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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 公式模型编写问题提交 → 求助？？？？？？？？？？？

   

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

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

主题：求助？？？？？？？？？？？
帅哥哟，离线，有人找我吗？
qq代人发帖
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：18691 积分：0 威望：0 精华：0 注册：2013/7/15 9:22:16 		  发帖心情 Post By：2014/4/11 13:49:23    Post IP：116.226.223.13[显示全部帖子]

编写中，请耐心等待。

 
 回到顶部
帅哥哟，离线，有人找我吗？
qq代人发帖
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：18691 积分：0 威望：0 精华：0 注册：2013/7/15 9:22:16 		  发帖心情 Post By：2014/4/11 15:12:24    Post IP：116.226.223.13[显示全部帖子]

图表程式化交易1800元/年，后台程式化交易8800元/年。

版本功能及费用详情：http://www.weistock.com:8080/page/buy/buy.php

新建公式命名为a 把macd公式写进去  另一个公式中用stkindi 引用5分钟 15分钟的macd ,TBP源码您自己写进去

macd_5:stkindi('','a.macd',0,2,-1);
macd_15:stkindi('','a.macd',0,3,-1);

zhang_5:ref(macd_5,3)<ref(macd_5,2) and ref(macd_5,2)<0 and 0<ref(macd_5,1) and ref(macd_5,1)<macd_5;
zhang_15:ref(macd_15,3)<ref(macd_15,2) and ref(macd_15,2)<0 and 0<ref(macd_15,1) and ref(macd_15,1)<macd_15;
die_5:ref(macd_5,3)>ref(macd_5,2) and ref(macd_5,2)>0 and 0>ref(macd_5,1) and ref(macd_5,1)>macd_5;
die_15:ref(macd_15,3)>ref(macd_15,2) and ref(macd_15,2)>0 and 0>ref(macd_15,1) and ref(macd_15,1)>macd_15;

if c>tbp and zhang_5 and zhang_15 then
begin
sellshort(holding<0,holding,market);
buy(holding=0,1,market);
end

if c<tbp and die_5 and die_15 THEN
begin
sell(holding>0,holding,market);
buyshort(holding=0,1,market);
end


图片点击可在新窗口打开查看此主题相关图片如下：18.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
qq代人发帖
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：18691 积分：0 威望：0 精华：0 注册：2013/7/15 9:22:16 		  发帖心情 Post By：2014/4/11 17:29:33    Post IP：58.246.57.26[显示全部帖子]

variable:n=0;
macd_5:stkindi('','a.macd',0,2,-1);
macd_15:stkindi('','a.macd',0,3,-1);

zhang_5:ref(macd_5,3)<ref(macd_5,2) and ref(macd_5,2)<0 and 0<ref(macd_5,1) and ref(macd_5,1)<macd_5;
zhang_15:ref(macd_15,3)<ref(macd_15,2) and ref(macd_15,2)<0 and 0<ref(macd_15,1) and ref(macd_15,1)<macd_15;
die_5:ref(macd_5,3)>ref(macd_5,2) and ref(macd_5,2)>0 and 0>ref(macd_5,1) and ref(macd_5,1)>macd_5;
die_15:ref(macd_15,3)>ref(macd_15,2) and ref(macd_15,2)>0 and 0>ref(macd_15,1) and ref(macd_15,1)>macd_15;
c_5:=callstock('',vtclose,2,-1);//引用的品种名称写在单引号内，用了5分的收盘价，可自行修改
cc_5:=callstock('',vtclose,2,-1);//引用的品种名称写在单引号内，用了5分的收盘价，可自行修改

if cc_5>tbp then
sellshort(holding<0,holding,market);//平空

if c>tbp and zhang_5 and zhang_15 then
buy(holding=0,1,market);//平多


if c_5<tbp THEN
sell(holding>0,holding,market);//平多

if c<tbp and die_5 and die_15 THEN
buyshort(holding=0,1,market);//开空


if enterprice-h=3 THEN
sell(holding>0,holding,market);//多头止损
if l-enterprice=3 THEN
sellshort(holding<0,holding,market);//空头止损

if h-enterprice=3 then
n:=1;
if n=1 and h-enterprice=1 then
sell(holding>0,holding,market);//多头止盈
if n=1 and enterprice-l=1 then
sellshort(holding<0,holding,market);//空头止盈
 回到顶部
帅哥哟，离线，有人找我吗？
qq代人发帖
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：18691 积分：0 威望：0 精华：0 注册：2013/7/15 9:22:16 		  发帖心情 Post By：2014/4/11 21:30:41    Post IP：60.55.9.242[显示全部帖子]

对，c_5和cc_5 是一样的，用一个即可。

 回到顶部
帅哥哟，离线，有人找我吗？
qq代人发帖
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：18691 积分：0 威望：0 精华：0 注册：2013/7/15 9:22:16 		  发帖心情 Post By：2014/4/28 14:47:01    Post IP：180.169.30.6[显示全部帖子]

VARIABLE:n=0,m=0;
mid_5:stkindi('','b.mid',0,2,-1);
upper_5:stkindi('','b.upper',0,2,-1);
lower_5:stkindi('','b.lower',0,2,-1);
sg5:upper_5>ref(upper_5,1);//上轨向上
zg5:mid_5>ref(mid_5,1);//中轨向上
xg5:lower_5<ref(lower_5,1);//下轨向下

MACD_5:stkindi('','macd.macd1',0,2,-1);
ld5:ref(macd_5,1)<macd_5 and macd_5<0；//绿柱缩短
hc5:0<ref(macd_5,1) and ref(macd_5,1)<macd_5;//红柱申长

mid_1:stkindi('','b.mid',0,1,0);
upper_1:stkindi('','b.upper',0,1,0);
lower_1:stkindi('','b.lower',0,1,0);
sg:upper_1>ref(upper_1,1);//上轨向上
zg:mid_1>ref(mid_1,1);//中轨向上
xg：lower_1<ref(lower_1,1);//下轨向下

MACD_1:stkindi('','macd.macd1',0,1,0);
ld:ref(macd_1,1)<macd_1 and macd_1<0;//绿柱缩短
hc:0<ref(macd_1,1) and ref(macd_1,1)<macd_1;//红柱申长
//开多
tj5:sg5 and zg5 and xg5 and (ld5 or hc5);
tj1:sg and zg and xg and (ld or hc);
if tj5 or tj1 THEN
buy(1,1,market);

zgx5:mid_5<ref(mid_5,1);//中轨向下
lc5:macd_5<ref(macd_5,1) and ref(macd_5,1)<0；//绿柱申长
hd5:0<macd_5 and macd_5<ref(macd_5,1);//红柱缩短

zgx:mid_1<ref(mid_1,1);//中轨向下
lc:ref(macd_1,1)>macd_1 and ref(macd_1,1)<0;//绿柱申长
hd:0<ref(macd_1,1) and ref(macd_1,1)<macd_1;//红柱缩短

tjk5:sg5 and zgx5 and xg5 and (lc5 or hd5);
tjk1:sg and zgx and xg and (lc or hd);
if tjk5 or tjk1 THEN
buyshort(1,1,market);
//收口平仓
sgx5:upper_5<ref(upper_5,1);//上轨向下
xgs5:lower_5>ref(lower_5,1);//下轨向上

sgx:upper_1<ref(upper_1,1);//上轨向下
xgs：lower_1>ref(lower_1,1);//下轨向上
if (sgx5 and xgs5) or (sgx and xgs) THEN
sell(1,holding,market);
sellshort(1,holding,market);
//止损3个点
if ENTERPRICE-l>=3*mindiff then
sell(1,holding,market);
if h-ENTERPRICE>=3*mindiff then
sellshort(1,holding,market);
//回落到1个点止盈
if h-enterprice>=3*mindiff THEN
n:=1;
if n=1 and h-ENTERPRICE<=1*mindiff then
sell(1,holding,market);
if enterprice-l>=3*mindiff then
m:=1;
if m=1 and ENTERPRICE-l<=1*mindiff then
sellshort(1,holding,market);

[此贴子已经被作者于2014/4/28 14:47:23编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
qq代人发帖
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：18691 积分：0 威望：0 精华：0 注册：2013/7/15 9:22:16 		  发帖心情 Post By：2014/4/28 14:49:55    Post IP：180.169.30.6[显示全部帖子]

公式B 和MACD 是引用的公式
图片点击可在新窗口打开查看此主题相关图片如下：3.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
qq代人发帖
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：18691 积分：0 威望：0 精华：0 注册：2013/7/15 9:22:16 		  发帖心情 Post By：2014/4/29 16:28:35    Post IP：58.246.57.26[显示全部帖子]

sgx5:upper_5<ref(upper_5,1);//上轨向下
xgs5:lower_5>ref(lower_5,1);//下轨向上

sgx:upper_1<ref(upper_1,1);//上轨向下
xgs：lower_1>ref(lower_1,1);//下轨向上
if (sgx5 and xgs5) or (sgx and xgs) THEN
tsell(1,tholding,mkt);
tsellshort(1,tholding,mkt);
//止损3个点
if tENTERPRICE-l>=3*mindiff then
tsell(1,tholding,mkt);
if h-tENTERPRICE>=3*mindiff then
tsellshort(1,tholding,mkt);
//回落到1个点止盈
if h-tenterprice>=3*mindiff THEN
n:=1;
if n=1 and h-tENTERPRICE<=1*mindiff then
tsell(1,tholding,mkt);
if tenterprice-l>=3*mindiff then
m:=1;
if m=1 and tENTERPRICE-l<=1*mindiff then
tsellshort(1,tholding,mkt);


 
 回到顶部
帅哥哟，离线，有人找我吗？
qq代人发帖
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：18691 积分：0 威望：0 精华：0 注册：2013/7/15 9:22:16 		  发帖心情 Post By：2014/5/5 16:40:29    Post IP：58.246.57.26[显示全部帖子]

第3、5浪怎么定义？

图表和后台2种都要？

[此贴子已经被作者于2014/5/5 16:41:17编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
qq代人发帖
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：18691 积分：0 威望：0 精华：0 注册：2013/7/15 9:22:16 		  发帖心情 Post By：2014/5/5 16:55:53    Post IP：116.231.119.64[显示全部帖子]

VARIABLE:n=0,m=0;
mid_5:stkindi('','b.mid',0,2,-1);
upper_5:stkindi('','b.upper',0,2,-1);
lower_5:stkindi('','b.lower',0,2,-1);
sg5:upper_5>ref(upper_5,1);//上轨向上
zg5:mid_5>ref(mid_5,1);//中轨向上
xg5:lower_5<ref(lower_5,1);//下轨向下

MACD_5:stkindi('','macd.macd1',0,2,-1);
ld5:ref(macd_5,1)<macd_5 and macd_5<0；//绿柱缩短
hc5:0<ref(macd_5,1) and ref(macd_5,1)<macd_5;//红柱申长
dmi_5:stkindi('','dmi.mdi',0,2,-1);
PDI_5:stkindi('','dmi.pdi',0,2,-1);
dmi_1:stkindi('','dmi.mdi',0,1,-1);
pdi_1:stkindi('','dmi.pdi',0,1,-1);
d5:pdi_5>dmi_5 and pdi_5>ref(pdi_5,1);
d1:pdi_1>dmi_1 and pdi_1>ref(pdi_1,1);
k5:pdi_5<dmi_5 and pdi_5<ref(pdi_5,1);
k1:pdi_1<dmi_1 and pdi_1<ref(pdi_1,1);

mid_1:stkindi('','b.mid',0,1,0);
upper_1:stkindi('','b.upper',0,1,0);
lower_1:stkindi('','b.lower',0,1,0);
sg:upper_1>ref(upper_1,1);//上轨向上
zg:mid_1>ref(mid_1,1);//中轨向上
xg：lower_1<ref(lower_1,1);//下轨向下

MACD_1:stkindi('','macd.macd1',0,1,0);
ld:ref(macd_1,1)<macd_1 and macd_1<0;//绿柱缩短
hc:0<ref(macd_1,1) and ref(macd_1,1)<macd_1;//红柱申长
//开多
tj5:sg5 and zg5 and xg5 and (ld5 or hc5) and d5;
tj1:sg and zg and xg and (ld or hc) and d1;
if tj5 or tj1 THEN
buy(1,1,market);

zgx5:mid_5<ref(mid_5,1);//中轨向下
lc5:macd_5<ref(macd_5,1) and ref(macd_5,1)<0；//绿柱申长
hd5:0<macd_5 and macd_5<ref(macd_5,1);//红柱缩短

zgx:mid_1<ref(mid_1,1);//中轨向下
lc:ref(macd_1,1)>macd_1 and ref(macd_1,1)<0;//绿柱申长
hd:0<ref(macd_1,1) and ref(macd_1,1)<macd_1;//红柱缩短

tjk5:sg5 and zgx5 and xg5 and (lc5 or hd5) and k5;
tjk1:sg and zgx and xg and (lc or hd) and k1;
if tjk5 or tjk1 THEN
buyshort(holding=0,1,market);
//平仓
pk5:pdi_5>ref(pdi_5,1);
pk1:pdi_1>ref(pdi_1,1);
pd5:pdi_5<ref(pdi_5,1);
pd1:pdi_1<ref(pdi_1,1);
if pd5 or pd1 then
sell(holding>0,holding,market);
if pk5 or pk1 THEN
sellshort(holding<0,holding,market);

//止损3个点
if ENTERPRICE-l>=3*mindiff then
sell(holding>0,holding,market);
if h-ENTERPRICE>=3*mindiff then
sellshort(holding<0,holding,market);
//回落到1个点止盈
if h-enterprice>=3*mindiff THEN
n:=1;
if n=1 and h-ENTERPRICE<=1*mindiff then
sell(holding>0,holding,market);
if enterprice-l>=3*mindiff then
m:=1;
if m=1 and ENTERPRICE-l<=1*mindiff then
sellshort(holding<0,holding,market);


 
 回到顶部
帅哥哟，离线，有人找我吗？
qq代人发帖
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：18691 积分：0 威望：0 精华：0 注册：2013/7/15 9:22:16 		  发帖心情 Post By：2014/5/9 11:19:06    Post IP：180.169.30.6[显示全部帖子]

公式gs

ma14:ma(c,14);
ma20:ma(c,20);
jc:cross(ma14,ma20);
sc:cross(ma20,ma14);

再建一个公式调用

stkindi('','gs.jc',0,1,0);//1分金叉
stkindi('','gs.sc',0,1,0);//1分死叉
stkindi('','gs.jc',0,2,0);//5分金叉
stkindi('','gs.sc',0,2,0);//5分死叉


图片点击可在新窗口打开查看此主题相关图片如下：2.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2014/5/9 11:19:18编辑过]
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.14258 秒, 7 次数据查询