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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 公式模型编写问题提交 → [求助]黄金分割线源代码改写成金字塔代码

   

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

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

主题：[求助]黄金分割线源代码改写成金字塔代码
帅哥哟，离线，有人找我吗？
frank1718
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：42 积分：0 威望：0 精华：0 注册：2013/6/17 14:00:48 		[求助]黄金分割线源代码改写成金字塔代码  发帖心情 Post By：2016/6/25 19:32:58    Post IP：117.81.193.175[显示全部帖子]

请教下各路大神，下面这段代码如何改写成金字塔代码，非常感谢~

if ws1[p]>1 then begin
DRAWSL(ws=wsp[p],hp,0,wsp1[p],3)LINETHICK1 ,POINTDOT,;
DRAWSL(ws=wsp[p],lp,0,wsp1[p],3) LINETHICK1,POINTDOT,;
DRAWSL(ws=wsp[p],lp+hlpx,0,wsp1[p],3)LINETHICK1 ,POINTDOT,;
DRAWSL(ws=wsp[p],lp+hlpx*2,0,wsp1[p],3) LINETHICK1,POINTDOT,,coloraaaaaa;
DRAWNUMBER(ws=wsp[p],hp,hp,2)COLORRED,SHIFT38;
DRAWNUMBER(ws=wsp[p],lp,lp,2)COLORGREEN,SHIFT38;
DRAWNUMBER(ws=wsp[p],lp+hlpx,lp+hlpx,2)COLORYELLOW,SHIFT38;
DRAWNUMBER(ws=wsp[p],lp+hlpx*2,lp+hlpx*2,2)COLORFFFFFF,SHIFT38;
end;
 回到顶部
帅哥哟，离线，有人找我吗？
frank1718
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：42 积分：0 威望：0 精华：0 注册：2013/6/17 14:00:48 		  发帖心情 Post By：2016/7/3 8:50:29    Post IP：117.81.192.248[显示全部帖子]

管理员，这是全部代码。帮忙看看~

 

m:=58;x:=3;p:=SYSPARAM(1);
ws:=BARPOS;ws1:=if(ws<m,ws,m);
wsp:=p-ws1+1;wsp1:=ws1-1;
h1:=hhv(h,ws1);l1:=llv(l,ws1);
hp:=h1[p];lp:=l1[p];hlpx:=(hp-lp)/x;
//VERTLINE(m),LINEDOT,Color0000FF;
//VERTLINE(p),LINEDOT,Color00FB00;
FILLRGN(hp<h1,hp,h1),COLORMAGENTA;
if ws1[p]>1 then begin
DRAWSL(ws=wsp[p],hp,0,wsp1[p],3)LINETHICK1 ,POINTDOT,;
DRAWSL(ws=wsp[p],lp,0,wsp1[p],3) LINETHICK1,POINTDOT,;
DRAWSL(ws=wsp[p],lp+hlpx,0,wsp1[p],3)LINETHICK1 ,POINTDOT,;
DRAWSL(ws=wsp[p],lp+hlpx*2,0,wsp1[p],3) LINETHICK1,POINTDOT,,coloraaaaaa;
DRAWNUMBER(ws=wsp[p],hp,hp,2)COLORRED,SHIFT38;
DRAWNUMBER(ws=wsp[p],lp,lp,2)COLORGREEN,SHIFT38;
DRAWNUMBER(ws=wsp[p],lp+hlpx,lp+hlpx,2)COLORYELLOW,SHIFT38;
DRAWNUMBER(ws=wsp[p],lp+hlpx*2,lp+hlpx*2,2)COLORFFFFFF,SHIFT38;
end;
STICKLINE(CLOSE>=OPEN,HIGH,LOW,0,0),ColorFF;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,8,1),ColorFF;
STICKLINE(CLOSE<OPEN,HIGH,LOW,0,0),ColorCYAN;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,8,0),ColorCYAN;
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.29688 秒, 7 次数据查询