안녕하세요 예스스탁입니다. input : ntime1(2),P1(60),P2(120),P3(240),P4(480),dayp(2); input : ntime2(30); var : S1(0),D1(0),TM(0),TF1(0),cnt(0),TF2(0); var : sum1(0),mav1(0),sum2(0),mav2(0),sum3(0),mav3(0),sum4(0),mav4(0); var : sum(0),dmav(0),HH(0),LL(0); Array : CC[200](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; TF1 = TM%ntime1; if Bdate != Bdate[1] or (Bdate == Bdate[1] and ntime1 > 1 and TF1 < TF1[1]) or (Bdate == Bdate[1] and ntime1 > 1 and TM >= TM[1]+ntime1) or (Bdate == Bdate[1] and ntime1 == 1 and TM > TM[1]) Then { for cnt = 1 to 199 { CC[cnt] = CC[cnt-1][1]; } } CC[0] = C; if CC[P1-1] > 0 then { sum1 = 0; for cnt = 0 to P1-1 { sum1 = sum1+CC[cnt]; } mav1 = sum1/P1; #plot1(mav1,"이평1"); } if CC[P2-1] > 0 then { sum2 = 0; for cnt = 0 to P2-1 { sum2 = sum2+CC[cnt]; } mav2 = sum2/P2; #plot2(mav2,"이평2"); } if CC[P3-1] > 0 then { sum3 = 0; for cnt = 0 to P3-1 { sum3 = sum3+CC[cnt]; } mav3 = sum3/P3; plot13(mav3,"이평3"); } if CC[P4-1] > 0 then { sum4 = 0; for cnt = 0 to P4-1 { sum4 = sum4+CC[cnt]; } mav4 = sum4/P4; plot14(mav4,"이평4"); } TF2 = TM%ntime2; if Bdate != Bdate[1] or (Bdate == Bdate[1] and ntime2 > 1 and TF2 < TF2[1]) or (Bdate == Bdate[1] and ntime2 > 1 and TM >= TM[1]+ntime2) or (Bdate == Bdate[1] and ntime2 == 1 and TM > TM[1]) Then { if mav1 > 0 Then var1 = mav1; if mav2 > 0 Then var2 = mav2; } if var1 > 0 Then Plot3(var1); if var2 > 0 Then Plot4(var2); } #일간이평계산 sum = 0; For cnt = 0 to dayP-1 { sum = sum + DayClose(cnt); } dmav = sum/dayP; #일간이평 당일최고가와 최저가 계산 if Bdate != Bdate[1] Then { HH = dmav; LL = dmav; } if HH > 0 and dmav > HH Then HH = dmav; if HH > 0 and dmav < LL Then LL = dmav; plot5(dmav,"일간이평"); plot6(HH,"당일최고"); plot7(LL+(HH-LL)*0.236,"23.6%"); plot8(LL+(HH-LL)*0.382,"38.2%"); plot9(LL+(HH-LL)*0.500,"50.0%"); plot10(LL+(HH-LL)*0.618,"61.8%"); plot11(LL+(HH-LL)*0.764,"76.4"); plot12(LL,"당일최저"); 즐거운 하루되세요 > 포보스 님이 쓴 글입니다. > 제목 : 타주기 이평추가요청 > 안녕하세요? 아래 내용에서 2분봉의 240선과 480선 타주기 이평선을 추가가고자 합니다. 또 감사드립니다. 꾸벅 input : ntime1(2),P1(60),P2(120),dayp(2); input : ntime2(30); var : S1(0),D1(0),TM(0),TF1(0),cnt(0),TF2(0); var : sum1(0),mav1(0),sum2(0),mav2(0); var : sum(0),dmav(0),HH(0),LL(0); Array : CC[200](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; TF1 = TM%ntime1; if Bdate != Bdate[1] or (Bdate == Bdate[1] and ntime1 > 1 and TF1 < TF1[1]) or (Bdate == Bdate[1] and ntime1 > 1 and TM >= TM[1]+ntime1) or (Bdate == Bdate[1] and ntime1 == 1 and TM > TM[1]) Then { for cnt = 1 to 199 { CC[cnt] = CC[cnt-1][1]; } } CC[0] = C; if CC[P1-1] > 0 then { sum1 = 0; for cnt = 0 to P1-1 { sum1 = sum1+CC[cnt]; } mav1 = sum1/P1; #plot1(mav1,"이평1"); } if CC[P2-1] > 0 then { sum2 = 0; for cnt = 0 to P2-1 { sum2 = sum2+CC[cnt]; } mav2 = sum2/P2; #plot2(mav2,"이평2"); } TF2 = TM%ntime2; if Bdate != Bdate[1] or (Bdate == Bdate[1] and ntime2 > 1 and TF2 < TF2[1]) or (Bdate == Bdate[1] and ntime2 > 1 and TM >= TM[1]+ntime2) or (Bdate == Bdate[1] and ntime2 == 1 and TM > TM[1]) Then { if mav1 > 0 Then var1 = mav1; if mav2 > 0 Then var2 = mav2; } if var1 > 0 Then Plot3(var1); if var2 > 0 Then Plot4(var2); } #일간이평계산 sum = 0; For cnt = 0 to dayP-1 { sum = sum + DayClose(cnt); } dmav = sum/dayP; #일간이평 당일최고가와 최저가 계산 if Bdate != Bdate[1] Then { HH = dmav; LL = dmav; } if HH > 0 and dmav > HH Then HH = dmav; if HH > 0 and dmav < LL Then LL = dmav; plot5(dmav,"일간이평"); plot6(HH,"당일최고"); plot7(LL+(HH-LL)*0.236,"23.6%"); plot8(LL+(HH-LL)*0.382,"38.2%"); plot9(LL+(HH-LL)*0.500,"50.0%"); plot10(LL+(HH-LL)*0.618,"61.8%"); plot11(LL+(HH-LL)*0.764,"76.4"); plot12(LL,"당일최저");

정말감사합니다. 오늘도 좋은시간 되시고 복 많이 받으세요. ^^ > 예스스탁 님이 쓴 글입니다. > 제목 : Re : 타주기 이평추가요청 > 안녕하세요 예스스탁입니다. input : ntime1(2),P1(60),P2(120),P3(240),P4(480),dayp(2); input : ntime2(30); var : S1(0),D1(0),TM(0),TF1(0),cnt(0),TF2(0); var : sum1(0),mav1(0),sum2(0),mav2(0),sum3(0),mav3(0),sum4(0),mav4(0); var : sum(0),dmav(0),HH(0),LL(0); Array : CC[200](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; TF1 = TM%ntime1; if Bdate != Bdate[1] or (Bdate == Bdate[1] and ntime1 > 1 and TF1 < TF1[1]) or (Bdate == Bdate[1] and ntime1 > 1 and TM >= TM[1]+ntime1) or (Bdate == Bdate[1] and ntime1 == 1 and TM > TM[1]) Then { for cnt = 1 to 199 { CC[cnt] = CC[cnt-1][1]; } } CC[0] = C; if CC[P1-1] > 0 then { sum1 = 0; for cnt = 0 to P1-1 { sum1 = sum1+CC[cnt]; } mav1 = sum1/P1; #plot1(mav1,"이평1"); } if CC[P2-1] > 0 then { sum2 = 0; for cnt = 0 to P2-1 { sum2 = sum2+CC[cnt]; } mav2 = sum2/P2; #plot2(mav2,"이평2"); } if CC[P3-1] > 0 then { sum3 = 0; for cnt = 0 to P3-1 { sum3 = sum3+CC[cnt]; } mav3 = sum3/P3; plot13(mav3,"이평3"); } if CC[P4-1] > 0 then { sum4 = 0; for cnt = 0 to P4-1 { sum4 = sum4+CC[cnt]; } mav4 = sum4/P4; plot14(mav4,"이평4"); } TF2 = TM%ntime2; if Bdate != Bdate[1] or (Bdate == Bdate[1] and ntime2 > 1 and TF2 < TF2[1]) or (Bdate == Bdate[1] and ntime2 > 1 and TM >= TM[1]+ntime2) or (Bdate == Bdate[1] and ntime2 == 1 and TM > TM[1]) Then { if mav1 > 0 Then var1 = mav1; if mav2 > 0 Then var2 = mav2; } if var1 > 0 Then Plot3(var1); if var2 > 0 Then Plot4(var2); } #일간이평계산 sum = 0; For cnt = 0 to dayP-1 { sum = sum + DayClose(cnt); } dmav = sum/dayP; #일간이평 당일최고가와 최저가 계산 if Bdate != Bdate[1] Then { HH = dmav; LL = dmav; } if HH > 0 and dmav > HH Then HH = dmav; if HH > 0 and dmav < LL Then LL = dmav; plot5(dmav,"일간이평"); plot6(HH,"당일최고"); plot7(LL+(HH-LL)*0.236,"23.6%"); plot8(LL+(HH-LL)*0.382,"38.2%"); plot9(LL+(HH-LL)*0.500,"50.0%"); plot10(LL+(HH-LL)*0.618,"61.8%"); plot11(LL+(HH-LL)*0.764,"76.4"); plot12(LL,"당일최저"); 즐거운 하루되세요 > 포보스 님이 쓴 글입니다. > 제목 : 타주기 이평추가요청 > 안녕하세요? 아래 내용에서 2분봉의 240선과 480선 타주기 이평선을 추가가고자 합니다. 또 감사드립니다. 꾸벅 input : ntime1(2),P1(60),P2(120),dayp(2); input : ntime2(30); var : S1(0),D1(0),TM(0),TF1(0),cnt(0),TF2(0); var : sum1(0),mav1(0),sum2(0),mav2(0); var : sum(0),dmav(0),HH(0),LL(0); Array : CC[200](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; TF1 = TM%ntime1; if Bdate != Bdate[1] or (Bdate == Bdate[1] and ntime1 > 1 and TF1 < TF1[1]) or (Bdate == Bdate[1] and ntime1 > 1 and TM >= TM[1]+ntime1) or (Bdate == Bdate[1] and ntime1 == 1 and TM > TM[1]) Then { for cnt = 1 to 199 { CC[cnt] = CC[cnt-1][1]; } } CC[0] = C; if CC[P1-1] > 0 then { sum1 = 0; for cnt = 0 to P1-1 { sum1 = sum1+CC[cnt]; } mav1 = sum1/P1; #plot1(mav1,"이평1"); } if CC[P2-1] > 0 then { sum2 = 0; for cnt = 0 to P2-1 { sum2 = sum2+CC[cnt]; } mav2 = sum2/P2; #plot2(mav2,"이평2"); } TF2 = TM%ntime2; if Bdate != Bdate[1] or (Bdate == Bdate[1] and ntime2 > 1 and TF2 < TF2[1]) or (Bdate == Bdate[1] and ntime2 > 1 and TM >= TM[1]+ntime2) or (Bdate == Bdate[1] and ntime2 == 1 and TM > TM[1]) Then { if mav1 > 0 Then var1 = mav1; if mav2 > 0 Then var2 = mav2; } if var1 > 0 Then Plot3(var1); if var2 > 0 Then Plot4(var2); } #일간이평계산 sum = 0; For cnt = 0 to dayP-1 { sum = sum + DayClose(cnt); } dmav = sum/dayP; #일간이평 당일최고가와 최저가 계산 if Bdate != Bdate[1] Then { HH = dmav; LL = dmav; } if HH > 0 and dmav > HH Then HH = dmav; if HH > 0 and dmav < LL Then LL = dmav; plot5(dmav,"일간이평"); plot6(HH,"당일최고"); plot7(LL+(HH-LL)*0.236,"23.6%"); plot8(LL+(HH-LL)*0.382,"38.2%"); plot9(LL+(HH-LL)*0.500,"50.0%"); plot10(LL+(HH-LL)*0.618,"61.8%"); plot11(LL+(HH-LL)*0.764,"76.4"); plot12(LL,"당일최저");