안녕하세요 예스스탁입니다. 1 Input : AF(0.02), AFMAX(0.2); Var : Direction(0), SAR_Value(Close), AF_Value(.02), HighValue(High), LowValue(Low), EP(0),CSarv(0); var : T(0),cnt(0); Array : hh[10](0),hd[10](0),ht[10](0),Htl[10](0); Array : ll[10](0),ld[10](0),lt[10](0),ltl[10](0); if Index == 0 or (Bdate != Bdate[1]) Then { Direction = 0; SAR_Value = C; AF_Value = 0.02; HighValue = H; LowValue = L; EP = 0; } if EP != 0 Then { if Direction == 1 then { EP = HighValue; SAR_Value = SAR_Value + AF_Value * (EP - SAR_Value); if High > HighValue then { HighValue = High; AF_Value = AF_Value + AF; if AF_Value >= AFMAX then AF_Value = AFMAX; } if Close < SAR_Value then { Direction = -1; SAR_Value = EP; AF_Value = 0; EP = 0; LowValue = low; } } else { EP = LowValue; SAR_Value = SAR_Value + AF_Value * (EP - SAR_Value); if Low < LowValue then { LowValue = Low; AF_Value = AF_Value + Af; if AF_Value >= AFMAX then AF_Value = AFMAX; } if Close > SAR_Value then { Direction = 1; SAR_Value = EP; AF_Value = 0; EP = 0; HighValue = High; } } CSarv = SAR_Value; } else { if SAR_Value != 0 && EP == 0 then { if Direction == 1 then { EP = HighValue; AF_Value = AF; SAR_Value = SAR_Value + AF_Value * (EP - SAR_Value); if High > HighValue then { HighValue = High; AF_Value = AF_Value + AF; if AF_Value >= AFMAX then AF_Value = AFMAX; } } else { EP = LowValue; AF_Value = Af; SAR_Value = SAR_Value + AF_Value * (EP - SAR_Value); if Low < LowValue then { LowValue = Low; AF_Value = AF_Value + AF; if AF_Value >= AFMAX then AF_Value = AFMAX; } } CSarv = SAR_Value; } else { if Direction == 0 then { if Close > Close[1] then Direction = 1; else if Close < Close[1] then Direction = -1; } else { if Direction == 1 then { if Close < Close[1] then { Direction = -1; SAR_Value = HighValue; CSarv = SAR_Value; } } if Direction == -1 then { if Close > Close[1] then { Direction = 1; SAR_Value = LowValue; CSarv = SAR_Value; } } } LowValue = min(Low, LowValue); HighValue = max(High, HighValue); } } if CrossUp(C,CSarv) Then { t = 1; hh[0] = h; hd[0] = sDate; ht[0] = sTime; For cnt = 1 to 9 { hh[cnt] = hh[cnt-1][1]; hd[cnt] = hd[cnt-1][1]; ht[cnt] = ht[cnt-1][1]; htl[cnt] = htl[cnt-1][1]; } if hh[1] > 0 Then { htl[0] = TL_New(hd[1],ht[1],hh[1],hd[0],ht[0],hh[0]); TL_SetColor(htl[0],RED); } TL_Delete(htl[2]); } if CrossDown(C,CSarv) Then { t = -1; ll[0] = l; ld[0] = sDate; lt[0] = sTime; For cnt = 1 to 9 { ll[cnt] = ll[cnt-1][1]; ld[cnt] = ld[cnt-1][1]; lt[cnt] = lt[cnt-1][1]; ltl[cnt] = ltl[cnt-1][1]; } if ll[1] > 0 Then { ltl[0] = TL_New(ld[1],lt[1],ll[1],ld[0],lt[0],ll[0]); TL_SetColor(ltl[0],BLUE); } TL_Delete(ltl[2]); } if t == 1 Then { if hh[0] > 0 and h > hh[0] Then { hh[0] = h; hd[0] = sDate; ht[0] = sTime; TL_SetEnd(htl[0],hd[0],ht[0],hh[0]); } } if t == -1 Then { if ll[0] > 0 and l < ll[0] Then { ll[0] = l; ld[0] = sDate; lt[0] = sTime; TL_SetEnd(ltl[0],ld[0],lt[0],ll[0]); } } Plot1(t,"CSar",IFf(c>CSarv,RED,BLUE)); 2 Input : AF(0.02), AFMAX(0.2); Var : CSarv(0); var : T(0),cnt(0); Array : hh[10](0),hd[10](0),ht[10](0),Htl[10](0); Array : ll[10](0),ld[10](0),lt[10](0),ltl[10](0); CSarv = CSar(af,afmax); if CrossUp(C,CSarv) Then { t = 1; hh[0] = h; hd[0] = sDate; ht[0] = sTime; For cnt = 1 to 9 { hh[cnt] = hh[cnt-1][1]; hd[cnt] = hd[cnt-1][1]; ht[cnt] = ht[cnt-1][1]; htl[cnt] = htl[cnt-1][1]; } if hh[1] > 0 Then { htl[0] = TL_New(hd[1],ht[1],hh[1],hd[0],ht[0],hh[0]); TL_SetColor(htl[0],RED); } TL_Delete(htl[2]); } if CrossDown(C,CSarv) Then { t = -1; ll[0] = l; ld[0] = sDate; lt[0] = sTime; For cnt = 1 to 9 { ll[cnt] = ll[cnt-1][1]; ld[cnt] = ld[cnt-1][1]; lt[cnt] = lt[cnt-1][1]; ltl[cnt] = ltl[cnt-1][1]; } if ll[1] > 0 Then { ltl[0] = TL_New(ld[1],lt[1],ll[1],ld[0],lt[0],ll[0]); TL_SetColor(ltl[0],BLUE); } TL_Delete(ltl[2]); } if t == 1 Then { if hh[0] > 0 and h > hh[0] Then { hh[0] = h; hd[0] = sDate; ht[0] = sTime; TL_SetEnd(htl[0],hd[0],ht[0],hh[0]); } } if t == -1 Then { if ll[0] > 0 and l < ll[0] Then { ll[0] = l; ld[0] = sDate; lt[0] = sTime; TL_SetEnd(ltl[0],ld[0],lt[0],ll[0]); } } Plot1(t,"CSar",IFf(c>CSarv,RED,BLUE)); 즐거운 하루되세요 > 유튜버 님이 쓴 글입니다. > 제목 : 지표 질문입니다 > 1.전일과 분리되어 당일 부터 시작되는 종가 파라볼릭 차트에서 <파라볼릭 양전환시> 현재 파라볼릭 양전환 상태의 천정 D-1 파라볼릭 양전환 상태의 천정 D-2 파라볼릭 양전환 상태의 천정...파라볼릭 양전환 상태의 천정 3개를 연결선으로 표시 D-1 파라볼릭 음전환 상태의 바닥 D-2 파라볼릭 음전환 상태의 바닥 D-3 파라볼릭 음전환 상태의 바닥...파라볼릭 음전환 상태의 바닥 3개를 연결선으로 표시 <파라볼릭 음전환시> 현재 파라볼릭 음전환 상태의 바닥 D-1 파라볼릭 음전환 상태의 바닥 D-2 파라볼릭 음전환 상태의 바닥...파라볼릭 음전환 상태의 바닥 3개를 연결선으로 표시 D-1 파라볼릭 양전환 상태의 천정 D-2 파라볼릭 양전환 상태의 천정 D-3 파라볼릭 양전환 상태의 천정...파라볼릭 양전환 상태의 천정 3개를 연결선으로 표시 2.전일과 연속되어 진행되는 종가 파라볼릭 차트에서 <파라볼릭 양전환시> 현재 파라볼릭 양전환 상태의 천정 D-1 파라볼릭 양전환 상태의 천정 D-2 파라볼릭 양전환 상태의 천정...파라볼릭 양전환 상태의 천정 3개를 연결선으로 표시 D-1 파라볼릭 음전환 상태의 바닥 D-2 파라볼릭 음전환 상태의 바닥 D-3 파라볼릭 음전환 상태의 바닥...파라볼릭 음전환 상태의 바닥 3개를 연결선으로 표시 <파라볼릭 음전환시> 현재 파라볼릭 음전환 상태의 바닥 D-1 파라볼릭 음전환 상태의 바닥 D-2 파라볼릭 음전환 상태의 바닥...파라볼릭 음전환 상태의 바닥 3개를 연결선으로 표시 D-1 파라볼릭 양전환 상태의 천정 D-2 파라볼릭 양전환 상태의 천정 D-3 파라볼릭 양전환 상태의 천정...파라볼릭 양전환 상태의 천정 3개를 연결선으로 표시 감사합니다