• 커뮤니티
  • 질의응답
  • 예스랭귀지 Q&A

커뮤니티

청산식부탁드립니다

프로필 이미지
외국인
2013-01-29 10:42:03
239
글번호 58791
답변완료
안녕하세요 매수후 청산 매도후 청산 식부탁드립니다 Input:상승5전환가격(2),하락5전환가격(2); Var:j5(0),꺾은선5(0),방향5(0),상승5(100),하락5(-100), 기준고5(0),기준저5(0),기준고5Bar(0),기준저5Bar(0); Array:고5[20](0),저5[20](0),고5Bar[20](0),저5Bar[20](0); #==========================================# # 전고5점,전저5점 index 증가 #==========================================# For j5 = 1 To 19 { 고5Bar[j5] = 고5Bar[j5] + 1; 저5Bar[j5] = 저5Bar[j5] + 1; } #==========================================# # 최근 고5,저5 갱신 #==========================================# If 기준고5 <= C || 기준고5 == 0 || IsNaN(기준고5) == True Then { 기준고5 = C; 기준고5Bar = 0; } Else 기준고5Bar = 기준고5Bar + 1; If 기준저5 >= C || 기준저5 == 0 || IsNaN(기준저5) == True Then { 기준저5 = C; 기준저5Bar = 0; } Else 기준저5Bar = 기준저5Bar + 1; #==========================================# # 추세방향5 결정 #==========================================# If 기준저5[1] + 상승5전환가격 > C[1] && 기준저5[1] + 상승5전환가격 <= C Then 방향5 = 상승5; If 기준고5[1] - 하락5전환가격 < C[1] && 기준고5[1] - 하락5전환가격 >= C Then 방향5 = 하락5; #==========================================# # 추세변화에 따른 변곡점 처리 #==========================================# If 방향5[1] == 하락5 && 방향5 == 상승5 Then { For j5 = 18 DownTo 1 { 저5[j5+1] = 저5[j5]; 저5Bar[j5+1] = 저5Bar[j5]; } 저5[1] = 기준저5; 저5Bar[1] = 기준저5Bar; 꺾은선5 = 기준저5; 기준저5 = C; 기준저5Bar = 0; 기준고5 = C; 기준고5Bar = 0; } Else If 방향5[1] == 상승5 && 방향5 == 하락5 Then { For j5 = 18 DownTo 1 { 고5[j5+1] = 고5[j5]; 고5Bar[j5+1] = 고5Bar[j5]; } 고5[1] = 기준고5; 고5Bar[1] = 기준고5Bar; 꺾은선5 = 기준고5; 기준고5 = C; 기준고5Bar = 0; 기준저5 = C; 기준저5Bar = 0; } Else If 방향5[1] == 하락5 && 방향5 == 하락5 Then { If 기준고5[1] - 하락5전환가격 <= C[1] && 기준고5[1] - 하락5전환가격 > C && 고5[1] < 기준고5 Then { 고5[1] = 기준고5; 고5Bar[1] = 기준고5Bar; 꺾은선5 = 기준고5; 기준고5 = C; 기준고5Bar = 0; } } Else If 방향5[1] == 상승5 && 방향5 == 상승5 Then { If 기준저5[1] + 상승5전환가격 >= C[1] && 기준저5[1] + 상승5전환가격 < C && 저5[1] > 기준저5 Then { 저5[1] = 기준저5; 저5Bar[1] = 기준저5Bar; 꺾은선5 = 기준저5; 기준저5 = C; 기준저5Bar = 0; } } var : cnt4(0),B1cnt4(0),B2cnt4(0),B3cnt4(0),S1cnt4(0),S2cnt4(0),S3cnt4(0); B1cnt4 = 0; B2cnt4 = 0; B3cnt4 = 0; S1cnt4 = 0; S2cnt4 = 0; S3cnt4 = 0; for cnt4 = 0 to 10{ if sdate == EntryDate(cnt4) Then{ if IsEntryName("매수5",cnt4) == true Then B1cnt4 = B1cnt4+1; if IsEntryName("상5",cnt4) == true Then B2cnt4 = B2cnt4+1; if IsEntryName("상승5",cnt4) == true Then B3cnt4 = B3cnt4+1; if IsEntryName("매도5",cnt4) == true Then S1cnt4 = S1cnt4+1; if IsEntryName("하5",cnt4) == true Then S2cnt4 = S2cnt4+1; if IsEntryName("하락5",cnt4) == true Then S3cnt4 = S3cnt4+1; } } if B1cnt4 < 10 and 기준저5 >= C and 기준저5 + 상승5전환가격 > C+H Then buy("매수5"); if S1cnt4 < 10 and 기준고5 <= C and 기준저5 + 상승5전환가격 > C+H Then sell("매도5"); if B2cnt4 < 10 and 기준고5 == C and 기준고5 - 하락5전환가격 < C-L Then buy("상5"); if S2cnt4 < 10 and 기준저5 == C and 기준저5 + 상승5전환가격 > C-H Then sell("하5"); if B3cnt4 < 10 and 기준저5[1] + 상승5전환가격 > C[1] && 기준저5[1] + 상승5전환가격 <= C Then buy("상승5"); if S3cnt4 < 10 and 기준고5[1] - 하락5전환가격 < C[1] && 기준고5[1] - 하락5전환가격 >= C Then sell("하락5");
시스템
답변 3
프로필 이미지

예스스탁 예스스탁 답변

2013-01-29 10:59:17

안녕하세요 예스스탁입니다. 청산식의 내용에 대해 좀더 자세히 올려주시기 바랍니다. 현재 작성된 식은 반대포지션 상태에서 진입신호 발생하면 반대포지션을 청산하고 자기 진입을 하게 되어 있습니다. 즐거운 하루되세요 > 외국인 님이 쓴 글입니다. > 제목 : 청산식부탁드립니다 > 안녕하세요 매수후 청산 매도후 청산 식부탁드립니다 Input:상승5전환가격(2),하락5전환가격(2); Var:j5(0),꺾은선5(0),방향5(0),상승5(100),하락5(-100), 기준고5(0),기준저5(0),기준고5Bar(0),기준저5Bar(0); Array:고5[20](0),저5[20](0),고5Bar[20](0),저5Bar[20](0); #==========================================# # 전고5점,전저5점 index 증가 #==========================================# For j5 = 1 To 19 { 고5Bar[j5] = 고5Bar[j5] + 1; 저5Bar[j5] = 저5Bar[j5] + 1; } #==========================================# # 최근 고5,저5 갱신 #==========================================# If 기준고5 <= C || 기준고5 == 0 || IsNaN(기준고5) == True Then { 기준고5 = C; 기준고5Bar = 0; } Else 기준고5Bar = 기준고5Bar + 1; If 기준저5 >= C || 기준저5 == 0 || IsNaN(기준저5) == True Then { 기준저5 = C; 기준저5Bar = 0; } Else 기준저5Bar = 기준저5Bar + 1; #==========================================# # 추세방향5 결정 #==========================================# If 기준저5[1] + 상승5전환가격 > C[1] && 기준저5[1] + 상승5전환가격 <= C Then 방향5 = 상승5; If 기준고5[1] - 하락5전환가격 < C[1] && 기준고5[1] - 하락5전환가격 >= C Then 방향5 = 하락5; #==========================================# # 추세변화에 따른 변곡점 처리 #==========================================# If 방향5[1] == 하락5 && 방향5 == 상승5 Then { For j5 = 18 DownTo 1 { 저5[j5+1] = 저5[j5]; 저5Bar[j5+1] = 저5Bar[j5]; } 저5[1] = 기준저5; 저5Bar[1] = 기준저5Bar; 꺾은선5 = 기준저5; 기준저5 = C; 기준저5Bar = 0; 기준고5 = C; 기준고5Bar = 0; } Else If 방향5[1] == 상승5 && 방향5 == 하락5 Then { For j5 = 18 DownTo 1 { 고5[j5+1] = 고5[j5]; 고5Bar[j5+1] = 고5Bar[j5]; } 고5[1] = 기준고5; 고5Bar[1] = 기준고5Bar; 꺾은선5 = 기준고5; 기준고5 = C; 기준고5Bar = 0; 기준저5 = C; 기준저5Bar = 0; } Else If 방향5[1] == 하락5 && 방향5 == 하락5 Then { If 기준고5[1] - 하락5전환가격 <= C[1] && 기준고5[1] - 하락5전환가격 > C && 고5[1] < 기준고5 Then { 고5[1] = 기준고5; 고5Bar[1] = 기준고5Bar; 꺾은선5 = 기준고5; 기준고5 = C; 기준고5Bar = 0; } } Else If 방향5[1] == 상승5 && 방향5 == 상승5 Then { If 기준저5[1] + 상승5전환가격 >= C[1] && 기준저5[1] + 상승5전환가격 < C && 저5[1] > 기준저5 Then { 저5[1] = 기준저5; 저5Bar[1] = 기준저5Bar; 꺾은선5 = 기준저5; 기준저5 = C; 기준저5Bar = 0; } } var : cnt4(0),B1cnt4(0),B2cnt4(0),B3cnt4(0),S1cnt4(0),S2cnt4(0),S3cnt4(0); B1cnt4 = 0; B2cnt4 = 0; B3cnt4 = 0; S1cnt4 = 0; S2cnt4 = 0; S3cnt4 = 0; for cnt4 = 0 to 10{ if sdate == EntryDate(cnt4) Then{ if IsEntryName("매수5",cnt4) == true Then B1cnt4 = B1cnt4+1; if IsEntryName("상5",cnt4) == true Then B2cnt4 = B2cnt4+1; if IsEntryName("상승5",cnt4) == true Then B3cnt4 = B3cnt4+1; if IsEntryName("매도5",cnt4) == true Then S1cnt4 = S1cnt4+1; if IsEntryName("하5",cnt4) == true Then S2cnt4 = S2cnt4+1; if IsEntryName("하락5",cnt4) == true Then S3cnt4 = S3cnt4+1; } } if B1cnt4 < 10 and 기준저5 >= C and 기준저5 + 상승5전환가격 > C+H Then buy("매수5"); if S1cnt4 < 10 and 기준고5 <= C and 기준저5 + 상승5전환가격 > C+H Then sell("매도5"); if B2cnt4 < 10 and 기준고5 == C and 기준고5 - 하락5전환가격 < C-L Then buy("상5"); if S2cnt4 < 10 and 기준저5 == C and 기준저5 + 상승5전환가격 > C-H Then sell("하5"); if B3cnt4 < 10 and 기준저5[1] + 상승5전환가격 > C[1] && 기준저5[1] + 상승5전환가격 <= C Then buy("상승5"); if S3cnt4 < 10 and 기준고5[1] - 하락5전환가격 < C[1] && 기준고5[1] - 하락5전환가격 >= C Then sell("하락5");
프로필 이미지

외국인

2013-01-29 11:45:07

자기진입을하지않고 청산이된후 자기진입이 가능한지요 buy exit sell 이 가능한지요 > 예스스탁 님이 쓴 글입니다. > 제목 : Re : 청산식부탁드립니다 > 안녕하세요 예스스탁입니다. 청산식의 내용에 대해 좀더 자세히 올려주시기 바랍니다. 현재 작성된 식은 반대포지션 상태에서 진입신호 발생하면 반대포지션을 청산하고 자기 진입을 하게 되어 있습니다. 즐거운 하루되세요 > 외국인 님이 쓴 글입니다. > 제목 : 청산식부탁드립니다 > 안녕하세요 매수후 청산 매도후 청산 식부탁드립니다 Input:상승5전환가격(2),하락5전환가격(2); Var:j5(0),꺾은선5(0),방향5(0),상승5(100),하락5(-100), 기준고5(0),기준저5(0),기준고5Bar(0),기준저5Bar(0); Array:고5[20](0),저5[20](0),고5Bar[20](0),저5Bar[20](0); #==========================================# # 전고5점,전저5점 index 증가 #==========================================# For j5 = 1 To 19 { 고5Bar[j5] = 고5Bar[j5] + 1; 저5Bar[j5] = 저5Bar[j5] + 1; } #==========================================# # 최근 고5,저5 갱신 #==========================================# If 기준고5 <= C || 기준고5 == 0 || IsNaN(기준고5) == True Then { 기준고5 = C; 기준고5Bar = 0; } Else 기준고5Bar = 기준고5Bar + 1; If 기준저5 >= C || 기준저5 == 0 || IsNaN(기준저5) == True Then { 기준저5 = C; 기준저5Bar = 0; } Else 기준저5Bar = 기준저5Bar + 1; #==========================================# # 추세방향5 결정 #==========================================# If 기준저5[1] + 상승5전환가격 > C[1] && 기준저5[1] + 상승5전환가격 <= C Then 방향5 = 상승5; If 기준고5[1] - 하락5전환가격 < C[1] && 기준고5[1] - 하락5전환가격 >= C Then 방향5 = 하락5; #==========================================# # 추세변화에 따른 변곡점 처리 #==========================================# If 방향5[1] == 하락5 && 방향5 == 상승5 Then { For j5 = 18 DownTo 1 { 저5[j5+1] = 저5[j5]; 저5Bar[j5+1] = 저5Bar[j5]; } 저5[1] = 기준저5; 저5Bar[1] = 기준저5Bar; 꺾은선5 = 기준저5; 기준저5 = C; 기준저5Bar = 0; 기준고5 = C; 기준고5Bar = 0; } Else If 방향5[1] == 상승5 && 방향5 == 하락5 Then { For j5 = 18 DownTo 1 { 고5[j5+1] = 고5[j5]; 고5Bar[j5+1] = 고5Bar[j5]; } 고5[1] = 기준고5; 고5Bar[1] = 기준고5Bar; 꺾은선5 = 기준고5; 기준고5 = C; 기준고5Bar = 0; 기준저5 = C; 기준저5Bar = 0; } Else If 방향5[1] == 하락5 && 방향5 == 하락5 Then { If 기준고5[1] - 하락5전환가격 <= C[1] && 기준고5[1] - 하락5전환가격 > C && 고5[1] < 기준고5 Then { 고5[1] = 기준고5; 고5Bar[1] = 기준고5Bar; 꺾은선5 = 기준고5; 기준고5 = C; 기준고5Bar = 0; } } Else If 방향5[1] == 상승5 && 방향5 == 상승5 Then { If 기준저5[1] + 상승5전환가격 >= C[1] && 기준저5[1] + 상승5전환가격 < C && 저5[1] > 기준저5 Then { 저5[1] = 기준저5; 저5Bar[1] = 기준저5Bar; 꺾은선5 = 기준저5; 기준저5 = C; 기준저5Bar = 0; } } var : cnt4(0),B1cnt4(0),B2cnt4(0),B3cnt4(0),S1cnt4(0),S2cnt4(0),S3cnt4(0); B1cnt4 = 0; B2cnt4 = 0; B3cnt4 = 0; S1cnt4 = 0; S2cnt4 = 0; S3cnt4 = 0; for cnt4 = 0 to 10{ if sdate == EntryDate(cnt4) Then{ if IsEntryName("매수5",cnt4) == true Then B1cnt4 = B1cnt4+1; if IsEntryName("상5",cnt4) == true Then B2cnt4 = B2cnt4+1; if IsEntryName("상승5",cnt4) == true Then B3cnt4 = B3cnt4+1; if IsEntryName("매도5",cnt4) == true Then S1cnt4 = S1cnt4+1; if IsEntryName("하5",cnt4) == true Then S2cnt4 = S2cnt4+1; if IsEntryName("하락5",cnt4) == true Then S3cnt4 = S3cnt4+1; } } if B1cnt4 < 10 and 기준저5 >= C and 기준저5 + 상승5전환가격 > C+H Then buy("매수5"); if S1cnt4 < 10 and 기준고5 <= C and 기준저5 + 상승5전환가격 > C+H Then sell("매도5"); if B2cnt4 < 10 and 기준고5 == C and 기준고5 - 하락5전환가격 < C-L Then buy("상5"); if S2cnt4 < 10 and 기준저5 == C and 기준저5 + 상승5전환가격 > C-H Then sell("하5"); if B3cnt4 < 10 and 기준저5[1] + 상승5전환가격 > C[1] && 기준저5[1] + 상승5전환가격 <= C Then buy("상승5"); if S3cnt4 < 10 and 기준고5[1] - 하락5전환가격 < C[1] && 기준고5[1] - 하락5전환가격 >= C Then sell("하락5");
프로필 이미지

예스스탁 예스스탁 답변

2013-01-29 13:49:16

안녕하세요 예스스탁입니다. 아래와 같이 작성하시면 청산후에 다음봉에 진입하도록 작성했습니다. Input:상승5전환가격(2),하락5전환가격(2); Var:j5(0),꺾은선5(0),방향5(0),상승5(100),하락5(-100), 기준고5(0),기준저5(0),기준고5Bar(0),기준저5Bar(0); Array:고5[20](0),저5[20](0),고5Bar[20](0),저5Bar[20](0); #==========================================# # 전고5점,전저5점 index 증가 #==========================================# For j5 = 1 To 19 { 고5Bar[j5] = 고5Bar[j5] + 1; 저5Bar[j5] = 저5Bar[j5] + 1; } #==========================================# # 최근 고5,저5 갱신 #==========================================# If 기준고5 <= C || 기준고5 == 0 || IsNaN(기준고5) == True Then { 기준고5 = C; 기준고5Bar = 0; } Else 기준고5Bar = 기준고5Bar + 1; If 기준저5 >= C || 기준저5 == 0 || IsNaN(기준저5) == True Then { 기준저5 = C; 기준저5Bar = 0; } Else 기준저5Bar = 기준저5Bar + 1; #==========================================# # 추세방향5 결정 #==========================================# If 기준저5[1] + 상승5전환가격 > C[1] && 기준저5[1] + 상승5전환가격 <= C Then 방향5 = 상승5; If 기준고5[1] - 하락5전환가격 < C[1] && 기준고5[1] - 하락5전환가격 >= C Then 방향5 = 하락5; #==========================================# # 추세변화에 따른 변곡점 처리 #==========================================# If 방향5[1] == 하락5 && 방향5 == 상승5 Then { For j5 = 18 DownTo 1 { 저5[j5+1] = 저5[j5]; 저5Bar[j5+1] = 저5Bar[j5]; } 저5[1] = 기준저5; 저5Bar[1] = 기준저5Bar; 꺾은선5 = 기준저5; 기준저5 = C; 기준저5Bar = 0; 기준고5 = C; 기준고5Bar = 0; } Else If 방향5[1] == 상승5 && 방향5 == 하락5 Then { For j5 = 18 DownTo 1 { 고5[j5+1] = 고5[j5]; 고5Bar[j5+1] = 고5Bar[j5]; } 고5[1] = 기준고5; 고5Bar[1] = 기준고5Bar; 꺾은선5 = 기준고5; 기준고5 = C; 기준고5Bar = 0; 기준저5 = C; 기준저5Bar = 0; } Else If 방향5[1] == 하락5 && 방향5 == 하락5 Then { If 기준고5[1] - 하락5전환가격 <= C[1] && 기준고5[1] - 하락5전환가격 > C && 고5[1] < 기준고5 Then { 고5[1] = 기준고5; 고5Bar[1] = 기준고5Bar; 꺾은선5 = 기준고5; 기준고5 = C; 기준고5Bar = 0; } } Else If 방향5[1] == 상승5 && 방향5 == 상승5 Then { If 기준저5[1] + 상승5전환가격 >= C[1] && 기준저5[1] + 상승5전환가격 < C && 저5[1] > 기준저5 Then { 저5[1] = 기준저5; 저5Bar[1] = 기준저5Bar; 꺾은선5 = 기준저5; 기준저5 = C; 기준저5Bar = 0; } } var : cnt4(0),B1cnt4(0),B2cnt4(0),B3cnt4(0),S1cnt4(0),S2cnt4(0),S3cnt4(0); B1cnt4 = 0; B2cnt4 = 0; B3cnt4 = 0; S1cnt4 = 0; S2cnt4 = 0; S3cnt4 = 0; for cnt4 = 0 to 10{ if sdate == EntryDate(cnt4) Then{ if IsEntryName("매수5",cnt4) == true Then B1cnt4 = B1cnt4+1; if IsEntryName("상5",cnt4) == true Then B2cnt4 = B2cnt4+1; if IsEntryName("상승5",cnt4) == true Then B3cnt4 = B3cnt4+1; if IsEntryName("매도5",cnt4) == true Then S1cnt4 = S1cnt4+1; if IsEntryName("하5",cnt4) == true Then S2cnt4 = S2cnt4+1; if IsEntryName("하락5",cnt4) == true Then S3cnt4 = S3cnt4+1; } } if MarketPosition == 0 Then{ if B1cnt4 < 10 and 기준저5 >= C and 기준저5 + 상승5전환가격 > C+H Then buy("매수5"); if S1cnt4 < 10 and 기준고5 <= C and 기준저5 + 상승5전환가격 > C+H Then sell("매도5"); if B2cnt4 < 10 and 기준고5 == C and 기준고5 - 하락5전환가격 < C-L Then buy("상5"); if S2cnt4 < 10 and 기준저5 == C and 기준저5 + 상승5전환가격 > C-H Then sell("하5"); if B3cnt4 < 10 and 기준저5[1] + 상승5전환가격 > C[1] && 기준저5[1] + 상승5전환가격 <= C Then buy("상승5"); if S3cnt4 < 10 and 기준고5[1] - 하락5전환가격 < C[1] && 기준고5[1] - 하락5전환가격 >= C Then sell("하락5"); } if MarketPosition != 0 Then{ if B1cnt4 < 10 and 기준저5 >= C and 기준저5 + 상승5전환가격 > C+H Then ExitShort("매수5x"); if S1cnt4 < 10 and 기준고5 <= C and 기준저5 + 상승5전환가격 > C+H Then ExitLong("매도5x"); if B2cnt4 < 10 and 기준고5 == C and 기준고5 - 하락5전환가격 < C-L Then ExitShort("상5x"); if S2cnt4 < 10 and 기준저5 == C and 기준저5 + 상승5전환가격 > C-H Then ExitLong("하5x"); if B3cnt4 < 10 and 기준저5[1] + 상승5전환가격 > C[1] && 기준저5[1] + 상승5전환가격 <= C Then ExitShort("상승5x"); if S3cnt4 < 10 and 기준고5[1] - 하락5전환가격 < C[1] && 기준고5[1] - 하락5전환가격 >= C Then ExitLong("하락5x"); } if MarketPosition == 0 and BarsSinceExit(1) == 1 Then{ if IsExitName("매수5x",1) == true Then buy("매수5e"); if IsExitName("매도5x",1) == true Then sell("매도5e"); if IsExitName("상5x",1) == true Then buy("상5e"); if IsExitName("하5x",1) == true Then sell("하5e"); if IsExitName("상승5x",1) == true Then buy("상승5e"); if IsExitName("하락5x",1) == true Then sell("하락5e"); } 즐거운 하루되세요 > 외국인 님이 쓴 글입니다. > 제목 : Re : Re : 청산식부탁드립니다 > 자기진입을하지않고 청산이된후 자기진입이 가능한지요 buy exit sell 이 가능한지요 > 예스스탁 님이 쓴 글입니다. > 제목 : Re : 청산식부탁드립니다 > 안녕하세요 예스스탁입니다. 청산식의 내용에 대해 좀더 자세히 올려주시기 바랍니다. 현재 작성된 식은 반대포지션 상태에서 진입신호 발생하면 반대포지션을 청산하고 자기 진입을 하게 되어 있습니다. 즐거운 하루되세요 > 외국인 님이 쓴 글입니다. > 제목 : 청산식부탁드립니다 > 안녕하세요 매수후 청산 매도후 청산 식부탁드립니다 Input:상승5전환가격(2),하락5전환가격(2); Var:j5(0),꺾은선5(0),방향5(0),상승5(100),하락5(-100), 기준고5(0),기준저5(0),기준고5Bar(0),기준저5Bar(0); Array:고5[20](0),저5[20](0),고5Bar[20](0),저5Bar[20](0); #==========================================# # 전고5점,전저5점 index 증가 #==========================================# For j5 = 1 To 19 { 고5Bar[j5] = 고5Bar[j5] + 1; 저5Bar[j5] = 저5Bar[j5] + 1; } #==========================================# # 최근 고5,저5 갱신 #==========================================# If 기준고5 <= C || 기준고5 == 0 || IsNaN(기준고5) == True Then { 기준고5 = C; 기준고5Bar = 0; } Else 기준고5Bar = 기준고5Bar + 1; If 기준저5 >= C || 기준저5 == 0 || IsNaN(기준저5) == True Then { 기준저5 = C; 기준저5Bar = 0; } Else 기준저5Bar = 기준저5Bar + 1; #==========================================# # 추세방향5 결정 #==========================================# If 기준저5[1] + 상승5전환가격 > C[1] && 기준저5[1] + 상승5전환가격 <= C Then 방향5 = 상승5; If 기준고5[1] - 하락5전환가격 < C[1] && 기준고5[1] - 하락5전환가격 >= C Then 방향5 = 하락5; #==========================================# # 추세변화에 따른 변곡점 처리 #==========================================# If 방향5[1] == 하락5 && 방향5 == 상승5 Then { For j5 = 18 DownTo 1 { 저5[j5+1] = 저5[j5]; 저5Bar[j5+1] = 저5Bar[j5]; } 저5[1] = 기준저5; 저5Bar[1] = 기준저5Bar; 꺾은선5 = 기준저5; 기준저5 = C; 기준저5Bar = 0; 기준고5 = C; 기준고5Bar = 0; } Else If 방향5[1] == 상승5 && 방향5 == 하락5 Then { For j5 = 18 DownTo 1 { 고5[j5+1] = 고5[j5]; 고5Bar[j5+1] = 고5Bar[j5]; } 고5[1] = 기준고5; 고5Bar[1] = 기준고5Bar; 꺾은선5 = 기준고5; 기준고5 = C; 기준고5Bar = 0; 기준저5 = C; 기준저5Bar = 0; } Else If 방향5[1] == 하락5 && 방향5 == 하락5 Then { If 기준고5[1] - 하락5전환가격 <= C[1] && 기준고5[1] - 하락5전환가격 > C && 고5[1] < 기준고5 Then { 고5[1] = 기준고5; 고5Bar[1] = 기준고5Bar; 꺾은선5 = 기준고5; 기준고5 = C; 기준고5Bar = 0; } } Else If 방향5[1] == 상승5 && 방향5 == 상승5 Then { If 기준저5[1] + 상승5전환가격 >= C[1] && 기준저5[1] + 상승5전환가격 < C && 저5[1] > 기준저5 Then { 저5[1] = 기준저5; 저5Bar[1] = 기준저5Bar; 꺾은선5 = 기준저5; 기준저5 = C; 기준저5Bar = 0; } } var : cnt4(0),B1cnt4(0),B2cnt4(0),B3cnt4(0),S1cnt4(0),S2cnt4(0),S3cnt4(0); B1cnt4 = 0; B2cnt4 = 0; B3cnt4 = 0; S1cnt4 = 0; S2cnt4 = 0; S3cnt4 = 0; for cnt4 = 0 to 10{ if sdate == EntryDate(cnt4) Then{ if IsEntryName("매수5",cnt4) == true Then B1cnt4 = B1cnt4+1; if IsEntryName("상5",cnt4) == true Then B2cnt4 = B2cnt4+1; if IsEntryName("상승5",cnt4) == true Then B3cnt4 = B3cnt4+1; if IsEntryName("매도5",cnt4) == true Then S1cnt4 = S1cnt4+1; if IsEntryName("하5",cnt4) == true Then S2cnt4 = S2cnt4+1; if IsEntryName("하락5",cnt4) == true Then S3cnt4 = S3cnt4+1; } } if B1cnt4 < 10 and 기준저5 >= C and 기준저5 + 상승5전환가격 > C+H Then buy("매수5"); if S1cnt4 < 10 and 기준고5 <= C and 기준저5 + 상승5전환가격 > C+H Then sell("매도5"); if B2cnt4 < 10 and 기준고5 == C and 기준고5 - 하락5전환가격 < C-L Then buy("상5"); if S2cnt4 < 10 and 기준저5 == C and 기준저5 + 상승5전환가격 > C-H Then sell("하5"); if B3cnt4 < 10 and 기준저5[1] + 상승5전환가격 > C[1] && 기준저5[1] + 상승5전환가격 <= C Then buy("상승5"); if S3cnt4 < 10 and 기준고5[1] - 하락5전환가격 < C[1] && 기준고5[1] - 하락5전환가격 >= C Then sell("하락5");
등록