안녕하세요 예스스탁입니다. input : ntime(30); input : 초기값(5),최종값(300),증가값(5),sig(30); var : S1(0),D1(0),TM(0),TF(0),cnt(0),ii(0),sum(0); Array : CC[500](0),HH[500](0),LL[500](0),cts[500](0),VV[500](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 { hh[0] = H; LL[0] = l; VV[0] = 0; for cnt = 1 to 499 { CC[cnt] = CC[cnt-1][1]; HH[cnt] = HH[cnt-1][1]; LL[cnt] = LL[cnt-1][1]; VV[cnt] = VV[cnt-1][1]; CTS[cnt] = CTS[cnt-1][1]; } } CC[0] = C; VV[0] = VV[0] + v; if HH[0] > 0 and H > HH[0] Then HH[0] = H; if LL[0] > 0 and L < LL[0] Then LL[0] = L; if CC[최종값] > 0 Then { cts[0] = 0; For ii = 초기값 to 최종값 step 증가값 { if CC[0] >= CC[ii] Then cts[0] = cts[0] + (hh[0]-ll[0])*VV[0]; Else cts[0] = cts[0] + -(hh[0]-ll[0])*VV[0]; } } if CC[최종값+sig] > 0 Then { sum = 0; For cnt = 0 to sig-1 { sum = sum + cts[cnt]; } var1 = (sum/sig)/최종값; Plot1(var1); } } 즐거운 하루되세요 > yes 님이 쓴 글입니다. > 제목 : 부탁 드립니다. > 도움에 감사 드립니다. 타주기 수식 (분봉차트에서 분봉 수식) 부탁 드립니다. 참고 수식은 74774번에서 답변한 유사한 수식과 그것의 타주기 수식으로 질문 수식에서 전체가 동일 하나 그 중에서 (h-l); 이 (h-l)*v;으로 변경 된것입니다. 질문 수식) input : 초기값(10),최종값(30),증가값(10),sig(5); var : ii(0),cts(0); cts = 0; For ii = 초기값 to 최종값 step 증가값 { if C >= C[ii] Then cts = cts + (h-l)*v; Else cts = cts +-(h-l)*v; } var1=ma(cts,sig)/최종값; 74774에서 질문한 수식) input : 초기값(5),최종값(300),증가값(5),sig(30); var : ii(0),cts(0); cts = 0; For ii = 초기값 to 최종값 step 증가값 { if C >= C[ii] Then cts = cts + (h-l); Else cts = cts +-(h-l); } var1=ma(cts,sig)/최종값; 74774에서 답변한 수식) input : ntime(30); input : 초기값(5),최종값(300),증가값(5),sig(30); var : S1(0),D1(0),TM(0),TF(0),cnt(0),ii(0),sum(0); Array : CC[500](0),HH[500](0),LL[500](0),cts[500](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 { hh[0] = H; LL[0] = l; for cnt = 1 to 499 { CC[cnt] = CC[cnt-1][1]; HH[cnt] = HH[cnt-1][1]; LL[cnt] = LL[cnt-1][1]; CTS[cnt] = CTS[cnt-1][1]; } } CC[0] = C; if HH[0] > 0 and H > HH[0] Then HH[0] = H; if LL[0] > 0 and L < LL[0] Then LL[0] = L; if CC[최종값] > 0 Then { cts[0] = 0; For ii = 초기값 to 최종값 step 증가값 { if CC[0] >= CC[ii] Then cts[0] = cts[0] + (hh[0]-ll[0]); Else cts[0] = cts[0] + -(hh[0]-ll[0]); } } if CC[최종값+sig] > 0 Then { sum = 0; For cnt = 0 to sig-1 { sum = sum + cts[cnt]; } var1 = (sum/sig)/최종값; Plot1(var1); } }

답변 감사 드립니다. 죄송 스럽지만 타주기(일봉 지표를 분봉 차트에서 보기) 수식 추가로 부탁 드립니다. 미리 감사 드립니다. > 예스스탁 님이 쓴 글입니다. > 제목 : Re : 부탁 드립니다. > 안녕하세요 예스스탁입니다. input : ntime(30); input : 초기값(5),최종값(300),증가값(5),sig(30); var : S1(0),D1(0),TM(0),TF(0),cnt(0),ii(0),sum(0); Array : CC[500](0),HH[500](0),LL[500](0),cts[500](0),VV[500](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 { hh[0] = H; LL[0] = l; VV[0] = 0; for cnt = 1 to 499 { CC[cnt] = CC[cnt-1][1]; HH[cnt] = HH[cnt-1][1]; LL[cnt] = LL[cnt-1][1]; VV[cnt] = VV[cnt-1][1]; CTS[cnt] = CTS[cnt-1][1]; } } CC[0] = C; VV[0] = VV[0] + v; if HH[0] > 0 and H > HH[0] Then HH[0] = H; if LL[0] > 0 and L < LL[0] Then LL[0] = L; if CC[최종값] > 0 Then { cts[0] = 0; For ii = 초기값 to 최종값 step 증가값 { if CC[0] >= CC[ii] Then cts[0] = cts[0] + (hh[0]-ll[0])*VV[0]; Else cts[0] = cts[0] + -(hh[0]-ll[0])*VV[0]; } } if CC[최종값+sig] > 0 Then { sum = 0; For cnt = 0 to sig-1 { sum = sum + cts[cnt]; } var1 = (sum/sig)/최종값; Plot1(var1); } } 즐거운 하루되세요 > yes 님이 쓴 글입니다. > 제목 : 부탁 드립니다. > 도움에 감사 드립니다. 타주기 수식 (분봉차트에서 분봉 수식) 부탁 드립니다. 참고 수식은 74774번에서 답변한 유사한 수식과 그것의 타주기 수식으로 질문 수식에서 전체가 동일 하나 그 중에서 (h-l); 이 (h-l)*v;으로 변경 된것입니다. 질문 수식) input : 초기값(10),최종값(30),증가값(10),sig(5); var : ii(0),cts(0); cts = 0; For ii = 초기값 to 최종값 step 증가값 { if C >= C[ii] Then cts = cts + (h-l)*v; Else cts = cts +-(h-l)*v; } var1=ma(cts,sig)/최종값; 74774에서 질문한 수식) input : 초기값(5),최종값(300),증가값(5),sig(30); var : ii(0),cts(0); cts = 0; For ii = 초기값 to 최종값 step 증가값 { if C >= C[ii] Then cts = cts + (h-l); Else cts = cts +-(h-l); } var1=ma(cts,sig)/최종값; 74774에서 답변한 수식) input : ntime(30); input : 초기값(5),최종값(300),증가값(5),sig(30); var : S1(0),D1(0),TM(0),TF(0),cnt(0),ii(0),sum(0); Array : CC[500](0),HH[500](0),LL[500](0),cts[500](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 { hh[0] = H; LL[0] = l; for cnt = 1 to 499 { CC[cnt] = CC[cnt-1][1]; HH[cnt] = HH[cnt-1][1]; LL[cnt] = LL[cnt-1][1]; CTS[cnt] = CTS[cnt-1][1]; } } CC[0] = C; if HH[0] > 0 and H > HH[0] Then HH[0] = H; if LL[0] > 0 and L < LL[0] Then LL[0] = L; if CC[최종값] > 0 Then { cts[0] = 0; For ii = 초기값 to 최종값 step 증가값 { if CC[0] >= CC[ii] Then cts[0] = cts[0] + (hh[0]-ll[0]); Else cts[0] = cts[0] + -(hh[0]-ll[0]); } } if CC[최종값+sig] > 0 Then { sum = 0; For cnt = 0 to sig-1 { sum = sum + cts[cnt]; } var1 = (sum/sig)/최종값; Plot1(var1); } }