안녕하세요 예스스탁입니다. Input : Af(0.02), MaxAf(0.2); Var : direction(0), sar1(0), afval(0), ep(0),lowval(0),highval(0),count(0); if count == 0 or Bdate != Bdate[1] then //변수들의 초기화 { highval = High; lowval = Low; direction = 0; sar1 = c; afval = af; ep = 0; count = 1; } if(ep != 0 ) then // 추세가 진행중 { if(direction == 1) then // 상승추세이면 { ep = highval; sar1 = sar1 + afval*(ep-sar1); // 상승추세에서 SAR값 계산 if(high > highval) then // 신고가 발생 { highval = high; afval = afval+Af; // 상승추세에서 신고가가 발생했으므로 가속변수 증가 if(afval >= MaxAf) then // 가속변수가 최대값과의 비교 (가속변수는 최대 가속값 보다 클 수 없다) afval = MaxAf; } if( low < sar1) then // 추세변경(상승->하락) { // 다음 SAR값을 계산할 때 필요한 전SAR값은 하락추세로 전환되기 직전의 direction = -1; // 최고가를 사용하므로 sar1 = ep (ep에는 highval 들어있다) sar1 = ep; // 추세가 변경되었으므로 가속변수 및 EP, highval 초기화 afval = 0; ep = 0; lowval = low; } } else // 하락 추세 { ep = lowval; // 하락추세에서는 EP로 저가 사용 sar1 = sar1 + afval*(ep-sar1); if(low < lowval) then // 신저가 발생 { lowval = low; afval = afval + Af; if( afval >= MaxAf) then // 가속변수가 최대값과의 비교 (가속변수는 최대 가속값 보다 클 수 없다) afval = MaxAf; } if(high > sar1) then // 추세 변경(하락->상승) { // 다음 SAR 값을 계산할 때 필요한 전SAR값은 상승추세로 전환되기 직전의 direction = 1; // 최저가를 사용하므로 sar1 = ep (ep에는 lowval값이 들어있다) sar1 = ep; // 추세가 변경되었으므로 가속변수 및 EP, highval 초기화 afval = 0; ep = 0; highval = high; } } } else if(sar1 != 0 && ep == 0) then //추세가 변경된후 첫번째 SAR계산 { if(direction == 1) then // 상승 추세 { ep = highval; // 상승추세에서는 신고가를 EP로 사용하므로 afval = Af; // 가속변수의 초기값인 AF(0.02) 적용 sar1 = sar1 + afval*(ep-sar1); if ( high > highval) then // 신고가가 발생 { Highval = high; afval = afval + Af; // 가속변수 증가 if(afval >= MaxAf) then // 가속변수가 최대값과의 비교 (가속변수는 최대 가속값 보다 클 수 없다) afval = MaxAf; } } else // 하락추세 { ep = lowval; afval = Af; // 가속변수의 초기값인 AF(0.02) 적용 sar1 = sar1 + afval*(ep-sar1);// 하락추세에서 SAR 계산 if(low < lowval) then // 신저가 발생 { lowval = low; afval = afval + Af; // 가속변수 증가 if(afval >= MaxAf) then // 가속변수가 최대값과의 비교 (가속변수는 최대 가속값 보다 클 수 없다) afval = MaxAf; } } } else // SAR 첨 시작 { if direction == 0 then // 추세가 없으므로 { if(c > c[1]) then // 상승추세로 시작 direction = 1; else if( c < c[1]) then // 하락추세로 시작 direction = -1; } else if direction == 1 then // 상승추세(추세변경이 일어날 경우 SAR 계산하기 시작) { if(c < c[1]) then // 추세 변경 (상승->하락) SAR 계산하기 시작 { direction = -1; sar1 = highval; // 하락추세로 전환시 다음 SAR값을 계산할 때 필요한 전 SAR값은 추세직전의 최고가를 사용하므로 } } else if direction == -1 then // 하락추세(추세변경이 일어날 경우 SAR 계산하기 시작) { if( c > c[1]) then // 추세 변경 (하락->상승) SAR 계산하기 시작 { direction = 1; sar1 = lowval; // 상승추세로 전환시 다음 SAR값을 계산할 때 필요한 전 SAR값은 추세직전의 최저가를 사용하므로 } } lowval = min(low, lowval); // 추세 변경시 전 SAR값으로 최고가나 최저가가 필요하므로 highval = max(high,highval); // low, high를 전의 최고가, 최저가와 비교하여 최고가, 최저가를 저장 } //처음 시작할 때 다음 추세 변경이 일어날 때까지 SAR는 invalid #if(sar1 != 0) then # User_Func_Sar = sar1; if sar1 > sar1[1] Then plot1(sar1,"파리볼릭",BLUE); else plot1(sar1,"파리볼릭",blue); #Plot2(C,"종가"); var : T(0),dd(0),tt(0),hh(0),ll(0); var : TL(0),TL1(0),TL2(0),TL3(0),TL4(0); var : TL5(0),TL6(0),TL7(0),TL8(0),TL9(0); if CrossUp(c,Sar1) Then { T = 1; dd = sDate; tt = sTime; hh = h; value1 = Sar1; Value2 = C; Value3 = value1[1]; TL = TL_New(dd,tt,Value1,NextBarSdate,sTime,Value1); TL1 = TL_New(dd,tt,Value2,NextBarSdate,sTime,Value2); TL2 = TL_New(dd,tt,Value2+1.0,NextBarSdate,sTime,Value2+1.0); TL3 = TL_New(dd,tt,Value2+1.5,NextBarSdate,sTime,Value2+1.5); TL4 = TL_New(dd,tt,Value2+2.0,NextBarSdate,sTime,Value2+2.0); TL_SetColor(TL,Red); TL_SetColor(TL1,Red); TL_SetColor(TL2,Red); TL_SetColor(TL3,Red); TL_SetColor(TL4,Red); Condition1 = False; if Condition1 == False and hh >= value1+0.5 Then { Condition1 = true; TL5 = TL_New(dd,tt,value1+(hh-value1)*0.382,NextBarSdate,sTime,value1+(hh-value1)*0.382); TL6 = TL_New(dd,tt,value1+(hh-value1)*0.500,NextBarSdate,sTime,value1+(hh-value1)*0.500); TL7 = TL_New(dd,tt,value1+(hh-value1)*0.618,NextBarSdate,sTime,value1+(hh-value1)*0.618); TL_SetColor(TL5,Green); TL_SetColor(TL6,Green); TL_SetColor(TL7,Green); } if value3 > 0 Then { TL8 = TL_New(dd,tt,value1-abs(value1-value3),NextBarSdate,sTime,value1-abs(value1-value3)); TL9 = TL_New(dd,tt,hh-abs(value1-value3),NextBarSdate,sTime,hh-abs(value1-value3)); TL_SetColor(TL8,Black); TL_SetColor(TL9,Black); } } Else if CrossDown(c,Sar1) Then { T = -1; ll = l; dd = sDate; tt = sTime; ll = l; value1 = Sar1; Value2 = C; TL = TL_New(dd,tt,Value1,NextBarSdate,NextBarStime,Value1); TL1 = TL_New(dd,tt,Value2,NextBarSdate,NextBarStime,Value2); TL2 = TL_New(dd,tt,Value2-1.0,NextBarSdate,NextBarStime,Value2-1.0); TL3 = TL_New(dd,tt,Value2-1.5,NextBarSdate,NextBarStime,Value2-1.5); TL4 = TL_New(dd,tt,Value2-2.0,NextBarSdate,NextBarStime,Value2-2.0); TL_SetColor(TL,Blue); TL_SetColor(TL1,Blue); TL_SetColor(TL2,Blue); TL_SetColor(TL3,Blue); TL_SetColor(TL4,Blue); Condition2 = False; if Condition2 == False and ll <= value1-0.5 Then { Condition2 = true; TL5 = TL_New(dd,tt,value1-(value1-ll)*0.382,NextBarSdate,sTime,value1-(value1-ll)*0.382); TL6 = TL_New(dd,tt,value1-(value1-ll)*0.500,NextBarSdate,sTime,value1-(value1-ll)*0.500); TL7 = TL_New(dd,tt,value1-(value1-ll)*0.618,NextBarSdate,sTime,value1-(value1-ll)*0.618); TL_SetColor(TL5,Green); TL_SetColor(TL6,Green); TL_SetColor(TL7,Green); } if value3 > 0 Then { TL8 = TL_New(dd,tt,value1+abs(value1-value3),NextBarSdate,sTime,value1+abs(value1-value3)); TL9 = TL_New(dd,tt,ll+abs(value1-value3),NextBarSdate,sTime,ll+abs(value1-value3)); TL_SetColor(TL8,Black); TL_SetColor(TL9,Black); } } else { if T == 1 Then { if h > hh Then hh = h; TL_SetEnd(TL,NextBarSdate,NextBarStime,value1); TL_SetEnd(TL1,NextBarSdate,NextBarStime,value2); TL_SetEnd(TL2,NextBarSdate,NextBarStime,value2+1.0); TL_SetEnd(TL3,NextBarSdate,NextBarStime,value2+1.5); TL_SetEnd(TL4,NextBarSdate,NextBarStime,value2+2.0); if Condition1 == False Then { if hh >= value1+0.5 Then { Condition1 = true; TL5 = TL_New(dd,tt,value1+(hh-value1)*0.382,NextBarSdate,NextBarStime,value1+(hh-value1)*0.382); TL6 = TL_New(dd,tt,value1+(hh-value1)*0.500,NextBarSdate,NextBarStime,value1+(hh-value1)*0.500); TL7 = TL_New(dd,tt,value1+(hh-value1)*0.618,NextBarSdate,NextBarStime,value1+(hh-value1)*0.618); TL_SetColor(TL5,Green); TL_SetColor(TL6,Green); TL_SetColor(TL7,Green); } } Else { TL_SetBegin(TL5,dd,tt,value1+(hh-value1)*0.382); TL_SetBegin(TL6,dd,tt,value1+(hh-value1)*0.500); TL_SetBegin(TL7,dd,tt,value1+(hh-value1)*0.618); TL_SetEnd(TL5,NextBarSdate,NextBarStime,value1+(hh-value1)*0.382); TL_SetEnd(TL6,NextBarSdate,NextBarStime,value1+(hh-value1)*0.500); TL_SetEnd(TL7,NextBarSdate,NextBarStime,value1+(hh-value1)*0.618); } if value3 > 0 Then { TL_SetBegin(TL8,dd,tt,value1-abs(value1-value3)); TL_SetBegin(TL9,dd,tt,hh-abs(value1-value3)); TL_SetEnd(TL8,NextBarSdate,NextBarStime,value1-abs(value1-value3)); TL_SetEnd(TL9,NextBarSdate,NextBarStime,hh-abs(value1-value3)); } } if T == -1 Then { if l < ll Then ll = l; TL_SetEnd(TL,NextBarSdate,NextBarStime,value1); TL_SetEnd(TL1,NextBarSdate,NextBarStime,value2); TL_SetEnd(TL2,NextBarSdate,NextBarStime,value2-1.0); TL_SetEnd(TL3,NextBarSdate,NextBarStime,value2-1.5); TL_SetEnd(TL4,NextBarSdate,NextBarStime,value2-2.0); if Condition2 == False Then { if ll <= value1-0.5 Then { Condition2 = true; TL5 = TL_New(dd,tt,value1-(value1-ll)*0.382,NextBarSdate,NextBarStime,value1-(value1-ll)*0.382); TL6 = TL_New(dd,tt,value1-(value1-ll)*0.500,NextBarSdate,NextBarStime,value1-(value1-ll)*0.500); TL7 = TL_New(dd,tt,value1-(value1-ll)*0.618,NextBarSdate,NextBarStime,value1-(value1-ll)*0.618); TL_SetColor(TL5,Green); TL_SetColor(TL6,Green); TL_SetColor(TL7,Green); } } Else { TL_SetBegin(TL5,dd,tt,value1-(value1-ll)*0.382); TL_SetBegin(TL6,dd,tt,value1-(value1-ll)*0.500); TL_SetBegin(TL7,dd,tt,value1-(value1-ll)*0.618); TL_SetEnd(TL5,NextBarSdate,NextBarStime,value1-(value1-ll)*0.382); TL_SetEnd(TL6,NextBarSdate,NextBarStime,value1-(value1-ll)*0.500); TL_SetEnd(TL7,NextBarSdate,NextBarStime,value1-(value1-ll)*0.618); } if value3 > 0 Then { TL_SetBegin(TL8,dd,tt,value1+abs(value1-value3)); TL_SetBegin(TL9,dd,tt,ll+abs(value1-value3)); TL_SetEnd(TL8,NextBarSdate,NextBarStime,value1+abs(value1-value3)); TL_SetEnd(TL9,NextBarSdate,NextBarStime,ll+abs(value1-value3)); } } } 즐거운 하루되세요 > qha71 님이 쓴 글입니다. > 제목 : 수정 의뢰드립니다 > 안녕하세요! 수식 수정을 좀 부탁드리고저 합니다. 아래 수식은 현재 사용하고 있는 수식이고 이해를 돕기 위해 그림을 첨부합니다. 1. 빨간색 A. B는 하나의 추세에 대한 진폭 고.저 입니다. 주가가 그림처럼 노랑색에서 초록색으로 또는 초록색에서 노랑색으로 추세가 바뀌었을때 그림처럼 고가와 저가를 나타내는 수평선이 계속 생성되게 수정을 해주세요. 2. 수평선 C는 노랑색에서 초록색으로 바뀌었을때 생긴 첫봉의 종가 수평선 입니다. 이때 1. 종가수평선 + 0.5P 상승시 수평선이 생성 2. 종가수평선 + 1P 상승시 수평선이 생성 3. 종가수평선 + 2P 상승시 수평선이 생성 ====> 하락시 에도 동일한 조건 적용 3. G,H,I는 고,저가 A,B의 진폭에 대한 38.2 / 50 / 61.8 수평선들입니다. 이렇게 진폭이 생성되면 G,H,I 처럼 수평선이 자동으로 생성되게 해주세요 ==> 진폭이 0.5P 이상에서만 수평선이 생성되게 해주세요! 4. 수평선 j와 K 2개선은 예) B 와J의 진폭이 완성되었다면 (B-J)진폭값을 J자리에서 뺀 자리에 수평선을 생성한 것입니다. 수평선 J 자리도 같은 조건으로 (B-J)진폭값을 K자리에서 뺀 자리에 수평선을 생성한 것입니다. ====> 상승시에도 동일한 조건입니다. 노고에 감사드리며 부탁 드립니다. Input : Af(0.02), MaxAf(0.2); Var : direction(0), sar1(0), afval(0), ep(0),lowval(0),highval(0),count(0); if count == 0 or Bdate != Bdate[1] then //변수들의 초기화 { highval = High; lowval = Low; direction = 0; sar1 = c; afval = af; ep = 0; count = 1; } if(ep != 0 ) then // 추세가 진행중 { if(direction == 1) then // 상승추세이면 { ep = highval; sar1 = sar1 + afval*(ep-sar1); // 상승추세에서 SAR값 계산 if(high > highval) then // 신고가 발생 { highval = high; afval = afval+Af; // 상승추세에서 신고가가 발생했으므로 가속변수 증가 if(afval >= MaxAf) then // 가속변수가 최대값과의 비교 (가속변수는 최대 가속값 보다 클 수 없다) afval = MaxAf; } if( low < sar1) then // 추세변경(상승->하락) { // 다음 SAR값을 계산할 때 필요한 전SAR값은 하락추세로 전환되기 직전의 direction = -1; // 최고가를 사용하므로 sar1 = ep (ep에는 highval 들어있다) sar1 = ep; // 추세가 변경되었으므로 가속변수 및 EP, highval 초기화 afval = 0; ep = 0; lowval = low; } } else // 하락 추세 { ep = lowval; // 하락추세에서는 EP로 저가 사용 sar1 = sar1 + afval*(ep-sar1); if(low < lowval) then // 신저가 발생 { lowval = low; afval = afval + Af; if( afval >= MaxAf) then // 가속변수가 최대값과의 비교 (가속변수는 최대 가속값 보다 클 수 없다) afval = MaxAf; } if(high > sar1) then // 추세 변경(하락->상승) { // 다음 SAR 값을 계산할 때 필요한 전SAR값은 상승추세로 전환되기 직전의 direction = 1; // 최저가를 사용하므로 sar1 = ep (ep에는 lowval값이 들어있다) sar1 = ep; // 추세가 변경되었으므로 가속변수 및 EP, highval 초기화 afval = 0; ep = 0; highval = high; } } } else if(sar1 != 0 && ep == 0) then //추세가 변경된후 첫번째 SAR계산 { if(direction == 1) then // 상승 추세 { ep = highval; // 상승추세에서는 신고가를 EP로 사용하므로 afval = Af; // 가속변수의 초기값인 AF(0.02) 적용 sar1 = sar1 + afval*(ep-sar1); if ( high > highval) then // 신고가가 발생 { Highval = high; afval = afval + Af; // 가속변수 증가 if(afval >= MaxAf) then // 가속변수가 최대값과의 비교 (가속변수는 최대 가속값 보다 클 수 없다) afval = MaxAf; } } else // 하락추세 { ep = lowval; afval = Af; // 가속변수의 초기값인 AF(0.02) 적용 sar1 = sar1 + afval*(ep-sar1);// 하락추세에서 SAR 계산 if(low < lowval) then // 신저가 발생 { lowval = low; afval = afval + Af; // 가속변수 증가 if(afval >= MaxAf) then // 가속변수가 최대값과의 비교 (가속변수는 최대 가속값 보다 클 수 없다) afval = MaxAf; } } } else // SAR 첨 시작 { if direction == 0 then // 추세가 없으므로 { if(c > c[1]) then // 상승추세로 시작 direction = 1; else if( c < c[1]) then // 하락추세로 시작 direction = -1; } else if direction == 1 then // 상승추세(추세변경이 일어날 경우 SAR 계산하기 시작) { if(c < c[1]) then // 추세 변경 (상승->하락) SAR 계산하기 시작 { direction = -1; sar1 = highval; // 하락추세로 전환시 다음 SAR값을 계산할 때 필요한 전 SAR값은 추세직전의 최고가를 사용하므로 } } else if direction == -1 then // 하락추세(추세변경이 일어날 경우 SAR 계산하기 시작) { if( c > c[1]) then // 추세 변경 (하락->상승) SAR 계산하기 시작 { direction = 1; sar1 = lowval; // 상승추세로 전환시 다음 SAR값을 계산할 때 필요한 전 SAR값은 추세직전의 최저가를 사용하므로 } } lowval = min(low, lowval); // 추세 변경시 전 SAR값으로 최고가나 최저가가 필요하므로 highval = max(high,highval); // low, high를 전의 최고가, 최저가와 비교하여 최고가, 최저가를 저장 } //처음 시작할 때 다음 추세 변경이 일어날 때까지 SAR는 invalid #if(sar1 != 0) then # User_Func_Sar = sar1; if sar1 > sar1[1] Then plot1(sar1,"파리볼릭",BLUE); else plot1(sar1,"파리볼릭",blue); Plot2(C,"종가"); var : T(0); if sar1 > sar1[1] Then T = 1; if sar1 < sar1[1] Then T = -1; if T == 1 and T != T[1] Then { var1 = sar1[1]; value1 = var1-abs(var1-Var2); } if T == -1 and T != T[1] Then { var2 = sar1[1]; value2 = var2+abs(var1-Var2); } Plot3(value1); Plot4(value2);