안녕하세요 예스스탁입니다. 지표속성화면에서 plot1의 그래프모양을 원하시는 모양으로 변경하시기 바랍니다. input : RSIP(10),Indep(C), Dep(H), Length(20); var : AvgX(0),AvgY(0),SumDySqr(0),SumDxDy(0),SumDxSqr(0),Dy(0),Dx(0),R(0),CoefficientR(0),rsq(0),RSIv(0); CoefficientR = -2 ; if Length > 0 then begin AvgX = 0 ; AvgY = 0 ; for Value1 = 0 to Length - 1 begin AvgX = AvgX + Indep[Value1] ; AvgY = AvgY + Dep[Value1] ; end ; AvgX = AvgX / Length ; AvgY = AvgY / Length ; SumDxSqr = 0 ; SumDySqr = 0 ; SumDxDy = 0 ; for Value1 = 0 to Length - 1 begin Dx = Indep[Value1] - AvgX ; Dy = Dep[Value1] - AvgY ; SumDxSqr = SumDxSqr + Square( Dx ) ; SumDySqr = SumDySqr + Square( Dy ) ; SumDxDy = SumDxDy + Dx * Dy ; end ; Value2 = SumDxSqr * SumDySqr ; if Value2 > 0 then begin R = SumDxDy / SquareRoot( Value2 ) ; if R >= -1 and R <= 1 then CoefficientR = R ; end ; end ; rsq = Square(CoefficientR); RSIv = RSI(RSIP); if RSIv > RSIv[1] AND rsq > rsq[1] Then PLOT1(RSIv,"1",RED); if RSIv < RSIv[1] AND rsq < rsq[1] Then PLOT1(RSIv,"1",blue); plot2(RSIV); 즐거운 하루되세요 > wim 님이 쓴 글입니다. > 제목 : 안녕하세요. 수고가 많으십니다. > 안녕하세요. 수고가 많으십니다^^ 항상 친절하게 알려주셔서 너무 감사드립니다. 이번에 제가 여쭈어 보고 싶은것은 RSI가 1봉 연속 상승, R-Squared가 1봉 연속 상승이 동시에 이루어 졌을 때 지표상에서 빨강네모가 생성되고 상승이 지속되면 계속 빨강네모가 생기다가 상승이 끝나면 빨강네모가 더 이상 생기지 않고... RSI가 연속 하락, R-Squared가 연속하락하면 파란네모가 생성되는 지표를 어떻게 만들어야 할지 몰라 이렇게 글을 올립니다. 감사합니다.

안녕하세요^^ 답변 너무 감사드립니다 ^^ 차트에 적용시켜보니 빨강/파랑네모가 위 아래 막 높낮이가 다 다른데 혹시 생성되는 빨간/파란박스나 직선으로 일정하게 생성되게 할 수도 있습니까? 또 궁금한것은 같은 방식으로 macd(12,26) cci(14)가 동시에 1봉 연속 상승할 때 빨강 / 반대로 동시에 1봉 연속 하락할 때 파랑으로 지표 standard deviation / atr / linear regression slope / 동시에 1봉 연속 상승할 때 red , 반대로 동시에 1봉 연속 하락할 때 blue 이렇게 두가지 지표 부탁드리겠습니다. 즐거운 주말보내세요. 감사합니다!

안녕하세요 예스스탁입니다. 1. 직선으로 보시고자 하시면 특정값으로 고정하시면 됩니다 수정한 식입니다. input : RSIP(10),Indep(C), Dep(H), Length(20); var : AvgX(0),AvgY(0),SumDySqr(0),SumDxDy(0),SumDxSqr(0),Dy(0),Dx(0),R(0),CoefficientR(0),rsq(0),RSIv(0); CoefficientR = -2 ; if Length > 0 then begin AvgX = 0 ; AvgY = 0 ; for Value1 = 0 to Length - 1 begin AvgX = AvgX + Indep[Value1] ; AvgY = AvgY + Dep[Value1] ; end ; AvgX = AvgX / Length ; AvgY = AvgY / Length ; SumDxSqr = 0 ; SumDySqr = 0 ; SumDxDy = 0 ; for Value1 = 0 to Length - 1 begin Dx = Indep[Value1] - AvgX ; Dy = Dep[Value1] - AvgY ; SumDxSqr = SumDxSqr + Square( Dx ) ; SumDySqr = SumDySqr + Square( Dy ) ; SumDxDy = SumDxDy + Dx * Dy ; end ; Value2 = SumDxSqr * SumDySqr ; if Value2 > 0 then begin R = SumDxDy / SquareRoot( Value2 ) ; if R >= -1 and R <= 1 then CoefficientR = R ; end ; end ; rsq = Square(CoefficientR); RSIv = RSI(RSIP); if RSIv > RSIv[1] AND rsq > rsq[1] Then PLOT1(1,"1",RED); if RSIv < RSIv[1] AND rsq < rsq[1] Then PLOT1(1,"1",blue); 2. Input : MACDP1(12),MACDP2(26),CCIP(10); var1 = MACD(MACDP1,MACDP2); var2 = CCI(CCIP); if var1 > var1[1] AND var2 > var2[1] Then PLOT1(1,"1",RED); if var1 < var1[1] AND var2 < var2[1] Then PLOT1(1,"1",blue); 3. input : STDP(10),STRP(10),LRSP(10); var1 = STD(C,STDP); var2 = ATR(STRP); var3 = LRS(c,LRSP); if var1 > var1[1] AND var2 > var2[1] and var3 > var3[1] Then PLOT1(1,"1",RED); if var1 < var1[1] AND var2 < var2[1] and var3 < var3[1] Then PLOT1(1,"1",blue); 즐거운 하루되세요 > wim 님이 쓴 글입니다. > 제목 : Re : Re : 안녕하세요. 수고가 많으십니다. > 안녕하세요^^ 답변 너무 감사드립니다 ^^ 차트에 적용시켜보니 빨강/파랑네모가 위 아래 막 높낮이가 다 다른데 혹시 생성되는 빨간/파란박스나 직선으로 일정하게 생성되게 할 수도 있습니까? 또 궁금한것은 같은 방식으로 macd(12,26) cci(14)가 동시에 1봉 연속 상승할 때 빨강 / 반대로 동시에 1봉 연속 하락할 때 파랑으로 지표 standard deviation / atr / linear regression slope / 동시에 1봉 연속 상승할 때 red , 반대로 동시에 1봉 연속 하락할 때 blue 이렇게 두가지 지표 부탁드리겠습니다. 즐거운 주말보내세요. 감사합니다!