안녕하세요 예스스탁입니다. 적색이나 녹색의 면적과 사각형을 같게 한다는 내용이 어떤 내용인지 모르겠습니다. 50이상이나 50이하에서 값을 누적해서 누적값으로 그리게 수정해 드립니다. 박스를 그리기 위해서는 추세선 함수를 이용해야 하는데 추세선 함수가 지표범위 밖으로 나가면 보이지가 않게 됩니다. 그래서 아래식에는 아래식에는 50이상과 50이하에서 누적값이 얼마인지 표시하게 plot2로 추가해 드립니다. 확인후 불필요 하시면 삭제하시기 바랍니다. Input : Period(9); var : RSIV(0),T(0),TL1(0),TL2(0),TL3(0); RSIV = RSI(Period); Plot1(RSIV, "RSI"); PlotBaseLine1(50, "기준선 50"); iF CrossUp(RSIV,50) Then { T = 1; var1 = sDate; Var2 = sTime; Var3 = RSIV-50; TL1 = TL_New_Self(var1,Var2,50,var1,Var2,Var3+50); TL2 = TL_New_Self(var1,Var2,Var3+50,NextBarSdate,NextBarStime,Var3+50); TL3 = TL_New_Self(NextBarSdate,NextBarStime,50,NextBarSdate,NextBarStime,Var3+50); } else iF CrossDown(RSIV,50) Then { T = -1; var1 = sDate; Var2 = sTime; Var3 = 50-RSIV; TL1 = TL_New_Self(var1,Var2,50,var1,Var2,50-Var3); TL2 = TL_New_Self(var1,Var2,50-Var3,NextBarSdate,NextBarStime,50-Var3); TL3 = TL_New_Self(NextBarSdate,NextBarStime,50,NextBarSdate,NextBarStime,50-Var3); } Else { if T == 1 Then { var3 = var3 + (RSIV-50); TL_SetEnd(TL1,var1,Var2,Var3+50); TL_SetBegin(TL2,var1,Var2,Var3+50); TL_SetEnd(TL2,sDate,sTime,Var3+50); TL_SetBegin(TL3,sDate,sTime,50); TL_SetEnd(TL3,sDate,sTime,Var3+50); } if T == -1 Then { Var3 = Var3 + (50-RSIV); TL_SetEnd(TL1,var1,Var2,50-var3); TL_SetBegin(TL2,var1,Var2,50-Var3); TL_SetEnd(TL2,sDate,sTime,50-Var3); TL_SetBegin(TL3,sDate,sTime,50); TL_SetEnd(TL3,sDate,sTime,50-Var3); } } if T == 1 Then Plot2(Var3+50); Else Plot2(50-Var3); 즐거운 하루되세요 > yes 님이 쓴 글입니다. > 제목 : 부탁 드립니다. > 도움에 감사 드립니다. 73349번에서 답변 하신 내용이 의사 전달에 착오가 있어 그림과 같이 재 질문 드립니다. 답변 하신 수식) Input : Period(9); var : RSIV(0),T(0),TL1(0),TL2(0),TL3(0); RSIV = RSI(Period); Plot1(RSIV, "RSI"); PlotBaseLine1(50, "기준선 50"); iF CrossUp(RSIV,50) Then { T = 1; var1 = sDate; Var2 = sTime; Var3 = RSIV; TL1 = TL_New_Self(var1,Var2,50,var1,Var2,Var3); TL2 = TL_New_Self(var1,Var2,Var3,NextBarSdate,NextBarStime,Var3); TL3 = TL_New_Self(NextBarSdate,NextBarStime,50,NextBarSdate,NextBarStime,Var3); } else iF CrossDown(RSIV,50) Then { T = -1; var1 = sDate; Var2 = sTime; Var3 = RSIV; TL1 = TL_New_Self(var1,Var2,50,var1,Var2,Var3); TL2 = TL_New_Self(var1,Var2,Var3,NextBarSdate,NextBarStime,Var3); TL3 = TL_New_Self(NextBarSdate,NextBarStime,50,NextBarSdate,NextBarStime,Var3); } Else { if T == 1 Then { if RSIV > Var3 Then Var3 = RSIV; } if T == -1 Then { if RSIV < Var3 Then Var3 = RSIV; } TL_SetEnd(TL1,var1,Var2,Var3); TL_SetBegin(TL2,var1,Var2,Var3); TL_SetEnd(TL2,sDate,sTime,Var3); TL_SetBegin(TL3,sDate,sTime,50); TL_SetEnd(TL3,sDate,sTime,Var3); }