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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 请老师帮忙修改程序化模型

   

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


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

主题:请老师帮忙修改程序化模型

帅哥哟,离线,有人找我吗?
关树源
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:32 积分:0 威望:0 精华:0 注册:2018/2/4 22:00:19
请老师帮忙修改程序化模型  发帖心情 Post By:2018/3/11 21:43:01    Post IP:120.239.32.9[只看该作者]

老师帮忙修改成金字塔程序化交易模型

第一个指标出现(抄底)信号后结合MACD金叉后下一根K线买入多单,止损点放在下单前5根K线点最低点,浮盈超过百分之十后设置百分之五的保本动态止损

A11:=MA(CLOSE,5);
A12:=MA(CLOSE,10);
A13:=MA(CLOSE,20);
A14:=MA(CLOSE,30);
均线多头排列:IF(A11 > A12 AND A12 > A13 AND CROSS(A13,A14) AND C > O,18,0),STICK,LINETHICK2,COLOR00BBFF;
DRAWTEXT(A11 > A12 AND A12 > A13 AND CROSS(A13,A14) AND C > O,35,'均线多头排列'),COLOR00FFFF;
VAR1:=HHV(HIGH,9)-LLV(LOW,9);
VAR2:=HHV(HIGH,9)-CLOSE;
VAR3:=CLOSE-LLV(LOW,9);
VAR4:=VAR2/VAR1*100-70;
VAR5:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60));
VAR6:=(2*CLOSE+HIGH+LOW)/4;
VAR7:=SMA(VAR3/VAR1*100,3,1);
VAR8:=LLV(LOW,34);
VAR9:=SMA(VAR7,3,1)-SMA(VAR4,9,1);
VAR10:=IF(VAR9 > 100,VAR9-100,0);
VAR11:=HHV(HIGH,34);
VAR12:=EMA((VAR6-VAR8)/(VAR11-VAR8)*100,13);
VAR13:=EMA(0.667*REF(VAR12,1)+0.333*VAR12,2);
VAR13,COLOR000000;
STICKLINE(VAR12-VAR13 > 0,VAR12,VAR13,8,0),COLOR0055FF;
STICKLINE(VAR12-VAR13 < 0,VAR12,VAR13,8,0),COLOR00FF00;
A1:=HHV(HIGH,50)/LLV(LOW,100) > 1.5;
A2:=(HHV(HIGH,50)-LOW)/(HHV(HIGH,50)-LLV(LOW,100));
A3:=(LOW-LLV(LOW,100))/(HHV(HIGH,50)-LLV(LOW,100));
VAR2W:=100-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
MW:= EMA(VAR2W,3);
VAR3W:=EMA(VAR2W,7);
M1:= EMA(VAR3W,5);
MB1:=CROSS(MW,M1) AND M1 < 20;
抄底 :IF((MB1),40,0),LINETHICK2,COLORFFFFFF;
DRAWTEXT(抄底 ,62,'★'),COLOR00FFFF;
DRAWTEXT(抄底 ,52,'抄底 '),COLORFF00FF;


 回到顶部
帅哥哟,离线,有人找我吗?
yukizzc
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:21598 积分:0 威望:0 精华:1 注册:2010/7/31 16:35:30
  发帖心情 Post By:2018/3/12 9:25:45    Post IP:180.169.30.6[只看该作者]

variable:n=0;

if 抄底 then n:=1'

if not(抄底) then n:=0;

//n=1表示之前出过抄底信号了

if n=1 and cross(diff,dea) then

begin

buy(1,1,marketr);

ll_price:=ref(close,5);

end

 

if close<ll_price and holding>0 then sell(1,1,marketr)


 回到顶部
帅哥哟,离线,有人找我吗?
关树源
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:32 积分:0 威望:0 精华:0 注册:2018/2/4 22:00:19
  发帖心情 Post By:2018/3/12 9:57:05    Post IP:120.239.32.9[只看该作者]

测试通不过

 回到顶部
帅哥哟,离线,有人找我吗?
yukizzc
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:21598 积分:0 威望:0 精华:1 注册:2010/7/31 16:35:30
  发帖心情 Post By:2018/3/12 10:15:03    Post IP:180.169.30.6[只看该作者]

你要把macd的代码放进来的,cross(diff,dea)这个就是macd金叉

具体细节需要您自行完成


 回到顶部
帅哥哟,离线,有人找我吗?
关树源
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:32 积分:0 威望:0 精华:0 注册:2018/2/4 22:00:19
  发帖心情 Post By:2018/3/12 11:05:17    Post IP:120.239.32.9[只看该作者]

通不过,麻烦老师帮忙修改一下

DIFF : EMA(CLOSE,S) - EMA(CLOSE,P);
DEA  : EMA(DIFF,M);
MACD1 : 2*(DIFF-DEA), COLORSTICK;

variable:n=0;
if 抄底 then n:=1'
if not(抄底) then n:=0;
//n=1表示之前出过抄底信号了
if n=1 and cross(diff,dea) then
begin
buy(1,1,marketr);
ll_price:=ref(close,5);
end
 
if close<ll_price and holding>0 then sell(1,1,marketr)

 回到顶部
帅哥哟,离线,有人找我吗?
FireScript
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

编译不通过都是有提示的。

 

s没定义,按照下图处理下

 


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


命数如织,当如磐石。
 回到顶部
帅哥哟,离线,有人找我吗?
关树源
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:32 积分:0 威望:0 精华:0 注册:2018/2/4 22:00:19
  发帖心情 Post By:2018/3/12 11:08:22    Post IP:120.239.32.9[只看该作者]

好的

 回到顶部
帅哥哟,离线,有人找我吗?
关树源
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:32 积分:0 威望:0 精华:0 注册:2018/2/4 22:00:19
  发帖心情 Post By:2018/3/12 15:49:19    Post IP:120.239.32.9[只看该作者]

我比较菜鸟,修改还是没通过,提示未定义的变量,字符串缺少引号
麻烦老师帮我修改一下,万分感谢!

DIFF : EMA(CLOSE,S) - EMA(CLOSE,P);
DEA  : EMA(DIFF,M);
MACD1 : 2*(DIFF-DEA), COLORSTICK;
variable:n=0;
if 抄底 then n:=1'
if not(抄底) then n:=0;
//n=1表示之前出过抄底信号了
if n=1 and cross(diff,dea) then
begin
buy(1,1,marketr);
ll_price:=ref(close,5);
end
 
if close<ll_price and holding>0 then sell(1,1,marketr)


 回到顶部
帅哥哟,离线,有人找我吗?
FireScript
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

DIFF : EMA(CLOSE,S) - EMA(CLOSE,P);
DEA  : EMA(DIFF,M);
MACD1 : 2*(DIFF-DEA), COLORSTICK;
variable:n=0;
if 抄底 then n:=1;
if not(抄底) then n:=0;
//n=1表示之前出过抄底信号了
if n=1 and cross(diff,dea) then
begin
buy(1,1,marketr);
ll_price:=ref(close,5);
end
 
if close<ll_price and holding>0 then sell(1,1,marketr);

 

试下吧。



命数如织,当如磐石。
 回到顶部
帅哥哟,离线,有人找我吗?
关树源
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:32 积分:0 威望:0 精华:0 注册:2018/2/4 22:00:19
  发帖心情 Post By:2018/3/12 19:53:17    Post IP:120.239.32.9[只看该作者]

测试通不过
提示:REF 函数在逐K线模式下不能直接在IF控制语句之内引用

 回到顶部
总数 18 1 2 下一页