Input:지표변동폭(7); Var:j(0),상승(100),하락(-100),양방향(2),추세(0), 파동선(0),지표파동선(0),방향(0),지표V(0),추세선(0); Array:고[20](0),저[20](0),고Bar[20](0),저Bar[20](0), 지표고[20](0),지표저[20](0),지표고Bar[20](0),지표저Bar[20](0); input:p21(21),p05(0.5); var:ae(0),re(0),rm(0); ae=2/(p21+1); if accum(1)>2 then { re=(re[1]*(1+2*p05)+ae*(c-re[1])-p05*re[2])/(1+p05); rm=(re-re[1])/re*10000; } 지표V = RM; #==========================================# # 전고점,전저점 index 증가 #==========================================# For j = 1 To 19 { 지표고Bar[j] = 지표고Bar[j] + 1; 지표저Bar[j] = 지표저Bar[j] + 1; 저Bar[j] = 저Bar[j] + 1; 고Bar[j] = 고Bar[j] + 1; } #==========================================# # 최근 고,저 갱신 #==========================================# If 지표고[0] <= 지표V || 지표고[0] == 0 || IsNaN(지표고[0]) == True Then { 지표고[0] = 지표V; 지표고Bar[0] = 0; } Else 지표고Bar[0] = 지표고Bar[0] + 1; If 지표저[0] >= 지표V || 지표저[0] == 0 || IsNaN(지표저[0]) == True Then { 지표저[0] = 지표V; 지표저Bar[0] = 0; } Else 지표저Bar[0] = 지표저Bar[0] + 1; If 고[0] <= H || 고[0] == 0 || IsNaN(고[0]) == True Then { 고[0] = H; 고Bar[0] = 0; } Else 고Bar[0] = 고Bar[0] + 1; If 저[0] >= L || 저[0] == 0 || IsNaN(저[0]) == True Then { 저[0] = L; 저Bar[0] = 0; } Else 저Bar[0] = 저Bar[0] + 1; #==========================================# # 추세방향 결정 #==========================================# If 지표저[0][1] + 지표변동폭 > 지표V[1] && 지표저[0][1] + 지표변동폭 <= 지표V Then 방향 = 상승; If 지표고[0][1] - 지표변동폭 < 지표V[1] && 지표고[0][1] - 지표변동폭 >= 지표V Then 방향 = 하락; #==========================================# # 추세변화에 따른 변곡점 처리 #==========================================# If 방향[1] == 하락 && 방향 == 상승 Then { For j = 18 DownTo 1 { 지표저[j+1] = 지표저[j]; 지표저Bar[j+1] = 지표저Bar[j]; 저[j+1] = 저[j]; 저Bar[j+1] = 저Bar[j]; } 지표저[1] = 지표저[0]; 지표저Bar[1] = 지표저Bar[0]; 지표파동선 = 지표저[0]; 지표저[0] = 지표V; 지표저Bar[0] = 0; 지표고[0] = 지표V; 지표고Bar[0] = 0; 저[1] = 저[0]; 저Bar[1] = 저Bar[0]; 파동선 = 저[0]; 저[0] = L; 저Bar[0] = 0; 고[0] = H; 고Bar[0] = 0; } Else If 방향[1] == 상승 && 방향 == 하락 Then { For j = 18 DownTo 1 { 지표고[j+1] = 지표고[j]; 지표고Bar[j+1] = 지표고Bar[j]; 고[j+1] = 고[j]; 고Bar[j+1] = 고Bar[j]; } 지표고[1] = 지표고[0]; 지표고Bar[1] = 지표고Bar[0]; 지표파동선 = 지표고[0]; 지표고[0] = 지표V; 지표고Bar[0] = 0; 지표저[0] = 지표V; 지표저Bar[0] = 0; 고[1] = 고[0]; 고Bar[1] = 고Bar[0]; 파동선 = 고[0]; 고[0] = H; 고Bar[0] = 0; 저[0] = L; 저Bar[0] = 0; } Else If 방향[1] == 하락 && 방향 == 하락 Then { If 지표고[1] < 지표고[0] && 지표고[0][1] - 지표변동폭 <= 지표V[1] && 지표고[0][1] - 지표변동폭 > 지표V Then { 지표고[1] = 지표고[0]; 지표고Bar[1] = 지표고Bar[0]; 지표파동선 = 지표고[0]; 지표고[0] = 지표V; 지표고Bar[0] = 0; } If 고[1] < 고[0] && 고[0] > H Then { 고[1] = 고[0]; 고Bar[1] = 고Bar[0]; 파동선 = 고[0]; 고[0] = H; 고Bar[0] = 0; } } Else If 방향[1] == 상승 && 방향 == 상승 Then { If 지표저[1] > 지표저[0] && 지표저[0][1] + 지표변동폭 >= 지표V[1] && 지표저[0][1] + 지표변동폭 < 지표V Then { 지표저[1] = 지표저[0]; 지표저Bar[1] = 지표저Bar[0]; 지표파동선 = 지표저[0]; 지표저[0] = 지표V; 지표저Bar[0] = 0; } If 저[1] > 저[0] && 저[0] < L Then { 저[1] = 저[0]; 저Bar[1] = 저Bar[0]; 파동선 = 저[0]; 저[0] = L; 저Bar[0] = 0; } } #==========================================# # 지표식 출력 #==========================================# If 지표파동선[1] != 지표파동선 Then Plot1(파동선,"파동선",red); //적당껏 수평이동 Else If LastBarOnChart == 1 Then plot1(Iff(방향 == 상승,고[0],저[0]),"파동선",GREEN); iff( 지표파동선>지표파동선[1],magenta,blue); /*If 지표파동선[1] != 지표파동선 Then Plot1(파동선); //적당껏 수평이동 Else If LastBarOnChart == 1 Then plot1(Iff(방향 == 상승,고[0],저[0])); iff( 지표파동선>지표파동선[1],magenta,blue); */ #상승 다이버전스 : 주가의 저점 하락 + 지표의 저점 상승 If 저[2] > 저[1] && 지표저[2] < 지표저[1] Then { 추세선 = (저[1]-저[2])/(저Bar[2]-저Bar[1])*저Bar[2] + 저[2]; Plot3(추세선); } #하락 다이버전스 : 주가의 고점 상승 + 지표의 고점 하락 if 고[2] < 고[1] && 지표고[2] > 지표고[1] Then { 추세선 = (고[1]-고[2])/(고Bar[2]-고Bar[1])*고Bar[2] + 고[2]; Plot2(추세선); } > 수루지 님이 쓴 글입니다. > 제목 : 수식수정 부탁드림니다 > 아래 수식2의 rsi 대신에 수식1의 rm(모멘텀)선을 넣고 싶슴니다. 수식1: input:p21(21),p05(0.5); var:ae(0),re(0),rm(0); ae=2/(p21+1); if accum(1)>2 then { re=(re[1]*(1+2*p05)+ae*(c-re[1])-p05*re[2])/(1+p05); rm=(re-re[1])/re*10000; } plot1(rm,"모멘텀"); 수식2: #==========================================# # 지표명 : RSI다이버전스 주가파동선 #==========================================# Input:Period(16),Rsi변동폭(7); Var:j(0),상승(100),하락(-100),양방향(2),추세(0), 파동선(0),Rsi파동선(0),방향(0),RsiV(0),추세선(0); Array:고[20](0),저[20](0),고Bar[20](0),저Bar[20](0), Rsi고[20](0),Rsi저[20](0),Rsi고Bar[20](0),Rsi저Bar[20](0); RsiV = RSI(Period); #==========================================# # 전고점,전저점 index 증가 #==========================================# For j = 1 To 19 { Rsi고Bar[j] = Rsi고Bar[j] + 1; Rsi저Bar[j] = Rsi저Bar[j] + 1; 저Bar[j] = 저Bar[j] + 1; 고Bar[j] = 고Bar[j] + 1; } #==========================================# # 최근 고,저 갱신 #==========================================# If Rsi고[0] <= RsiV || Rsi고[0] == 0 || IsNaN(Rsi고[0]) == True Then { Rsi고[0] = RsiV; Rsi고Bar[0] = 0; } Else Rsi고Bar[0] = Rsi고Bar[0] + 1; If Rsi저[0] >= RsiV || Rsi저[0] == 0 || IsNaN(Rsi저[0]) == True Then { Rsi저[0] = RsiV; Rsi저Bar[0] = 0; } Else Rsi저Bar[0] = Rsi저Bar[0] + 1; If 고[0] <= H || 고[0] == 0 || IsNaN(고[0]) == True Then { 고[0] = H; 고Bar[0] = 0; } Else 고Bar[0] = 고Bar[0] + 1; If 저[0] >= L || 저[0] == 0 || IsNaN(저[0]) == True Then { 저[0] = L; 저Bar[0] = 0; } Else 저Bar[0] = 저Bar[0] + 1; #==========================================# # 추세방향 결정 #==========================================# If Rsi저[0][1] + Rsi변동폭 > RsiV[1] && Rsi저[0][1] + Rsi변동폭 <= RsiV Then 방향 = 상승; If Rsi고[0][1] - Rsi변동폭 < RsiV[1] && Rsi고[0][1] - Rsi변동폭 >= RsiV Then 방향 = 하락; #==========================================# # 추세변화에 따른 변곡점 처리 #==========================================# If 방향[1] == 하락 && 방향 == 상승 Then { For j = 18 DownTo 1 { Rsi저[j+1] = Rsi저[j]; Rsi저Bar[j+1] = Rsi저Bar[j]; 저[j+1] = 저[j]; 저Bar[j+1] = 저Bar[j]; } Rsi저[1] = Rsi저[0]; Rsi저Bar[1] = Rsi저Bar[0]; Rsi파동선 = Rsi저[0]; Rsi저[0] = RsiV; Rsi저Bar[0] = 0; Rsi고[0] = RsiV; Rsi고Bar[0] = 0; 저[1] = 저[0]; 저Bar[1] = 저Bar[0]; 파동선 = 저[0]; 저[0] = L; 저Bar[0] = 0; 고[0] = H; 고Bar[0] = 0; } Else If 방향[1] == 상승 && 방향 == 하락 Then { For j = 18 DownTo 1 { Rsi고[j+1] = Rsi고[j]; Rsi고Bar[j+1] = Rsi고Bar[j]; 고[j+1] = 고[j]; 고Bar[j+1] = 고Bar[j]; } Rsi고[1] = Rsi고[0]; Rsi고Bar[1] = Rsi고Bar[0]; Rsi파동선 = Rsi고[0]; Rsi고[0] = RsiV; Rsi고Bar[0] = 0; Rsi저[0] = RsiV; Rsi저Bar[0] = 0; 고[1] = 고[0]; 고Bar[1] = 고Bar[0]; 파동선 = 고[0]; 고[0] = H; 고Bar[0] = 0; 저[0] = L; 저Bar[0] = 0; } Else If 방향[1] == 하락 && 방향 == 하락 Then { If Rsi고[1] < Rsi고[0] && Rsi고[0][1] - Rsi변동폭 <= RsiV[1] && Rsi고[0][1] - Rsi변동폭 > RsiV Then { Rsi고[1] = Rsi고[0]; Rsi고Bar[1] = Rsi고Bar[0]; Rsi파동선 = Rsi고[0]; Rsi고[0] = RsiV; Rsi고Bar[0] = 0; } If 고[1] < 고[0] && 고[0] > H Then { 고[1] = 고[0]; 고Bar[1] = 고Bar[0]; 파동선 = 고[0]; 고[0] = H; 고Bar[0] = 0; } } Else If 방향[1] == 상승 && 방향 == 상승 Then { If Rsi저[1] > Rsi저[0] && Rsi저[0][1] + Rsi변동폭 >= RsiV[1] && Rsi저[0][1] + Rsi변동폭 < RsiV Then { Rsi저[1] = Rsi저[0]; Rsi저Bar[1] = Rsi저Bar[0]; Rsi파동선 = Rsi저[0]; Rsi저[0] = RsiV; Rsi저Bar[0] = 0; } If 저[1] > 저[0] && 저[0] < L Then { 저[1] = 저[0]; 저Bar[1] = 저Bar[0]; 파동선 = 저[0]; 저[0] = L; 저Bar[0] = 0; } } #==========================================# # 지표식 출력 #==========================================# If Rsi파동선[1] != Rsi파동선 Then Plot1(파동선,"파동선",red); //적당껏 수평이동 Else If LastBarOnChart == 1 Then plot1(Iff(방향 == 상승,고[0],저[0]),"파동선",GREEN); iff( rsi파동선>Rsi파동선[1],magenta,blue); /*If Rsi파동선[1] != Rsi파동선 Then Plot1(파동선); //적당껏 수평이동 Else If LastBarOnChart == 1 Then plot1(Iff(방향 == 상승,고[0],저[0])); iff( rsi파동선>Rsi파동선[1],magenta,blue); */ #상승 다이버전스 : 주가의 저점 하락 + 지표의 저점 상승 If 저[2] > 저[1] && Rsi저[2] < Rsi저[1] Then { 추세선 = (저[1]-저[2])/(저Bar[2]-저Bar[1])*저Bar[2] + 저[2]; Plot3(추세선); } #하락 다이버전스 : 주가의 고점 상승 + 지표의 고점 하락 if 고[2] < 고[1] && Rsi고[2] > Rsi고[1] Then { 추세선 = (고[1]-고[2])/(고Bar[2]-고Bar[1])*고Bar[2] + 고[2]; Plot2(추세선); }