[浏览完整版]
标题：[求助]K线日期划线程序
1楼
止水ldj 发表于：2020/4/7 14:15:00想设计一个日期划线的小指标，不知道哪位大神能援助下，如有意愿，细节再沟通了。
2楼
FireScript 发表于：2020/4/7 14:16:35 你把思路贴上来看看。
3楼
止水ldj 发表于：2020/4/7 14:22:57日线设计思路：1、自然日K线图。2在每个月的阴历日期，初一上划一根竖线，3、每四个月一循环，就是四根不同颜色的线表示，比如，用红、蓝、黑、白，交替顺序显示。4、周线和月线也是这个思路。
4楼
FireScript 发表于：2020/4/7 14:45:31cd:LDAY=1;
ct:=count(cd,0);
x1:=if(mod(ct,4)=0,COLORWHITE,if(mod(ct,4)=1,COLORRED,if(mod(ct,4)=2, COLORBLUE,COLORYELLOW)));
VERTLINE(cd ,0,20000 ,x1);
此主题相关图片如下：temp.png
ct:=count(cd,0);
x1:=if(mod(ct,4)=0,COLORWHITE,if(mod(ct,4)=1,COLORRED,if(mod(ct,4)=2, COLORBLUE,COLORYELLOW)));
VERTLINE(cd ,0,20000 ,x1);
大致效果：
此主题相关图片如下：temp.png5楼
FireScript 发表于：2020/4/7 14:49:54上面代码仅在日线上运行。周期，月线不行。
6楼
止水ldj 发表于：2020/4/7 14:51:08是的，大致是这样的，要不我把详细的思路写个文档，有些细节我要说的更明确些。怎么给你呢？
7楼
止水ldj 发表于：2020/4/7 15:18:43能麻烦再做个周线划线的代码吗？
设计思路：1、在某一个月阴历初一所在的周作为起始点划线。2、第四个月的阴历初一所在的周划第二根线。3、第七个月的阴历初一所在的周划第三根线。4、第十个月的阴历初一所在的周划第四根线。 5、划线颜色也是用红、蓝、黑、白，交替顺序显示。 6、但是可能需要调试，第一根线可能要能够推迟1个月或者2个月划线。 7、闰月也算一个月，不单独处理，也就是每根线后都是三个阴历月份。 这个有点复杂了，能麻烦帮看下吗？ |
8楼
FireScript 发表于：2020/4/7 16:20:24 cd:=ref(LMONTH,1)<>LMONTH,NODRAW;//判断初一位置
ct:=count(cd,0);//统计初一次数
a:=mod(ct-1,3);
x:=(ct=1 and ref(ct,1)<>1) or (a=0 and ref(a,1)<>0);//画线条件
ct2:count(x,0);//统计画线位置次数 来进行颜色区分
x1:=if(mod(ct2,3)=0,COLORWHITE,if(mod(ct2,4)=1,COLORRED,if(mod(ct2,4)=2, COLORBLUE,COLORYELLOW)));
VERTLINE( x,0,20000 ,x1);
ct:=count(cd,0);//统计初一次数
a:=mod(ct-1,3);
x:=(ct=1 and ref(ct,1)<>1) or (a=0 and ref(a,1)<>0);//画线条件
ct2:count(x,0);//统计画线位置次数 来进行颜色区分
x1:=if(mod(ct2,3)=0,COLORWHITE,if(mod(ct2,4)=1,COLORRED,if(mod(ct2,4)=2, COLORBLUE,COLORYELLOW)));
VERTLINE( x,0,20000 ,x1);
此外
“ 6、但是可能需要调试，第一根线可能要能够推迟1个月或者2个月划线。”这个没太懂什么意思。
9楼
止水ldj 发表于：2020/4/7 16:36:01 6、但是可能需要调试，第一根线可能要能够推迟1个月或者2个月划线。”这个没太懂什么意思。
——这句话的意思，就是经过分析，可能是划线错误了，要进行划线修正：我的第一根线要推迟到第二个月初一所在周划第一根线，或者推迟到第三个月的初一所在周划第一根线。如果推迟到第四个月，我就直接使用原来的第二根划线就行了。是这个意思，我说明白了吗？谢谢！
10楼
FireScript 发表于：2020/4/7 16:55:21 就是希望能自行调整第一个画线的位置是吧。