안녕하세요 예스스탁입니다. 해당식은 지표식이므로 시스템 조건식 내용에 대해 설명을 올려주시기 바랍니다. 1. 선물 Input:상승전환가격(5),하락전환가격(5); Var:jj(0),꺾은선(0),방향(0),상승(100),하락(-100), 기준고(0),기준저(0),기준고Bar(0),기준저Bar(0); Array:고점[20](0),저점[20](0),고Bar[20](0),저Bar[20](0); #==========================================# # 전고점,전저점 index 증가 #==========================================# #봉이 하나씩 생길때 마다 고bar와 저bar의 각 배열공간의 저장된 값을 1씩 증가 For jj = 1 To 19 { 고Bar[jj] = 고Bar[jj] + 1; 저Bar[jj] = 저Bar[jj] + 1; } #==========================================# # 최근 고,저 갱신 #==========================================# #기준고가 종가보다 작거나 기준고가 0이거나 기준고가 계산되지 않는 봉이면 If 기준고 <= C || 기준고 == 0 || IsNaN(기준고) == True Then { 기준고 = C; #기준고에 종가 저장 기준고Bar = 0;#기준고bar에 0으로 초기화 } Else #아니면 기준고Bar = 기준고Bar + 1;#기준고bar를 1씩 증가 #기준저가 종가보다 크거나 기준저가 0이거나 기준저가 계산되지 않는 봉이면 If 기준저 >= C || 기준저 == 0 || IsNaN(기준저) == True Then { 기준저 = C;#기준저에 종가저장 기준저Bar = 0;#기준저bar를 0으로 초기화 } Else#아니면 기준저Bar = 기준저Bar + 1;#기준저bar값을 1씩 증가 #==========================================# # 추세방향 결정 #==========================================# #1봉전 기준저+상승전환가격이 직전종가보다 크고 현재종가보다는 작으면 방향은 상승 If 기준저[1] + 상승전환가격 > C[1] && 기준저[1] + 상승전환가격 <= C Then{ 방향 = 상승; buy(); } #1봉전 기준고-하락전환가격이 직전종가보다 작고 현재종가보다는 크면 방향은 하락 If 기준고[1] - 하락전환가격 < C[1] && 기준고[1] - 하락전환가격 >= C Then{ 방향 = 하락; sell(); } #==========================================# # 추세변화에 따른 변곡점 처리 #==========================================# #현재 방향은 상승이고 직전봉은 하락이면 If 방향[1] == 하락 && 방향 == 상승 Then { For jj = 18 DownTo 1 { 저점[jj+1] = 저점[jj];#저점의 각 배열방의 값을 순차적으로 옮김 저Bar[jj+1] = 저Bar[jj];#저bar의 각 배열방의 값을 순차적으로 옮김 } 저점[1] = 기준저;#저점[1]에 기준저 저장 저Bar[1] = 기준저Bar;#저bar[1]에 기준저bar 저장 꺾은선 = 기준저;#꺽은선에 기준저 저장 기준저 = C;#기준저에 종가 저장 기준저Bar = 0;#기준저bar는 0으로 초기화 기준고 = C;#기준고에 종가 저장 기준고Bar = 0;#기준고bar는 0으로 초기화 } #현재 방향은 하락이고 직전봉은 상승이면 Else If 방향[1] == 상승 && 방향 == 하락 Then { For jj = 18 DownTo 1 { 고점[jj+1] = 고점[jj]; #저점의 각 배열방의 값을 순차적으로 옮김 고Bar[jj+1] = 고Bar[jj];#저bar의 각 배열방의 값을 순차적으로 옮김 } 고점[1] = 기준고; #고점[1]에 기준고 저장 고Bar[1] = 기준고Bar; #고bar[1]에 기준고bar 저장 꺾은선 = 기준고;#꺽은선에 기준고 저장 기준고 = C;#기준저에 종가 저장 기준고Bar = 0;#기준저bar는 0으로 초기화 기준저 = C;#기준고에 종가 저장 기준저Bar = 0;#기준고bar는 0으로 초기화 }#현재 방향은 하락이고 직전봉도 하락이면 Else If 방향[1] == 하락 && 방향 == 하락 Then { If 기준고[1] - 하락전환가격 <= C[1] && #직전봉 기준고-하락전환가격이 직전봉 종가보다는 작고 기준고[1] - 하락전환가격 > C &&#현재봉 종가보다는 크고 고점[1] < 기준고 Then#직전 고점이 기준고 보다 작으면 { 고점[1] = 기준고;#고점[1]에 기준고 저장 고Bar[1] = 기준고Bar;#고bar[1]에 기준고bar 저장 꺾은선 = 기준고;#꺽은선에 기준저 저장 기준고 = C;#기준고에 종가 저장 기준고Bar = 0;#기준고bar는 0으로 초기화 } } Else If 방향[1] == 상승 && 방향 == 상승 Then #방향이 상승이고 직전봉도 상승이면 { If 기준저[1] + 상승전환가격 >= C[1] && #직전봉 기준저+상승전환가격이 전봉 종가보다 크고 기준저[1] + 상승전환가격 < C && #직전봉 기준저+상승전환가격이 현재봉 종가보다 작고 저점[1] > 기준저 Then #직전 저점이 기준저보다 크면 { 저점[1] = 기준저;#저점[1]에 기준저 저장 저Bar[1] = 기준저Bar;#저bar[1]에 기준저bar저장 꺾은선 = 기준저;#꺽은선에 기준저 저장 기준저 = C;#기준저에 종가저장 기준저Bar = 0;#기준저bar는 0으로 초기화 } } 2. 콜옵션 매수-매수청산 Input:상승전환가격(5),하락전환가격(5); Var:jj(0),꺾은선(0),방향(0),상승(100),하락(-100), 기준고(0),기준저(0),기준고Bar(0),기준저Bar(0); Array:고점[20](0),저점[20](0),고Bar[20](0),저Bar[20](0); #==========================================# # 전고점,전저점 index 증가 #==========================================# For jj = 1 To 19 { 고Bar[jj] = 고Bar[jj] + 1; 저Bar[jj] = 저Bar[jj] + 1; } #==========================================# # 최근 고,저 갱신 #==========================================# If 기준고 <= C || 기준고 == 0 || IsNaN(기준고) == True Then { 기준고 = C; 기준고Bar = 0; } Else 기준고Bar = 기준고Bar + 1; If 기준저 >= C || 기준저 == 0 || IsNaN(기준저) == True Then { 기준저 = C; 기준저Bar = 0; } Else 기준저Bar = 기준저Bar + 1; #==========================================# # 추세방향 결정 #==========================================# If 기준저[1] + 상승전환가격 > C[1] && 기준저[1] + 상승전환가격 <= C Then{ 방향 = 상승; buy(); } If 기준고[1] - 하락전환가격 < C[1] && 기준고[1] - 하락전환가격 >= C Then{ 방향 = 하락; exitlong(); } #==========================================# # 추세변화에 따른 변곡점 처리 #==========================================# If 방향[1] == 하락 && 방향 == 상승 Then { For jj = 18 DownTo 1 { 저점[jj+1] = 저점[jj]; 저Bar[jj+1] = 저Bar[jj]; } 저점[1] = 기준저; 저Bar[1] = 기준저Bar; 꺾은선 = 기준저; 기준저 = C; 기준저Bar = 0; 기준고 = C; 기준고Bar = 0; } Else If 방향[1] == 상승 && 방향 == 하락 Then { For jj = 18 DownTo 1 { 고점[jj+1] = 고점[jj]; 고Bar[jj+1] = 고Bar[jj]; } 고점[1] = 기준고; 고Bar[1] = 기준고Bar; 꺾은선 = 기준고; 기준고 = C; 기준고Bar = 0; 기준저 = C; 기준저Bar = 0; } Else If 방향[1] == 하락 && 방향 == 하락 Then { If 기준고[1] - 하락전환가격 <= C[1] && 기준고[1] - 하락전환가격 > C && 고점[1] < 기준고 Then { 고점[1] = 기준고; 고Bar[1] = 기준고Bar; 꺾은선 = 기준고; 기준고 = C; 기준고Bar = 0; } } Else If 방향[1] == 상승 && 방향 == 상승 Then { If 기준저[1] + 상승전환가격 >= C[1] && 기준저[1] + 상승전환가격 < C && 저점[1] > 기준저 Then { 저점[1] = 기준저; 저Bar[1] = 기준저Bar; 꺾은선 = 기준저; 기준저 = C; 기준저Bar = 0; } } 3. 풋옵션 매수-매수청산 Input:상승전환가격(5),하락전환가격(5); Var:jj(0),꺾은선(0),방향(0),상승(100),하락(-100), 기준고(0),기준저(0),기준고Bar(0),기준저Bar(0); Array:고점[20](0),저점[20](0),고Bar[20](0),저Bar[20](0); #==========================================# # 전고점,전저점 index 증가 #==========================================# For jj = 1 To 19 { 고Bar[jj] = 고Bar[jj] + 1; 저Bar[jj] = 저Bar[jj] + 1; } #==========================================# # 최근 고,저 갱신 #==========================================# If 기준고 <= C || 기준고 == 0 || IsNaN(기준고) == True Then { 기준고 = C; 기준고Bar = 0; } Else 기준고Bar = 기준고Bar + 1; If 기준저 >= C || 기준저 == 0 || IsNaN(기준저) == True Then { 기준저 = C; 기준저Bar = 0; } Else 기준저Bar = 기준저Bar + 1; #==========================================# # 추세방향 결정 #==========================================# If 기준저[1] + 상승전환가격 > C[1] && 기준저[1] + 상승전환가격 <= C Then{ 방향 = 상승; exitlong(); } If 기준고[1] - 하락전환가격 < C[1] && 기준고[1] - 하락전환가격 >= C Then{ 방향 = 하락; buy(); } #==========================================# # 추세변화에 따른 변곡점 처리 #==========================================# If 방향[1] == 하락 && 방향 == 상승 Then { For jj = 18 DownTo 1 { 저점[jj+1] = 저점[jj]; 저Bar[jj+1] = 저Bar[jj]; } 저점[1] = 기준저; 저Bar[1] = 기준저Bar; 꺾은선 = 기준저; 기준저 = C; 기준저Bar = 0; 기준고 = C; 기준고Bar = 0; } Else If 방향[1] == 상승 && 방향 == 하락 Then { For jj = 18 DownTo 1 { 고점[jj+1] = 고점[jj]; 고Bar[jj+1] = 고Bar[jj]; } 고점[1] = 기준고; 고Bar[1] = 기준고Bar; 꺾은선 = 기준고; 기준고 = C; 기준고Bar = 0; 기준저 = C; 기준저Bar = 0; } Else If 방향[1] == 하락 && 방향 == 하락 Then { If 기준고[1] - 하락전환가격 <= C[1] && 기준고[1] - 하락전환가격 > C && 고점[1] < 기준고 Then { 고점[1] = 기준고; 고Bar[1] = 기준고Bar; 꺾은선 = 기준고; 기준고 = C; 기준고Bar = 0; } } Else If 방향[1] == 상승 && 방향 == 상승 Then { If 기준저[1] + 상승전환가격 >= C[1] && 기준저[1] + 상승전환가격 < C && 저점[1] > 기준저 Then { 저점[1] = 기준저; 저Bar[1] = 기준저Bar; 꺾은선 = 기준저; 기준저 = C; 기준저Bar = 0; } } 즐거운 하루되세요 > 외국인 님이 쓴 글입니다. > 제목 : 시스템식 > 안녕하세요 하기 식으로 1)선물 매수매도식부탁드립니다 2)콜옵션매수 매수청산식 5개약기준 3)풋옵션매수 매수청산식 5개약기준 4)각행마다 설명부탁합니다. Input:상승전환가격(5),하락전환가격(5); Var:jj(0),꺾은선(0),방향(0),상승(100),하락(-100), 기준고(0),기준저(0),기준고Bar(0),기준저Bar(0); Array:고점[20](0),저점[20](0),고Bar[20](0),저Bar[20](0); #==========================================# # 전고점,전저점 index 증가 #==========================================# For jj = 1 To 19 { 고Bar[jj] = 고Bar[jj] + 1; 저Bar[jj] = 저Bar[jj] + 1; } #==========================================# # 최근 고,저 갱신 #==========================================# If 기준고 <= C || 기준고 == 0 || IsNaN(기준고) == True Then { 기준고 = C; 기준고Bar = 0; } Else 기준고Bar = 기준고Bar + 1; If 기준저 >= C || 기준저 == 0 || IsNaN(기준저) == True Then { 기준저 = C; 기준저Bar = 0; } Else 기준저Bar = 기준저Bar + 1; #==========================================# # 추세방향 결정 #==========================================# If 기준저[1] + 상승전환가격 > C[1] && 기준저[1] + 상승전환가격 <= C Then 방향 = 상승; If 기준고[1] - 하락전환가격 < C[1] && 기준고[1] - 하락전환가격 >= C Then 방향 = 하락; #==========================================# # 추세변화에 따른 변곡점 처리 #==========================================# If 방향[1] == 하락 && 방향 == 상승 Then { For jj = 18 DownTo 1 { 저점[jj+1] = 저점[jj]; 저Bar[jj+1] = 저Bar[jj]; } 저점[1] = 기준저; 저Bar[1] = 기준저Bar; 꺾은선 = 기준저; 기준저 = C; 기준저Bar = 0; 기준고 = C; 기준고Bar = 0; } Else If 방향[1] == 상승 && 방향 == 하락 Then { For jj = 18 DownTo 1 { 고점[jj+1] = 고점[jj]; 고Bar[jj+1] = 고Bar[jj]; } 고점[1] = 기준고; 고Bar[1] = 기준고Bar; 꺾은선 = 기준고; 기준고 = C; 기준고Bar = 0; 기준저 = C; 기준저Bar = 0; } Else If 방향[1] == 하락 && 방향 == 하락 Then { If 기준고[1] - 하락전환가격 <= C[1] && 기준고[1] - 하락전환가격 > C && 고점[1] < 기준고 Then { 고점[1] = 기준고; 고Bar[1] = 기준고Bar; 꺾은선 = 기준고; 기준고 = C; 기준고Bar = 0; } } Else If 방향[1] == 상승 && 방향 == 상승 Then { If 기준저[1] + 상승전환가격 >= C[1] && 기준저[1] + 상승전환가격 < C && 저점[1] > 기준저 Then { 저점[1] = 기준저; 저Bar[1] = 기준저Bar; 꺾은선 = 기준저; 기준저 = C; 기준저Bar = 0; } } #==========================================# # 지표식 출력 #==========================================# If 꺾은선[1] != 꺾은선 Then Plot1(꺾은선); Else If LastBarOnChart == 1 Then plot1(Iff(방향 == 상승,기준고,기준저));