안녕하세요 예스스탁입니다. 좀더 자세한 내용을 올려주시기 바랍니다. 어떤 내용을 구현하고자 하시는지 정확히 파악되지 않습니다. 즐거운 하루되세요 > 외국인 님이 쓴 글입니다. > 제목 : 파라볼릭과5분과 5이평선조합 > 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 then //변수들의 초기화 { highval = High; lowval = Low; direction = 0; sar1 = 0; afval = 0; 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; plot1(sar1); INPUTS: LENGTH(3); VARS: TEMA1(0); TEMA1 = WMA(c,LENGTH); var1 = iff(TEMA1<TEMA1[1],TEMA1,0); var2 = iff(TEMA1>TEMA1[1],TEMA1,0); plot1(var1,"1",iff(trend1 == 1, MAGENTA, Blue)); plot2(var2,"1",iff(trend1 == 1, MAGENTA, Blue)); INPUTS: LENGTH1(10); VARS: TEMA11(0); TEMA1 = WMA(c,LENGTH1); Var3 = iff(TEMA11<TEMA11[1],TEMA11,0); var4 = iff(TEMA11>TEMA11[1],TEMA11,0); plot3(var3,"1",iff(trend1 == 1, MAGENTA, Blue)); plot4(var4,"1",iff(trend1 == 1, MAGENTA, Blue)); INPUTS: LENGTH11(20); VARS: TEMA12(0); TEMA1 = WMA(c,LENGTH11); Var13 = iff(TEMA12<TEMA12[1],TEMA12,0); var14 = iff(TEMA12>TEMA12[1],TEMA12,0); plot13(var13,"1",iff(trend1 == 1, MAGENTA, Blue)); plot14(var14,"1",iff(trend1 == 1, MAGENTA, Blue)); INPUTS: LENGTH13(30); VARS: TEMA13(0); TEMA1 = WMA(c,LENGTH13); Var23 = iff(TEMA13<TEMA13[1],TEMA13,0); var24 = iff(TEMA13>TEMA13[1],TEMA13,0); plot13(var23,"1",iff(trend1 == 1, MAGENTA, Blue)); plot14(var24,"1",iff(trend1 == 1, MAGENTA, Blue)); INPUTS: LENGTH14(60); VARS: TEMA14(0); TEMA1 = WMA(c,LENGTH14); Var33 = iff(TEMA14<TEMA14[1],TEMA14,0); var34 = iff(TEMA14>TEMA14[1],TEMA14,0); plot13(var33,"1",iff(trend1 == 1, MAGENTA, Blue)); plot14(var34,"1",iff(trend1 == 1, MAGENTA, Blue)); 의 stime sdate 합성 data 를 수치표시 직선표시 부탁드립니다.