안녕하세요 예스스탁입니다. 1 좌측은 첨부된 그림과 같이 수직선이 표시되고 있습니다. 2 그림 우측에 지정하신 봉들은 조건에 충족되지 않습니다. 파라볼릭선을 차트 하단으로 내려 색상을 확인해 보시기 바랍니다. 첨부된 그림과 같이 한개봉에서 색상 변동이 있어 지정한 전고점이 직전고점이 아닙니다. 간혹 한봉으로 추세가 변경이 될때 박스가 출력이 안될수 있습니다. 박스는 시작과 끝이 날짜는 같아도 시간은 달라야 하는데 틱봉에서 현재봉 stime과 다음봉 stime이 같을 수 있습니다. 이렇게 같게 되면 시작점과 끝점의 날짜 시간이 같아 박스 표시가 되지 못합니다. 3 plot1(var1, "CSAR",IFF(c>var1,Red,Blue)); var1 = CSar(af,maxAF); 올리신 수식에서 파라볼릭 지표가 위와 같이 지정되어 있는데 plot1을 먼저하고 이후에 var1에 파라볼릭 값을 저장하면 현재봉에 그려지는 것은 전봉값입니다. var1 = CSar(af,maxAF); plot1(var1, "CSAR",IFF(c>var1,Red,Blue)); plot1이 아래와 와야 현재봉값을 현재봉에 그리게 됩니다. 단순 plot과 관계된 내용으로 다른 내용과는 관계없습니다. 즐거운 하루되세요 > 고성 님이 쓴 글입니다. > 제목 : 파라볼릭 세로선 > Input : af(0.02), maxAF(0.2); var : T(0),B(0),S(0),tx(0),HH(0),LL(0),box(0),B1(0),S1(0),H1(0),L1(0),TL(0); var : Z(0),dd(0),tt(0); plot1(var1, "CSAR",IFF(c>var1,Red,Blue)); var1 = CSar(af,maxAF); if CrossUp(C,var1) Then { T = 1; B = var1; B1 = B[1]; HH = H; H1 = HH[1]; dd = sDate; tt = sTime; if abs(S-LL) < 0.9 Then Text_Delete(tx); tx = Text_New(sDate,sTime,HH,NumToStr(abs(HH-B),2)); Text_SetColor(tx,Red); Text_SetSize(tx,25); Text_SetStyle(tx,1,1); Text_SetBold(tx,1); box = Box_New(sDate,sTime,B,NextBarSdate,NextBarStime,HH); Condition1 = False; } if CrossDown(C,var1) Then { T = -1; S = var1; S1 = S[1]; LL = L; L1 = LL[1]; dd = sDate; tt = sTime; if abs(B-HH) < 0.9 Then Text_Delete(tx); tx = Text_New(sDate,sTime,LL,NumToStr(abs(LL-S),2)); Text_SetColor(tx,Blue); Text_SetSize(tx,25); Text_SetStyle(tx,1,0); Text_SetBold(tx,1); box = Box_New(sDate,sTime,S,NextBarSdate,NextBarStime,LL); Condition1 = False; } if T == 1 Then { if var1 < B Then { B = var1; box_SetBegin(box,dd,tt,S); } if H > HH Then HH = H; Text_SetString(tx,NumToStr(abs(HH-B),2)); Text_SetLocation(tx,sDate,sTime,HH); Box_SetEnd(box,NextBarSdate,NextBarStime,hh); if HH < B+0.6 Then { Box_SetColor(box,Orange); Box_SetFill(box,true,90); } Else if HH >= B+0.6 and HH < B+0.8 Then { Box_SetColor(box,Gray); Box_SetFill(box,true,80); } Else if HH >= B+0.8 and HH < B+1.3 Then { Box_SetColor(box,Magenta); Box_SetFill(box,true,60); } Else if HH >= B+1.3 and HH < B+1.9 Then { Box_SetColor(box,Gray); Box_SetFill(box,true,60); } Else { Box_SetColor(box,Pink); Box_SetFill(box,true,90); } if B1 > 0 and B > B1 and H > H1 and Condition1 == False Then { Condition1 = true; TL =TL_New(sDate,sTime,0,sDate,sTime,999); TL_SetColor(TL,Lime); TL_SetSize(TL,2); } } if T == -1 Then { if var1 > S Then { S = var1; box_SetBegin(box,dd,tt,S); } if L < LL Then LL = L; Text_SetString(tx,NumToStr(abs(LL-S),2)); Text_SetLocation(tx,sDate,sTime,LL); Box_SetEnd(box,NextBarSdate,NextBarStime,LL); if LL > S-0.6 Then { Box_SetColor(box,Cyan); Box_SetFill(box,true,150); } Else if LL <= S-0.6 and ll > S-0.9 Then { Box_SetColor(box,Yellow); Box_SetFill(box,true,150); } Else if LL <= S-0.9 and ll > S-1.3 Then { Box_SetColor(box,Lime); Box_SetFill(box,true,120); } Else if LL <= S-1.3 and ll > S-1.6 Then { Box_SetColor(box,Cyan); Box_SetFill(box,true,90); } Else if LL <= S-1.6 and ll > S-1.9 Then { Box_SetColor(box,Blue); Box_SetFill(box,true,30); } Else { Box_SetColor(box,Yellow); Box_SetFill(box,true,120); } if S1 > 0 and S < S1 and L < L1 and Condition1 == False Then { Condition1 = true; TL =TL_New(sDate,sTime,0,sDate,sTime,999); TL_SetColor(TL,Gold); TL_SetSize(TL,3); } } 그림만 박스 수정전 수식인데,박스 오류와 비슷하게 2파 세로선도 간혹 누락됩니다. 검토 부탁드립니다. (선물 80틱)