안녕하세요 예스스탁입니다. 1 input : 타주기분(30); var : S1(0),D1(0),TM(0),TF(0),cnt(0),TH(0),TL(0); var : value(0),pre(0),WAD(0); Array : CC[10](0),HH[10](0),LL[10](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 TF < TF[1]) Then{ HH[0] = H; LL[0] = L; for cnt = 1 to 9{ CC[cnt] = CC[cnt-1][1]; HH[cnt] = HH[cnt-1][1]; LL[cnt] = LL[cnt-1][1]; } pre = pre + value[1]; } if H > HH[0] Then HH[0] = H; if L < LL[0] Then LL[0] = L; CC[0] = C; if CC[1] > 0 then{ If CC[1] > HH[0] then TH = CC[1]; else TH = HH[0]; If CC[1] < LL[0] then TL = CC[1]; else TL = LL[0]; value = 0; if CC[0] < CC[1] then { value = CC[0] - TH; } if CC[0] > CC[1] then { value = CC[0] - TL; } WAD = pre+value; plot1(WAD); } } 2 input : N(3); var : S1(0),D1(0),TM(0),TF(0),cnt(0),TH(0),TL(0); var : value(0),pre(0),WAD(0); Array : CC[10](0),HH[10](0),LL[10](0); if Bdate != Bdate[1] Then S1 = 0; Else S1 = S1+1; TF = S1%N; if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then{ HH[0] = H; LL[0] = L; for cnt = 1 to 9{ CC[cnt] = CC[cnt-1][1]; HH[cnt] = HH[cnt-1][1]; LL[cnt] = LL[cnt-1][1]; } pre = pre + value[1]; } if H > HH[0] Then HH[0] = H; if L < LL[0] Then LL[0] = L; CC[0] = C; if CC[1] > 0 then{ If CC[1] > HH[0] then TH = CC[1]; else TH = HH[0]; If CC[1] < LL[0] then TL = CC[1]; else TL = LL[0]; value = 0; if CC[0] < CC[1] then { value = CC[0] - TH; } if CC[0] > CC[1] then { value = CC[0] - TL; } WAD = pre+value; plot1(WAD); } 즐거운 하루되세요 > yes 님이 쓴 글입니다. > 제목 : 부탁 드립니다, > 도움 주심에 감사 드립니다. williams AD의 타주기(분봉,틱용) 부탁 드립니다. 미리 감사 드립니다. var : WAD(0); WAD = WillA;