안녕하세요 예스스탁입니다. 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),dis2(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 date != date[1] Then dis2 = O/mav*100; if dayopen <= DayClose(1)*1.05 and dayhigh <= dayopen*1.05 and dis1 >= 103 and dis > 100 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.06 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 O[BarsSinceEntry]/mav[BarsSinceEntry] < 100 and crossup(c,EntryPrice) Then exitlong("bx5",AtMarket); if O[BarsSinceEntry] < DayClose(1)*0.99 and crossup(c,EntryPrice*1.01) Then exitlong("bx6",AtMarket); if lowest(l,BarsSinceEntry) <= EntryPrice*0.965 and crossup(c,EntryPrice) Then exitlong("bx7",AtMarket); if highest(H,BarsSinceEntry) >= EntryPrice*1.04 and CrossDown(c,highest(H,BarsSinceEntry)-(highest(H,BarsSinceEntry)-EntryPrice)*0.5) Then exitlong("bx8",AtMarket); } 즐거운 하루되세요 > 쌀사비팔 님이 쓴 글입니다. > 제목 : 추가 부탁드립니다. > 아래식에 추가부탁드립니다. 감사합니다. <매수 금지> -당일 시초가가 5일(일봉) 이동평균선 이격 100 이하이면 매수 금지. <청산> -매수 후 시초가가, 5일이평선(일봉) 이격도 100 미만이면, 매수가를 상향돌파(초과)시 다음 첫봉에 청산. -매수 후 시초가가, 전일종가 대비 -1% 미만이면, 매수가 대비 +1% 수익시 다음 첫봉에 청산. -매수 후 주가가, 매수가 대비 -3.5% 이하까지 하락하였다면, 매수가를 상향돌파(초과)시 다음 첫봉에 청산 -매수 후 주가가, 매수가 대비 +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.06 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); }