안녕하세요 예스스탁입니다. Input : AF(0.02), AFMAX(0.2); Var : Direction(0), SAR_Value(Close), AF_Value(.02), HighValue(High), LowValue(Low), EP(0),CSarv(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); } } var : hh(0),ll(0),t(0); var : dh(0),dh1(0),dh2(0),dl(0),dl1(0),dl2(0); if Bdate != Bdate[1] Then { dh = 0; dl = 0; dh1 = dh[1]; dl1 = dl[1]; dh2 = dh1[1]; dl2 = dl1[1]; } if CrossUp(C,CSarv) Then { t = 1; hh = h; } if CrossDown(C,CSarv) Then { t = -1; ll = l; } if t == 1 Then { if hh > 0 and h > hh Then { hh = h; } if dh == 0 or (dh > 0 and hh > dh) Then dh = hh; var1 = dl1; var2 = dh1; var3 = dl2; var4 = dh1+(dh1-dl1); var5 = dh1+(dh1-dl2); var6 = dl2-(dh1-dl2); Var7 = dl1-(dh1-dl1); } if t == -1 Then { if ll > 0 and l < ll Then { ll = l; } if dl == 0 or (dl > 0 and ll < dl) Then dl = ll; var1 = dh1; var2 = dl1; var3 = dh2; var4 = dl1+(dh1-dl1); var5 = dl1+(dh2-dl1); var6 = dh1+(dh1-dl1); Var7 = dh2+(dh2-dl1); } Plot1(var1); Plot2(var2); Plot3(var3); Plot4(var4); Plot5(var5); Plot6(var6); Plot7(var7); 즐거운 하루되세요 > 유튜버 님이 쓴 글입니다. > 제목 : 76376 번 수식 수정 부탁드립니다 > 1.전일과 분리되어 당일 부터 시작되는 종가 파라볼릭 차트에서 <파라볼릭 양전환시> D-1 파라볼릭 음전환 상태의 바닥(A) 표시 D-1 파라볼릭 양전환 상태의 천정(B) 표시 D-2 파라볼릭 음전환 상태의 바닥(C) 표시 B+(B-A)=P 표시 B+(B-C)=Q 표시 C-(B-C)=R 표시 A-(B-A)=S 표시 <파라볼릭 음전환시> D-1 파라볼릭 양전환 상태의 천정(D) 표시 D-1 파라볼릭 음전환 상태의 바닥(E) 표시 D-2 파라볼릭 양전환 상태의 천정(F) 표시 E-(D-E)=T 표시 E-(F-E)=U 표시 D+(D-E)=T 표시 F+(F-E)=U 표시 2.전일과 연속되어 진행되는 종가 파라볼릭 차트에서 <파라볼릭 양전환시> D-1 파라볼릭 음전환 상태의 바닥(A) 표시 D-1 파라볼릭 양전환 상태의 천정(B) 표시 D-2 파라볼릭 음전환 상태의 바닥(C) 표시 B+(B-A)=P 표시 B+(B-C)=Q 표시 C-(B-C)=R 표시 A-(B-A)=S 표시 <파라볼릭 음전환시> D-1 파라볼릭 양전환 상태의 천정(D) 표시 D-1 파라볼릭 음전환 상태의 바닥(E) 표시 D-2 파라볼릭 양전환 상태의 천정(F) 표시 E-(D-E)=T 표시 E-(F-E)=U 표시 D+(D-E)=T 표시 F+(F-E)=U 표시 감사합니다