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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件金字塔软件问题提交 → 提示没有分号,

   

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


  共有4410人关注过本帖平板打印复制链接

主题:提示没有分号,

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


加好友 发短信
等级:金字塔养老院 帖子:509 积分:2425 威望:0 精华:0 注册:2012/3/2 12:50:05
  发帖心情 Post By:2012/5/16 14:33:25 [只看该作者]

倒数第11行,begin后不能紧跟sell,then前要加上空格

 

INPUT:M(26,5,300,30),P1(5,1,100,10),P2(10,1,100,10),P3(20,1,100,10);
INPUT:P(26,20,100,8),S(12,5,40,4),M(9,2,60,6);
DIFF:EMA(CLOSE,S) - EMA(CLOSE,P);
DEA:EMA(DIFF,M);
MACD:2*(DIFF-DEA),COLORSTICK;
MID:=(HIGH+LOW+CLOSE)/3;
CR:SUM(MAX(0,HIGH-REF(MID,1)),M)/SUM(MAX(0,REF(MID,1)-L),M)*100;
MA1:REF(MA(CR,P1),P1/2.5+1);
MA2:REF(MA(CR,P2),P2/2.5+1);
MA3:REF(MA(CR,P3),P3/2.5+1);

IF CROSS(DIFF,DEA) AND CR<100 THEN
BEGIN
SELLSHORT(1,0,MARKET);
BUY(1,1,MARKET);
END

{-------------------------------------------------------------------------------------}
IF CROSS(DEA,DIFF) THEN
BEGIN
SELL(1,0,MARKET);
END 
IF CROSS(DEA,DIFF) AND CR>100 THEN
BEGIN
SELL(1,0,MARKET);
BUYSHORT(1,1,MARKET);
END
IF CROSS(DIFF,DEA) THEN
BEGIN
SELLSHORT(1,0,MARKET);
END 

[此贴子已经被作者于2012-5-16 14:36:42编辑过]

 回到顶部