안녕하세요 예스스탁입니다. 죄송합니다. if문중에 잘못된 부분이 잇었습니다. 다시올려드립니다. 1. Inputs: Length(NumericSimple); Variables: Counter(0), DownAmt(0), UpAmt(0), UpSum(0), DownSum(0); If CurrentBar > Length - 1 Then{ UpSum = 0; DownSum = 0; For Counter = 0 To Length - 1 { IF Close[Counter] > Close[Counter+1] Then{ IF Close[Counter] == 0 Then UpAmt = 0; Else UpAmt = 100 * (Close[Counter]-Close[Counter+1]) / Close[Counter]; DownAmt = 0; } Else{ UpAmt = 0; IF Close[Counter] == 0 Then DownAmt = 0; Else DownAmt = 100 * (Close[Counter+1] - Close[Counter]) / Close[Counter]; } UpSum = UpSum + UpAmt; DownSum = DownSum + DownAmt; } IF DownSum == 0 Then TPBuy = 0; Else TPBuy = 100 * UpSum / DownSum; } 2. Inputs: Length(NumericSimple); Variables: Counter(0), DownAmt(0), UpAmt(0), UpSum(0), DownSum(0); If CurrentBar > Length - 1 then { UpSum = 0; DownSum = 0; For Counter = 0 To Length - 1 { IF Close[Counter] > Close[Counter+1] then { IF Close[Counter] == 0 then UpAmt = 0; Else UpAmt = 100 * (Close[Counter]-Close[Counter+1]) / Close[Counter]; DownAmt = 0; } Else { UpAmt = 0; IF Close[Counter] == 0 then DownAmt = 0; Else DownAmt = 100 * (Close[Counter+1] - Close[Counter]) / Close[Counter]; } UpSum = UpSum + UpAmt; DownSum = DownSum + DownAmt; } IF UpSum == 0 then TPSell = 0; Else TPSell = 100 * DownSum / UpSum; } 즐거운 하루되세요 > HI_ma****** 님이 쓴 글입니다. > 제목 : 재질문............. > 어제 변환해주신 코드대로 하니깐 지표를 만들어보니 아무것도 그려지지 않습니다 혹시 제가 원문을 잘못드린것같아 다시 한번 더 올립니다 예스로 변환부탁드립니다 ________________________________________________________________________________ Inputs: Length(NumericSimple) Variables: Counter(0), DownAmt(0), UpAmt(0), UpSum(0), DownSum(0) If CurrentBar > Length - 1 Then UpSum = 0 DownSum = 0 For Counter = 0 To Length - 1 IF Close[Counter] > Close[Counter+1] Then IF Close[Counter] = 0 Then UpAmt = 0 Else UpAmt = 100 * (Close[Counter]-Close[Counter+1]) / Close[Counter] End IF DownAmt = 0 Else UpAmt = 0 IF Close[Counter] = 0 Then DownAmt = 0 Else DownAmt = 100 * (Close[Counter+1] - Close[Counter]) / Close[Counter] End IF End IF UpSum = UpSum + UpAmt DownSum = DownSum + DownAmt Next IF DownSum = 0 Then TPBuy = 0 Else TPBuy = 100 * UpSum / DownSum End IF End IF ___________________________________________________________________________________________ Inputs: Length(NumericSimple) Variables: Counter(0), DownAmt(0), UpAmt(0), UpSum(0), DownSum(0) If CurrentBar > Length - 1 Then UpSum = 0 DownSum = 0 For Counter = 0 To Length - 1 IF Close[Counter] > Close[Counter+1] Then IF Close[Counter] = 0 Then UpAmt = 0 Else UpAmt = 100 * (Close[Counter]-Close[Counter+1]) / Close[Counter] End IF DownAmt = 0 Else UpAmt = 0 IF Close[Counter] = 0 Then DownAmt = 0 Else DownAmt = 100 * (Close[Counter+1] - Close[Counter]) / Close[Counter] End IF End IF UpSum = UpSum + UpAmt DownSum = DownSum + DownAmt Next IF UpSum = 0 Then TPSell = 0 Else TPSell = 100 * DownSum / UpSum End IF End IF