안녕하세요 예스스탁입니다. 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; } if c < dayopen and dayopen <= DayClose(1)*1.01 and dayhigh <= dayopen*1.04 and dis1 >= 103 and ExitDate(1) != sdate and DayVolume < PredayVol*1 and countif(dis < 100,dayindex+1) < 1 Then{ if stime >= 90000 and stime < 100000 and dis >= 100.5 and dis < 101.5 Then buy("b1",AtMarket); if stime >= 100000 and stime < 110000 and dis >= 100.5 and dis < 102.0 Then buy("b2",AtMarket); if stime >= 110000 and stime < 120000 and dis >= 100.5 and dis < 102.5 Then buy("b3",AtMarket); if stime >= 120000 and stime < 130000 and dis >= 100.5 and dis < 103.0 Then buy("b4",AtMarket); if stime >= 130000 and stime < 140000 and dis >= 100.5 and dis < 103.5 Then buy("b5",AtMarket); if stime >= 140000 and stime < 144800 and dis >= 100.5 and dis < 104.0 Then buy("b6",AtMarket); if stime >= 143000 and stime < 144800 and c < Pivot and dis >= 100.5 and dis < 104.5 Then buy("b7",AtMarket); } if MarketPosition == 1 Then{ if sdate == EntryDate then{ if dis < 100.1 Then ExitLong("bx11",AtMarket); if C >= EntryPrice*1.045 Then ExitLong("bx12",AtMarket); } if sdate > EntryDate and daycnt == daycnt[BarsSinceEntry]+1 Then{ if stime >= 090800 and stime <= 091000 and C >= DayClose(1)*1.05 Then exitlong("bx21",AtMarket); if stime >= 091800 and stime <= 092000 and C >= DayClose(1)*1.04 Then exitlong("bx22",AtMarket); if stime >= 092800 and stime <= 093000 and C >= DayClose(1)*1.03 Then exitlong("bx23",AtMarket); if stime >= 093800 and stime <= 094000 and C >= DayClose(1)*1.02 Then exitlong("bx24",AtMarket); if C >= EntryPrice*1.10 Then ExitLong("bx25",AtMarket); if C >= DayClose(1)*1.08 Then ExitLong("bx26",AtMarket); if stime >= 095500 Then ExitLong("bx27",AtMarket); } } 즐거운 하루되세요 > 쌀사비팔 님이 쓴 글입니다. > 제목 : 한 가지 더 추가 부탁드립니다. 감사합니다. > 아래식에 한 가지 더 추가부탁드립니다. - 매수시점 주가는, 당일 시초가 미만이어야 함.(당일 음봉인 경우에만 매수) ------------------------------------------------------------- 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; } if dayopen <= DayClose(1)*1.01 and dayhigh <= dayopen*1.04 and dis1 >= 103 and ExitDate(1) != sdate and DayVolume < PredayVol*1 and countif(dis < 100,dayindex+1) < 1 Then{ if stime >= 90000 and stime < 100000 and dis >= 100.5 and dis < 101.5 Then buy("b1",AtMarket); if stime >= 100000 and stime < 110000 and dis >= 100.5 and dis < 102.0 Then buy("b2",AtMarket); if stime >= 110000 and stime < 120000 and dis >= 100.5 and dis < 102.5 Then buy("b3",AtMarket); if stime >= 120000 and stime < 130000 and dis >= 100.5 and dis < 103.0 Then buy("b4",AtMarket); if stime >= 130000 and stime < 140000 and dis >= 100.5 and dis < 103.5 Then buy("b5",AtMarket); if stime >= 140000 and stime < 144800 and dis >= 100.5 and dis < 104.0 Then buy("b6",AtMarket); if stime >= 143000 and stime < 144800 and c < Pivot and dis >= 100.5 and dis < 104.5 Then buy("b7",AtMarket); } if MarketPosition == 1 Then{ if sdate == EntryDate then{ if dis < 100.1 Then ExitLong("bx11",AtMarket); if C >= EntryPrice*1.045 Then ExitLong("bx12",AtMarket); } if sdate > EntryDate and daycnt == daycnt[BarsSinceEntry]+1 Then{ if stime >= 090800 and stime <= 091000 and C >= DayClose(1)*1.05 Then exitlong("bx21",AtMarket); if stime >= 091800 and stime <= 092000 and C >= DayClose(1)*1.04 Then exitlong("bx22",AtMarket); if stime >= 092800 and stime <= 093000 and C >= DayClose(1)*1.03 Then exitlong("bx23",AtMarket); if stime >= 093800 and stime <= 094000 and C >= DayClose(1)*1.02 Then exitlong("bx24",AtMarket); if C >= EntryPrice*1.10 Then ExitLong("bx25",AtMarket); if C >= DayClose(1)*1.08 Then ExitLong("bx26",AtMarket); if stime >= 095500 Then ExitLong("bx27",AtMarket); } }