안녕하세요 예스스탁입니다. Elder Ray Power 가 Bull과 BEAR로 2개의 값이 있습니다. 어떤 값을 기준으로 0선이상/이하로 구분하시는지 불분명하여 매수쪽은 Bull, 매도쪽은 BEAR값을 기준으로 작성했습니다. 해당 부분은 주석 참고하셔서 수정보완하시기 바랍니다. Input : Short(12), Long(24); Input: Period(13); var : reverse1(0),reverse2(0); Var : BullP(0), BearP(0); BullP = HIGH - ema(Close,Period); BearP = LOW - ema(Close,Period); value1 = accumN(C-C[1],Short); value2 = accumN(C-C[1],Long); value3 = iff(C>C[1],C-C[1],0); value4 = iff(C<C[1],C-C[1],0); If value1 > 0 Then reverse1 = value1*(-100)/accumN(value3,Short); Else reverse1 = value1*100/accumN(value4,Short); If value2 > 0 then reverse2 = value2*(-100)/accumN(value3,Long); Else reverse2 = value2*100/accumN(value4,Long); if stime >= 91500 and #9시15분이후 CrossDown(reverse1,-75) and #reverse1이 -75를 하향이탈하고 BullP > 0 Then #Bull power가 0 이상이면 매수진입 buy(); if MarketPosition == 1 Then{ #매수진입 후 if CrossUp(reverse1,0) Then #reverse1이 0을 상향돌파하면 청산 exitlong("bx1"); if BullP < 0 Then #Bull power가 0 이하이면 청산 exitlong("bx2"); } if stime >= 91500 and #9시15분이후 CrossUp(reverse1,75) and #reverse1이 75를 상향돌파하고 BearP < 0 Then #BEAR power가 0 이하이면 매도진입 sell(); if MarketPosition == -1 Then{#매도진입후 if CrossDown(reverse1,0) Then #reverse1이 0을 하향이탈하면 청산 ExitShort("sx1"); if BearP > 0 Then #BEAR Power가 0보다 크면 청산 ExitShort("sx2"); } 즐거운 하루되세요 > 머니사이언스 님이 쓴 글입니다. > 제목 : 문의드려요..(elder ray power 와 reverse) > 아래 reverse 식과 Elder Ray Power를 이용해서 내수 및 매도를 하려고 합니다 1. 매수진입(시간은 9시 15분 부터 들어가는 것으로 하고) reverse1가 -75밑으로 하락& Elder Ray Power는 0이상일&#46468; 매수 진입 2. 매수 청산 : reverse1이 -에서 0을 치고 올라갈 경우 또는 Elder Ray Power가 0밑으로 바뀔&#46468; 3. 매도진입(시간은 9시 15분 부터 들어가는 것으로 하고) reverse1이 75위로 상승 & Elder Ray Power는 0이하일&#46468; 매도 진입 4. 매도 청산 : reverse1가 +에서 0을 치고 내려갈 경우 또는 Elder Ray Power가 0위로 바뀔&#46468; ------------------------------------------------------- Reverse 식 Input : Short(12), Long(24); value1 = accumN(C-C[1],Short); value2 = accumN(C-C[1],Long); value3 = iff(C>C[1],C-C[1],0); value4 = iff(C<C[1],C-C[1],0); If value1 > 0 Then plot1(value1*(-100)/accumN(value3,Short), "reverse1"); Else plot1(value1*100/accumN(value4,Short), "reverse1"); If value2 > 0 then plot2(value2*(-100)/accumN(value3,Long),"reverse2"); Else plot2(value2*100/accumN(value4,Long),"reverse2"); ----------------------------------------------------------- Elder Ray Power 식 Inputs: Period(13); Variables: BullP(0), BearP(0); BullP = HIGH - ema(Close,Period); BearP = LOW - ema(Close,Period);