안녕하세요 예스스탁입니다. Input:전환비율(0.382); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL1(0),Text1(0),T(0),지지(0),저항(0); Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime #==========================================# HH = H; LL = L; If Index == 0 Then { 고[1,1] = HH; 고[1,2] = 0; 저[1,1] = LL; 저[1,2] = 0; } If Index > 0 Then // Index가 0일때는 이전 봉이 없으므로 Index가 1일때부터 1씩 증가 { hiBar = hiBar + 1; // 최고점을 찍은 고[저]가의 위치를 저장 해놓기 위해 봉번호를 카운트한다. loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; // 현재 봉이 최고가이면 봉번호를 0으로 초기화 If LL[loBar] > LL Then loBar = 0; Condition1 = 저[1,1] * (1 + (전환비율/100)) < HH and hiBar == 0; // 전저점에서 최소변동률만큼 더한 값보다 고가가 크다면 추세가 변한 것으로 보고 신규 고점으로 인식 Condition2 = 고[1,1] * (1 - (전환비율/100)) > LL and loBar == 0; // 전고점에서 최소변동률만큼 뺀 값보다 저가가 작다면 추세가 변한 것으로 보고 신규 저점으로 인식 처리구분 = ""; If Condition1 and Condition2 Then // 고점과 저점 조건 동시 만족 { If 최종꼭지점 == "저점" Then { If 저[1,1] > LL Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HH Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition1 Then 처리구분 = "고점처리"; Else If Condition2 Then 처리구분 = "저점처리"; #==========================================# If 처리구분 == "고점처리" Then { If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH[hiBar]; hiBar = -1; // 다음 봉의 고가가 기준 고가로 인식되려면 hiBar 값이 0이 되어야 한다. // 봉이 바뀔 때마다 hiBar의 값을 1씩 증가시키므로 다음 봉의 hiBar 값은 0이 된다. loBar = -1; } Else If 고[1,1] < HH[hiBar] Then // 1번 고점보다 높은 고가 출현 { 고[1,1] = HH[hiBar]; hiBar = -1; loBar = -1; // 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임 } 최종꼭지점 = "고점"; T = 1; if T == 1 and T != T[1] then 지지 = 저[1,1] ; } #==========================================# If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } Else If 저[1,1] > LL[loBar] Then { 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } 최종꼭지점 = "저점"; T = -1; if T == -1 and T != T[1] then 저항 = 고[1,1] ; } //========================================// // // // var : 방향(0); if crossdown(c,지지) then { 방향 = -1; Condition1 = false; } if crossup(c,저항) then { 방향 = 1 ; Condition2 = false; } var : 상단(0), 하단(0); input : Per1(23.6),Per2(38.2),Per3(50.0),Per4(61.8),Per5(76.4),Per6(123.6),Per7(161.8),Per8(200); 상단 = 저항; 하단 = 지지; var1 = 상단 - (상단 - 하단)*Per1/100 ; var2 = 상단 - (상단 - 하단)*Per2/100 ; var3 = 상단 - (상단 - 하단)*Per3/100 ; var4 = 상단 - (상단 - 하단)*Per4/100 ; var5 = 상단 - (상단 - 하단)*Per5/100 ; if 방향 == 1 and Condition1 == false and (crossup(c,var3) or CrossDown(c,var3)) Then { buy(); Condition1 = true; } if MarketPosition == 1 and var3 != var3[BarsSinceEntry] and (crossup(c,var3) or CrossDown(c,var3)) Then ExitLong(); if 방향 == -1 and Condition2 == false and (crossup(c,var3) or CrossDown(c,var3)) Then Sell(); Condition2 = true; if MarketPosition == -1 and var3 != var3[BarsSinceEntry] and (crossup(c,var3) or CrossDown(c,var3)) Then ExitShort(); 즐거운 하루되세요 > 당일선물 님이 쓴 글입니다. > 제목 : 수식도움 부탁드립니다. > 아래의 참조수식에서 상단,하단 값을 아래 내용대로 수정부탁드립니다 상단값 = 파동선이 붉은색일 때 (직전고점을 상향돌파하면 붉은색으로 바뀜 : 수식에서 방향 == 1 , 저항 상향돌파시) 최고가 하단값 = 파동선이 파란색일 때 (직전저점을 하향돌파하면 파란색으로 바뀜 : 수식에서 방향 = -1 , 지지 하향돌파시) 최저가 ((그림에서 노란색 표시한 부분.....)) 붉은색파동구간에서의 최고가는 갱신될 수 있으며, 갱신된 값을 최고가로 함 파란색파동구간에서의 최저가는 갱신될 수 있으며, 갱신된 값을 최저가로 함 붉은색구간(직전고점을 갱신한 후)에서는 직전파란색구간 최저값과 계속 갱신되는 최고값을 사용 파란색구간(직전저점을 갱신한 후)에서는 직전붉은색구간의 최고값과 계속 갱신되는 최저값을 사용 지표식에서 파동선은 추세선으로 출력되지 않아도 됩니다. 조정대채널만 plot함수로 출력되도록하였습니다. 추가문의) 붉은색구간( 방향 == 1 ) 일 때, 첫번째 var3 에 닿을 때 매수 고점이 갱신된 이후 첫번째 var3에 닿을 때 매수 파란색구간(방향 == -1 ) 일 때, 첫번째 var3 에 닿을 때 매도 저점이 갱신된 이후 첫번째 var3에 닿을 때 매도 감사합니다. = 참조수식 == Input:전환비율(0.382); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL1(0),Text1(0),T(0),지지(0),저항(0); Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime #==========================================# HH = H; LL = L; If Index == 0 Then { 고[1,1] = HH; 고[1,2] = 0; 저[1,1] = LL; 저[1,2] = 0; } If Index > 0 Then // Index가 0일때는 이전 봉이 없으므로 Index가 1일때부터 1씩 증가 { hiBar = hiBar + 1; // 최고점을 찍은 고[저]가의 위치를 저장 해놓기 위해 봉번호를 카운트한다. loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; // 현재 봉이 최고가이면 봉번호를 0으로 초기화 If LL[loBar] > LL Then loBar = 0; Condition1 = 저[1,1] * (1 + (전환비율/100)) < HH and hiBar == 0; // 전저점에서 최소변동률만큼 더한 값보다 고가가 크다면 추세가 변한 것으로 보고 신규 고점으로 인식 Condition2 = 고[1,1] * (1 - (전환비율/100)) > LL and loBar == 0; // 전고점에서 최소변동률만큼 뺀 값보다 저가가 작다면 추세가 변한 것으로 보고 신규 저점으로 인식 처리구분 = ""; If Condition1 and Condition2 Then // 고점과 저점 조건 동시 만족 { If 최종꼭지점 == "저점" Then { If 저[1,1] > LL Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HH Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition1 Then 처리구분 = "고점처리"; Else If Condition2 Then 처리구분 = "저점처리"; #==========================================# If 처리구분 == "고점처리" Then { If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH[hiBar]; hiBar = -1; // 다음 봉의 고가가 기준 고가로 인식되려면 hiBar 값이 0이 되어야 한다. // 봉이 바뀔 때마다 hiBar의 값을 1씩 증가시키므로 다음 봉의 hiBar 값은 0이 된다. loBar = -1; } Else If 고[1,1] < HH[hiBar] Then // 1번 고점보다 높은 고가 출현 { 고[1,1] = HH[hiBar]; hiBar = -1; loBar = -1; // 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임 } 최종꼭지점 = "고점"; T = 1; if T == 1 and T != T[1] then 지지 = 저[1,1] ; } #==========================================# If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } Else If 저[1,1] > LL[loBar] Then { 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } 최종꼭지점 = "저점"; T = -1; if T == -1 and T != T[1] then 저항 = 고[1,1] ; } //========================================// // // // var : 방향(0); if crossdown(c,지지) then 방향 = -1; if crossup(c,저항) then 방향 = 1 ; // var : 상단(0), 하단(0); input : Per1(23.6),Per2(38.2),Per3(50.0),Per4(61.8),Per5(76.4),Per6(123.6),Per7(161.8),Per8(200); 상단 = 저항; 하단 = 지지; // var1 = 상단 - (상단 - 하단)*Per1/100 ; var2 = 상단 - (상단 - 하단)*Per2/100 ; var3 = 상단 - (상단 - 하단)*Per3/100 ; var4 = 상단 - (상단 - 하단)*Per4/100 ; var5 = 상단 - (상단 - 하단)*Per5/100 ; plot1(하단,"저"); plot2(상단,"고"); plot5(var1,"23.6"); plot6(var2,"38.2"); plot7(var3,"50.0"); plot8(var4,"61.8"); plot9(var5,"76.4"); if 방향 == 1 Then { plot10(99999,"라인1"); plot11(0,"라인2"); } Else{ if 방향 == -1 then { plot10(0,"라인1"); plot11(99999,"라인2"); } }

감사합니다. 지표수식을 뛰어보니 변경된 것이 없습니다. 다시 한번 검토 부탁드립니다 > 예스스탁 님이 쓴 글입니다. > 제목 : Re : 수식도움 부탁드립니다. > 안녕하세요 예스스탁입니다. Input:전환비율(0.382); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL1(0),Text1(0),T(0),지지(0),저항(0); Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime #==========================================# HH = H; LL = L; If Index == 0 Then { 고[1,1] = HH; 고[1,2] = 0; 저[1,1] = LL; 저[1,2] = 0; } If Index > 0 Then // Index가 0일때는 이전 봉이 없으므로 Index가 1일때부터 1씩 증가 { hiBar = hiBar + 1; // 최고점을 찍은 고[저]가의 위치를 저장 해놓기 위해 봉번호를 카운트한다. loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; // 현재 봉이 최고가이면 봉번호를 0으로 초기화 If LL[loBar] > LL Then loBar = 0; Condition1 = 저[1,1] * (1 + (전환비율/100)) < HH and hiBar == 0; // 전저점에서 최소변동률만큼 더한 값보다 고가가 크다면 추세가 변한 것으로 보고 신규 고점으로 인식 Condition2 = 고[1,1] * (1 - (전환비율/100)) > LL and loBar == 0; // 전고점에서 최소변동률만큼 뺀 값보다 저가가 작다면 추세가 변한 것으로 보고 신규 저점으로 인식 처리구분 = ""; If Condition1 and Condition2 Then // 고점과 저점 조건 동시 만족 { If 최종꼭지점 == "저점" Then { If 저[1,1] > LL Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HH Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition1 Then 처리구분 = "고점처리"; Else If Condition2 Then 처리구분 = "저점처리"; #==========================================# If 처리구분 == "고점처리" Then { If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH[hiBar]; hiBar = -1; // 다음 봉의 고가가 기준 고가로 인식되려면 hiBar 값이 0이 되어야 한다. // 봉이 바뀔 때마다 hiBar의 값을 1씩 증가시키므로 다음 봉의 hiBar 값은 0이 된다. loBar = -1; } Else If 고[1,1] < HH[hiBar] Then // 1번 고점보다 높은 고가 출현 { 고[1,1] = HH[hiBar]; hiBar = -1; loBar = -1; // 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임 } 최종꼭지점 = "고점"; T = 1; if T == 1 and T != T[1] then 지지 = 저[1,1] ; } #==========================================# If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } Else If 저[1,1] > LL[loBar] Then { 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } 최종꼭지점 = "저점"; T = -1; if T == -1 and T != T[1] then 저항 = 고[1,1] ; } //========================================// // // // var : 방향(0); if crossdown(c,지지) then { 방향 = -1; Condition1 = false; } if crossup(c,저항) then { 방향 = 1 ; Condition2 = false; } var : 상단(0), 하단(0); input : Per1(23.6),Per2(38.2),Per3(50.0),Per4(61.8),Per5(76.4),Per6(123.6),Per7(161.8),Per8(200); 상단 = 저항; 하단 = 지지; var1 = 상단 - (상단 - 하단)*Per1/100 ; var2 = 상단 - (상단 - 하단)*Per2/100 ; var3 = 상단 - (상단 - 하단)*Per3/100 ; var4 = 상단 - (상단 - 하단)*Per4/100 ; var5 = 상단 - (상단 - 하단)*Per5/100 ; if 방향 == 1 and Condition1 == false and (crossup(c,var3) or CrossDown(c,var3)) Then { buy(); Condition1 = true; } if MarketPosition == 1 and var3 != var3[BarsSinceEntry] and (crossup(c,var3) or CrossDown(c,var3)) Then ExitLong(); if 방향 == -1 and Condition2 == false and (crossup(c,var3) or CrossDown(c,var3)) Then Sell(); Condition2 = true; if MarketPosition == -1 and var3 != var3[BarsSinceEntry] and (crossup(c,var3) or CrossDown(c,var3)) Then ExitShort(); 즐거운 하루되세요 > 당일선물 님이 쓴 글입니다. > 제목 : 수식도움 부탁드립니다. > 아래의 참조수식에서 상단,하단 값을 아래 내용대로 수정부탁드립니다 상단값 = 파동선이 붉은색일 때 (직전고점을 상향돌파하면 붉은색으로 바뀜 : 수식에서 방향 == 1 , 저항 상향돌파시) 최고가 하단값 = 파동선이 파란색일 때 (직전저점을 하향돌파하면 파란색으로 바뀜 : 수식에서 방향 = -1 , 지지 하향돌파시) 최저가 ((그림에서 노란색 표시한 부분.....)) 붉은색파동구간에서의 최고가는 갱신될 수 있으며, 갱신된 값을 최고가로 함 파란색파동구간에서의 최저가는 갱신될 수 있으며, 갱신된 값을 최저가로 함 붉은색구간(직전고점을 갱신한 후)에서는 직전파란색구간 최저값과 계속 갱신되는 최고값을 사용 파란색구간(직전저점을 갱신한 후)에서는 직전붉은색구간의 최고값과 계속 갱신되는 최저값을 사용 지표식에서 파동선은 추세선으로 출력되지 않아도 됩니다. 조정대채널만 plot함수로 출력되도록하였습니다. 추가문의) 붉은색구간( 방향 == 1 ) 일 때, 첫번째 var3 에 닿을 때 매수 고점이 갱신된 이후 첫번째 var3에 닿을 때 매수 파란색구간(방향 == -1 ) 일 때, 첫번째 var3 에 닿을 때 매도 저점이 갱신된 이후 첫번째 var3에 닿을 때 매도 감사합니다. = 참조수식 == Input:전환비율(0.382); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL1(0),Text1(0),T(0),지지(0),저항(0); Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime #==========================================# HH = H; LL = L; If Index == 0 Then { 고[1,1] = HH; 고[1,2] = 0; 저[1,1] = LL; 저[1,2] = 0; } If Index > 0 Then // Index가 0일때는 이전 봉이 없으므로 Index가 1일때부터 1씩 증가 { hiBar = hiBar + 1; // 최고점을 찍은 고[저]가의 위치를 저장 해놓기 위해 봉번호를 카운트한다. loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; // 현재 봉이 최고가이면 봉번호를 0으로 초기화 If LL[loBar] > LL Then loBar = 0; Condition1 = 저[1,1] * (1 + (전환비율/100)) < HH and hiBar == 0; // 전저점에서 최소변동률만큼 더한 값보다 고가가 크다면 추세가 변한 것으로 보고 신규 고점으로 인식 Condition2 = 고[1,1] * (1 - (전환비율/100)) > LL and loBar == 0; // 전고점에서 최소변동률만큼 뺀 값보다 저가가 작다면 추세가 변한 것으로 보고 신규 저점으로 인식 처리구분 = ""; If Condition1 and Condition2 Then // 고점과 저점 조건 동시 만족 { If 최종꼭지점 == "저점" Then { If 저[1,1] > LL Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HH Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition1 Then 처리구분 = "고점처리"; Else If Condition2 Then 처리구분 = "저점처리"; #==========================================# If 처리구분 == "고점처리" Then { If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH[hiBar]; hiBar = -1; // 다음 봉의 고가가 기준 고가로 인식되려면 hiBar 값이 0이 되어야 한다. // 봉이 바뀔 때마다 hiBar의 값을 1씩 증가시키므로 다음 봉의 hiBar 값은 0이 된다. loBar = -1; } Else If 고[1,1] < HH[hiBar] Then // 1번 고점보다 높은 고가 출현 { 고[1,1] = HH[hiBar]; hiBar = -1; loBar = -1; // 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임 } 최종꼭지점 = "고점"; T = 1; if T == 1 and T != T[1] then 지지 = 저[1,1] ; } #==========================================# If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } Else If 저[1,1] > LL[loBar] Then { 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } 최종꼭지점 = "저점"; T = -1; if T == -1 and T != T[1] then 저항 = 고[1,1] ; } //========================================// // // // var : 방향(0); if crossdown(c,지지) then 방향 = -1; if crossup(c,저항) then 방향 = 1 ; // var : 상단(0), 하단(0); input : Per1(23.6),Per2(38.2),Per3(50.0),Per4(61.8),Per5(76.4),Per6(123.6),Per7(161.8),Per8(200); 상단 = 저항; 하단 = 지지; // var1 = 상단 - (상단 - 하단)*Per1/100 ; var2 = 상단 - (상단 - 하단)*Per2/100 ; var3 = 상단 - (상단 - 하단)*Per3/100 ; var4 = 상단 - (상단 - 하단)*Per4/100 ; var5 = 상단 - (상단 - 하단)*Per5/100 ; plot1(하단,"저"); plot2(상단,"고"); plot5(var1,"23.6"); plot6(var2,"38.2"); plot7(var3,"50.0"); plot8(var4,"61.8"); plot9(var5,"76.4"); if 방향 == 1 Then { plot10(99999,"라인1"); plot11(0,"라인2"); } Else{ if 방향 == -1 then { plot10(0,"라인1"); plot11(99999,"라인2"); } }

안녕하세요 예스스탁입니다. 요청하신 내용은 매수/매도하는 수식으로 시스템식입니다. 시스템에서난 plot명령어를 사용할수 없고 오직 신호만 발생합니다. 즐거운 하루되세요 > 당일선물 님이 쓴 글입니다. > 제목 : Re : Re : 수식도움 부탁드립니다. > 감사합니다. 지표수식을 뛰어보니 변경된 것이 없습니다. 다시 한번 검토 부탁드립니다 > 예스스탁 님이 쓴 글입니다. > 제목 : Re : 수식도움 부탁드립니다. > 안녕하세요 예스스탁입니다. Input:전환비율(0.382); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL1(0),Text1(0),T(0),지지(0),저항(0); Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime #==========================================# HH = H; LL = L; If Index == 0 Then { 고[1,1] = HH; 고[1,2] = 0; 저[1,1] = LL; 저[1,2] = 0; } If Index > 0 Then // Index가 0일때는 이전 봉이 없으므로 Index가 1일때부터 1씩 증가 { hiBar = hiBar + 1; // 최고점을 찍은 고[저]가의 위치를 저장 해놓기 위해 봉번호를 카운트한다. loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; // 현재 봉이 최고가이면 봉번호를 0으로 초기화 If LL[loBar] > LL Then loBar = 0; Condition1 = 저[1,1] * (1 + (전환비율/100)) < HH and hiBar == 0; // 전저점에서 최소변동률만큼 더한 값보다 고가가 크다면 추세가 변한 것으로 보고 신규 고점으로 인식 Condition2 = 고[1,1] * (1 - (전환비율/100)) > LL and loBar == 0; // 전고점에서 최소변동률만큼 뺀 값보다 저가가 작다면 추세가 변한 것으로 보고 신규 저점으로 인식 처리구분 = ""; If Condition1 and Condition2 Then // 고점과 저점 조건 동시 만족 { If 최종꼭지점 == "저점" Then { If 저[1,1] > LL Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HH Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition1 Then 처리구분 = "고점처리"; Else If Condition2 Then 처리구분 = "저점처리"; #==========================================# If 처리구분 == "고점처리" Then { If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH[hiBar]; hiBar = -1; // 다음 봉의 고가가 기준 고가로 인식되려면 hiBar 값이 0이 되어야 한다. // 봉이 바뀔 때마다 hiBar의 값을 1씩 증가시키므로 다음 봉의 hiBar 값은 0이 된다. loBar = -1; } Else If 고[1,1] < HH[hiBar] Then // 1번 고점보다 높은 고가 출현 { 고[1,1] = HH[hiBar]; hiBar = -1; loBar = -1; // 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임 } 최종꼭지점 = "고점"; T = 1; if T == 1 and T != T[1] then 지지 = 저[1,1] ; } #==========================================# If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } Else If 저[1,1] > LL[loBar] Then { 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } 최종꼭지점 = "저점"; T = -1; if T == -1 and T != T[1] then 저항 = 고[1,1] ; } //========================================// // // // var : 방향(0); if crossdown(c,지지) then { 방향 = -1; Condition1 = false; } if crossup(c,저항) then { 방향 = 1 ; Condition2 = false; } var : 상단(0), 하단(0); input : Per1(23.6),Per2(38.2),Per3(50.0),Per4(61.8),Per5(76.4),Per6(123.6),Per7(161.8),Per8(200); 상단 = 저항; 하단 = 지지; var1 = 상단 - (상단 - 하단)*Per1/100 ; var2 = 상단 - (상단 - 하단)*Per2/100 ; var3 = 상단 - (상단 - 하단)*Per3/100 ; var4 = 상단 - (상단 - 하단)*Per4/100 ; var5 = 상단 - (상단 - 하단)*Per5/100 ; if 방향 == 1 and Condition1 == false and (crossup(c,var3) or CrossDown(c,var3)) Then { buy(); Condition1 = true; } if MarketPosition == 1 and var3 != var3[BarsSinceEntry] and (crossup(c,var3) or CrossDown(c,var3)) Then ExitLong(); if 방향 == -1 and Condition2 == false and (crossup(c,var3) or CrossDown(c,var3)) Then Sell(); Condition2 = true; if MarketPosition == -1 and var3 != var3[BarsSinceEntry] and (crossup(c,var3) or CrossDown(c,var3)) Then ExitShort(); 즐거운 하루되세요 > 당일선물 님이 쓴 글입니다. > 제목 : 수식도움 부탁드립니다. > 아래의 참조수식에서 상단,하단 값을 아래 내용대로 수정부탁드립니다 상단값 = 파동선이 붉은색일 때 (직전고점을 상향돌파하면 붉은색으로 바뀜 : 수식에서 방향 == 1 , 저항 상향돌파시) 최고가 하단값 = 파동선이 파란색일 때 (직전저점을 하향돌파하면 파란색으로 바뀜 : 수식에서 방향 = -1 , 지지 하향돌파시) 최저가 ((그림에서 노란색 표시한 부분.....)) 붉은색파동구간에서의 최고가는 갱신될 수 있으며, 갱신된 값을 최고가로 함 파란색파동구간에서의 최저가는 갱신될 수 있으며, 갱신된 값을 최저가로 함 붉은색구간(직전고점을 갱신한 후)에서는 직전파란색구간 최저값과 계속 갱신되는 최고값을 사용 파란색구간(직전저점을 갱신한 후)에서는 직전붉은색구간의 최고값과 계속 갱신되는 최저값을 사용 지표식에서 파동선은 추세선으로 출력되지 않아도 됩니다. 조정대채널만 plot함수로 출력되도록하였습니다. 추가문의) 붉은색구간( 방향 == 1 ) 일 때, 첫번째 var3 에 닿을 때 매수 고점이 갱신된 이후 첫번째 var3에 닿을 때 매수 파란색구간(방향 == -1 ) 일 때, 첫번째 var3 에 닿을 때 매도 저점이 갱신된 이후 첫번째 var3에 닿을 때 매도 감사합니다. = 참조수식 == Input:전환비율(0.382); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL1(0),Text1(0),T(0),지지(0),저항(0); Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime #==========================================# HH = H; LL = L; If Index == 0 Then { 고[1,1] = HH; 고[1,2] = 0; 저[1,1] = LL; 저[1,2] = 0; } If Index > 0 Then // Index가 0일때는 이전 봉이 없으므로 Index가 1일때부터 1씩 증가 { hiBar = hiBar + 1; // 최고점을 찍은 고[저]가의 위치를 저장 해놓기 위해 봉번호를 카운트한다. loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; // 현재 봉이 최고가이면 봉번호를 0으로 초기화 If LL[loBar] > LL Then loBar = 0; Condition1 = 저[1,1] * (1 + (전환비율/100)) < HH and hiBar == 0; // 전저점에서 최소변동률만큼 더한 값보다 고가가 크다면 추세가 변한 것으로 보고 신규 고점으로 인식 Condition2 = 고[1,1] * (1 - (전환비율/100)) > LL and loBar == 0; // 전고점에서 최소변동률만큼 뺀 값보다 저가가 작다면 추세가 변한 것으로 보고 신규 저점으로 인식 처리구분 = ""; If Condition1 and Condition2 Then // 고점과 저점 조건 동시 만족 { If 최종꼭지점 == "저점" Then { If 저[1,1] > LL Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HH Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition1 Then 처리구분 = "고점처리"; Else If Condition2 Then 처리구분 = "저점처리"; #==========================================# If 처리구분 == "고점처리" Then { If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH[hiBar]; hiBar = -1; // 다음 봉의 고가가 기준 고가로 인식되려면 hiBar 값이 0이 되어야 한다. // 봉이 바뀔 때마다 hiBar의 값을 1씩 증가시키므로 다음 봉의 hiBar 값은 0이 된다. loBar = -1; } Else If 고[1,1] < HH[hiBar] Then // 1번 고점보다 높은 고가 출현 { 고[1,1] = HH[hiBar]; hiBar = -1; loBar = -1; // 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임 } 최종꼭지점 = "고점"; T = 1; if T == 1 and T != T[1] then 지지 = 저[1,1] ; } #==========================================# If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } Else If 저[1,1] > LL[loBar] Then { 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } 최종꼭지점 = "저점"; T = -1; if T == -1 and T != T[1] then 저항 = 고[1,1] ; } //========================================// // // // var : 방향(0); if crossdown(c,지지) then 방향 = -1; if crossup(c,저항) then 방향 = 1 ; // var : 상단(0), 하단(0); input : Per1(23.6),Per2(38.2),Per3(50.0),Per4(61.8),Per5(76.4),Per6(123.6),Per7(161.8),Per8(200); 상단 = 저항; 하단 = 지지; // var1 = 상단 - (상단 - 하단)*Per1/100 ; var2 = 상단 - (상단 - 하단)*Per2/100 ; var3 = 상단 - (상단 - 하단)*Per3/100 ; var4 = 상단 - (상단 - 하단)*Per4/100 ; var5 = 상단 - (상단 - 하단)*Per5/100 ; plot1(하단,"저"); plot2(상단,"고"); plot5(var1,"23.6"); plot6(var2,"38.2"); plot7(var3,"50.0"); plot8(var4,"61.8"); plot9(var5,"76.4"); if 방향 == 1 Then { plot10(99999,"라인1"); plot11(0,"라인2"); } Else{ if 방향 == -1 then { plot10(0,"라인1"); plot11(99999,"라인2"); } }

죄송하지만 지표식을 부탁드립니다. > 예스스탁 님이 쓴 글입니다. > 제목 : Re : Re : Re : 수식도움 부탁드립니다. > 안녕하세요 예스스탁입니다. 요청하신 내용은 매수/매도하는 수식으로 시스템식입니다. 시스템에서난 plot명령어를 사용할수 없고 오직 신호만 발생합니다. 즐거운 하루되세요 > 당일선물 님이 쓴 글입니다. > 제목 : Re : Re : 수식도움 부탁드립니다. > 감사합니다. 지표수식을 뛰어보니 변경된 것이 없습니다. 다시 한번 검토 부탁드립니다 > 예스스탁 님이 쓴 글입니다. > 제목 : Re : 수식도움 부탁드립니다. > 안녕하세요 예스스탁입니다. Input:전환비율(0.382); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL1(0),Text1(0),T(0),지지(0),저항(0); Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime #==========================================# HH = H; LL = L; If Index == 0 Then { 고[1,1] = HH; 고[1,2] = 0; 저[1,1] = LL; 저[1,2] = 0; } If Index > 0 Then // Index가 0일때는 이전 봉이 없으므로 Index가 1일때부터 1씩 증가 { hiBar = hiBar + 1; // 최고점을 찍은 고[저]가의 위치를 저장 해놓기 위해 봉번호를 카운트한다. loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; // 현재 봉이 최고가이면 봉번호를 0으로 초기화 If LL[loBar] > LL Then loBar = 0; Condition1 = 저[1,1] * (1 + (전환비율/100)) < HH and hiBar == 0; // 전저점에서 최소변동률만큼 더한 값보다 고가가 크다면 추세가 변한 것으로 보고 신규 고점으로 인식 Condition2 = 고[1,1] * (1 - (전환비율/100)) > LL and loBar == 0; // 전고점에서 최소변동률만큼 뺀 값보다 저가가 작다면 추세가 변한 것으로 보고 신규 저점으로 인식 처리구분 = ""; If Condition1 and Condition2 Then // 고점과 저점 조건 동시 만족 { If 최종꼭지점 == "저점" Then { If 저[1,1] > LL Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HH Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition1 Then 처리구분 = "고점처리"; Else If Condition2 Then 처리구분 = "저점처리"; #==========================================# If 처리구분 == "고점처리" Then { If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH[hiBar]; hiBar = -1; // 다음 봉의 고가가 기준 고가로 인식되려면 hiBar 값이 0이 되어야 한다. // 봉이 바뀔 때마다 hiBar의 값을 1씩 증가시키므로 다음 봉의 hiBar 값은 0이 된다. loBar = -1; } Else If 고[1,1] < HH[hiBar] Then // 1번 고점보다 높은 고가 출현 { 고[1,1] = HH[hiBar]; hiBar = -1; loBar = -1; // 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임 } 최종꼭지점 = "고점"; T = 1; if T == 1 and T != T[1] then 지지 = 저[1,1] ; } #==========================================# If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } Else If 저[1,1] > LL[loBar] Then { 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } 최종꼭지점 = "저점"; T = -1; if T == -1 and T != T[1] then 저항 = 고[1,1] ; } //========================================// // // // var : 방향(0); if crossdown(c,지지) then { 방향 = -1; Condition1 = false; } if crossup(c,저항) then { 방향 = 1 ; Condition2 = false; } var : 상단(0), 하단(0); input : Per1(23.6),Per2(38.2),Per3(50.0),Per4(61.8),Per5(76.4),Per6(123.6),Per7(161.8),Per8(200); 상단 = 저항; 하단 = 지지; var1 = 상단 - (상단 - 하단)*Per1/100 ; var2 = 상단 - (상단 - 하단)*Per2/100 ; var3 = 상단 - (상단 - 하단)*Per3/100 ; var4 = 상단 - (상단 - 하단)*Per4/100 ; var5 = 상단 - (상단 - 하단)*Per5/100 ; if 방향 == 1 and Condition1 == false and (crossup(c,var3) or CrossDown(c,var3)) Then { buy(); Condition1 = true; } if MarketPosition == 1 and var3 != var3[BarsSinceEntry] and (crossup(c,var3) or CrossDown(c,var3)) Then ExitLong(); if 방향 == -1 and Condition2 == false and (crossup(c,var3) or CrossDown(c,var3)) Then Sell(); Condition2 = true; if MarketPosition == -1 and var3 != var3[BarsSinceEntry] and (crossup(c,var3) or CrossDown(c,var3)) Then ExitShort(); 즐거운 하루되세요 > 당일선물 님이 쓴 글입니다. > 제목 : 수식도움 부탁드립니다. > 아래의 참조수식에서 상단,하단 값을 아래 내용대로 수정부탁드립니다 상단값 = 파동선이 붉은색일 때 (직전고점을 상향돌파하면 붉은색으로 바뀜 : 수식에서 방향 == 1 , 저항 상향돌파시) 최고가 하단값 = 파동선이 파란색일 때 (직전저점을 하향돌파하면 파란색으로 바뀜 : 수식에서 방향 = -1 , 지지 하향돌파시) 최저가 ((그림에서 노란색 표시한 부분.....)) 붉은색파동구간에서의 최고가는 갱신될 수 있으며, 갱신된 값을 최고가로 함 파란색파동구간에서의 최저가는 갱신될 수 있으며, 갱신된 값을 최저가로 함 붉은색구간(직전고점을 갱신한 후)에서는 직전파란색구간 최저값과 계속 갱신되는 최고값을 사용 파란색구간(직전저점을 갱신한 후)에서는 직전붉은색구간의 최고값과 계속 갱신되는 최저값을 사용 지표식에서 파동선은 추세선으로 출력되지 않아도 됩니다. 조정대채널만 plot함수로 출력되도록하였습니다. 추가문의) 붉은색구간( 방향 == 1 ) 일 때, 첫번째 var3 에 닿을 때 매수 고점이 갱신된 이후 첫번째 var3에 닿을 때 매수 파란색구간(방향 == -1 ) 일 때, 첫번째 var3 에 닿을 때 매도 저점이 갱신된 이후 첫번째 var3에 닿을 때 매도 감사합니다. = 참조수식 == Input:전환비율(0.382); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL1(0),Text1(0),T(0),지지(0),저항(0); Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime #==========================================# HH = H; LL = L; If Index == 0 Then { 고[1,1] = HH; 고[1,2] = 0; 저[1,1] = LL; 저[1,2] = 0; } If Index > 0 Then // Index가 0일때는 이전 봉이 없으므로 Index가 1일때부터 1씩 증가 { hiBar = hiBar + 1; // 최고점을 찍은 고[저]가의 위치를 저장 해놓기 위해 봉번호를 카운트한다. loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; // 현재 봉이 최고가이면 봉번호를 0으로 초기화 If LL[loBar] > LL Then loBar = 0; Condition1 = 저[1,1] * (1 + (전환비율/100)) < HH and hiBar == 0; // 전저점에서 최소변동률만큼 더한 값보다 고가가 크다면 추세가 변한 것으로 보고 신규 고점으로 인식 Condition2 = 고[1,1] * (1 - (전환비율/100)) > LL and loBar == 0; // 전고점에서 최소변동률만큼 뺀 값보다 저가가 작다면 추세가 변한 것으로 보고 신규 저점으로 인식 처리구분 = ""; If Condition1 and Condition2 Then // 고점과 저점 조건 동시 만족 { If 최종꼭지점 == "저점" Then { If 저[1,1] > LL Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HH Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition1 Then 처리구분 = "고점처리"; Else If Condition2 Then 처리구분 = "저점처리"; #==========================================# If 처리구분 == "고점처리" Then { If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH[hiBar]; hiBar = -1; // 다음 봉의 고가가 기준 고가로 인식되려면 hiBar 값이 0이 되어야 한다. // 봉이 바뀔 때마다 hiBar의 값을 1씩 증가시키므로 다음 봉의 hiBar 값은 0이 된다. loBar = -1; } Else If 고[1,1] < HH[hiBar] Then // 1번 고점보다 높은 고가 출현 { 고[1,1] = HH[hiBar]; hiBar = -1; loBar = -1; // 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임 } 최종꼭지점 = "고점"; T = 1; if T == 1 and T != T[1] then 지지 = 저[1,1] ; } #==========================================# If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } Else If 저[1,1] > LL[loBar] Then { 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } 최종꼭지점 = "저점"; T = -1; if T == -1 and T != T[1] then 저항 = 고[1,1] ; } //========================================// // // // var : 방향(0); if crossdown(c,지지) then 방향 = -1; if crossup(c,저항) then 방향 = 1 ; // var : 상단(0), 하단(0); input : Per1(23.6),Per2(38.2),Per3(50.0),Per4(61.8),Per5(76.4),Per6(123.6),Per7(161.8),Per8(200); 상단 = 저항; 하단 = 지지; // var1 = 상단 - (상단 - 하단)*Per1/100 ; var2 = 상단 - (상단 - 하단)*Per2/100 ; var3 = 상단 - (상단 - 하단)*Per3/100 ; var4 = 상단 - (상단 - 하단)*Per4/100 ; var5 = 상단 - (상단 - 하단)*Per5/100 ; plot1(하단,"저"); plot2(상단,"고"); plot5(var1,"23.6"); plot6(var2,"38.2"); plot7(var3,"50.0"); plot8(var4,"61.8"); plot9(var5,"76.4"); if 방향 == 1 Then { plot10(99999,"라인1"); plot11(0,"라인2"); } Else{ if 방향 == -1 then { plot10(0,"라인1"); plot11(99999,"라인2"); } }

원 수식입니다. 이 수식에서 추세선출력명령을 삭제하고...피보나치비율선을 plot으로 출력하도록 제가 가공했는데, 피보나치비율의 고점저점을 전화로 설명드린 대로(강세구간의 고점과 약세구간의 저점) 상단 하단을 정하는 것의 도움요청입니다. // Input:전환비율(1),종가사용여부(0),파동선두께(2),수치표시(1); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL1(0),Text1(0); Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime #==========================================# HH = IFF(종가사용여부 == 1,C,H); LL = IFF(종가사용여부 == 1,C,L); If Index == 0 Then { 고[1,1] = HH; 고[1,2] = 0; 고[1,3] = sDate; 고[1,4] = sTime; 저[1,1] = LL; 저[1,2] = 0; 저[1,3] = sDate; 저[1,4] = sTime; } If Index > 0 Then // Index가 0일때는 이전 봉이 없으므로 Index가 1일때부터 1씩 증가 { hiBar = hiBar + 1; // 최고점을 찍은 고[저]가의 위치를 저장 해놓기 위해 봉번호를 카운트한다. loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; // 현재 봉이 최고가이면 봉번호를 0으로 초기화 If LL[loBar] > LL Then loBar = 0; Condition1 = 저[1,1] * (1 + (전환비율/100)) < HH and hiBar == 0; // 전저점에서 최소변동률만큼 더한 값보다 고가가 크다면 추세가 변한 것으로 보고 신규 고점으로 인식 Condition2 = 고[1,1] * (1 - (전환비율/100)) > LL and loBar == 0; // 전고점에서 최소변동률만큼 뺀 값보다 저가가 작다면 추세가 변한 것으로 보고 신규 저점으로 인식 처리구분 = ""; If Condition1 and Condition2 Then // 고점과 저점 조건 동시 만족 { If 최종꼭지점 == "저점" Then { If 저[1,1] > LL Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HH Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition1 Then 처리구분 = "고점처리"; Else If Condition2 Then 처리구분 = "저점처리"; #==========================================# If 처리구분 == "고점처리" Then { If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH[hiBar]; 고[1,2] = Index - hiBar; 고[1,3] = sDate[hiBar]; 고[1,4] = sTime[hiBar]; hiBar = -1; // 다음 봉의 고가가 기준 고가로 인식되려면 hiBar 값이 0이 되어야 한다. // 봉이 바뀔 때마다 hiBar의 값을 1씩 증가시키므로 다음 봉의 hiBar 값은 0이 된다. loBar = -1; TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]); If 수치표시 == 1 Then { Text1 = Text_New(고[1,3],고[1,4],고[1,1],NumToStr(고[1,1],0)); Text_SetStyle(Text1, 2, 1); } TL_SetSize(TL1,파동선두께); TL_SetColor(TL1,Red); } Else If 고[1,1] < HH[hiBar] Then // 1번 고점보다 높은 고가 출현 { 고[1,1] = HH[hiBar]; 고[1,2] = Index - hiBar; 고[1,3] = sDate[hiBar]; 고[1,4] = sTime[hiBar]; hiBar = -1; loBar = -1; TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]); // 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임 If 수치표시 == 1 Then { Text_SetLocation(Text1,고[1,3],고[1,4],고[1,1]); Text_SetString(Text1,NumToStr(고[1,1],0)); } } 최종꼭지점 = "고점"; } #==========================================# If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL[loBar]; 저[1,2] = Index - loBar; 저[1,3] = sDate[loBar]; 저[1,4] = sTime[loBar]; hiBar = -1; loBar = -1; TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]); If 수치표시 == 1 Then { Text1 = Text_New(저[1,3],저[1,4],저[1,1],NumToStr(저[1,1],0)); Text_SetStyle(Text1, 2, 0); } TL_SetSize(TL1,파동선두께); TL_SetColor(TL1,Blue); } Else If 저[1,1] > LL[loBar] Then { 저[1,1] = LL[loBar]; 저[1,2] = Index - loBar; 저[1,3] = sDate[loBar]; 저[1,4] = sTime[loBar]; hiBar = -1; loBar = -1; TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]); If 수치표시 == 1 Then { Text_SetLocation(Text1,저[1,3],저[1,4],저[1,1]); Text_SetString(Text1,NumToStr(저[1,1],0)); } } 최종꼭지점 = "저점"; } > 예스스탁 님이 쓴 글입니다. > 제목 : Re : Re : Re : 수식도움 부탁드립니다. > 안녕하세요 예스스탁입니다. 요청하신 내용은 매수/매도하는 수식으로 시스템식입니다. 시스템에서난 plot명령어를 사용할수 없고 오직 신호만 발생합니다. 즐거운 하루되세요 > 당일선물 님이 쓴 글입니다. > 제목 : Re : Re : 수식도움 부탁드립니다. > 감사합니다. 지표수식을 뛰어보니 변경된 것이 없습니다. 다시 한번 검토 부탁드립니다 > 예스스탁 님이 쓴 글입니다. > 제목 : Re : 수식도움 부탁드립니다. > 안녕하세요 예스스탁입니다. Input:전환비율(0.382); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL1(0),Text1(0),T(0),지지(0),저항(0); Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime #==========================================# HH = H; LL = L; If Index == 0 Then { 고[1,1] = HH; 고[1,2] = 0; 저[1,1] = LL; 저[1,2] = 0; } If Index > 0 Then // Index가 0일때는 이전 봉이 없으므로 Index가 1일때부터 1씩 증가 { hiBar = hiBar + 1; // 최고점을 찍은 고[저]가의 위치를 저장 해놓기 위해 봉번호를 카운트한다. loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; // 현재 봉이 최고가이면 봉번호를 0으로 초기화 If LL[loBar] > LL Then loBar = 0; Condition1 = 저[1,1] * (1 + (전환비율/100)) < HH and hiBar == 0; // 전저점에서 최소변동률만큼 더한 값보다 고가가 크다면 추세가 변한 것으로 보고 신규 고점으로 인식 Condition2 = 고[1,1] * (1 - (전환비율/100)) > LL and loBar == 0; // 전고점에서 최소변동률만큼 뺀 값보다 저가가 작다면 추세가 변한 것으로 보고 신규 저점으로 인식 처리구분 = ""; If Condition1 and Condition2 Then // 고점과 저점 조건 동시 만족 { If 최종꼭지점 == "저점" Then { If 저[1,1] > LL Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HH Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition1 Then 처리구분 = "고점처리"; Else If Condition2 Then 처리구분 = "저점처리"; #==========================================# If 처리구분 == "고점처리" Then { If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH[hiBar]; hiBar = -1; // 다음 봉의 고가가 기준 고가로 인식되려면 hiBar 값이 0이 되어야 한다. // 봉이 바뀔 때마다 hiBar의 값을 1씩 증가시키므로 다음 봉의 hiBar 값은 0이 된다. loBar = -1; } Else If 고[1,1] < HH[hiBar] Then // 1번 고점보다 높은 고가 출현 { 고[1,1] = HH[hiBar]; hiBar = -1; loBar = -1; // 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임 } 최종꼭지점 = "고점"; T = 1; if T == 1 and T != T[1] then 지지 = 저[1,1] ; } #==========================================# If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } Else If 저[1,1] > LL[loBar] Then { 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } 최종꼭지점 = "저점"; T = -1; if T == -1 and T != T[1] then 저항 = 고[1,1] ; } //========================================// // // // var : 방향(0); if crossdown(c,지지) then { 방향 = -1; Condition1 = false; } if crossup(c,저항) then { 방향 = 1 ; Condition2 = false; } var : 상단(0), 하단(0); input : Per1(23.6),Per2(38.2),Per3(50.0),Per4(61.8),Per5(76.4),Per6(123.6),Per7(161.8),Per8(200); 상단 = 저항; 하단 = 지지; var1 = 상단 - (상단 - 하단)*Per1/100 ; var2 = 상단 - (상단 - 하단)*Per2/100 ; var3 = 상단 - (상단 - 하단)*Per3/100 ; var4 = 상단 - (상단 - 하단)*Per4/100 ; var5 = 상단 - (상단 - 하단)*Per5/100 ; if 방향 == 1 and Condition1 == false and (crossup(c,var3) or CrossDown(c,var3)) Then { buy(); Condition1 = true; } if MarketPosition == 1 and var3 != var3[BarsSinceEntry] and (crossup(c,var3) or CrossDown(c,var3)) Then ExitLong(); if 방향 == -1 and Condition2 == false and (crossup(c,var3) or CrossDown(c,var3)) Then Sell(); Condition2 = true; if MarketPosition == -1 and var3 != var3[BarsSinceEntry] and (crossup(c,var3) or CrossDown(c,var3)) Then ExitShort(); 즐거운 하루되세요 > 당일선물 님이 쓴 글입니다. > 제목 : 수식도움 부탁드립니다. > 아래의 참조수식에서 상단,하단 값을 아래 내용대로 수정부탁드립니다 상단값 = 파동선이 붉은색일 때 (직전고점을 상향돌파하면 붉은색으로 바뀜 : 수식에서 방향 == 1 , 저항 상향돌파시) 최고가 하단값 = 파동선이 파란색일 때 (직전저점을 하향돌파하면 파란색으로 바뀜 : 수식에서 방향 = -1 , 지지 하향돌파시) 최저가 ((그림에서 노란색 표시한 부분.....)) 붉은색파동구간에서의 최고가는 갱신될 수 있으며, 갱신된 값을 최고가로 함 파란색파동구간에서의 최저가는 갱신될 수 있으며, 갱신된 값을 최저가로 함 붉은색구간(직전고점을 갱신한 후)에서는 직전파란색구간 최저값과 계속 갱신되는 최고값을 사용 파란색구간(직전저점을 갱신한 후)에서는 직전붉은색구간의 최고값과 계속 갱신되는 최저값을 사용 지표식에서 파동선은 추세선으로 출력되지 않아도 됩니다. 조정대채널만 plot함수로 출력되도록하였습니다. 추가문의) 붉은색구간( 방향 == 1 ) 일 때, 첫번째 var3 에 닿을 때 매수 고점이 갱신된 이후 첫번째 var3에 닿을 때 매수 파란색구간(방향 == -1 ) 일 때, 첫번째 var3 에 닿을 때 매도 저점이 갱신된 이후 첫번째 var3에 닿을 때 매도 감사합니다. = 참조수식 == Input:전환비율(0.382); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL1(0),Text1(0),T(0),지지(0),저항(0); Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime #==========================================# HH = H; LL = L; If Index == 0 Then { 고[1,1] = HH; 고[1,2] = 0; 저[1,1] = LL; 저[1,2] = 0; } If Index > 0 Then // Index가 0일때는 이전 봉이 없으므로 Index가 1일때부터 1씩 증가 { hiBar = hiBar + 1; // 최고점을 찍은 고[저]가의 위치를 저장 해놓기 위해 봉번호를 카운트한다. loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; // 현재 봉이 최고가이면 봉번호를 0으로 초기화 If LL[loBar] > LL Then loBar = 0; Condition1 = 저[1,1] * (1 + (전환비율/100)) < HH and hiBar == 0; // 전저점에서 최소변동률만큼 더한 값보다 고가가 크다면 추세가 변한 것으로 보고 신규 고점으로 인식 Condition2 = 고[1,1] * (1 - (전환비율/100)) > LL and loBar == 0; // 전고점에서 최소변동률만큼 뺀 값보다 저가가 작다면 추세가 변한 것으로 보고 신규 저점으로 인식 처리구분 = ""; If Condition1 and Condition2 Then // 고점과 저점 조건 동시 만족 { If 최종꼭지점 == "저점" Then { If 저[1,1] > LL Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HH Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition1 Then 처리구분 = "고점처리"; Else If Condition2 Then 처리구분 = "저점처리"; #==========================================# If 처리구분 == "고점처리" Then { If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH[hiBar]; hiBar = -1; // 다음 봉의 고가가 기준 고가로 인식되려면 hiBar 값이 0이 되어야 한다. // 봉이 바뀔 때마다 hiBar의 값을 1씩 증가시키므로 다음 봉의 hiBar 값은 0이 된다. loBar = -1; } Else If 고[1,1] < HH[hiBar] Then // 1번 고점보다 높은 고가 출현 { 고[1,1] = HH[hiBar]; hiBar = -1; loBar = -1; // 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임 } 최종꼭지점 = "고점"; T = 1; if T == 1 and T != T[1] then 지지 = 저[1,1] ; } #==========================================# If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } Else If 저[1,1] > LL[loBar] Then { 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } 최종꼭지점 = "저점"; T = -1; if T == -1 and T != T[1] then 저항 = 고[1,1] ; } //========================================// // // // var : 방향(0); if crossdown(c,지지) then 방향 = -1; if crossup(c,저항) then 방향 = 1 ; // var : 상단(0), 하단(0); input : Per1(23.6),Per2(38.2),Per3(50.0),Per4(61.8),Per5(76.4),Per6(123.6),Per7(161.8),Per8(200); 상단 = 저항; 하단 = 지지; // var1 = 상단 - (상단 - 하단)*Per1/100 ; var2 = 상단 - (상단 - 하단)*Per2/100 ; var3 = 상단 - (상단 - 하단)*Per3/100 ; var4 = 상단 - (상단 - 하단)*Per4/100 ; var5 = 상단 - (상단 - 하단)*Per5/100 ; plot1(하단,"저"); plot2(상단,"고"); plot5(var1,"23.6"); plot6(var2,"38.2"); plot7(var3,"50.0"); plot8(var4,"61.8"); plot9(var5,"76.4"); if 방향 == 1 Then { plot10(99999,"라인1"); plot11(0,"라인2"); } Else{ if 방향 == -1 then { plot10(0,"라인1"); plot11(99999,"라인2"); } }

안녕하세요 예스스탁입니다. 지표식,시스템식 모두 다시 올려드립니다. 1 지표 Input:전환비율(0.382); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL1(0),Text1(0),T(0),지지(0),저항(0); Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime #==========================================# HH = H; LL = L; If Index == 0 Then { 고[1,1] = HH; 고[1,2] = 0; 저[1,1] = LL; 저[1,2] = 0; } If Index > 0 Then // Index가 0일때는 이전 봉이 없으므로 Index가 1일때부터 1씩 증가 { hiBar = hiBar + 1; // 최고점을 찍은 고[저]가의 위치를 저장 해놓기 위해 봉번호를 카운트한다. loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; // 현재 봉이 최고가이면 봉번호를 0으로 초기화 If LL[loBar] > LL Then loBar = 0; Condition1 = 저[1,1] * (1 + (전환비율/100)) < HH and hiBar == 0; // 전저점에서 최소변동률만큼 더한 값보다 고가가 크다면 추세가 변한 것으로 보고 신규 고점으로 인식 Condition2 = 고[1,1] * (1 - (전환비율/100)) > LL and loBar == 0; // 전고점에서 최소변동률만큼 뺀 값보다 저가가 작다면 추세가 변한 것으로 보고 신규 저점으로 인식 처리구분 = ""; If Condition1 and Condition2 Then // 고점과 저점 조건 동시 만족 { If 최종꼭지점 == "저점" Then { If 저[1,1] > LL Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HH Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition1 Then 처리구분 = "고점처리"; Else If Condition2 Then 처리구분 = "저점처리"; #==========================================# If 처리구분 == "고점처리" Then { If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH[hiBar]; hiBar = -1; // 다음 봉의 고가가 기준 고가로 인식되려면 hiBar 값이 0이 되어야 한다. // 봉이 바뀔 때마다 hiBar의 값을 1씩 증가시키므로 다음 봉의 hiBar 값은 0이 된다. loBar = -1; } Else If 고[1,1] < HH[hiBar] Then // 1번 고점보다 높은 고가 출현 { 고[1,1] = HH[hiBar]; hiBar = -1; loBar = -1; // 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임 } 최종꼭지점 = "고점"; T = 1; if T == 1 and T != T[1] then 지지 = 저[1,1] ; } #==========================================# If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } Else If 저[1,1] > LL[loBar] Then { 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } 최종꼭지점 = "저점"; T = -1; if T == -1 and T != T[1] then 저항 = 고[1,1] ; } //========================================// // // // var : 방향(0),HV(0),LV(0); if crossdown(c,지지) then 방향 = -1; if crossup(c,저항) then 방향 = 1 ; if 방향 == 1 and 방향 != 방향[1] Then Hv = H; if 방향 == 1 and H > HV Then Hv = H; if 방향 == -1 and 방향 != 방향[1] Then Lv = H; if 방향 == -1 and L < LV Then Lv = L; input : Per1(23.6),Per2(38.2),Per3(50.0),Per4(61.8),Per5(76.4),Per6(123.6),Per7(161.8),Per8(200); var1 = Hv - (Hv - Lv)*Per1/100 ; var2 = Hv - (Hv - Lv)*Per2/100 ; var3 = Hv - (Hv - Lv)*Per3/100 ; var4 = Hv - (Hv - Lv)*Per4/100 ; var5 = Hv - (Hv - Lv)*Per5/100 ; plot1(Hv,"저"); plot2(Lv,"고"); plot5(var1,"23.6"); plot6(var2,"38.2"); plot7(var3,"50.0"); plot8(var4,"61.8"); plot9(var5,"76.4"); if 방향 == 1 Then { plot10(99999,"라인1"); plot11(0,"라인2"); } Else{ if 방향 == -1 then { plot10(0,"라인1"); plot11(99999,"라인2"); } } 2 Input:전환비율(0.382); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL1(0),Text1(0),T(0),지지(0),저항(0); Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime #==========================================# HH = H; LL = L; If Index == 0 Then { 고[1,1] = HH; 고[1,2] = 0; 저[1,1] = LL; 저[1,2] = 0; } If Index > 0 Then // Index가 0일때는 이전 봉이 없으므로 Index가 1일때부터 1씩 증가 { hiBar = hiBar + 1; // 최고점을 찍은 고[저]가의 위치를 저장 해놓기 위해 봉번호를 카운트한다. loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; // 현재 봉이 최고가이면 봉번호를 0으로 초기화 If LL[loBar] > LL Then loBar = 0; Condition1 = 저[1,1] * (1 + (전환비율/100)) < HH and hiBar == 0; // 전저점에서 최소변동률만큼 더한 값보다 고가가 크다면 추세가 변한 것으로 보고 신규 고점으로 인식 Condition2 = 고[1,1] * (1 - (전환비율/100)) > LL and loBar == 0; // 전고점에서 최소변동률만큼 뺀 값보다 저가가 작다면 추세가 변한 것으로 보고 신규 저점으로 인식 처리구분 = ""; If Condition1 and Condition2 Then // 고점과 저점 조건 동시 만족 { If 최종꼭지점 == "저점" Then { If 저[1,1] > LL Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HH Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition1 Then 처리구분 = "고점처리"; Else If Condition2 Then 처리구분 = "저점처리"; #==========================================# If 처리구분 == "고점처리" Then { If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH[hiBar]; hiBar = -1; // 다음 봉의 고가가 기준 고가로 인식되려면 hiBar 값이 0이 되어야 한다. // 봉이 바뀔 때마다 hiBar의 값을 1씩 증가시키므로 다음 봉의 hiBar 값은 0이 된다. loBar = -1; } Else If 고[1,1] < HH[hiBar] Then // 1번 고점보다 높은 고가 출현 { 고[1,1] = HH[hiBar]; hiBar = -1; loBar = -1; // 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임 } 최종꼭지점 = "고점"; T = 1; if T == 1 and T != T[1] then 지지 = 저[1,1] ; } #==========================================# If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } Else If 저[1,1] > LL[loBar] Then { 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } 최종꼭지점 = "저점"; T = -1; if T == -1 and T != T[1] then 저항 = 고[1,1] ; } //========================================// // // // var : 방향(0),HV(0),LV(0); if crossdown(c,지지) then { 방향 = -1; Condition1 = false; } if crossup(c,저항) then { 방향 = 1 ; Condition2 = false; } if 방향 == 1 and 방향 != 방향[1] Then Hv = H; if 방향 == 1 and H > HV Then Hv = H; if 방향 == -1 and 방향 != 방향[1] Then Lv = H; if 방향 == -1 and L < LV Then Lv = L; input : Per1(23.6),Per2(38.2),Per3(50.0),Per4(61.8),Per5(76.4),Per6(123.6),Per7(161.8),Per8(200); var1 = Hv - (Hv - Lv)*Per1/100 ; var2 = Hv - (Hv - Lv)*Per2/100 ; var3 = Hv - (Hv - Lv)*Per3/100 ; var4 = Hv - (Hv - Lv)*Per4/100 ; var5 = Hv - (Hv - Lv)*Per5/100 ; if MarketPosition <= 0 and 방향 == 1 and Condition1 == false and CrossDown(c,var3) Then { buy(); Condition1 = true; } if MarketPosition == 1 and var3 > var3[BarsSinceEntry] and crossup(c,var3) Then ExitLong(); if MarketPosition >= 0 and 방향 == -1 and Condition2 == false and crossup(c,var3) Then { Sell(); Condition2 = true; } if MarketPosition == -1 and var3 < var3[BarsSinceEntry] and CrossDown(c,var3) Then ExitShort(); 즐거운 하루되세요 > 당일선물 님이 쓴 글입니다. > 제목 : Re : Re : Re : Re : 수식도움 부탁드립니다. > 죄송하지만 지표식을 부탁드립니다. > 예스스탁 님이 쓴 글입니다. > 제목 : Re : Re : Re : 수식도움 부탁드립니다. > 안녕하세요 예스스탁입니다. 요청하신 내용은 매수/매도하는 수식으로 시스템식입니다. 시스템에서난 plot명령어를 사용할수 없고 오직 신호만 발생합니다. 즐거운 하루되세요 > 당일선물 님이 쓴 글입니다. > 제목 : Re : Re : 수식도움 부탁드립니다. > 감사합니다. 지표수식을 뛰어보니 변경된 것이 없습니다. 다시 한번 검토 부탁드립니다 > 예스스탁 님이 쓴 글입니다. > 제목 : Re : 수식도움 부탁드립니다. > 안녕하세요 예스스탁입니다. Input:전환비율(0.382); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL1(0),Text1(0),T(0),지지(0),저항(0); Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime #==========================================# HH = H; LL = L; If Index == 0 Then { 고[1,1] = HH; 고[1,2] = 0; 저[1,1] = LL; 저[1,2] = 0; } If Index > 0 Then // Index가 0일때는 이전 봉이 없으므로 Index가 1일때부터 1씩 증가 { hiBar = hiBar + 1; // 최고점을 찍은 고[저]가의 위치를 저장 해놓기 위해 봉번호를 카운트한다. loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; // 현재 봉이 최고가이면 봉번호를 0으로 초기화 If LL[loBar] > LL Then loBar = 0; Condition1 = 저[1,1] * (1 + (전환비율/100)) < HH and hiBar == 0; // 전저점에서 최소변동률만큼 더한 값보다 고가가 크다면 추세가 변한 것으로 보고 신규 고점으로 인식 Condition2 = 고[1,1] * (1 - (전환비율/100)) > LL and loBar == 0; // 전고점에서 최소변동률만큼 뺀 값보다 저가가 작다면 추세가 변한 것으로 보고 신규 저점으로 인식 처리구분 = ""; If Condition1 and Condition2 Then // 고점과 저점 조건 동시 만족 { If 최종꼭지점 == "저점" Then { If 저[1,1] > LL Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HH Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition1 Then 처리구분 = "고점처리"; Else If Condition2 Then 처리구분 = "저점처리"; #==========================================# If 처리구분 == "고점처리" Then { If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH[hiBar]; hiBar = -1; // 다음 봉의 고가가 기준 고가로 인식되려면 hiBar 값이 0이 되어야 한다. // 봉이 바뀔 때마다 hiBar의 값을 1씩 증가시키므로 다음 봉의 hiBar 값은 0이 된다. loBar = -1; } Else If 고[1,1] < HH[hiBar] Then // 1번 고점보다 높은 고가 출현 { 고[1,1] = HH[hiBar]; hiBar = -1; loBar = -1; // 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임 } 최종꼭지점 = "고점"; T = 1; if T == 1 and T != T[1] then 지지 = 저[1,1] ; } #==========================================# If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } Else If 저[1,1] > LL[loBar] Then { 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } 최종꼭지점 = "저점"; T = -1; if T == -1 and T != T[1] then 저항 = 고[1,1] ; } //========================================// // // // var : 방향(0); if crossdown(c,지지) then { 방향 = -1; Condition1 = false; } if crossup(c,저항) then { 방향 = 1 ; Condition2 = false; } var : 상단(0), 하단(0); input : Per1(23.6),Per2(38.2),Per3(50.0),Per4(61.8),Per5(76.4),Per6(123.6),Per7(161.8),Per8(200); 상단 = 저항; 하단 = 지지; var1 = 상단 - (상단 - 하단)*Per1/100 ; var2 = 상단 - (상단 - 하단)*Per2/100 ; var3 = 상단 - (상단 - 하단)*Per3/100 ; var4 = 상단 - (상단 - 하단)*Per4/100 ; var5 = 상단 - (상단 - 하단)*Per5/100 ; if 방향 == 1 and Condition1 == false and (crossup(c,var3) or CrossDown(c,var3)) Then { buy(); Condition1 = true; } if MarketPosition == 1 and var3 != var3[BarsSinceEntry] and (crossup(c,var3) or CrossDown(c,var3)) Then ExitLong(); if 방향 == -1 and Condition2 == false and (crossup(c,var3) or CrossDown(c,var3)) Then Sell(); Condition2 = true; if MarketPosition == -1 and var3 != var3[BarsSinceEntry] and (crossup(c,var3) or CrossDown(c,var3)) Then ExitShort(); 즐거운 하루되세요 > 당일선물 님이 쓴 글입니다. > 제목 : 수식도움 부탁드립니다. > 아래의 참조수식에서 상단,하단 값을 아래 내용대로 수정부탁드립니다 상단값 = 파동선이 붉은색일 때 (직전고점을 상향돌파하면 붉은색으로 바뀜 : 수식에서 방향 == 1 , 저항 상향돌파시) 최고가 하단값 = 파동선이 파란색일 때 (직전저점을 하향돌파하면 파란색으로 바뀜 : 수식에서 방향 = -1 , 지지 하향돌파시) 최저가 ((그림에서 노란색 표시한 부분.....)) 붉은색파동구간에서의 최고가는 갱신될 수 있으며, 갱신된 값을 최고가로 함 파란색파동구간에서의 최저가는 갱신될 수 있으며, 갱신된 값을 최저가로 함 붉은색구간(직전고점을 갱신한 후)에서는 직전파란색구간 최저값과 계속 갱신되는 최고값을 사용 파란색구간(직전저점을 갱신한 후)에서는 직전붉은색구간의 최고값과 계속 갱신되는 최저값을 사용 지표식에서 파동선은 추세선으로 출력되지 않아도 됩니다. 조정대채널만 plot함수로 출력되도록하였습니다. 추가문의) 붉은색구간( 방향 == 1 ) 일 때, 첫번째 var3 에 닿을 때 매수 고점이 갱신된 이후 첫번째 var3에 닿을 때 매수 파란색구간(방향 == -1 ) 일 때, 첫번째 var3 에 닿을 때 매도 저점이 갱신된 이후 첫번째 var3에 닿을 때 매도 감사합니다. = 참조수식 == Input:전환비율(0.382); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL1(0),Text1(0),T(0),지지(0),저항(0); Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime #==========================================# HH = H; LL = L; If Index == 0 Then { 고[1,1] = HH; 고[1,2] = 0; 저[1,1] = LL; 저[1,2] = 0; } If Index > 0 Then // Index가 0일때는 이전 봉이 없으므로 Index가 1일때부터 1씩 증가 { hiBar = hiBar + 1; // 최고점을 찍은 고[저]가의 위치를 저장 해놓기 위해 봉번호를 카운트한다. loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; // 현재 봉이 최고가이면 봉번호를 0으로 초기화 If LL[loBar] > LL Then loBar = 0; Condition1 = 저[1,1] * (1 + (전환비율/100)) < HH and hiBar == 0; // 전저점에서 최소변동률만큼 더한 값보다 고가가 크다면 추세가 변한 것으로 보고 신규 고점으로 인식 Condition2 = 고[1,1] * (1 - (전환비율/100)) > LL and loBar == 0; // 전고점에서 최소변동률만큼 뺀 값보다 저가가 작다면 추세가 변한 것으로 보고 신규 저점으로 인식 처리구분 = ""; If Condition1 and Condition2 Then // 고점과 저점 조건 동시 만족 { If 최종꼭지점 == "저점" Then { If 저[1,1] > LL Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HH Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition1 Then 처리구분 = "고점처리"; Else If Condition2 Then 처리구분 = "저점처리"; #==========================================# If 처리구분 == "고점처리" Then { If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH[hiBar]; hiBar = -1; // 다음 봉의 고가가 기준 고가로 인식되려면 hiBar 값이 0이 되어야 한다. // 봉이 바뀔 때마다 hiBar의 값을 1씩 증가시키므로 다음 봉의 hiBar 값은 0이 된다. loBar = -1; } Else If 고[1,1] < HH[hiBar] Then // 1번 고점보다 높은 고가 출현 { 고[1,1] = HH[hiBar]; hiBar = -1; loBar = -1; // 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임 } 최종꼭지점 = "고점"; T = 1; if T == 1 and T != T[1] then 지지 = 저[1,1] ; } #==========================================# If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } Else If 저[1,1] > LL[loBar] Then { 저[1,1] = LL[loBar]; hiBar = -1; loBar = -1; } 최종꼭지점 = "저점"; T = -1; if T == -1 and T != T[1] then 저항 = 고[1,1] ; } //========================================// // // // var : 방향(0); if crossdown(c,지지) then 방향 = -1; if crossup(c,저항) then 방향 = 1 ; // var : 상단(0), 하단(0); input : Per1(23.6),Per2(38.2),Per3(50.0),Per4(61.8),Per5(76.4),Per6(123.6),Per7(161.8),Per8(200); 상단 = 저항; 하단 = 지지; // var1 = 상단 - (상단 - 하단)*Per1/100 ; var2 = 상단 - (상단 - 하단)*Per2/100 ; var3 = 상단 - (상단 - 하단)*Per3/100 ; var4 = 상단 - (상단 - 하단)*Per4/100 ; var5 = 상단 - (상단 - 하단)*Per5/100 ; plot1(하단,"저"); plot2(상단,"고"); plot5(var1,"23.6"); plot6(var2,"38.2"); plot7(var3,"50.0"); plot8(var4,"61.8"); plot9(var5,"76.4"); if 방향 == 1 Then { plot10(99999,"라인1"); plot11(0,"라인2"); } Else{ if 방향 == -1 then { plot10(0,"라인1"); plot11(99999,"라인2"); } }