input : 총투자금(4500000), period1(20);
var : L10(0),cnt(0),sum(0),count(0); 
 
sum = 0;
for count = 1 to Period1{
    sum = sum + max(abs(dayclose(count+1)-DayHigh(count)),abs(Dayclose(count+1)-DayLow(count)),abs(dayhigh(count)-daylow(count)));
}
 
value1 = sum/period1; #일간 20 ATR
value2 = int(((총투자금*0.01)/(value1*3))/10)*10;
value4 = 13450; #이익청산구간
value6 = 12300; #박스권상단
value7 = 11600; #박스권귀속 



#전일 기준 10일 최저가
L10 = DayLow(1);     
for cnt = 1 to 10{
    if DayLow(cnt) < L10 Then
            L10 = DayLow(cnt);
}
  
#1차 
#value6 상향돌파때 매수
if MarketPosition == 0 and stime < 150000 and sdate >= 20100801 and ExitDate(1) != sdate Then{ 
      if H <= value6 Then# 매수가격대 돌파시 매수.
          buy("first_",AtStop,value6+PriceScale,value2);
}

#2차 
if MarketPosition == 1 Then{
    #진입이 있을 때마다 value3에 value1저장 value4에 해당봉 고가저장  
      if CurrentEntries > CurrentEntries[1] Then{
          value3 = value1;
          value4 = H;
      }
      #첫번째 피라미딩
      if  CurrentEntries == 1 Then{
            if H <= value6+value1 Then
                  buy("up_", AtStop, value6+value1,value2);# value6+value1 이상에서 진입
         
      }

}

#청산 포지션이 3번 누적이후에 발동
if MarketPosition == 1 Then{ 
    if L >= L10-PriceScale Then# L7-PriceScale 위에 있다가 내려가면 청산입니다.
          exitlong("L10",AtStop,L10-PriceScale); 
    if L >= value4-value3*3 then #  value4-value3*3 위에 있다가 내려가면 청산입니다.
          exitlong("변동성2",AtStop,value4-value3*3); 
    if L >= value6-value3*3 Then
          exitlong("변동성3",atstop,value6-value3*3); #박스권하향하면 청산.
      if L >= value7 Then
          exitlong("박스권귀속",atstop,value7-pricescale); #박스권하향하면 청산.   

}