안녕하세요 예스스탁입니다. input : fdate(20150610), stime_from(090000), stime_to(144500), entry1(1000000),entry2(1000000),entry3(2000000); input : updn_tm1(15), buy_r1(0.93), buy_r2(0.9), buy_r3(0.87); var : V1(0),V2(0),V3(0),cnt(0),count(0),updn_p1(0),AVgv(0); count = 0; for cnt = 0 to 10{ if sdate == EntryDate(cnt) Then count = count+1; } if CodeCategoryEx == 11 and BasePrice < 50000 Then { V1 = int(int(entry1/C)/10)*10; V2 = int(int(entry2/C)/10)*10; V3 = int(int(entry3/C)/10)*10; } Else { V1 = int(entry1/C); V2 = int(entry2/C); V3 = int(entry3/C); } if sdate != sdate[1] then { updn_p1 = updn_tm1 / BarInterval; } if sdate == fdate then { if MarketPosition == 0 and CurrentEntries == 0 then { var1 = Highest(H, updn_tm1)[1]; if stime >= stime_from and stime <= stime_to and count < 1 then { buy("b11",atlimit,var1*buy_r1,V1); buy("b12",atlimit,var1*buy_r2,V2); buy("b13",atlimit,var1*buy_r3,V3); var3 = var1; var4 = L; } } if MarketPosition == 1 and MaxEntries == 1 then { buy("b21",atlimit,var3*buy_r2,V2); buy("b22",atlimit,var3*buy_r3,V3); } if MarketPosition == 1 and MaxEntries == 2 then { buy("b31",atlimit,var3*buy_r3,V3); } if MarketPosition == 1 Then { AVgv = AvgEntryPrice; if L < var4 then var4 = L; if MaxEntries <= 2 Then{ if CurrentContracts == MaxContracts Then exitlong("bx1_1",atlimit,var4+(var3-var4)*0.5,"",int(MaxContracts*0.5),1); if CurrentContracts == MaxContracts Then exitlong("bx1_2",atlimit,var4+(var3-var4)*0.75); } if MaxEntries == 3 Then{ if CurrentContracts == MaxContracts Then exitlong("bx2_1",atlimit,var4+(var3-var4)*0.25,"",int(MaxContracts*0.5),1); if CurrentContracts == MaxContracts Then exitlong("bx2_2",atlimit,var4+(var3-var4)*0.50); } if stime >= 144500 Then{ exitlong("종가청산",AtMarket); if count == 1 and MarketPosition == 0 Then{ MessageLog("분할횟수 %.f 평균단가 %.f 수익금액 %.2f 수익률",MaxEntries(1),avgv,PositionProfit(1),PositionProfit(1)/avgv); } } } } 즐거운 하루되세요 > 엠제이 님이 쓴 글입니다. > 제목 : 부탁드립니다. > 당일 가격이 하락시에 3번에 걸쳐서 분할 매수하고 중간값만큼 반등이 나왔을때 청산하는 시스템을 만들었는데 보완을 부탁드리겠습니다. 첫번째 : 당일 한번이라도 매수청산이 일어났다면 더이상의 매수는 되지 않도록 보완해 주세요 ex1) 1차 매수후에 청산이 이루어지면 재매수하지 않습니다. ex2) 1차, 2차 매수후에 청산이 이루어지면 재매수하지 않습니다. ex3) 1차, 2차, 3차 매수후에 청산이 이루어지면 재매수하지 않습니다. 두번째 : 매수청산시에 현재는 절반만큼 반등이 나오면 모두 매수청산이 되도록 되어 있는데 분할해서 매수청산되도록 변경 부탁드립니다. 1) 매수가 1차 or 1차/2차까지 된 경우 저가대비 50% 반등시에 매수 물량의 50% 매도 저가대비 75% 반등시에 나머지 물량 모두 매도 2) 매수가 3차까지 된 경우 저가대비 25% 반등시에 매수 물량의 50% 매도 저가대비 50% 반등시에 나머지 물량 모두 매도 두번째 : 당일 매매가 이루어진 경우 14:49분에 매매정보를 MessageLog를 통해서 나오도록 보완부탁드립니다. MessageLog에 표시하고 싶은 내용은 아래와 같습니다. - 당일 분할매수횟수 - 당일 평균매수단가 or 1/2/3차 매수가 - 당일 수수료와 슬리피지를 포함한 수익금액 - 당일 수수료와 슬리피지를 포함한 수익률 감사합니다. input : fdate(20150610), stime_from(090000), stime_to(144500), entry1(1000000),entry2(1000000),entry3(2000000); input : updn_tm1(15), buy_r1(0.93), buy_r2(0.9), buy_r3(0.87); var : V1(0),V2(0),V3(0); if CodeCategoryEx == 11 and BasePrice < 50000 Then { V1 = int(int(entry1/C)/10)*10; V2 = int(int(entry2/C)/10)*10; V3 = int(int(entry3/C)/10)*10; } Else { V1 = int(entry1/C); V2 = int(entry2/C); V3 = int(entry3/C); } if sdate != sdate[1] then { updn_p1 = updn_tm1 / BarInterval; } if sdate == fdate then { if MarketPosition == 0 and CurrentEntries == 0 then { var1 = Highest(H, updn_tm1)[1]; if stime >= stime_from and stime <= stime_to then { buy("b11",atlimit,var1*buy_r1,V1); buy("b12",atlimit,var1*buy_r2,V2); buy("b13",atlimit,var1*buy_r3,V3); var3 = var1; var4 = L; } } if MarketPosition == 1 and CurrentEntries == 1 then { buy("b21",atlimit,var3*buy_r2,V2); buy("b22",atlimit,var3*buy_r3,V3); } if MarketPosition == 1 and CurrentEntries == 2 then { buy("b31",atlimit,var3*buy_r3,V3); } if MarketPosition == 1 Then { if L < var4 then var4 = L; exitlong("bx1_1",atlimit,(var3 + var4) / 2); if stime >= 144500 Then exitlong("종가청산",AtMarket); } }