把年收盘价写在日线上。

引用:

王歌 于 2005-1-22 08:09 PM 写道:
把年收盘价写在日线上。

试着写了一个;

复制内容到剪贴板

代码:

w:=barslast(month<ref(month,1));
ws:=barssince(cross(BACKSET(BARSTATUS=2,w+2),0.5));
S:ref(c,ws);
DRAWNUMBER(barpos=datacount-ws[datacount],h*1.05,s,2);

引用:

kjyhao 于 2005-1-22 09:08 PM 写道:
试着写了一个;

w:=barslast(month<ref(month,1));
ws:=barssince(cross(BACKSET(BARSTATUS=2,w+2),0.5));
S:ref(c,ws);
DRAWNUMBER(barpos=datacount-ws[datacount],h*1.05,s,2);
[/code]

谢谢kjyhao！
你可能没看清楚他要是年收盘价，你写的是月了。
我理解为这样，只会用笨办法了！

复制内容到剪贴板

代码:

x:=YEAR<>ref(YEAR,1);
xx:=sum(x,0);
a:=0*c;fc:=c;
FOR I=LBOUND(xx) TO DATACOUNT-1 do
FOR J=I+1 TO  DATACOUNT  do
if xx[i]+1=xx[j] then begin
a[i]:=fc[j-1];
break;
end;
年收:a+(xx=xx[DATACOUNT])*fc[DATACOUNT];

本贴由 股市骑兵00 于 2005-1-22 22:38 最后编辑

收入,整理,谢谢。