안녕하세요 예스스탁입니다. 1 주 input : Per1(23.6),Per2(38.2),Per3(50.0),Per4(61.8),Per5(76.4); var : HH(0),LL(0),tx1(0),tx2(0),tx3(0),tx4(0),tx5(0),tx6(0),tx7(0); if DayOfWeek(Bdate) < DayOfWeek(Bdate[1]) Then { hh = h; ll = l; } if hh > 0 and h > hh Then hh = h; if ll > 0 and l < ll Then ll = l; if HH > 0 and LL > 0 then { var1 = 10^(LOG10(HH)-(LOG10(HH)-LOG10(LL))*(Per1/100)); var2 = 10^(LOG10(HH)-(LOG10(HH)-LOG10(LL))*(Per2/100)); var3 = 10^(LOG10(HH)-(LOG10(HH)-LOG10(LL))*(Per3/100)); var4 = 10^(LOG10(HH)-(LOG10(HH)-LOG10(LL))*(Per4/100)); var5 = 10^(LOG10(HH)-(LOG10(HH)-LOG10(LL))*(Per5/100)); plot1(HH,"최고",BLACK); plot2(LL,"최저",BLACK); plot3(var1,"Per1%",BLACK); plot4(var2,"Per2%",BLACK); plot5(var3,"Per3%",BLACK); plot6(var4,"Per4%",BLACK); plot7(var5,"Per5%",BLACK); Text_Delete(tx1); Text_Delete(tx2); Text_Delete(tx3); Text_Delete(tx4); Text_Delete(tx5); Text_Delete(tx6); Text_Delete(tx7); tx1 = Text_New(sdate,stime,HH," 고"); tx2 = Text_New(sdate,stime,LL," 저"); tx3 = Text_New(sdate,stime,var1,NumToStr(Per1,1)+"%"); tx4 = Text_New(sdate,stime,var2,NumToStr(Per2,1)+"%"); tx5 = Text_New(sdate,stime,var3,NumToStr(Per3,1)+"%"); tx6 = Text_New(sdate,stime,var4,NumToStr(Per4,1)+"%"); tx7 = Text_New(sdate,stime,var5,NumToStr(Per5,1)+"%"); } 2 월 input : Per1(23.6),Per2(38.2),Per3(50.0),Per4(61.8),Per5(76.4); var : HH(0),LL(0),tx1(0),tx2(0),tx3(0),tx4(0),tx5(0),tx6(0),tx7(0); if Bdate > Bdate[1]+30 Then { hh = h; ll = l; } if hh > 0 and h > hh Then hh = h; if ll > 0 and l < ll Then ll = l; if HH > 0 and LL > 0 then { var1 = 10^(LOG10(HH)-(LOG10(HH)-LOG10(LL))*(Per1/100)); var2 = 10^(LOG10(HH)-(LOG10(HH)-LOG10(LL))*(Per2/100)); var3 = 10^(LOG10(HH)-(LOG10(HH)-LOG10(LL))*(Per3/100)); var4 = 10^(LOG10(HH)-(LOG10(HH)-LOG10(LL))*(Per4/100)); var5 = 10^(LOG10(HH)-(LOG10(HH)-LOG10(LL))*(Per5/100)); plot1(HH,"최고",BLACK); plot2(LL,"최저",BLACK); plot3(var1,"Per1%",BLACK); plot4(var2,"Per2%",BLACK); plot5(var3,"Per3%",BLACK); plot6(var4,"Per4%",BLACK); plot7(var5,"Per5%",BLACK); Text_Delete(tx1); Text_Delete(tx2); Text_Delete(tx3); Text_Delete(tx4); Text_Delete(tx5); Text_Delete(tx6); Text_Delete(tx7); tx1 = Text_New(sdate,stime,HH," 고"); tx2 = Text_New(sdate,stime,LL," 저"); tx3 = Text_New(sdate,stime,var1,NumToStr(Per1,1)+"%"); tx4 = Text_New(sdate,stime,var2,NumToStr(Per2,1)+"%"); tx5 = Text_New(sdate,stime,var3,NumToStr(Per3,1)+"%"); tx6 = Text_New(sdate,stime,var4,NumToStr(Per4,1)+"%"); tx7 = Text_New(sdate,stime,var5,NumToStr(Per5,1)+"%"); } 즐거운 하루되세요 > qha71 님이 쓴 글입니다. > 제목 : 수식 수정 의뢰드립니다! > 안녕하세요! 아래는 지난번에 만들어 주신 당일 피보나치 수식입니다! 이 수식을 주단위와 월단위로 각각 바꿔서 당일 일봉챠트에 각각 적용하고 싶습니다! 수정을 좀 부탁드립니다! 감사합니다! input : Per1(23.6),Per2(38.2),Per3(50.0),Per4(61.8),Per5(76.4); var : HH(0),LL(0),tx1(0),tx2(0),tx3(0),tx4(0),tx5(0),tx6(0),tx7(0); HH = dayhigh; LL = daylow; if HH > 0 and LL > 0 then{ var1 = 10^(LOG10(HH)-(LOG10(HH)-LOG10(LL))*(Per1/100)); var2 = 10^(LOG10(HH)-(LOG10(HH)-LOG10(LL))*(Per2/100)); var3 = 10^(LOG10(HH)-(LOG10(HH)-LOG10(LL))*(Per3/100)); var4 = 10^(LOG10(HH)-(LOG10(HH)-LOG10(LL))*(Per4/100)); var5 = 10^(LOG10(HH)-(LOG10(HH)-LOG10(LL))*(Per5/100)); plot1(HH,"최고",BLACK); plot2(LL,"최저",BLACK); plot3(var1,"Per1%",BLACK); plot4(var2,"Per2%",BLACK); plot5(var3,"Per3%",BLACK); plot6(var4,"Per4%",BLACK); plot7(var5,"Per5%",BLACK); Text_Delete(tx1); Text_Delete(tx2); Text_Delete(tx3); Text_Delete(tx4); Text_Delete(tx5); Text_Delete(tx6); Text_Delete(tx7); tx1 = Text_New(sdate,stime,HH," 고"); tx2 = Text_New(sdate,stime,LL," 저"); tx3 = Text_New(sdate,stime,var1,NumToStr(Per1,1)+"%"); tx4 = Text_New(sdate,stime,var2,NumToStr(Per2,1)+"%"); tx5 = Text_New(sdate,stime,var3,NumToStr(Per3,1)+"%"); tx6 = Text_New(sdate,stime,var4,NumToStr(Per4,1)+"%"); tx7 = Text_New(sdate,stime,var5,NumToStr(Per5,1)+"%"); }