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


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

   

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

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

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


加好友 发短信
等级：新手上路 帖子：6 积分：0 威望：0 精华：0 注册：2018/10/23 10:50:05 		老师帮忙改成金字塔  发帖心情 Post By：2018/10/26 16:34:36    Post IP：14.106.99.179[只看该作者]

VARIABLE:TIMES1:=0,I:=0,N:=0; 
INB:=179;
OUTB:=105;
RISK:=2;
TR:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
RN:=EMA(REF(TR,1),3); 
N:=VALUEWHEN(BKVOL+SKVOL=0,RN); 
RH:=REF(H,1); 
RL:=REF(L,1); 
H1:=HHV(RH,INB); 
H2:=HHV(RH,OUTB),DOT; 
L1:=LLV(RL,INB); 
L2:=LLV(RL,OUTB),DOT; 
LOTST:=MONEYTOT*RISK*0.01/(N*2*UNIT),NODRAW; 
LOTS:=IF(RISK=0,1,LOTST); 
TBC:=H<>L;
PARTLINE(BKVOL>0,BKPRICE-2*N,COLORRED);
IF  TBC THEN
BEGIN 
IF H>H1 THEN 
BEGIN 
BUYP:=MAX(O,H1); 

BKVOL=0,BK(1);
TIMES1:=1; 
IF H>BKPRICE+N*2.6 AND TIMES1<4 THEN 
BEGIN 
BUYP:=MAX(O,BKPRICE+N*2.6); 
BKVOL>0,BK(1);
TIMES1:=TIMES1+1; 
END
END
IF L<L1 THEN
BEGIN 
SELLP:=MIN(O,L1); 
SKVOL=0,SK(1);
TIMES1:=1; 
IF L<SKPRICE-N*4.9 AND TIMES1<4 THEN 
BEGIN 
SELLP:=MIN(O,SKPRICE-N*4.9); 
SKVOL>0,SK(1);
TIMES1:=TIMES1+1; 
END
END 
END

IF BKVOL>0 AND TBC THEN 
BEGIN 
EXITLONGP:=MAX(BKPRICE-Q*N,L2); 
IF L<EXITLONGP  THEN
BEGIN 
EXITP:=MIN(O,EXITLONGP); 
1,SP(BKVOL);
TIMES1:=0; 
END
END
IF SKVOL>0 AND TBC THEN
BEGIN 
EXITLONGP:=MIN(SKPRICE+2*N,H2); 
IF H>EXITLONGP THEN
BEGIN 
EXITP:=MAX(O,EXITLONGP); 
1,BP(SKVOL);
TIMES1:=0; 
END
END
 回到顶部
帅哥哟，离线，有人找我吗？
wenarm
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：26631 积分：0 威望：0 精华：7 注册：2015/4/9 14:59:07 		  发帖心情 Post By：2018/10/26 17:54:25    Post IP：180.169.30.6[只看该作者]

之前帮您处理过多个同类型的转换。建议你自己尝试转换。若转换过程中遇到具体问题在询问我们。这样才能有助于快速掌握金字塔的pel特性。

 

编程无捷径，技巧靠积累。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 00.15894 秒, 6 次数据查询