如何编写立二K线？
图中K线是将自上市之日起，每累计涨跌幅超过10%合并为一根K线的图形（在指南针中叫立二K线），请问：
1.        如何编写其中的每根K线所包含的时间周期和换手率？
2.        这种K线如何编写和显示？
谢谢！

本贴由 欣儿 于 2005-8-28 20:35 最后编辑

帮你顶

好学之人

画出来的K线很大呀，象个胖子似的，好难看的，你一定要画吗？
和下面的图差不多的。

本贴由 股市骑兵00 于 2005-3-26 17:30 最后编辑

引用:

Originally posted by 可可 at 2005-3-26 05:37 PM:

干什么在欣赏胖子K线吗。

引用:

Originally posted by 股市骑兵00 at 2005-3-26 05:22 PM:
画出来的K线很大呀，象个胖子似的，好难看的，你一定要画吗？
和下面的图差不多的。

本贴由 股市骑兵00 于 2005-3-26 17:30 最后编辑

我说的是两个问题呀
1.  如何编写其中的每根K线所包含的时间周期和换手率？
2.  这种K线如何编写和显示？

两个问题我都想要啊!:
cool:

zf:=if(BARPOS=1,c/o*100-100,c/ref(c,1)*100-100);
k:=0*c;
for i=1 to DATACOUNT do begin
  k[i]:=k[i-1]+zf[i];
    if k[i]>=10 or k[i]<=-10 then
      k[i]:=0;
end;

zq:BARSLAST(ref(k,1)=0 or BARPOS=1)+1;//周期
换手:sum(v,zq)/FINANCE(7);//换手



画K线要用未来数据了。

引用:

Originally posted by 股市骑兵00 at 2005-3-26 09:01 PM:
zf:=if(BARPOS=1,c/o*100-100,c/ref(c,1)*100-100);
k:=0*c;
for i=1 to DATACOUNT do begin
  k:=k[i-1]+zf;
    if k>=10 or k<=-10 then
      k:=0;
end;

zq:BARSLAST(ref(k,1 ...

你画的K线怪好玩
也请编一下(未来数据无所为)
谢谢!

用3日k先做竟是江恩 三日图了

引用:

Originally posted by bzjz at 2005-3-27 08:03 AM:

你画的K线怪好玩
也请编一下(未来数据无所为)
谢谢!

你好玩了，我可麻烦了，下不为例啊！

复制内容到剪贴板

代码:

zf:=if(BARPOS=1,c/o*100-100,c/ref(c,1)*100-100);
k:=0*c;
for i=1 to DATACOUNT do begin
  k[i]:=k[i-1]+zf[i];
    if k[i]>=10 or k[i]<=-10 then
      k[i]:=0;
end;

zq:=BARSLAST(ref(k,1)=0 or BARPOS=1)+1;
for u=1 to DATACOUNT-1 do
for j=u to DATACOUNT do begin
   if zq[u] and (k[j]=0 or j=DATACOUNT) then begin
    dzq[u]:=j-u;
    break;
  end;
end;
tt:=if(zq=1 and refx(zq,2)=1,13,if(refx(zq,1)=1 or zq=1,7,14));
hlk:=INTPART(refx(zq,dzq)/2)+1=zq;
开盘:ref(o,zq-1),LINETHICK0;
最高:refx(hhv(h,zq),dzq),LINETHICK0;
最低:refx(llv(l,zq),dzq),LINETHICK0;
收盘:refx(c,dzq),LINETHICK0;
涨幅:refx(if(k=0,ref(k,1)+zf,k),dzq),LINETHICK0;
换手:refx(sum(v,zq)/FINANCE(7),dzq),LINETHICK0;
STICKLINE(收盘>开盘,收盘,开盘,tt,0),COLORWHITE;
STICKLINE(收盘>开盘 and hlk,最高,最低,3,0),COLORWHITE;
STICKLINE(收盘<开盘,收盘,开盘,tt,0),COLORCCCC00;
STICKLINE(收盘<开盘 and hlk,最高,最低,3,0),COLORCCCC00;

STICKLINE(c>=o,c,o,7,0),COLOR0066FF;
STICKLINE(c>=o,h,l,0.1,0),COLOR0066FF;
STICKLINE(c<o,c,o,7,0),COLORBLUE;
STICKLINE(c<o,h,l,0.1,0),COLORBLUE;

引用:

Originally posted by 股市骑兵00 at 2005-3-27 11:52 AM:


你好玩了，我可麻烦了，下不为例啊！

[code]
zf:=if(BARPOS=1,c/o*100-100,c/ref(c,1)*100-100);
k:=0*c;
for i=1 to DATACOUNT do begin
  k:=k[i-1]+zf;
    if k>=10 or k<=-10  ...

麻烦你了
多谢!

股市骑兵你好！
你编的程序很好，但下面的问题我不甚理解（也是没编出公式的原因）：

1.        你编的程序中，k应该是历史（今天i以前的）涨跌幅吧，不然的话，它既不能和涨跌幅相加，也不能最终作为  >=10 or <=-10  的判据。
2.        如果说上面说的是对的话，我最不理解的是变量  k:=0*c;  一句了。这样的k怎么能是涨跌幅呢？在  k:=0*c;  中k[0]，k[1]，k[2]，k[3]…各等于什么？
3.        如果就认为k是历史涨跌幅，在   k[i]:=k[i-1]+zf[i];  中当i=1时，k[1]:=k[0]+zf[1];  那么k[0]=？？？

盼望您的解惑，并深表感谢！

引用:

Originally posted by 股市骑兵00 at 2005-3-26 18:06:


干什么在欣赏胖子K线吗。

是啊，你不知道啊，我最喜欢胖子了，哈！～

引用:

Originally posted by 可可 at 2005-3-27 06:14 PM:


是啊，你不知道啊，我最喜欢胖子了，哈！～

zf:=if(BARPOS=1,c/o*100-100,c/ref(c,1)*100-100);
k:=0*c;
for i=1 to DATACOUNT do begin
  k[i]:=k[i-1]+zf[i];
    if k[i]>=10 or k[i]<=-10 then
      k[i]:=0;
end;

zq:=BARSLAST(ref(k,1)=0 or BARPOS=1)+1;
for u=1 to DATACOUNT-1 do
for j=u to DATACOUNT do begin
   if zq[u] and (k[j]=0 or j=DATACOUNT) then begin
    dzq[u]:=j-u;
    break;
  end;
end;
tt:=if(zq=1 and refx(zq,2)=1,13,if(refx(zq,1)=1 or zq=1,7,14));
hlk:=INTPART(refx(zq,dzq)/2)+1=zq;
开盘:ref(o,zq-1),LINETHICK0;
最高:refx(hhv(h,zq),dzq),LINETHICK0;
最低:refx(llv(l,zq),dzq),LINETHICK0;
收盘:refx(c,dzq),LINETHICK0;
涨幅:refx(if(k=0,ref(k,1)+zf,k),dzq),LINETHICK0;
换手:refx(sum(v,zq)/FINANCE(7),dzq),LINETHICK0;
STICKLINE(收盘>开盘,收盘,开盘,tt,0),COLORWHITE;
STICKLINE(收盘>开盘 and hlk,最高,最低,3,0),COLORWHITE;
STICKLINE(收盘<开盘,收盘,开盘,tt,0),COLORCCCC00;
STICKLINE(收盘<开盘 and hlk,最高,最低,3,0),COLORCCCC00;

STICKLINE(c>=o,c,o,7,0),COLOR0066FF;
STICKLINE(c>=o,h,l,0.1,0),COLOR0066FF;
STICKLINE(c<o,c,o,7,0),COLORBLUE;
STICKLINE(c<o,h,l,0.1,0),COLORBLUE;

我说涨它就涨，我说跌它就跌，它不涨我也说它涨

:o

看帖学习，顶帖拿分!!!!!!!

引用:

Originally posted by bzjz at 2005-3-27 06:04 PM:
股市骑兵你好！
你编的程序很好，但下面的问题我不甚理解（也是没编出公式的原因）：

1.        你编的程序中，k应该是历史（今天i以前的）涨跌幅吧，不然的话，它既不能和涨跌幅相加，也不能最终作为  >=10 or & ...

你问的问题比编公式还难呢，只好试着回答一下了。
1。k是历史涨跌幅，到了满足条件时自动清0了。
2。k:=0*c;初始变量声明，定义K为序列变量。
3。那么k[0]=？？？没这个数，就等于0。

你可参考楼顶南客老师的学习贴，我也是那里学来的。

引用:

Originally posted by 可可 at 2005-3-27 06:14 PM:


是啊，你不知道啊，我最喜欢胖子了，哈！～

哦，怪不的你老和大肚那胖子在一起呢！:p

引用:

Originally posted by 清风斜阳 at 2005-3-27 06:42 PM:
zf:=if(BARPOS=1,c/o*100-100,c/ref(c,1)*100-100);
k:=0*c;
for i=1 to DATACOUNT do begin
  k:=k[i-1]+zf;
    if k>=10 or k<=-10 then
      k:=0;
end;

zq:=BARSLAST(ref(k, ...

干什么你是胖子吗？还是冒充的！:)

引用:

Originally posted by 股市骑兵00 at 2005-3-27 11:52 AM:


你好玩了，我可麻烦了，下不为例啊！

[code]
zf:=if(BARPOS=1,c/o*100-100,c/ref(c,1)*100-100);
k:=0*c;
for i=1 to DATACOUNT do begin
  k:=k[i-1]+zf;
    if k>=10 or k<=-10  ...

如何把式中里的（if k>=10 or k<=-10 then）
参数限制在 9.5-10.5 或 -9.5--10.5。

学习

xuexi