안녕하세요 예스스탁입니다. 1 input : p(20); input : sig(9); var : cnt1(0),cnt2(0),sum1(0),sum2(0),value(0); Var : BPower(0), SPower(0),NetPower(0); sum2 = 0; For cnt2 = 0 to sig-1 { sum1 = 0; For cnt1 = cnt2+0 to cnt2+P-1 { BPower = (((DayClose(cnt1)-DayClose(cnt1+1))*3 + DayHigh(cnt1)-DayClose(cnt1+1))*100)/DayClose(cnt1+1); SPower = (((DayClose(cnt1+1)-DayClose(cnt1))*3 + DayClose(cnt1+1)-DayLow(cnt1))*100)/DayClose(cnt1+1); sum1 = sum1 + (BPower-SPower); } value = sum1/P; sum2 = sum2+value; if cnt2 == 0 Then NetPower = value; } var1 = sum2/Sig; Plot1(NetPower); plot2(var1); 2 input : 분(10),p(20),sig(9); var : cnt1(0),cnt2(0),sum1(0),sum2(0),value(0); Var : BPower(0), SPower(0),NetPower(0); var : S1(0),D1(0),TM(0),TF(0),cnt(0); Array : CC[100](0),HH[100](0),LL[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%분; if Bdate != Bdate[1] or (Bdate == Bdate[1] and 분 > 1 and TF < TF[1]) or (Bdate == Bdate[1] and 분 > 1 and TM >= TM[1]+분) or (Bdate == Bdate[1] and 분 == 1 and TM > TM[1]) Then { for cnt = 99 downto 1 { HH[cnt] = HH[cnt-1]; LL[cnt] = LL[cnt-1]; CC[cnt] = CC[cnt-1]; } hh[0] = H; LL[0] = l; } if HH[0] > 0 and H > HH[0] Then HH[0] = H; if LL[0] > 0 and L < LL[0] Then LL[0] = L; CC[0] = C; if CC[P+sig] > 0 Then { sum2 = 0; For cnt2 = 0 to sig-1 { sum1 = 0; For cnt1 = cnt2+0 to cnt2+P-1 { BPower = (((CC[cnt1]-CC[cnt1+1])*3 + HH[cnt1]-CC[cnt1+1])*100)/CC[cnt1+1]; SPower = (((CC[cnt1+1]-CC[cnt1])*3 + CC[cnt1+1]-LL[cnt1])*100)/CC[cnt1+1]; sum1 = sum1 + (BPower-SPower); } value = sum1/P; sum2 = sum2+value; if cnt2 == 0 Then NetPower = value; } var1 = sum2/Sig; Plot1(NetPower); plot2(var1); } } 즐거운 하루되세요 > yes 님이 쓴 글입니다. > 제목 : 부탁 드립니다 > 도움에 감사 드립니다. 타주기(1.분봉용 2.일봉용)용 수식 부탁 드립니다. 미리 감사 드립니다. input : p(20); input : sig(9); Var : BPower(0), SPower(0),netPower(0); BPower = (((C-C[1])*3 + H-C[1])*100)/C[1]; SPower = (((C[1]-C)*3 + C[1]-L)*100)/C[1]; NetPower = ma(BPower-SPower,p); var1=ma(NetPower,sig); 작성에 참고할 만한 수식) 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;