안녕하세요 예스스탁입니다. input : P(5); var : cnt(0),sum(0),sum1(0),mav(0),mav1(0),dis(0),dis1(0),daycnt(0),PredayVol(0); Var : Pivot(0),R1(0),R2(0),S1(0),S2(0); Pivot = (DayHigh(1)+DayLow(1)+DayClose(1))/3; sum = 0; sum1 = 0; for cnt = 0 to P-1{ sum = sum+DayClose(cnt); sum1 = sum1+DayClose(cnt+1); } mav = sum/P; mav1 = sum1/P; dis = c/mav*100; dis1 = DayClose(1)/mav1*100; for cnt = 1 to 1000 { if stime == stime[cnt] and sdate != sdate[cnt] then{ PredayVol = DayVolume[cnt]; cnt = 1001; } } if date != date[1] Then{ Daycnt = daycnt+1; var1 = dayopen/mav*100; } if dayopen <= DayClose(1)*1.05 and dayhigh <= dayopen*1.05 and dis1 >= 103 and ExitDate(1) != sdate and DayVolume < PredayVol*1 and var1 > 100 Then{ if stime >= 90000 and stime < 100000 and dis >= 100.5 and dis < 102.0 Then buy("b1",AtMarket); if stime >= 100000 and stime < 110000 and dis >= 100.5 and dis < 102.5 Then buy("b2",AtMarket); if stime >= 110000 and stime < 120000 and dis >= 100.5 and dis < 103.0 Then buy("b3",AtMarket); if stime >= 120000 and stime < 130000 and dis >= 100.5 and dis < 103.5 Then buy("b4",AtMarket); if stime >= 130000 and stime < 140000 and dis >= 100.5 and dis < 104.0 Then buy("b5",AtMarket); if stime >= 140000 and stime < 144800 and dis >= 100.5 and dis < 104.5 Then buy("b6",AtMarket); if stime >= 143000 and stime < 144800 and c < Pivot and dis >= 100.5 and dis < 105.0 Then buy("b7",AtMarket); } if MarketPosition == 1 Then{ if C >= EntryPrice*1.08 Then exitlong("bx1",AtMarket); if C <= EntryPrice*0.945 Then exitlong("bx2",AtMarket); if sdate == EntryDate and C >= EntryPrice*1.045 then exitlong("bx3",AtMarket); if sdate > EntryDate and daycnt == daycnt[BarsSinceEntry]+2 and stime >= 94000 Then exitlong("bx4",AtMarket); if dis <= 99 and lowest(L,BarsSinceEntry) <= EntryPrice*0.98 and crossup(c,EntryPrice) Then exitlong("bx5",AtMarket); if lowest(L,BarsSinceEntry) <= EntryPrice*0.965 and crossup(c,lowest(L,BarsSinceEntry)+(EntryPrice-lowest(L,BarsSinceEntry))*0.8) Then exitlong("bx6",AtMarket); if highest(H,BarsSinceEntry) >= EntryPrice*1.04 and CrossDown(c,highest(H,BarsSinceEntry)-(highest(H,BarsSinceEntry)-EntryPrice)*0.5) Then ExitLong("bx7",AtMarket); } 즐거운 하루되세요 > 쌀사비팔 님이 쓴 글입니다. > 제목 : 다시 봐주세요. > 아래식에 추가해 주세요. 감사합니다. <매수 금지> -당일 일봉의 시초가가 5일(일봉) 이동평균선 이격 100 이하이면 매수 금지. <청산> -5일(일봉)이평선 이격 99이하 이고 매수가 대비 -2% 이하까지 하락하면, 매수가를 상향돌파(초과)시 다음 첫봉에 청산 -매수가 대비 -3.5% 이하까지 하락하였다면, 저점대비 80%까지 상승하면, 다음 첫봉에 청산 -매수가 대비 +4% 이상까지 상승하였다면, 상승고점대비 50%이하 까지 하락하면, 다음 첫봉에 청산 ========================================== input : P(5); var : cnt(0),sum(0),sum1(0),mav(0),mav1(0),dis(0),dis1(0),daycnt(0),PredayVol(0); Var : Pivot(0),R1(0),R2(0),S1(0),S2(0); Pivot = (DayHigh(1)+DayLow(1)+DayClose(1))/3; if date != date[1] Then Daycnt = daycnt+1; sum = 0; sum1 = 0; for cnt = 0 to P-1{ sum = sum+DayClose(cnt); sum1 = sum1+DayClose(cnt+1); } mav = sum/P; mav1 = sum1/P; dis = c/mav*100; dis1 = DayClose(1)/mav1*100; for cnt = 1 to 1000 { if stime == stime[cnt] and sdate != sdate[cnt] then{ PredayVol = DayVolume[cnt]; cnt = 1001; } } if dayopen <= DayClose(1)*1.05 and dayhigh <= dayopen*1.05 and dis1 >= 103 and ExitDate(1) != sdate and DayVolume < PredayVol*1 Then{ if stime >= 90000 and stime < 100000 and dis >= 100.5 and dis < 102.0 Then buy("b1",AtMarket); if stime >= 100000 and stime < 110000 and dis >= 100.5 and dis < 102.5 Then buy("b2",AtMarket); if stime >= 110000 and stime < 120000 and dis >= 100.5 and dis < 103.0 Then buy("b3",AtMarket); if stime >= 120000 and stime < 130000 and dis >= 100.5 and dis < 103.5 Then buy("b4",AtMarket); if stime >= 130000 and stime < 140000 and dis >= 100.5 and dis < 104.0 Then buy("b5",AtMarket); if stime >= 140000 and stime < 144800 and dis >= 100.5 and dis < 104.5 Then buy("b6",AtMarket); if stime >= 143000 and stime < 144800 and c < Pivot and dis >= 100.5 and dis < 105.0 Then buy("b7",AtMarket); } if MarketPosition == 1 Then{ if C >= EntryPrice*1.08 Then exitlong("bx1",AtMarket); if C <= EntryPrice*0.945 Then exitlong("bx2",AtMarket); if sdate == EntryDate and C >= EntryPrice*1.045 then exitlong("bx3",AtMarket); if sdate > EntryDate and daycnt == daycnt[BarsSinceEntry]+2 and stime >= 94000 Then exitlong("bx4",AtMarket); }