안녕하세요 예스스탁입니다. 1 input : P(5); var : cnt(0),sum1(0),sum2(0),Csum(0),wma1(0),wma2(0); Array : H1[100](0),L1[100](0); if Bdate > Bdate[1]+30 Then { H1[0] = h; L1[0] = l; for cnt = 1 to 99 { H1[cnt] = H1[cnt-1][1]; L1[cnt] = L1[cnt-1][1]; } } if h > H1[0] Then h1[0] = h; if l < l1[0] Then l1[0] = l; if L1[P] > 0 Then { Sum1 = 0; Sum2 = 0; CSum = 0; For cnt = 0 To P - 1 { Sum1 = Sum1 + H1[cnt] * (P - cnt); Sum2 = Sum2 + L1[cnt] * (P - cnt); CSum = CSum + P - cnt; } WMA1 = Sum1/CSum; WMA2 = Sum2/CSum; if CrossUp(WMA1,WMA2) Then Find(1); } 2 input : P(5); var : cnt(0),sum1(0),sum2(0),Csum(0),wma1(0),wma2(0); Array : H1[100](0),L1[100](0); if DayOfWeek(Bdate) < DayOfWeek(Bdate[1]) Then { H1[0] = h; L1[0] = l; for cnt = 1 to 99 { H1[cnt] = H1[cnt-1][1]; L1[cnt] = L1[cnt-1][1]; } } if h > H1[0] Then h1[0] = h; if l < l1[0] Then l1[0] = l; if L1[P] > 0 Then { Sum1 = 0; Sum2 = 0; CSum = 0; For cnt = 0 To P - 1 { Sum1 = Sum1 + H1[cnt] * (P - cnt); Sum2 = Sum2 + L1[cnt] * (P - cnt); CSum = CSum + P - cnt; } WMA1 = Sum1/CSum; WMA2 = Sum2/CSum; if CrossUp(WMA1,WMA2) Then Find(1); } 3 input : ntime(480),P(5); var : S1(0),D1(0),TM(0),TF(0),cnt(0); var : sum1(0),sum2(0),Csum(0),wma1(0),wma2(0); Array : H1[100](0),L1[100](0); if Bdate != Bdate[1] Then{ S1 = TimeToMinutes(stime); D1 = sdate; } if D1 > 0 then { if sdate == D1 Then TM = TimeToMinutes(stime)-S1; Else TM = TimeToMinutes(stime)+1440-S1; TF = TM%ntime; if Bdate != Bdate[1] or (Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or (Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or (Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then { H1[0] = h; L1[0] = l; for cnt = 1 to 99 { H1[cnt] = H1[cnt-1][1]; L1[cnt] = L1[cnt-1][1]; } } if h > H1[0] Then h1[0] = h; if l < l1[0] Then l1[0] = l; if L1[P] > 0 Then { Sum1 = 0; Sum2 = 0; CSum = 0; For cnt = 0 To P - 1 { Sum1 = Sum1 + H1[cnt] * (P - cnt); Sum2 = Sum2 + L1[cnt] * (P - cnt); CSum = CSum + P - cnt; } WMA1 = Sum1/CSum; WMA2 = Sum2/CSum; if CrossUp(WMA1,WMA2) Then Find(1); } } 즐거운 하루되세요 > 하루삼프로 님이 쓴 글입니다. > 제목 : 수식작성 부탁드립니다 > 안녕하세요 수고많으십니다. 각항 검색식으로 부탁드려 봅니다. input : P(5); var : cnt(0),sum1(0),sum2(0),Csum(0),wma1(0),wma2(0); Array : H1[100](0),L1[100](0); if Bdate > Bdate[1]+30 Then { H1[0] = h; L1[0] = l; for cnt = 1 to 99 { H1[cnt] = H1[cnt-1][1]; L1[cnt] = L1[cnt-1][1]; } } if h > H1[0] Then h1[0] = h; if l < l1[0] Then l1[0] = l; if L1[P] > 0 Then { Sum1 = 0; Sum2 = 0; CSum = 0; For cnt = 0 To P - 1 { Sum1 = Sum1 + H1[cnt] * (P - cnt); Sum2 = Sum2 + L1[cnt] * (P - cnt); CSum = CSum + P - cnt; } WMA1 = Sum1/CSum; WMA2 = Sum2/CSum; plot1(wma1); plot2(wma2); } ----------------------------------------------------- input : P(5); var : cnt(0),sum1(0),sum2(0),Csum(0),wma1(0),wma2(0); Array : H1[100](0),L1[100](0); if DayOfWeek(Bdate) < DayOfWeek(Bdate[1]) Then { H1[0] = h; L1[0] = l; for cnt = 1 to 99 { H1[cnt] = H1[cnt-1][1]; L1[cnt] = L1[cnt-1][1]; } } if h > H1[0] Then h1[0] = h; if l < l1[0] Then l1[0] = l; if L1[P] > 0 Then { Sum1 = 0; Sum2 = 0; CSum = 0; For cnt = 0 To P - 1 { Sum1 = Sum1 + H1[cnt] * (P - cnt); Sum2 = Sum2 + L1[cnt] * (P - cnt); CSum = CSum + P - cnt; } WMA1 = Sum1/CSum; WMA2 = Sum2/CSum; plot1(wma1); plot2(wma2); } ------------------------------------------------------------ input : P(5); var : cnt(0),sum1(0),sum2(0),Csum(0),wma1(0),wma2(0); Sum1 = 0; Sum2 = 0; CSum = 0; For cnt = 0 To P - 1 { Sum1 = Sum1 + DayHigh(cnt) * (P - cnt); Sum2 = Sum2 + daylow(cnt) * (P - cnt); CSum = CSum + P - cnt; } WMA1 = Sum1/CSum; WMA2 = Sum2/CSum; plot1(wma1); plot2(wma2); --------------------------------------------------- input : ntime(480),P(5); var : S1(0),D1(0),TM(0),TF(0),cnt(0); var : sum1(0),sum2(0),Csum(0),wma1(0),wma2(0); Array : H1[100](0),L1[100](0); if Bdate != Bdate[1] Then{ S1 = TimeToMinutes(stime); D1 = sdate; } if D1 > 0 then { if sdate == D1 Then TM = TimeToMinutes(stime)-S1; Else TM = TimeToMinutes(stime)+1440-S1; TF = TM%ntime; if Bdate != Bdate[1] or (Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or (Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or (Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then { H1[0] = h; L1[0] = l; for cnt = 1 to 99 { H1[cnt] = H1[cnt-1][1]; L1[cnt] = L1[cnt-1][1]; } } if h > H1[0] Then h1[0] = h; if l < l1[0] Then l1[0] = l; if L1[P] > 0 Then { Sum1 = 0; Sum2 = 0; CSum = 0; For cnt = 0 To P - 1 { Sum1 = Sum1 + H1[cnt] * (P - cnt); Sum2 = Sum2 + L1[cnt] * (P - cnt); CSum = CSum + P - cnt; } WMA1 = Sum1/CSum; WMA2 = Sum2/CSum; plot1(wma1); plot2(wma2); } } 항삼 감사 드립니다. 수고 하십시요