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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 周K线图上画线

   

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


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

主题:周K线图上画线

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


加好友 发短信
等级:超级版主 帖子:14496 积分:0 威望:0 精华:0 注册:2017/7/4 13:40:18
  发帖心情 Post By:2018/1/10 8:50:12    Post IP:180.169.30.6[显示全部帖子]

按照周周期来的话,至多能在15号所在的那个周线上画线,而且如果15号是节假日这种还没办法处理。


命数如织,当如磐石。
 回到顶部
帅哥哟,离线,有人找我吗?
FireScript
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:14496 积分:0 威望:0 精华:0 注册:2017/7/4 13:40:18
  发帖心情 Post By:2018/1/10 14:02:11    Post IP:180.169.30.6[显示全部帖子]

VARIABLE:z:=0;
M:=LMONTH;
D:=LDAY;
cond:ref(M,1)=M and ref(D,1)<15 and D>=15; //判断上一个K月份和当前K月份是否一致,月份需要一致,并且当前K日期大于等于15号上一个K日期小于15号。说明15号包含在当前这个K下面。

if cond then
begin
z:=if(z<3,z+1,0);
VERTLINE(1,0,0,if(z=0,COLORBLUE,if(z=1,COLORRED,if(z=2,COLORYELLOW,COLORGRAY))));//颜色可以自行调整下 我这里只是范例。
end

 

 

 

颜色你自己调整下,我测试就随便弄了几个颜色。

[此贴子已经被作者于2018/1/10 14:04:00编辑过]


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


加好友 发短信
等级:超级版主 帖子:14496 积分:0 威望:0 精华:0 注册:2017/7/4 13:40:18
  发帖心情 Post By:2018/1/10 17:07:52    Post IP:180.169.30.6[显示全部帖子]

之前没注意到。改下代码即可。

 

VARIABLE:z:=0,ct:=0;
M:=LMONTH;
D:=LDAY;
cond:ref(M,1)=M and ref(D,1)<15 and D>=15; //判断上一个K月份和当前K月份需要一致,并且当前K日期大于等于15号上一个K日期小于15号。
if cond then
begin
z:=if(z<3,z+1,0);
end

if cond and z=0 then
begin
ct:=if(ct<3,ct+1,0);
end

VERTLINE(z=0 and cond ,0,0,if(ct=0,COLORBLUE,if(ct=1,COLORRED,if(ct=2,COLORYELLOW,COLORGRAY))));//颜色可以自行调整下 我这里只是范例。


 

 


 



命数如织,当如磐石。
 回到顶部