시고저라인

//당일 고저기준 피보나치 비율선 input : 소숫점자리표시(2); var : d1(0),t1(0),hh(0),ll(0); var : tl1(0),tl2(0),tl3(0),tl4(0),tl5(0),tl6(0),tl7(0); var : tx1(0),tx2(0),tx3(0),tx4(0),tx5(0),tx6(0),tx7(0); if Bdate != Bdate[1] Then { d1 = sDate; t1 = sTime; hh = h; ll = l; var1 = hh-(hh-ll)*0.000; var2 = hh-(hh-ll)*0.236; var3 = hh-(hh-ll)*0.382; var4 = hh-(hh-ll)*0.500; var5 = hh-(hh-ll)*0.618; var6 = hh-(hh-ll)*0.764; var7 = hh-(hh-ll)*1.000; TL_Delete(TL1); TL_Delete(TL2); TL_Delete(TL3); TL_Delete(TL4); TL_Delete(TL5); TL_Delete(TL6); TL_Delete(TL7); TL1 = TL_New(d1, t1,var1,NextBarSdate, NextBarStime,var1); TL2 = TL_New(d1, t1,Var2,NextBarSdate, NextBarStime,Var2); TL3 = TL_New(d1, t1,Var3,NextBarSdate, NextBarStime,Var3); TL4 = TL_New(d1, t1,Var4,NextBarSdate, NextBarStime,Var4); TL5 = TL_New(d1, t1,Var5,NextBarSdate, NextBarStime,Var5); TL6 = TL_New(d1, t1,var6,NextBarSdate, NextBarStime,Var6); TL7 = TL_New(d1, t1,Var7,NextBarSdate, NextBarStime,Var7); 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,var1,"0.00% : "+NumToStr(var1,소숫점자리표시)); Tx2 = Text_new(sdate, stime,var2,"23.60% : "+NumToStr(var2,소숫점자리표시)); Tx3 = Text_new(sdate, stime,Var3,"38.2% : "+NumToStr(var3,소숫점자리표시)); Tx4 = Text_new(sdate, stime,var4,"50.0% : "+NumToStr(Var4,소숫점자리표시)); Tx5 = Text_new(sdate, stime,Var5,"61.8% : "+NumToStr(Var5,소숫점자리표시)); Tx6 = Text_new(sdate, stime,Var6,"76.4% : "+NumToStr(Var6,소숫점자리표시)); Tx7 = Text_new(sdate, stime,Var7,"100.0% : "+NumToStr(Var7,소숫점자리표시)); Text_SetStyle(tx1,0,0); Text_SetStyle(tx2,0,0); Text_SetStyle(tx3,0,0); Text_SetStyle(tx4,0,0); Text_SetStyle(tx5,0,0); Text_SetStyle(tx6,0,0); Text_SetStyle(tx7,0,0); } Else { if hh > 0 and h > hh Then hh = h; if ll > 0 and l < ll Then ll = l; var1 = hh-(hh-ll)*0.000; var2 = hh-(hh-ll)*0.236; var3 = hh-(hh-ll)*0.382; var4 = hh-(hh-ll)*0.500; var5 = hh-(hh-ll)*0.618; var6 = hh-(hh-ll)*0.764; var7 = hh-(hh-ll)*1.000; if hh != hh[1] or ll != ll[1] Then { TL_SetBegin(TL1,d1,t1,var1); TL_SetBegin(TL2,d1,t1,var2); TL_SetBegin(TL3,d1,t1,var3); TL_SetBegin(TL4,d1,t1,var4); TL_SetBegin(TL5,d1,t1,var5); TL_SetBegin(TL6,d1,t1,var6); TL_SetBegin(TL7,d1,t1,var7); Text_SetString(tx1,"0.00% : "+NumToStr(var1,소숫점자리표시)); Text_SetString(tx2,"23.60% : "+NumToStr(var2,소숫점자리표시)); Text_SetString(tx3,"38.2% : "+NumToStr(var3,소숫점자리표시)); Text_SetString(tx4,"50.0% : "+NumToStr(Var4,소숫점자리표시)); Text_SetString(tx5,"61.8% : "+NumToStr(Var5,소숫점자리표시)); Text_SetString(tx6,"76.4% : "+NumToStr(Var6,소숫점자리표시)); Text_SetString(tx7,"100.0% : "+NumToStr(Var7,소숫점자리표시)); } TL_SetEnd(TL1,NextBarSdate, NextBarStime,var1); TL_SetEnd(TL2,NextBarSdate, NextBarStime,var2); TL_SetEnd(TL3,NextBarSdate, NextBarStime,var3); TL_SetEnd(TL4,NextBarSdate, NextBarStime,var4); TL_SetEnd(TL5,NextBarSdate, NextBarStime,var5); TL_SetEnd(TL6,NextBarSdate, NextBarStime,var6); TL_SetEnd(TL7,NextBarSdate, NextBarStime,var7); Text_SetLocation(tx1,NextBarSdate, NextBarStime,var1); Text_SetLocation(tx2,NextBarSdate, NextBarStime,var2); Text_SetLocation(tx3,NextBarSdate, NextBarStime,var3); Text_SetLocation(tx4,NextBarSdate, NextBarStime,var4); Text_SetLocation(tx5,NextBarSdate, NextBarStime,var5); Text_SetLocation(tx6,NextBarSdate, NextBarStime,var6); Text_SetLocation(tx7,NextBarSdate, NextBarStime,var7); }