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


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

   

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

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

主题：请老师帮我改为金字塔
帅哥哟，离线，有人找我吗？
marbob2005
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：72 积分：275 威望：0 精华：0 注册：2013/1/21 17:03:06 		请老师帮我改为金字塔  发帖心情 Post By：2013/2/4 10:52:44    Post IP：122.246.232.169[只看该作者]

N:=BARSLAST(DATE<>REF(DATE,1))+5;//当天开盘至今的K线数
Y:=VALUEWHEN(DATE<>REF(DATE,5),O);//当天开盘价
TIME>=1006 &&TIME<=1445&&C>REF(HHV(C,N),1)&&C>Y+Y*0.025,BK;//价格创新高
TIME>=1006&&C<REF(LLV(C,45),1) || C>=BKPRICE+4*(Y*0.01),SP;
TIME=1510,SP;
TIME>=1006 &&TIME<=1445&&C<REF(LLV(C,N),1)&&C<Y-Y*0.045,SK;
TIME>=1006&&C>REF(HHV(C,45),1) || C<=SKPRICE-6*(Y*0.05),BP;
TIME=1510,BP;
AUTOFILTER;

 

请老师帮我改为金字塔 谢谢！

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


加好友 发短信 czt
等级：蜘蛛侠 帖子：1445 积分：6114 威望：0 精华：3 注册：2012/1/16 10:31:19 		  发帖心情 Post By：2013/2/4 13:33:01    Post IP：58.246.57.26[只看该作者]

客服人员正在处理 请稍后

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


加好友 发短信
等级：新手上路 帖子：72 积分：275 威望：0 精华：0 注册：2013/1/21 17:03:06 		谢谢老师  发帖心情 Post By：2013/2/4 16:11:29    Post IP：122.246.232.169[只看该作者]

谢谢老师 辛苦了 ；有结果了吗

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


加好友 发短信
等级：金字塔养老院 帖子：1323 积分：6764 威望：0 精华：0 注册：2011/6/14 17:27:11 		  发帖心情 Post By：2013/2/4 16:46:17    Post IP：58.246.57.26[只看该作者]


N:=BARSLAST(DATE<>REF(DATE,1))+1;//当天开盘至今的K线数
Y:=VALUEWHEN(DATE<>REF(DATE,1),O);//当天开盘价


if  (c<ref(llv(c,45),1) or c>=enterprice+4*(y*0.01)) then 
BEGIN
sellshort(holding<0 and time>=100600,holding,market);
end 

if time>=100600 and time<=144500 and c>ref(hhv(c,n),1) and c>y+y*0.025 then 
begin
buy(holding=0,1,market);
end

if  c>ref(hhv(c,45),1) or c<=enterprice-6*(y*0.05) then 
begin
sell(holding>0 and time>=100600 ,holding,market);
end 

if time>=100600 and time<=144500 and c<ref(llv(c,n),1) and c<y-y*0.45 then 
BEGIN
buyshort(holding=0,1,market);
end 

if time=151000 then BEGIN
sell(holding>0,holding,market);
sellshort(holding<0,holding,market);
end 

仅供参考

金字塔—专业程序化交易量化投资平台

客户服务部

-----------------------------------------------------------

欢迎您参加我公司的技术培训，具体培训需求请发邮件到service@weistock.com

您的宝贵建议或者投诉，请发往邮箱:weiwei@weistock.com
 回到顶部
帅哥哟，离线，有人找我吗？
tjphj
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：金字塔养老院 帖子：42 积分：192 威望：0 精华：0 注册：2012/11/5 13:26:47 		  发帖心情 Post By：2013/2/4 16:56:02    Post IP：58.246.57.26[只看该作者]

N:=TODAYBAR;//当天开盘至今的K线数
Y:=VALUEWHEN(DATE<>REF(DATE,1),O);//;//当天开盘价
A1:=TIME>=100600 AND TIME<=144500 AND C>REF(HHV(C,N),1) AND C>Y+Y*0.025;//开多条件
A2:=TIME>=100600 AND C<REF(LLV(C,45),1);//平多条件之一
A3:=C>=ENTERPRICE+4*(Y*0.01);//平多条件之二
B1:=TIME>=100600 AND TIME<=144500 AND C<REF(LLV(C,N),1) AND C<Y-Y*0.045;//开空条件
B2:=TIME>=100600 AND C>REF(HHV(C,45),1);
B3:=C<=ENTERPRICE-6*(Y*0.05);
IF B2=1 OR B3=1 THEN SELLSHORT(1,0,THISCLOSE);//平空
IF A1=1 THEN  BUY(1,1,THISCLOSE);//开多
IF A2=1 OR A3=1 THEN SELL(1,0,THISCLOSE);//平多
IF B1=1 THEN BUYSHORT(1,1,THISCLOSE);//开空
IF TIME=151000  THEN BEGIN //收盘前平仓
SELL(HOLDING>0,0,THISCLOSE);
SELLSHORT(HOLDING>0,0,THISCLOSE);
END

 


金字塔—专业程序化软件提供商

客户服务部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30   周末及法定节假日休息

Email:service@weistock.com
 回到顶部
帅哥哟，离线，有人找我吗？
marbob2005
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：72 积分：275 威望：0 精华：0 注册：2013/1/21 17:03:06 		谢谢老师们！  发帖心情 Post By：2013/2/4 21:44:11    Post IP：122.246.232.169[只看该作者]

谢谢老师们！辛苦了！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.26563 秒, 6 次数据查询