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

股友量

41.问:
      如果是每20天的最低点，该怎样表示呢？
   答(知无不言):
      t:=not(MOD(BARPOS,20));
      t1:=BARSLAST(t)+1;
      llv(l,t1)PRECISION2;
      VERTLINE(t);

42.问:
      重心:SUM(AMOUNT,1)*0.01/SUM(VOL,1),LINETHICK0,colorwhite;
      a:=backset(islastbar,1);
      关注STICKLINE(a>0,重心,重心,8,1),colormagenta,SHIFT1;
        请帮助在关注的这根K线上方写上字和显示数值.并可以随光标显示左边每根K线的数值.
   答(知无不言):
        是否如此？
        重心:SUM(AMOUNT,1)*0.01/SUM(VOL,1),LINETHICK0,colorwhite;
        a:=backset(islastbar,1);
        STICKLINE(a>0,重心,重心,8,1),colormagenta,SHIFT1;
        关注:SYSPARAM(1)LINETHICK0;
        DRAWNUMBER(a>0,重心*1.01,关注,2)align1,SHIFT1;
        DRAWTEXT(a>0,重心*1.02,'关注')align1,SHIFT1;

43.问:
      如何才能让分析家网络版能出现换手率呢？
   答(知无不言):
      上传“分析家财务数据压缩包”
      在工具——数据管理——财务数据 里引入就可以了。
      以后可到( www.fxj.com.cn )中下载更新财务数据

44.问:
      均线经过一段时间下跌后,趋势开始走平,公式该怎样写???/
       MA30=ref(ma30,1)  这个可能性极少,
       MA30<REF(MA30,1)*1.001   这个出现又太多,
      想了很久,还没想出,
   答(大庆老杨):
       MA30>=REF(MA30,1)*0.99 AND MA30<=REF(MA30,1)*1.02;
   答(知无不言):
       INPUT:n(30,1,100);
       ma30<ref(ma30,n)and ma30>ref(ma30,1) and ref(ma30,1)<ref(ma30,2);

45.问:
      上式我想再写一句 "价跌月线平,底部已探明"
   答(知无不言):
      “均线经过一段时间下跌后,趋势开始走平”与"价跌月线平,底部已探明" 是两个不同的条件。
       INPUT:n(30,1,100);
       ma30<ref(ma30,n)and ma30>ref(ma30,1) and ref(ma30,1)<ref(ma30,2);
       是满足“均线经过一段时间下跌后,趋势开始走平”的条件。

46.问:
      写一飞狐指标W%R
       1，  W%R介于0-100%之间
       2，设一条“超卖线”，价格进入８０％——１００％之间。
       3，设一条“超买线”，价格进入２０％——０％之间。
       4，设一条“中轴线”。　
   答(了无痕):
       是这样吧........
       {W%R  N=14}
       趋势线:100*(HHV(HIGH,N)-CLOSE)/(HHV(HIGH,N)-LLV(LOW,N));
       超买线:20,COLORGREEN;
       超卖线:80,COLORRED;
       中轴线:50,COLORGRAY
    答(股市浪子):
       INPUT:N1(10,2,200),N2(20,5,200),N3(30,10,200);
       WR1:-100*(HHV(HIGH,N1)-CLOSE)/(HHV(HIGH,N1)-LLV(LOW,N1));
       WR2:-100*(HHV(HIGH,N2)-CLOSE)/(HHV(HIGH,N2)-LLV(LOW,N2));
       WR3:-100*(HHV(HIGH,N3)-CLOSE)/(HHV(HIGH,N3)-LLV(LOW,N3));
       超买线:-20,LINEDOT,COLOR669900;
       超卖线:-80,LINEDOT,COLOR003399;
       中轴线:-50,LINEDOT,COLORGRAY;
    答(吴畅):
       比较一下操盘手软件龙腾四海.
        N=8
       龙腾四海:100-100*(HHV(HIGH,5*N)-CLOSE)/(HHV(HIGH,5*N)-LLV(LOW,5*N));
       天际线:80,COLORRED,POINTDOT;
       天海线:50,COLORYELLOW,POINTDOT;
       海面线:20,COLORGREEN,POINTDOT;

47.问:
      F:=100*(C-REF(C,1))/REF(C,1);
      今小昨:=IF(C<REF(O,1) AND F<0,1,0);
      P1:=今小昨;
      今小前:=IF(C<REF(O,2) AND F<0,1,0);
      P2:=今小前;
      P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1;
      当这P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1;条件成立
      然后明天收阳不。收阳就关注不收阳就不关注！怎么写啊？
   答(了无痕):
      看看是否符合要求？........

      F:=100*(C-REF(C,1))/REF(C,1);
      今小昨:=IF(C<REF(O,1) AND F<0,1,0);
      P1:=今小昨;
      今小前:=IF(C<REF(O,2) AND F<0,1,0);
      P2:=今小前;
      TX1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1;
      今日收阳BARSLAST(TX)=1 AND C>O)*1.5,LINETHICK2,colorred;

48.问:
      包括非交易日在内（即停牌日），10日线怎么写
   答(骑兵00):
      INPUT:N(10);
      rq:=date;
      for i=n to datacount do begin
        for j=i downto 1 do begin
         x:=i-j;
       if datediff(rq[j],rq)>=n then
      break;
      end;
     end;
      自然日:datediff(ref(rq,x),rq),LINETHICK0;
      交易日:x+1,LINETHICK0;
      均线:ma(c,交易日);

49.问:
    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]

50.问:
     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;

   答(馨芸):
       可以这样代入原公式
       mid:=( "1a0001$open"+"1a0001$CLOSE")/2; {均价}
       vola:= "1a0001$vol";
       VOL - - - >vola
         但是指数无capital值,所这公式无法适用于指数
    答(懒汉):
         这样或许好些
        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+d;
         end;

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

李寒

曲径通幽1

谢谢分享辛苦了

小牛快跑

谢谢楼主分享！