안녕하세요 예스스탁입니다. input : ntime(30),Period(10); var : S1(0),D1(0),TM(0),TF(0),cnt(0),HH(0),LL(0),CC(0),C1(0); var : sumTR(0),ATRV(0); Array : TH[100](0),TL[100](0); if Bdate != Bdate[1] Then { S1 = TimeToMinutes(stime); D1 = sdate; } if D1 > 0 then { if sdate == D1 Then TM = TimeToMinutes(stime)-S1; Else TM = TimeToMinutes(stime)+1440-S1; TF = TM%ntime; if Bdate != Bdate[1] or (Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or (Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or (Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then { HH = H; LL = L; C1 = CC[1]; for cnt = 1 to 99 { TH[cnt] = TH[cnt-1][1]; TL[cnt] = TL[cnt-1][1]; } } if H > HH Then HH = H; if L < LL Then LL = L; CC = c; TH[0] = max(C1,HH); TL[0] = Min(C1,LL); if TH[Period-1] > 0 and TL[Period-1] > 0 then { sumTR = 0; for cnt = 0 to Period-1 { sumTR = sumTR + (TH[cnt]-TL[cnt]); } ATRV = sumTR/Period; plot1(ATRV); } } 즐거운 하루되세요 > 뮬리 님이 쓴 글입니다. > 제목 : 부탁 드립니다. > 도움 주심에 항상 깊이 감사 드립니다. ATR(P) 수식의 타주기( 분봉용) 수식 부탁 드립니다. 질문수식) Inputs: P(10); ATR = Ma(TrueRange, P); 참조수식1) TrueRange = TrueHigh - TrueLow; 참조수식2) If C[1] > H then TrueHigh = C[1]; else TrueHigh = H; 참조수식3) If C[1] < L then TrueLow = C[1]; else TrueLow = L;

매번마다 만족 스럽게 답변 주셔서 무어라 감사의 뜻을 전해야 할지 ......모르겠습니다. 경배로 인사 올립니다. 답변수식을 타주기 (일봉용,주봉용 월봉용)로도 부탁 드립니다. > 예스스탁 님이 쓴 글입니다. > 제목 : Re : 부탁 드립니다. > 안녕하세요 예스스탁입니다. input : ntime(30),Period(10); var : S1(0),D1(0),TM(0),TF(0),cnt(0),HH(0),LL(0),CC(0),C1(0); var : sumTR(0),ATRV(0); Array : TH[100](0),TL[100](0); if Bdate != Bdate[1] Then { S1 = TimeToMinutes(stime); D1 = sdate; } if D1 > 0 then { if sdate == D1 Then TM = TimeToMinutes(stime)-S1; Else TM = TimeToMinutes(stime)+1440-S1; TF = TM%ntime; if Bdate != Bdate[1] or (Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or (Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or (Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then { HH = H; LL = L; C1 = CC[1]; for cnt = 1 to 99 { TH[cnt] = TH[cnt-1][1]; TL[cnt] = TL[cnt-1][1]; } } if H > HH Then HH = H; if L < LL Then LL = L; CC = c; TH[0] = max(C1,HH); TL[0] = Min(C1,LL); if TH[Period-1] > 0 and TL[Period-1] > 0 then { sumTR = 0; for cnt = 0 to Period-1 { sumTR = sumTR + (TH[cnt]-TL[cnt]); } ATRV = sumTR/Period; plot1(ATRV); } } 즐거운 하루되세요 > 뮬리 님이 쓴 글입니다. > 제목 : 부탁 드립니다. > 도움 주심에 항상 깊이 감사 드립니다. ATR(P) 수식의 타주기( 분봉용) 수식 부탁 드립니다. 질문수식) Inputs: P(10); ATR = Ma(TrueRange, P); 참조수식1) TrueRange = TrueHigh - TrueLow; 참조수식2) If C[1] > H then TrueHigh = C[1]; else TrueHigh = H; 참조수식3) If C[1] < L then TrueLow = C[1]; else TrueLow = L;

안녕하세요 예스스탁입니다. 1. 일 input : P(10); var : sumTR(0),TH(0),TL(0),cnt(0),ATRV(0); sumTR = 0; for cnt = 0 to P-1 { If DayClose(cnt+1) > DayHigh(cnt) then TH = DayClose(cnt+1); else TH = DayHigh(cnt); If DayClose(cnt+1) < daylow(cnt) then TL = DayClose(cnt+1); else TL = daylow(cnt); sumTR = sumTR + (TH-TL); } ATRV = sumTR/P; plot1(ATRV); 2 주 input : Period(10); var : cnt(0),HH(0),LL(0),CC(0),C1(0); var : sumTR(0),ATRV(0); Array : TH[100](0),TL[100](0); if DayOfWeek(Bdate) < DayOfWeek(Bdate[1]) Then { HH = H; LL = L; C1 = CC[1]; for cnt = 1 to 99 { TH[cnt] = TH[cnt-1][1]; TL[cnt] = TL[cnt-1][1]; } } if HH > 0 and H > HH Then HH = H; if LL > 0 and L < LL Then LL = L; CC = c; TH[0] = max(C1,HH); TL[0] = Min(C1,LL); if TH[Period-1] > 0 and TL[Period-1] > 0 then { sumTR = 0; for cnt = 0 to Period-1 { sumTR = sumTR + (TH[cnt]-TL[cnt]); } ATRV = sumTR/Period; plot1(ATRV); } 3 월 input : Period(10); var : cnt(0),HH(0),LL(0),CC(0),C1(0); var : sumTR(0),ATRV(0); Array : TH[100](0),TL[100](0); if Bdate > Bdate[1]+30 Then { HH = H; LL = L; C1 = CC[1]; for cnt = 1 to 99 { TH[cnt] = TH[cnt-1][1]; TL[cnt] = TL[cnt-1][1]; } } if HH > 0 and H > HH Then HH = H; if LL > 0 and L < LL Then LL = L; CC = c; TH[0] = max(C1,HH); TL[0] = Min(C1,LL); if TH[Period-1] > 0 and TL[Period-1] > 0 then { sumTR = 0; for cnt = 0 to Period-1 { sumTR = sumTR + (TH[cnt]-TL[cnt]); } ATRV = sumTR/Period; plot1(ATRV); } 즐거운 하루되세요 > 뮬리 님이 쓴 글입니다. > 제목 : Re : Re : 부탁 드립니다. > 매번마다 만족 스럽게 답변 주셔서 무어라 감사의 뜻을 전해야 할지 ......모르겠습니다. 경배로 인사 올립니다. 답변수식을 타주기 (일봉용,주봉용 월봉용)로도 부탁 드립니다. > 예스스탁 님이 쓴 글입니다. > 제목 : Re : 부탁 드립니다. > 안녕하세요 예스스탁입니다. input : ntime(30),Period(10); var : S1(0),D1(0),TM(0),TF(0),cnt(0),HH(0),LL(0),CC(0),C1(0); var : sumTR(0),ATRV(0); Array : TH[100](0),TL[100](0); if Bdate != Bdate[1] Then { S1 = TimeToMinutes(stime); D1 = sdate; } if D1 > 0 then { if sdate == D1 Then TM = TimeToMinutes(stime)-S1; Else TM = TimeToMinutes(stime)+1440-S1; TF = TM%ntime; if Bdate != Bdate[1] or (Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or (Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or (Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then { HH = H; LL = L; C1 = CC[1]; for cnt = 1 to 99 { TH[cnt] = TH[cnt-1][1]; TL[cnt] = TL[cnt-1][1]; } } if H > HH Then HH = H; if L < LL Then LL = L; CC = c; TH[0] = max(C1,HH); TL[0] = Min(C1,LL); if TH[Period-1] > 0 and TL[Period-1] > 0 then { sumTR = 0; for cnt = 0 to Period-1 { sumTR = sumTR + (TH[cnt]-TL[cnt]); } ATRV = sumTR/Period; plot1(ATRV); } } 즐거운 하루되세요 > 뮬리 님이 쓴 글입니다. > 제목 : 부탁 드립니다. > 도움 주심에 항상 깊이 감사 드립니다. ATR(P) 수식의 타주기( 분봉용) 수식 부탁 드립니다. 질문수식) Inputs: P(10); ATR = Ma(TrueRange, P); 참조수식1) TrueRange = TrueHigh - TrueLow; 참조수식2) If C[1] > H then TrueHigh = C[1]; else TrueHigh = H; 참조수식3) If C[1] < L then TrueLow = C[1]; else TrueLow = L;