指标编写问答10 学习的宝藏

股友量

51.问:
      编一个上一次（p〉0）的Ｓ值的值指标,KDJ上一次K>0或上穿0,的K值
   答(懒汉):
      ref(s,barslast(p>0));

52.问:
      那位有“即时图上同时有大盘和个股的曲线”？
   答(股市浪子):
      如果是飞狐，在分时图上按“/”号就有了。

53.问:
      LC := REF(CLOSE,1);
      RSI3:=SMA(MAX(CLOSE-LC,0),24,1)/SMA(ABS(CLOSE-LC),24,1)*2.5;
      (FILLRGN(rsi3<1.25,rsi3,1.25)),colorblue;
      (FILLRGN(rsi3>=1.25,rsi3,1.25)),colorred;
       请帮助改成柱状和线显示.柱状的颜色可以自己定义的.
   答(lhl311):
      LC := REF(CLOSE,1);
      RSI1:SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*2.5;
      RSI2:SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*2.5;
      RSI3:SMA(MAX(CLOSE-LC,0),24,1)/SMA(ABS(CLOSE-LC),24,1)*2.5;
      (FILLRGN(rsi3<1.25,rsi3,1.25)),colorblue;
      (FILLRGN(rsi3>=1.25,rsi3,1.25)),colorred;

      STICKLINE(rsi3<1.25,rsi3,1.25,8,0),color00ff00;
      STICKLINE(rsi3>1.25,rsi3,1.25,8,0),colorff00ff;

[Copy to clipboard]

54.问:
      mid:=(open+Close)/2; {均价}
      hsl:=if(capital=0,VOL/sum(VOL,100),VOL/capital);{换手率}
      if capital=0 then begin
       hsl:=VOL/sum(VOL,100);
       a:=setlbound(hsl,1);
       for i=1 to min(100-1,datacount) do hsl:=0;
      end;
      ljhs3[1]:=hsl[1];
      cyc3[1]:=mid[1];
      dd:=mid[1]*(barpos<100);
      for i=lbound(hsl)+1 to datacount do begin
        ljhs3:=ljhs3[i-1]*(1-hsl)*(34-1)/34+hsl;
        cyc3mid*hsl+cyc3[i-1]*ljhs3[i-1]*(1-hsl)*(34-1)/34)/ljhs3+dd;
       end;
     上述为源码，现有大盘指数1a0001，如何编个指标，能在查看任何个股时在副图显示  大盘指数的 cyc值？
    答(懒汉):
       这样或许好些
       mid:=(o+C)/2; {均价}
       t:=if(BARPOS<100,BARPOS,100);
       hsl:=if(capital=0,V/sum(V,t),V/capital);{换手率}
       if capital=0 then begin
         hsl:=V/sum(V,t);
         for i=1 to min(100-1,SYSPARAM(3)) do hsl:=0;
       end;
       ljhs3[1]:=hsl[1];
       cyc3[1]:=mid[1];
       dd:=mid[1]*(barpos<2);
       for i=2 to datacount do begin
          ljhs3:=ljhs3[i-1]*(1-hsl)*(34-1)/34+hsl;
          cyc3mid*hsl+cyc3[i-1]*ljhs3[i-1]*(1-hsl)*(34-1)/34)/ljhs3+dd;
       end;

       另建公式
       STKINDI('1A0001','cyc.cyc3',0,6);

55.问:
      条件选股：在最近N个交易日内阳线多于阴线的个股。
   答(阿耀):
      COUNT(OPEN<CLOSE,M)/M >= N/100
     参数:m 30/3/300 n 60/10/100
     系统内有,名c-104

libonick

跟老师学习学习

xuzhixiu

想学习！！！！！！！！！！！！