안녕하세요 예스스탁입니다. input : ntime(30),Length1(5),Length2(10),Length3(20),Length4(60),Length5(120),Length6(240),Length7(480); var : S1(0),D1(0),TM(0),TF(0),cnt(0); var : TLen1(0),TLen2(0),TLen3(0),TLen4(0),TLen5(0),TLen6(0),TLen7(0); var : EP1(0),EP2(0),EP3(0),EP4(0),EP5(0),EP6(0),EP7(0); var : sum1(0),mav1(0),Tma1(0),Tma11(0); var : sum2(0),mav2(0),Tma2(0),Tma21(0); var : sum3(0),mav3(0),Tma3(0),Tma31(0); var : sum4(0),mav4(0),Tma4(0),Tma41(0); var : sum5(0),mav5(0),Tma5(0),Tma51(0); var : sum6(0),mav6(0),Tma6(0),Tma61(0); var : sum7(0),mav7(0),Tma7(0),Tma71(0); Array : CC[1000](0); TLen1 = Ceiling((Length1 + 1) * .5); TLen2 = Ceiling((Length2 + 1) * .5); TLen3 = Ceiling((Length3 + 1) * .5); TLen4 = Ceiling((Length4 + 1) * .5); TLen5 = Ceiling((Length5 + 1) * .5); TLen6 = Ceiling((Length6 + 1) * .5); TLen7 = Ceiling((Length7 + 1) * .5); Ep1 = 2/(TLen1+1); Ep2 = 2/(TLen2+1); Ep3 = 2/(TLen3+1); Ep4 = 2/(TLen4+1); Ep5 = 2/(TLen5+1); Ep6 = 2/(TLen6+1); Ep7 = 2/(TLen7+1); 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 { for cnt = 1 to 999 { CC[cnt] = CC[cnt-1][1]; } Tma11 = Tma1[1]; } CC[0] = C; if CC[TLen1-1] > 0 Then { sum1 = 0; for cnt = 0 to TLen1-1 { sum1 = sum1+CC[cnt]; } mav1 = sum1/Tlen1; if Tma11 == 0 Then Tma1 = mav1; Else Tma1 = mav1 * EP1 + Tma11 * (1-EP1); Plot1(Tma1, "삼단순c1"); } if CC[TLen2-1] > 0 Then { sum2 = 0; for cnt = 0 to TLen2-1 { sum2 = sum2+CC[cnt]; } mav2 = sum2/Tlen2; if Tma21 == 0 Then Tma2 = mav2; Else Tma2 = mav2 * EP2 + Tma21 * (1-EP2); Plot2(Tma2, "삼단순c2"); } if CC[TLen3-1] > 0 Then { sum3 = 0; for cnt = 0 to TLen3-1 { sum3 = sum3+CC[cnt]; } mav3 = sum3/Tlen3; if Tma31 == 0 Then Tma3 = mav3; Else Tma3 = mav3 * EP3 + Tma31 * (1-EP3); Plot3(Tma3, "삼단순c3"); } if CC[TLen4-1] > 0 Then { sum4 = 0; for cnt = 0 to TLen4-1 { sum4 = sum4+CC[cnt]; } mav4 = sum4/Tlen4; if Tma41 == 0 Then Tma4 = mav4; Else Tma4 = mav4 * EP4 + Tma41 * (1-EP4); Plot4(Tma4, "삼단순c4"); } if CC[TLen5-1] > 0 Then { sum5 = 0; for cnt = 0 to TLen5-1 { sum5 = sum5+CC[cnt]; } mav5 = sum5/Tlen5; if Tma51 == 0 Then Tma5 = mav5; Else Tma5 = mav5 * EP5 + Tma51 * (1-EP5); Plot5(Tma5, "삼단순c5"); } if CC[TLen6-1] > 0 Then { sum6 = 0; for cnt = 0 to TLen6-1 { sum6 = sum6+CC[cnt]; } mav6 = sum6/Tlen6; if Tma61 == 0 Then Tma6 = mav6; Else Tma6 = mav6 * EP6 + Tma61 * (1-EP6); Plot6(Tma6, "삼단순c6"); } if CC[TLen7-1] > 0 Then { sum7 = 0; for cnt = 0 to TLen7-1 { sum7 = sum7+CC[cnt]; } mav7 = sum7/Tlen7; if Tma71 == 0 Then Tma7 = mav7; Else Tma7 = mav7 * EP7 + Tma71 * (1-EP7); Plot7(Tma7, "삼단순c7"); } } 즐거운 하루되세요 > 골든키 님이 쓴 글입니다. > 제목 : 부탁드립니다 > $,아래식을 타주기분봉으로 수정부탁드립니다 Input : Length1(5),Length2(10),Length3(20),Length4(60),Length5(120),Length6(240),Length7(480); Var : TLen1(0),TLen2(0),TLen3(0),TLen4(0),TLen5(0),TLen6(0),TLen7(0); var : Tma1(0),Tma2(0),Tma3(0),Tma4(0),Tma5(0),Tma6(0),Tma7(0),Tma8(0),Tma9(0),Tma10(0); TLen1 = Ceiling((Length1 + 1) * .5); TLen2 = Ceiling((Length2 + 1) * .5); TLen3 = Ceiling((Length3 + 1) * .5); TLen4 = Ceiling((Length4 + 1) * .5); TLen5 = Ceiling((Length5 + 1) * .5); TLen6 = Ceiling((Length6 + 1) * .5); TLen7 = Ceiling((Length7 + 1) * .5); Tma1 = ema(ma(c, TLen1), TLen1); Tma2 = ema(ma(c, TLen2), TLen2); Tma3 = ema(ma(c, TLen3), TLen3); Tma4 = ema(ma(c, TLen4), TLen4); Tma5 = ema(ma(c, TLen5), TLen5); Tma6 = ema(ma(c, TLen6), TLen6); Tma7 = ema(ma(c, TLen7), TLen7); Plot1(Tma1, "삼단순c1"); Plot2(Tma2, "삼단순c2"); Plot3(Tma3, "삼단순c3"); Plot4(Tma4, "삼단순c4"); Plot5(Tma5, "삼단순c5"); Plot6(Tma6, "삼단순c6"); Plot7(Tma7, "삼단순c7");