以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  求助???????????  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=63786)

--  作者:goldding
--  发布时间:2014/4/11 12:28:47
--  求助???????????

1、当1分价格大于TBP时,开仓做多,条件:5、15分 MACD 趋势向上:绿柱缩短,直到红柱伸长。

2、当1分价格小于TBP时,开仓做空,条件:5、15分 MACD 趋势向下:红柱缩短,直到绿柱伸长。

 

 

TBP源代码:

APX:=(H+L+C)/3;
TR0:=MAX(H-L,MAX(ABS(H-REF(C,1)),ABS(L-REF(C,1))));
MF0:=C-REF(C,2);
MF1:=REF(MF0,1);
MF2:=REF(MF0,2);
DIRECT1:=BARSLAST(MF0>MF1 AND MF0>MF2);
DIRECT2:=BARSLAST(MF0<MF1 AND MF0<MF2);
DIRECT0:=IF(DIRECT1<DIRECT2,100,-100);
TBP:REF(REF(C,1)+IF(DIRECT0>50,MIN(MF0,MF1),MAX(MF0,MF1)),1);
多头获利:REF(IF(DIRECT0>50,APX*2-L,DRAWNULL),1),NODRAW;
多头停损:REF(IF(DIRECT0>50,APX-TR0,DRAWNULL),1),NODRAW;
空头回补:REF(IF(DIRECT0<-50,APX*2-H,DRAWNULL),1),NODRAW;
空头停损:REF(IF(DIRECT0<-50,APX+TR0,DRAWNULL),1),NODRAW;


--  作者:goldding
--  发布时间:2014/4/11 12:31:22
--  
请求:写代码,这个程序怎么写??
--  作者:qq代人发帖
--  发布时间:2014/4/11 13:49:23
--  

编写中,请耐心等待。

 


--  作者:goldding
--  发布时间:2014/4/11 13:51:21
--  

这样的程序,要配你们什么版本的平台???


--  作者:goldding
--  发布时间:2014/4/11 13:52:53
--  
一年租用平台费用多少??一并告之。
--  作者:jinzhe
--  发布时间:2014/4/11 14:01:01
--  
这个等写出来后一并回复
--  作者:qq代人发帖
--  发布时间:2014/4/11 15:12:24
--  

图表程式化交易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
图片点击可在新窗口打开查看

--  作者:goldding
--  发布时间:2014/4/11 15:52:32
--  

没有人回复呀。


--  作者:jinzhe
--  发布时间:2014/4/11 15:56:49
--  

这还算没人回复啊,每个问题都回答了,代码也写了


--  作者:goldding
--  发布时间:2014/4/11 16:48:11
--  

感谢你的回复!

补充条件:

       1、当亏损:3个点 平仓。

       2、当赚钱:3个点  ,设置止盈:1个点

       3、平仓:

                   A.如果开仓做多后,当5分价格小于TBP时。

                   B.如果开仓做空后,当5分价格大于TBP时。

                   C.当价格回到止盈时。