커뮤니티

지표식 부탁드립니다.

프로필 이미지
한글나라
2013-11-14 12:53:24
126
글번호 69476
답변완료
adx에서 +di, -di를 출력하는 지표식 부탁드립니다. 풀어쓴 지표식이요... 해당되는 내장 함수를 풀어쓴 지표식 말씀드려요
지표
답변 1
프로필 이미지

예스스탁 예스스탁 답변

2013-11-14 14:57:17

안녕하세요 예스스탁입니다. Inputs: Length(14) ; Var : Counter(0), TRange(0), MyRange(Length), PlusDM14(0), PlusDM(0), MinusDM(0),DPlus(0); var : MinusDM14(0),DMinus(0); If CurrentBar == 1 Then { MyRange = Length; Dplus = 0; PlusDM14 = 0; TRange = 0; DMinus = 0; MinusDM14 = 0; For Counter = 0 To MyRange - 1 { If High[Counter] - High[Counter+1] < 0 Then PlusDM = 0; Else PlusDM = High[Counter] - High[Counter+1]; If Low[Counter+1] - Low[Counter] < 0 Then MinusDM = 0; Else MinusDM = Low[Counter+1] - Low[Counter]; If MinusDM >= PlusDM Then PlusDM = 0; If PlusDM >= MinusDM Then MinusDM = 0; TRange = TRange + TrueRange[Counter]; PlusDM14 = PlusDM14 + PlusDM; MinusDM14 = MinusDM14 + MinusDM; } If TRange <> 0 Then Dplus = 100 * PlusDM14 / TRange; Else Dplus = 0 ; If TRange <> 0 Then DMinus = 100 * MinusDM14 / TRange; Else DMinus = 0; } Else If CurrentBar > 1 Then { If High[0] - High[1] < 0 Then PlusDM = 0; Else PlusDM = High[0] - High[1]; If Low[1] - Low [0] < 0 Then MinusDM = 0 ; Else MinusDM = Low[1] - Low[0] ; If MinusDM >= PlusDM Then PlusDM = 0; If PlusDM >= MinusDM Then MinusDM = 0 ; If MyRange > 0 Then { TRange = TRange[1] - (TRange[1] / MyRange) + TrueRange; PlusDM14 = PlusDM14[1] - (PlusDM14[1] / MyRange) + PlusDM; MinusDM14 = MinusDM14[1] - (MinusDM14[1] / MyRange) + MinusDM; } If TRange <> 0 Then Dplus = 100 * PlusDM14 / TRange; Else Dplus = 0 ; If TRange <> 0 Then DMinus = 100 * MinusDM14 / TRange; Else DMinus = 0; } plot1(DPlus); plot2(DMinus); 즐거운 하루되세요 > 한글나라 님이 쓴 글입니다. > 제목 : 지표식 부탁드립니다. > adx에서 +di, -di를 출력하는 지표식 부탁드립니다. 풀어쓴 지표식이요... 해당되는 내장 함수를 풀어쓴 지표식 말씀드려요