안녕하세요 예스스탁입니다. 식 2개 입니다. 1 전일만 100틱 조건 제외한 식입니다. input : T(100),Per1(23.6),Per2(38.2),Per3(50.0),Per4(61.8),Per5(76.4); var : HV(0),LV(0),HV1(0),LV1(0),D1(0),T1(0); var : TL11(0),TL12(0),TL13(0),TL14(0),TL15(0),TL16(0),TL17(0); var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0); if Bdate != Bdate[1] Then{ D1 = sdate; T1 = stime; HV1 = dayhigh(1); LV1 = DayLow(1); var11 = 10^(LOG10(HV1)-(LOG10(HV1)-LOG10(LV1))*(Per1/100)); var21 = 10^(LOG10(HV1)-(LOG10(HV1)-LOG10(LV1))*(Per2/100)); var31 = 10^(LOG10(HV1)-(LOG10(HV1)-LOG10(LV1))*(Per3/100)); var41 = 10^(LOG10(HV1)-(LOG10(HV1)-LOG10(LV1))*(Per4/100)); var51 = 10^(LOG10(HV1)-(LOG10(HV1)-LOG10(LV1))*(Per5/100)); TL11 = TL_New(D1,T1,HV1,sdate,stime,HV1); TL12 = TL_New(D1,T1,var11,sdate,stime,var11); TL13 = TL_New(D1,T1,var21,sdate,stime,var21); TL14 = TL_New(D1,T1,var31,sdate,stime,var31); TL15 = TL_New(D1,T1,var41,sdate,stime,var41); TL16 = TL_New(D1,T1,var51,sdate,stime,var51); TL17 = TL_New(D1,T1,LV1,sdate,stime,LV1); TL_SetColor(TL11,blue); TL_SetColor(TL12,blue); TL_SetColor(TL13,blue); TL_SetColor(TL14,blue); TL_SetColor(TL15,blue); TL_SetColor(TL16,blue); TL_SetColor(TL17,blue); Condition1 = false; } TL_SetEnd(TL11,sdate,stime,HV1); TL_SetEnd(TL12,sdate,stime,var11); TL_SetEnd(TL13,sdate,stime,var21); TL_SetEnd(TL14,sdate,stime,var31); TL_SetEnd(TL15,sdate,stime,var41); TL_SetEnd(TL16,sdate,stime,var51); TL_SetEnd(TL17,sdate,stime,LV1); HV = dayhigh; LV = daylow; var1 = 10^(LOG10(HV)-(LOG10(HV)-LOG10(LV))*(Per1/100)); var2 = 10^(LOG10(HV)-(LOG10(HV)-LOG10(LV))*(Per2/100)); var3 = 10^(LOG10(HV)-(LOG10(HV)-LOG10(LV))*(Per3/100)); var4 = 10^(LOG10(HV)-(LOG10(HV)-LOG10(LV))*(Per4/100)); var5 = 10^(LOG10(HV)-(LOG10(HV)-LOG10(LV))*(Per5/100)); if Condition1 == false and HV >= LV+PriceScale*T then{ Condition1 = true; TL1 = TL_New(D1,T1,HV,sdate,stime,HV); TL2 = TL_New(D1,T1,var1,sdate,stime,var1); TL3 = TL_New(D1,T1,var2,sdate,stime,var2); TL4 = TL_New(D1,T1,var3,sdate,stime,var3); TL5 = TL_New(D1,T1,var4,sdate,stime,var4); TL6 = TL_New(D1,T1,var5,sdate,stime,var5); TL7 = TL_New(D1,T1,LV,sdate,stime,LV); TL_SetColor(TL1,red); TL_SetColor(TL2,red); TL_SetColor(TL3,red); TL_SetColor(TL4,red); TL_SetColor(TL5,red); TL_SetColor(TL6,red); TL_SetColor(TL7,red); } if Condition1 == true and HV >= LV+PriceScale*T then{ TL_SetBegin(TL1,D1,T1,Hv); TL_SetBegin(TL2,D1,T1,var1); TL_SetBegin(TL3,D1,T1,var2); TL_SetBegin(TL4,D1,T1,var3); TL_SetBegin(TL5,D1,T1,var4); TL_SetBegin(TL6,D1,T1,var5); TL_SetBegin(TL7,D1,T1,Lv); TL_SetEnd(TL1,sdate,stime,Hv); TL_SetEnd(TL2,sdate,stime,var1); TL_SetEnd(TL3,sdate,stime,var2); TL_SetEnd(TL4,sdate,stime,var3); TL_SetEnd(TL5,sdate,stime,var4); TL_SetEnd(TL6,sdate,stime,var5); TL_SetEnd(TL7,sdate,stime,Lv); } 2 전일당일 모두 100틱조건 제외한 식입니다. input : T(100),Per1(23.6),Per2(38.2),Per3(50.0),Per4(61.8),Per5(76.4); var : HV(0),LV(0),HV1(0),LV1(0),D1(0),T1(0); var : TL11(0),TL12(0),TL13(0),TL14(0),TL15(0),TL16(0),TL17(0); var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0); if Bdate != Bdate[1] Then{ D1 = sdate; T1 = stime; HV1 = dayhigh(1); LV1 = DayLow(1); var11 = 10^(LOG10(HV1)-(LOG10(HV1)-LOG10(LV1))*(Per1/100)); var21 = 10^(LOG10(HV1)-(LOG10(HV1)-LOG10(LV1))*(Per2/100)); var31 = 10^(LOG10(HV1)-(LOG10(HV1)-LOG10(LV1))*(Per3/100)); var41 = 10^(LOG10(HV1)-(LOG10(HV1)-LOG10(LV1))*(Per4/100)); var51 = 10^(LOG10(HV1)-(LOG10(HV1)-LOG10(LV1))*(Per5/100)); TL11 = TL_New(D1,T1,HV1,sdate,stime,HV1); TL12 = TL_New(D1,T1,var11,sdate,stime,var11); TL13 = TL_New(D1,T1,var21,sdate,stime,var21); TL14 = TL_New(D1,T1,var31,sdate,stime,var31); TL15 = TL_New(D1,T1,var41,sdate,stime,var41); TL16 = TL_New(D1,T1,var51,sdate,stime,var51); TL17 = TL_New(D1,T1,LV1,sdate,stime,LV1); TL_SetColor(TL11,blue); TL_SetColor(TL12,blue); TL_SetColor(TL13,blue); TL_SetColor(TL14,blue); TL_SetColor(TL15,blue); TL_SetColor(TL16,blue); TL_SetColor(TL17,blue); } TL_SetEnd(TL11,sdate,stime,HV1); TL_SetEnd(TL12,sdate,stime,var11); TL_SetEnd(TL13,sdate,stime,var21); TL_SetEnd(TL14,sdate,stime,var31); TL_SetEnd(TL15,sdate,stime,var41); TL_SetEnd(TL16,sdate,stime,var51); TL_SetEnd(TL17,sdate,stime,LV1); HV = dayhigh; LV = daylow; var1 = 10^(LOG10(HV)-(LOG10(HV)-LOG10(LV))*(Per1/100)); var2 = 10^(LOG10(HV)-(LOG10(HV)-LOG10(LV))*(Per2/100)); var3 = 10^(LOG10(HV)-(LOG10(HV)-LOG10(LV))*(Per3/100)); var4 = 10^(LOG10(HV)-(LOG10(HV)-LOG10(LV))*(Per4/100)); var5 = 10^(LOG10(HV)-(LOG10(HV)-LOG10(LV))*(Per5/100)); if bdate != bdate[1] then{ TL1 = TL_New(D1,T1,HV,sdate,stime,HV); TL2 = TL_New(D1,T1,var1,sdate,stime,var1); TL3 = TL_New(D1,T1,var2,sdate,stime,var2); TL4 = TL_New(D1,T1,var3,sdate,stime,var3); TL5 = TL_New(D1,T1,var4,sdate,stime,var4); TL6 = TL_New(D1,T1,var5,sdate,stime,var5); TL7 = TL_New(D1,T1,LV,sdate,stime,LV); TL_SetColor(TL1,red); TL_SetColor(TL2,red); TL_SetColor(TL3,red); TL_SetColor(TL4,red); TL_SetColor(TL5,red); TL_SetColor(TL6,red); TL_SetColor(TL7,red); } if bdate == bdate[1] then{ TL_SetBegin(TL1,D1,T1,Hv); TL_SetBegin(TL2,D1,T1,var1); TL_SetBegin(TL3,D1,T1,var2); TL_SetBegin(TL4,D1,T1,var3); TL_SetBegin(TL5,D1,T1,var4); TL_SetBegin(TL6,D1,T1,var5); TL_SetBegin(TL7,D1,T1,Lv); TL_SetEnd(TL1,sdate,stime,Hv); TL_SetEnd(TL2,sdate,stime,var1); TL_SetEnd(TL3,sdate,stime,var2); TL_SetEnd(TL4,sdate,stime,var3); TL_SetEnd(TL5,sdate,stime,var4); TL_SetEnd(TL6,sdate,stime,var5); TL_SetEnd(TL7,sdate,stime,Lv); } 즐거운 하루되세요 > 럭키잭팟 님이 쓴 글입니다. > 제목 : 문의드립니다 > input : T(100),Per1(23.6),Per2(38.2),Per3(50.0),Per4(61.8),Per5(76.4); var : HV(0),LV(0),HV1(0),LV1(0),D1(0),T1(0); var : TL11(0),TL12(0),TL13(0),TL14(0),TL15(0),TL16(0),TL17(0); var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0); if Bdate != Bdate[1] Then{ D1 = sdate; T1 = stime; HV1 = dayhigh(1); LV1 = DayLow(1); var11 = 10^(LOG10(HV1)-(LOG10(HV1)-LOG10(LV1))*(Per1/100)); var21 = 10^(LOG10(HV1)-(LOG10(HV1)-LOG10(LV1))*(Per2/100)); var31 = 10^(LOG10(HV1)-(LOG10(HV1)-LOG10(LV1))*(Per3/100)); var41 = 10^(LOG10(HV1)-(LOG10(HV1)-LOG10(LV1))*(Per4/100)); var51 = 10^(LOG10(HV1)-(LOG10(HV1)-LOG10(LV1))*(Per5/100)); if dayhigh(1) >= daylow(1)+PriceScale*T then{ TL11 = TL_New(D1,T1,HV1,sdate,stime,HV1); TL12 = TL_New(D1,T1,var11,sdate,stime,var11); TL13 = TL_New(D1,T1,var21,sdate,stime,var21); TL14 = TL_New(D1,T1,var31,sdate,stime,var31); TL15 = TL_New(D1,T1,var41,sdate,stime,var41); TL16 = TL_New(D1,T1,var51,sdate,stime,var51); TL17 = TL_New(D1,T1,LV1,sdate,stime,LV1); TL_SetColor(TL11,blue); TL_SetColor(TL12,blue); TL_SetColor(TL13,blue); TL_SetColor(TL14,blue); TL_SetColor(TL15,blue); TL_SetColor(TL16,blue); TL_SetColor(TL17,blue); } } if dayhigh(1) >= daylow(1)+PriceScale*T then{ TL_SetEnd(TL11,sdate,stime,HV1); TL_SetEnd(TL12,sdate,stime,var11); TL_SetEnd(TL13,sdate,stime,var21); TL_SetEnd(TL14,sdate,stime,var31); TL_SetEnd(TL15,sdate,stime,var41); TL_SetEnd(TL16,sdate,stime,var51); TL_SetEnd(TL17,sdate,stime,LV1); } HV = dayhigh; LV = daylow; var1 = 10^(LOG10(HV)-(LOG10(HV)-LOG10(LV))*(Per1/100)); var2 = 10^(LOG10(HV)-(LOG10(HV)-LOG10(LV))*(Per2/100)); var3 = 10^(LOG10(HV)-(LOG10(HV)-LOG10(LV))*(Per3/100)); var4 = 10^(LOG10(HV)-(LOG10(HV)-LOG10(LV))*(Per4/100)); var5 = 10^(LOG10(HV)-(LOG10(HV)-LOG10(LV))*(Per5/100)); if Condition1 == false and HV >= LV+PriceScale*T then{ Condition1 = true; TL1 = TL_New(D1,T1,HV,sdate,stime,HV); TL2 = TL_New(D1,T1,var1,sdate,stime,var1); TL3 = TL_New(D1,T1,var2,sdate,stime,var2); TL4 = TL_New(D1,T1,var3,sdate,stime,var3); TL5 = TL_New(D1,T1,var4,sdate,stime,var4); TL6 = TL_New(D1,T1,var5,sdate,stime,var5); TL7 = TL_New(D1,T1,LV,sdate,stime,LV); TL_SetColor(TL1,red); TL_SetColor(TL2,red); TL_SetColor(TL3,red); TL_SetColor(TL4,red); TL_SetColor(TL5,red); TL_SetColor(TL6,red); TL_SetColor(TL7,red); } if Condition1 == true and HV >= LV+PriceScale*T then{ TL_SetBegin(TL1,D1,T1,Hv); TL_SetBegin(TL2,D1,T1,var1); TL_SetBegin(TL3,D1,T1,var2); TL_SetBegin(TL4,D1,T1,var3); TL_SetBegin(TL5,D1,T1,var4); TL_SetBegin(TL6,D1,T1,var5); TL_SetBegin(TL7,D1,T1,Lv); TL_SetEnd(TL1,sdate,stime,Hv); TL_SetEnd(TL2,sdate,stime,var1); TL_SetEnd(TL3,sdate,stime,var2); TL_SetEnd(TL4,sdate,stime,var3); TL_SetEnd(TL5,sdate,stime,var4); TL_SetEnd(TL6,sdate,stime,var5); TL_SetEnd(TL7,sdate,stime,Lv); } ================================================================================== 상기수식은 전일변폭 100틱이상시 피보수치인데 100틱변폭이 아닌 전일은 고가 저가 따른 피보과 당일에는 변폭에따라 피보의 수식을 부탁드립니다