股友量 发表于 2021-12-24 19:48

指标编写问答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,设一条“超卖线”,价格进入80%——100%之间。
       3,设一条“超买线”,价格进入20%——0%之间。
       4,设一条“中轴线”。 
   答(了无痕):
       是这样吧........
       {W%RN=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:=今小前;
      TX:P1=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,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;



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:=hsl;
   cyc3:=mid;
   dd:=mid*(barpos<100);
   for i=lbound(hsl)+1 to datacount do begin
      ljhs3:=ljhs3*(1-hsl)*(34-1)/34+hsl;
      cyc3:(mid*hsl+cyc3*ljhs3*(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:=hsl;
         cyc3:=mid;
         dd:=mid*(barpos<2);
         for i=2 to datacount do begin
         ljhs3:=ljhs3*(1-hsl)*(34-1)/34+hsl;
         cyc3:(mid*hsl+cyc3*ljhs3*(1-hsl)*(34-1)/34)/ljhs3+d;
         end;

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

李寒 发表于 2021-12-24 20:26

:):):):):):)

曲径通幽1 发表于 2021-12-24 20:32

谢谢分享辛苦了

小牛快跑 发表于 2021-12-24 23:34


谢谢楼主分享!
页: [1]
查看完整版本: 指标编写问答9学习的宝藏