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


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

   

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

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

主题：麻烦老师帮改一下
帅哥哟，离线，有人找我吗？
mzxg
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：48 积分：0 威望：0 精华：0 注册：2018/12/10 12:36:37 		麻烦老师帮改一下  发帖心情 Post By：2018/12/20 14:10:27    Post IP：219.137.33.174[只看该作者]

麻烦老师帮改成金字塔的
variable:pv[100]=0,pc[100]=0;
hh:=hhv(high,0);
ll:=llv(low,0);
fv:=V/CAPITAL;
fh:=high;
fl:=low;
p:=sysparam(1);
dd:=(hh[p]-ll[p])/99;
for i=p downto 1 do begin
 sh:=(fh-ll[p])/dd+1;
 sl:=(fl-ll[p])/dd+1;
 dj:=fv/(sh-sl+1);
 for j=sl to sh do pv[j]:=pv[j]+dj;
end;
s:=0;
for i=1 to 100 do if s <pv then s:=pv;
bl:=s/(sysparam(3)-sysparam(2))*2;
drawsl(barpos=sysparam(3),sysparam(5),0,pv[1]/bl+1,1),COLORcyan;
drawsl(barpos=sysparam(3),sysparam(5)+dd,0,pv[2]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*02,0,pv[03]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*03,0,pv[04]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*04,0,pv[05]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*05,0,pv[06]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*06,0,pv[07]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*07,0,pv[08]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*08,0,pv[09]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*09,0,pv[10]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*10,0,pv[11]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*11,0,pv[12]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*12,0,pv[13]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*13,0,pv[14]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*14,0,pv[15]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*15,0,pv[16]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*16,0,pv[17]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*17,0,pv[18]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*18,0,pv[19]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*19,0,pv[20]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*20,0,pv[21]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*21,0,pv[22]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*22,0,pv[23]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*23,0,pv[24]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*24,0,pv[25]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*25,0,pv[26]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*26,0,pv[27]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*27,0,pv[28]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*28,0,pv[29]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*29,0,pv[30]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*30,0,pv[31]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*31,0,pv[32]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*32,0,pv[33]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*33,0,pv[34]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*34,0,pv[35]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*35,0,pv[36]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*36,0,pv[37]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*37,0,pv[38]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*38,0,pv[39]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*39,0,pv[40]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*40,0,pv[41]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*41,0,pv[42]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*42,0,pv[43]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*43,0,pv[44]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*44,0,pv[45]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*45,0,pv[46]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*46,0,pv[47]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*47,0,pv[48]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*48,0,pv[49]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*49,0,pv[50]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*50,0,pv[51]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*51,0,pv[52]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*52,0,pv[53]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*53,0,pv[54]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*54,0,pv[55]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*55,0,pv[56]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*56,0,pv[57]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*57,0,pv[58]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*58,0,pv[59]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*59,0,pv[60]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*60,0,pv[61]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*61,0,pv[62]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*62,0,pv[63]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*63,0,pv[64]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*64,0,pv[65]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*65,0,pv[66]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*66,0,pv[67]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*67,0,pv[68]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*68,0,pv[69]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*69,0,pv[70]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*70,0,pv[71]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*71,0,pv[72]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*72,0,pv[73]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*73,0,pv[74]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*74,0,pv[75]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*75,0,pv[76]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*76,0,pv[77]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*77,0,pv[78]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*78,0,pv[79]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*79,0,pv[80]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*80,0,pv[81]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*81,0,pv[82]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*82,0,pv[83]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*83,0,pv[84]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*84,0,pv[85]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*85,0,pv[86]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*86,0,pv[87]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*87,0,pv[88]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*88,0,pv[89]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*89,0,pv[90]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*90,0,pv[91]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*91,0,pv[92]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*92,0,pv[93]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*93,0,pv[94]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*94,0,pv[95]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*95,0,pv[96]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*96,0,pv[97]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*97,0,pv[98]/bl+1,1),COLORCYAN;
drawsl(barpos=sysparam(3),sysparam(5)+dd*98,0,pv[99]/bl+1,1),COLORCYAN;
stickline(c<=o,c,o,8,0),COLORgreen;
stickline(c<=o,h,l,0.1,0),COLORgreen;
stickline(c>=o,c,o,8,1),COLORRED;
stickline(c>=o,c,h,0.1,0),COLORRED;
stickline(c>=o,l,o,0.1,0),COLORRED;

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


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

这代码本身就是金字塔的代码啊。
[此贴子已经被作者于2018/12/21 8:48:48编辑过]

命数如织，当如磐石。
 回到顶部
帅哥哟，离线，有人找我吗？
mzxg
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：48 积分：0 威望：0 精华：0 注册：2018/12/10 12:36:37 		  发帖心情 Post By：2020/3/18 22:00:05    Post IP：183.6.155.144[只看该作者]

这样啊？那能麻烦您帮我写顺来吗，谢谢老师了。

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


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

 这段代码本身能正常编译运行的。什么叫写顺了


命数如织，当如磐石。
 回到顶部
帅哥哟，离线，有人找我吗？
mzxg
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：48 积分：0 威望：0 精华：0 注册：2018/12/10 12:36:37 		  发帖心情 Post By：2020/3/19 13:43:37    Post IP：183.6.155.144[只看该作者]

谢谢您的回复，但是加载之后不能正常显示，都一样长，没有长短峰。

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


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

这个代码具体思路什么的一概不知，造个楼还有个蓝图呢。这样子的我也没办法改啊。


命数如织，当如磐石。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 01.12695 秒, 6 次数据查询