안녕하세요 예스스탁입니다. 1. 신호명이 익절이어서 상승시로 작성했습니다. 수정한 식입니다. ## 일봉상 일목균형표의 120일 기준선을 참조하여 3분봉에서 매매함. ## 외부변수 설정 ## input : 전략시작일자(20151019), 전략시작시간(090000), 전략매수금액(2000); input : 매수위치1차(1), 매수위치2차(2); input : 매도위치1차(1.5), 매도위치2차(2); input : 매수비중1차(50), 매수비중2차(50); input : 매도비중1차(50), 매도비중2차(50); input : 전략진입횟수(1); input : 최종손절위치(10),최종익절위치(1); input : Period(120); ## 내부변수 설정 ## var : CL(0),V0.5(0),V1(0),V2(0),V3(0); var : mid(0),V4(0),V5(0),V6(0),V7(0),V8(0),V9(0); var : diff(0),TF(0),cnt(0),value(0); var : entrycond1(false),entrycond2(false),entrycond3(false); # Period 전기간 최고가의 값이 있으면 if dayhigh(Period) > 0 Then { var1 = dayhigh(0); # 당일최고가(Period 기간동안 최고가를 계산하기 위한 초기값) var2 = daylow(0); # 당일최저가(Period 기간동안 최고가를 계산하기 위한 초기값) var11 = dayhigh(1); # 전일최고가(전일기준 Period 기간동안 최고가를 계산하기 위한 초기값) var12 = daylow(1); # 전일최저가(전일기준 Period 기간동안 최고가를 계산하기 위한 초기값) # 0일부터 Period전일까지 최고가와 최저가를 불러와 # Period 기간동안 최고가/최저가를 계산 # 전일기준은 0을 제외하고 Period 기간이므로 +1 for cnt = 0 to Period-1 { if DayHigh(cnt) > var1 Then var1 = DayHigh(cnt); if dayhigh(cnt+1) > var11 Then var11 = dayhigh(cnt+1); if daylow(cnt) < var2 Then var2 = daylow(cnt); if daylow(cnt+1) < var21 Then var21 = daylow(cnt+1); } # Period기간동알 최고가가 전일보다 상승하면 # CL에 당일 중간값 저장 if var11 < var1 Then CL = (var1+var2)/2; V0.5 = var1-((var1-CL)/5)*1; V1 = var1-((var1-CL)/5)*2; ## "빨"타점-1타점 V2 = var1-((var1-CL)/5)*3; ## "주"타점-2타점 V3 = var1-((var1-CL)/5)*4; ## "노"타점-3타점 mid = (var1+var2)/2; ## 중간선 V4 = var1-((var1-CL)/5)*5; ## "초"타점-4타점 V5 = var1-((var1-CL)/5)*6; ## "파"타점-5타점 V6 = var1-((var1-CL)/5)*7; ## "남"타점-6타점 V7 = var1-((var1-CL)/5)*8; ## "보"타점-7타점 V8 = var1-((var1-CL)/5)*9; ## "점"타점-8타점 V9 = var1-((var1-CL)/5)*9; ## "검"타점-9타점 value = abs(var1-V0.5); ####################################################### if sdate >= 전략시작일자 and # 지정일 이후 TotalTrades < 전략진입횟수 and # 최대 진입횟수 이전 MarketPosition == 0 and # 현재 무포지션 stime >= 전략시작시간 and #지정시간 이후 EntryCond1 == false Then { # EntryCond1은 false일때(첫진입이 발생하면 true로 변경되어 한번만 진입하게 됨) # (1차매수),(1차매수.)은 가격이 하락해서 1차매수가격을 터치한 것인지 # 시가가 갭으로 1차매수가격 이하에서 바로 시작해서 신호가 발생한것인지 # 구분하기 위해서 1차매수를 2개의 함수로 작성한 것입니다. # 시가가 지정한 가격보다 위에서 시작하면 하락해서 지정한 가격 터치시 매수(1차매수) # 시가가 지정한 가격보다 이하에서 바로 시작하면 시가에 바로 매수(1차매수.) if stime <= 145500 Then { if NextBarOpen > var1-value*(매수위치1차+1) Then buy("1차매수1",atlimit,var1-value*(매수위치1차+1),Floor((전략매수금액*10000*(매수비중1차/100))/C)); Else buy("1차매수2",AtMarket,def,Floor((전략매수금액*10000*(매수비중1차/100))/C)); } if stime == 150000 Then { if L <= var1[1]-value[1]*(매수위치1차+1) Then buy("1차매수3",AtMarket,def,Floor((전략매수금액*10000*(매수비중1차/100))/C)); } } # 매수진입이후 if MarketPosition == 1 then { # 추가진입이 발생하면 1차매도가 다시 발생할수 있도록 false로 초기화 if CurrentContracts > CurrentContracts[1] Then Condition1 = false; # 매수시점의 var1와 V0.5의 차이값을 diff에 저장 diff = abs(var1[BarsSinceEntry]-V0.5[BarsSinceEntry]); if MaxEntries == 1 and # 최대진입횟수가1이고(첫진입 한번만 발생한 상황) L >= var1-value*(매수위치2차+1) and # 저가가 2차매수가격 이상이고 EntryCond2 == false Then { # EntryCond2은 false일때(2차매수가 발생하면 true로 변경되어 한번만 진입하게 됨) # 다음봉에서 2차매수가격을 터치하면 신호발생(즉 가격이 하락해서 첫 터치가 발생하면 매수) if stime <= 145500 Then buy("2차매수1",atlimit,var1-value*(매수위치2차+1),Floor((전략매수금액*10000*(매수비중2차/100))/C)); if stime == 150000 and L <= var1[1]-value[1]*(매수위치2차+1) Then buy("2차매수2",AtMarket,def,Floor((전략매수금액*10000*(매수비중2차/100))/C)); } # Condition1과 Condition2는 각 매도의 횟수를 1번으로 제한하게 위한 변수 # 포지션 진행 중 1차매도란 이름의 청산이 발생하면 Condition1은 true if CurrentContracts < CurrentContracts[1] and (LatestExitName(0) == "1차매도1" or LatestExitName(0) == "1차매도2") Then Condition1 = true; # 포지션 진행 중 2차매도란 이름의 청산이 발생하면 Condition2는 true if CurrentContracts < CurrentContracts[1] and (LatestExitName(0) == "2차매도1" or LatestExitName(0) == "2차매도2") Then Condition2 = true; # Condition1이 false일때(첫진입후 아직 1차매도는 발생하지 않은 상태) # 당일 최저가에서 diff*매도위치1차만큼 상승하면 매도1차비중만큼 청산 if Condition1 == false then { if stime <= 145500 Then exitlong("1차매도1",atlimit,lowest(L,BarsSinceEntry)+diff*매도위치1차,"",Floor(MaxContracts*(매도비중1차/100)),1); if stime == 150000 and H >= lowest(L,BarsSinceEntry)[1]+diff[1]*매도위치1차 Then exitlong("1차매도2",AtMarket,def,"",Floor(MaxContracts*(매도비중1차/100)),1); } if Condition1 == true and CurrentContracts < MaxContracts then { if stime <= 145500 Then exitlong("최종익절1",AtStop,LatestExitPrice(0)-diff*최종익절위치); if stime == 150000 and L <= LatestExitPrice(0)-diff*최종익절위치 Then exitlong("최종익절2",AtMarket); } # Condition2는 false일때(첫진입후 아직 2차매도는 발생하지 않은 상태) # 당일 최저가에서 diff*매도위치2차만큼 상승하면 매도2차비중만큼 청산 if Condition2 == false then { if stime <= 145500 Then exitlong("2차매도1",atlimit,lowest(L,BarsSinceEntry)+diff*매도위치2차); if stime == 150000 and H >= lowest(L,BarsSinceEntry)[1]+diff[1]*매도위치2차 Then exitlong("2차매도2",AtMarket); } # 당일최고가에서 value*(최종손절위치+1)만큰 하락하면 전량청산 # 3분봉에서 정규장마지막봉 전봉까지만 만족했을때 신호발생 if stime < 145700 Then exitlong("최종손절1",AtStop,var1-value*(최종손절위치+1)); # 정규장 마지막봉에서 조건만족하면 다음봉(다음날)시가에 청산 if stime == 150000 and L <= var1[1]-value[1]*(최종손절위치+1) Then exitlong("최종손절2",AtMarket); } Else { # 매수포지션이 아니면 모두 false로 초기화 Condition1 = false; Condition2 = false; } } # 매수진입 후 1차매수나 1차매수.진입신호가 발생하면 true if MarketPosition == 1 and (LatestEntryName(0) == "1차매수1" or LatestEntryName(0) == "1차매수2" or LatestEntryName(0) == "1차매수3") Then entrycond1 = true; # 매수진입 후 2차매수가 발생하면 true if MarketPosition == 1 and (LatestEntryName(0) == "2차매수1" or LatestEntryName(0) == "2차매수2") Then entrycond2 = true; # 무포지션이면 flase로 초기화 if MarketPosition == 0 Then { entrycond1 = false; entrycond2 = false; } 2. 시스템식에서는 특정계좌의 최대 보유종목수를 제어할수 없습니다. 즐거운 하루되세요 > 종풍화성 님이 쓴 글입니다. > 제목 : 45140번글 관련 검토 부탁드립니다. > 그림1)과 같이 "최종익절"신호가 1차매도후에 "최종익절위치" 만큼 하락하면 나와야 하는데 아래 최종익절에 관한 부분이 이상합니다. 그림2)와 같이 한참후에 오히려 상승한 구간에서 "최종익절" 신호가 나왔습니다. 다시 검토 부탁드립니다. 그리고 수정된 부분만 주석 달아 주시면 감사하겠습니다. 그리고 45140번글 마지막 추가질문도 답변 부탁드려요.. if Condition1 == true and CurrentContracts < MaxContracts then { if stime <= 145500 Then exitlong("최종익절1",atlimit,LatestExitPrice(0)+diff*최종익절위치); if stime == 150000 and H >= LatestExitPrice(0)+diff*최종익절위치 Then exitlong("최종익절2",AtMarket); } ------------------- 전체 시스템식 입니다. --------------------------------- ## 일봉상 일목균형표의 120일 기준선을 참조하여 3분봉에서 매매함. ## 외부변수 설정 ## input : 전략시작일자(20151019), 전략시작시간(090000), 전략매수금액(2000); input : 매수위치1차(1), 매수위치2차(2); input : 매도위치1차(1.5), 매도위치2차(2); input : 매수비중1차(50), 매수비중2차(50); input : 매도비중1차(50), 매도비중2차(50); input : 전략진입횟수(1); input : 최종손절위치(10),최종익절위치(1); input : Period(120); ## 내부변수 설정 ## var : CL(0),V0.5(0),V1(0),V2(0),V3(0); var : mid(0),V4(0),V5(0),V6(0),V7(0),V8(0),V9(0); var : diff(0),TF(0),cnt(0),value(0); var : entrycond1(false),entrycond2(false),entrycond3(false); # Period 전기간 최고가의 값이 있으면 if dayhigh(Period) > 0 Then { var1 = dayhigh(0); # 당일최고가(Period 기간동안 최고가를 계산하기 위한 초기값) var2 = daylow(0); # 당일최저가(Period 기간동안 최고가를 계산하기 위한 초기값) var11 = dayhigh(1); # 전일최고가(전일기준 Period 기간동안 최고가를 계산하기 위한 초기값) var12 = daylow(1); # 전일최저가(전일기준 Period 기간동안 최고가를 계산하기 위한 초기값) # 0일부터 Period전일까지 최고가와 최저가를 불러와 # Period 기간동안 최고가/최저가를 계산 # 전일기준은 0을 제외하고 Period 기간이므로 +1 for cnt = 0 to Period-1 { if DayHigh(cnt) > var1 Then var1 = DayHigh(cnt); if dayhigh(cnt+1) > var11 Then var11 = dayhigh(cnt+1); if daylow(cnt) < var2 Then var2 = daylow(cnt); if daylow(cnt+1) < var21 Then var21 = daylow(cnt+1); } # Period기간동알 최고가가 전일보다 상승하면 # CL에 당일 중간값 저장 if var11 < var1 Then CL = (var1+var2)/2; V0.5 = var1-((var1-CL)/5)*1; V1 = var1-((var1-CL)/5)*2; ## "빨"타점-1타점 V2 = var1-((var1-CL)/5)*3; ## "주"타점-2타점 V3 = var1-((var1-CL)/5)*4; ## "노"타점-3타점 mid = (var1+var2)/2; ## 중간선 V4 = var1-((var1-CL)/5)*5; ## "초"타점-4타점 V5 = var1-((var1-CL)/5)*6; ## "파"타점-5타점 V6 = var1-((var1-CL)/5)*7; ## "남"타점-6타점 V7 = var1-((var1-CL)/5)*8; ## "보"타점-7타점 V8 = var1-((var1-CL)/5)*9; ## "점"타점-8타점 V9 = var1-((var1-CL)/5)*9; ## "검"타점-9타점 value = abs(var1-V0.5); ####################################################### if sdate >= 전략시작일자 and # 지정일 이후 TotalTrades < 전략진입횟수 and # 최대 진입횟수 이전 MarketPosition == 0 and # 현재 무포지션 stime >= 전략시작시간 and #지정시간 이후 EntryCond1 == false Then { # EntryCond1은 false일때(첫진입이 발생하면 true로 변경되어 한번만 진입하게 됨) # (1차매수),(1차매수.)은 가격이 하락해서 1차매수가격을 터치한 것인지 # 시가가 갭으로 1차매수가격 이하에서 바로 시작해서 신호가 발생한것인지 # 구분하기 위해서 1차매수를 2개의 함수로 작성한 것입니다. # 시가가 지정한 가격보다 위에서 시작하면 하락해서 지정한 가격 터치시 매수(1차매수) # 시가가 지정한 가격보다 이하에서 바로 시작하면 시가에 바로 매수(1차매수.) if stime <= 145500 Then { if NextBarOpen > var1-value*(매수위치1차+1) Then buy("1차매수1",atlimit,var1-value*(매수위치1차+1),Floor((전략매수금액*10000*(매수비중1차/100))/C)); Else buy("1차매수2",AtMarket,def,Floor((전략매수금액*10000*(매수비중1차/100))/C)); } if stime == 150000 Then { if L <= var1[1]-value[1]*(매수위치1차+1) Then buy("1차매수3",AtMarket,def,Floor((전략매수금액*10000*(매수비중1차/100))/C)); } } # 매수진입이후 if MarketPosition == 1 then { # 추가진입이 발생하면 1차매도가 다시 발생할수 있도록 false로 초기화 if CurrentContracts > CurrentContracts[1] Then Condition1 = false; # 매수시점의 var1와 V0.5의 차이값을 diff에 저장 diff = abs(var1[BarsSinceEntry]-V0.5[BarsSinceEntry]); if MaxEntries == 1 and # 최대진입횟수가1이고(첫진입 한번만 발생한 상황) L >= var1-value*(매수위치2차+1) and # 저가가 2차매수가격 이상이고 EntryCond2 == false Then { # EntryCond2은 false일때(2차매수가 발생하면 true로 변경되어 한번만 진입하게 됨) # 다음봉에서 2차매수가격을 터치하면 신호발생(즉 가격이 하락해서 첫 터치가 발생하면 매수) if stime <= 145500 Then buy("2차매수1",atlimit,var1-value*(매수위치2차+1),Floor((전략매수금액*10000*(매수비중2차/100))/C)); if stime == 150000 and L <= var1[1]-value[1]*(매수위치2차+1) Then buy("2차매수2",AtMarket,def,Floor((전략매수금액*10000*(매수비중2차/100))/C)); } # Condition1과 Condition2는 각 매도의 횟수를 1번으로 제한하게 위한 변수 # 포지션 진행 중 1차매도란 이름의 청산이 발생하면 Condition1은 true if CurrentContracts < CurrentContracts[1] and (LatestExitName(0) == "1차매도1" or LatestExitName(0) == "1차매도2") Then Condition1 = true; # 포지션 진행 중 2차매도란 이름의 청산이 발생하면 Condition2는 true if CurrentContracts < CurrentContracts[1] and (LatestExitName(0) == "2차매도1" or LatestExitName(0) == "2차매도2") Then Condition2 = true; # Condition1이 false일때(첫진입후 아직 1차매도는 발생하지 않은 상태) # 당일 최저가에서 diff*매도위치1차만큼 상승하면 매도1차비중만큼 청산 if Condition1 == false then { if stime <= 145500 Then exitlong("1차매도1",atlimit,lowest(L,BarsSinceEntry)+diff*매도위치1차,"",Floor(MaxContracts*(매도비중1차/100)),1); if stime == 150000 and H >= lowest(L,BarsSinceEntry)[1]+diff[1]*매도위치1차 Then exitlong("1차매도2",AtMarket,def,"",Floor(MaxContracts*(매도비중1차/100)),1); } if Condition1 == true and CurrentContracts < MaxContracts then { if stime <= 145500 Then exitlong("최종익절1",atlimit,LatestExitPrice(0)+diff*최종익절위치); if stime == 150000 and H >= LatestExitPrice(0)+diff*최종익절위치 Then exitlong("최종익절2",AtMarket); } # Condition2는 false일때(첫진입후 아직 2차매도는 발생하지 않은 상태) # 당일 최저가에서 diff*매도위치2차만큼 상승하면 매도2차비중만큼 청산 if Condition2 == false then { if stime <= 145500 Then exitlong("2차매도1",atlimit,lowest(L,BarsSinceEntry)+diff*매도위치2차); if stime == 150000 and H >= lowest(L,BarsSinceEntry)[1]+diff[1]*매도위치2차 Then exitlong("2차매도2",AtMarket); } # 당일최고가에서 value*(최종손절위치+1)만큰 하락하면 전량청산 # 3분봉에서 정규장마지막봉 전봉까지만 만족했을때 신호발생 if stime < 145700 Then exitlong("최종손절1",AtStop,var1-value*(최종손절위치+1)); # 정규장 마지막봉에서 조건만족하면 다음봉(다음날)시가에 청산 if stime == 150000 and L <= var1[1]-value[1]*(최종손절위치+1) Then exitlong("최종손절2",AtMarket); } Else { # 매수포지션이 아니면 모두 false로 초기화 Condition1 = false; Condition2 = false; } } # 매수진입 후 1차매수나 1차매수.진입신호가 발생하면 true if MarketPosition == 1 and (LatestEntryName(0) == "1차매수1" or LatestEntryName(0) == "1차매수2" or LatestEntryName(0) == "1차매수3") Then entrycond1 = true; # 매수진입 후 2차매수가 발생하면 true if MarketPosition == 1 and (LatestEntryName(0) == "2차매수1" or LatestEntryName(0) == "2차매수2") Then entrycond2 = true; # 무포지션이면 flase로 초기화 if MarketPosition == 0 Then { entrycond1 = false; entrycond2 = false; }