안녕하세요 예스스탁입니다. 1. 사용자함수명 GPBuy Input : Length(NumericSimple); Variables : ALow(0), BLow(0); Var1 = Lowest(Close, Length); If Var1 == 0 Then ALow = 0; Else ALow = Close / Var1 * 100; If Close == 0 Then BLow = 0; Else BLow = Var1 / Close * 100; GPBuy = ALow - Blow; 2. 사용자함수명 GPSell Input : Length(NumericSimple); Variables : AHigh(0), BHigh(0); Var1 = Highest(Close, Length); If Var1 == 0 Then AHigh = 0; Else AHigh = Close / Var1 * 100; If Close == 0 Then BHigh = 0; Else BHigh = Var1 / Close * 100; GPSell = BHigh - Ahigh; 3. 사용자함수명 TPBuy 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; } 4. 사용자함수명 TPSell 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****** 님이 쓴 글입니다. > 제목 : 질문드립니다 > 대신에서 사용하는 함수인데요 예스로 변환부탁드립니다 __________________________________________ 1. Input : Length(NumericSimple) Variables : ALow(0), BLow(0) Var1 = Lowest(Close, Length) If Var1 = 0 Then ALow = 0 Else ALow = Close / Var1 * 100 End IF If Close = 0 Then BLow = 0 Else BLow = Var1 / Close * 100 End IF GPBuy = ALow – Blow ________________________________________________ 2. Input : Length(NumericSimple) Variables : AHigh(0), BHigh(0) Var1 = Highest(Close, Length) If Var1 = 0 Then AHigh = 0 Else AHigh = Close / Var1 * 100 End IF If Close = 0 Then BHigh = 0 Else BHigh = Var1 / Close * 100 End IF GPSell = BHigh – Ahigh ________________________________________________________ 3. 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 ___________________________________________________ 4. 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 _________________________________________________ 4가지 입니다 부탁드려요