共5 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：SS2为什么输出不了
1楼
阿枫 发表于：2018/12/1 14:57:02input:N(10,1,999),P(2,1,99),Q(20,1,999);
L1:=2/(P+1),LINETHICK0;
L2:=2/(Q+1),LINETHICK0;
DD:=MD(C,N,L1,L2), Linethick1;
AMA:DD;
T1:=DD>REF(DD,1);
if t1=1 then
begin
t4:=1;
t5:=0;
ss:2;
end
ss2:ss;
2楼
阿枫 发表于：2018/12/1 15:24:49input:N(10,1,999),P(2,1,99),Q(20,1,999);
L1:2/(P+1),LINETHICK0;
L2:2/(Q+1),LINETHICK0;
DD:MD(C,N,L1,L2), Linethick1;
AMA:DD;
T1:=DD>REF(DD,1);
T3:=NOT(T1) AND abs(DD-ref(DD,1))/DD*10000<N;
T2:=NOT(T1 OR T3);
PARTLINE(T1,DD),COLORRED,LINETHICK1;
PARTLINE(T2,DD),COLORGREEN,LINETHICK1;
PARTLINE(T3,DD),COLORBLUE,LINETHICK1;
此主题相关图片如下：66.jpg
此主题相关图片如下：66.jpg上面这段程序输出的图如下：
3楼
阿枫 发表于：2018/12/1 15:30:27我想要的结果是这样的，如前面是红线，那么后面跟着蓝色线显示成红线，如果前面是绿线，后面跟着的蓝线显示成绿线。
就是说红，绿线正常显示，而蓝线由前面的颜色决定（前面是红，蓝色跟着红，前面是绿，蓝色跟着是绿）。
这程序怎么改？谢谢
4楼
FireScript 发表于：2018/12/3 9:17:44 你的意思是原先画的蓝线 现按照前面线的颜色来绘制了？
画线的条件控制修改下试下。
cd1:BARSLAST(T1)>BARSLAST(T2);//判断最近一次是红线还是绿线
PARTLINE(T1 or (T3 and NOT(CD1)),DD),COLORRED,LINETHICK1;
PARTLINE(T2 OR (T3 AND CD1)),DD),COLORGREEN,LINETHICK1;
PARTLINE(T1 or (T3 and NOT(CD1)),DD),COLORRED,LINETHICK1;
PARTLINE(T2 OR (T3 AND CD1)),DD),COLORGREEN,LINETHICK1;
5楼
阿枫 发表于：2018/12/6 0:18:09嗯，不错，正是我要的，多谢！！
共5 条记录, 每页显示 10 条, 页签:
[1]