公式编写1000问48-50

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,交易日); QUOTE: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; CODE:[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[i]:=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[i]:=ljhs3[i-1](1-hsl[i])(34-1)/34+hsl[i]; cyc3[i]:(mid[i]hsl[i]+cyc3[i-1]ljhs3[i-1](1-hsl[i])(34-1)/34)/ljhs3[i]+dd[i]; 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[i]:=0; end; ljhs3[1]:=hsl[1]; cyc3[1]:=mid[1]; dd:=mid[1](barpos<2); for i=2 to datacount do begin ljhs3[i]:=ljhs3[i-1](1-hsl[i])(34-1)/34+hsl[i]; cyc3[i]:(mid[i]hsl[i]+cyc3[i-1]ljhs3[i-1](1-hsl[i])(34-1)/34)/ljhs3[i]+d[i]; end; 另建公式 STKINDI(‘1A0001’,‘cyc.cyc3’,0,6);