查看完整版本: 请版主高手帮个忙,万分感谢

请版主高手帮个忙,万分感谢

您好:
      现有一事求教,在日K线图画面的右下角有一个  周  K线指标,如何让此(周  K线)指标在日K线副图上显示.谢谢!!

找个周K线指标用在副图就是了
论坛上有

查找了一下有这个指标,但在主图是 日K线 时副图还是无法显示 周K线 (也就是说主图显示 日K线 副图同时显示 周K线)请高手帮助修改一下.谢 谢!!


tj:=(WEEKDAY-REF(WEEKDAY,1)<>DATEDIFF(REF(DATE,1),DATE)) or BARPOS=1;
IF DATACOUNT>1 then for i=1 to DATACOUNT-1 do tj1[i]:=tj[i+1];
tj1[DATACOUNT]:=1;
fc:=CLOSE;fh:=HIGH;fl:=LOW;fo:=OPEN;pos:=0*CLOSE;
for i=1 to DATACOUNT do begin
  IF tj[i] then begin
    hh:=fh[i]; ll:=fl[i]; oo:=fo[i]; p:=i;
  end
  else begin
    fo[i]:=oo;
    hh:=MAX(hh,fh[i]);
    ll:=MIN(ll,fl[i]);
  end;
  IF tj1[i] then begin
    pos[(i+p)/2]:=1;
    IF i>1 then begin
      for j=i downto 1 do begin
        fc[j]:=fc[i]; fh[j]:=hh; fl[j]:=ll;
        IF tj[j] then break;
      end;
    end;
  end;
end;
tj2:=fc>fo;
画柱线(收盘价>=开盘价,收盘价,开盘价,8,1),colorred;
画柱线(收盘价>=开盘价,最高价,收盘价,0.1,1),colorred;
画柱线(收盘价>=开盘价,开盘价,最低价,0.1,1),colorred;
画柱线(收盘价<开盘价,收盘价,开盘价,8,0),colorffff00;
画柱线(收盘价<开盘价,最高价,最低价,0.1,0),colorffff00;
开:fo,COLORGREEN0;
高:fh,COLORGREEN0;
低:fl,COLORGREEN0;
收:fc,COLORGREEN0;

周5均线:IF(tj1,SUM(tj1*CLOSE,SUMBARS(tj1,5))/5,(SUM(tj1*CLOSE,SUMBARS(tj1,5-1))+CLOSE)/5),COLORYELLOW;
周10均线:IF(tj1,SUM(tj1*CLOSE,SUMBARS(tj1,10))/10,(SUM(tj1*CLOSE,SUMBARS(tj1,10-1))+CLOSE)/10),COLORMAGENTA;
周20均线:IF(tj1,SUM(tj1*CLOSE,SUMBARS(tj1,20))/20,(SUM(tj1*CLOSE,SUMBARS(tj1,20-1))+CLOSE)/20),,COLORGREEN;

[[i] 本帖最后由 sdzbzc 于 2008-1-11 13:09 编辑 [/i]]