안녕하세요 예스스탁입니다. Input : af(0.02), maxAF(0.2), 굵기(5); var : t(0), tl(0), tl1(0), tl2(0), tl3(0), tl4(0), tl5(0), tl6(0), tx1(0), tx2(0), color(0); var : hh(0), hd(0), ht(0), hh1(0), tl11(0); var : ll(0), ld(0), lt(0), ll1(0), tl22(0); var : S(0), box1(0), box2(0); var : btl1(0), btl2(0), btl3(0), btl4(0), btl5(0), btl6(0), btl7(0); var : stl1(0), stl2(0), stl3(0), stl4(0), stl5(0), stl6(0), stl7(0); var1 = SAR(af, maxAF); if CrossUp(C,var1) Then S = 1; if CrossDown(C,var1) Then S = -1; if S == 1 and S != S[1] Then { T = 1; hh = h; hh1 = hh[1]; hd = sDate; ht = sTime; if ll > 0 Then { tl = TL_New(ld, lt, ll, hd, ht, hh); tl11 = tl1[1]; TL_SetEnd(tl11, Sdate[1], Stime[1], hh1); if hh1 == 0 or (hh1 > 0 and hh > hh1) Then color = Red; box1 = box_new(ld, lt, ll, hd, ht, hh); Box_SetColor(box1, Red); TL_SetExtRight(stl1,False); TL_SetExtRight(stl2,False); TL_SetExtRight(stl3,False); TL_SetExtRight(stl4,False); TL_SetExtRight(stl5,False); TL_SetExtRight(stl6,False); TL_SetExtRight(stl7,False); value1 = hh; Value2 = (hh+ll)/2; Value3 = ll; Value4 = hh - (hh - ll)/4; Value5 = hh - ((hh - ll)/4)*3; Value6 = hh - (hh - ll)/ 3; Value7 = hh - ((hh - ll)/3)*2; btl1 = TL_New(ld, lt, value1, hd, ht, value1); btl2 = TL_New(ld, lt, value2, hd, ht, value2); btl3 = TL_New(ld, lt, value3, hd, ht, value3); btl4 = TL_New(ld, lt, value4, hd, ht, value4); btl5 = TL_New(ld, lt, value5, hd, ht, value5); btl6 = TL_New(ld, lt, value6, hd, ht, value6); btl7 = TL_New(ld, lt, value7, hd, ht, value7); TL_SetColor(btl1, RED); TL_SetColor(btl2, RED); TL_SetColor(btl3, RED); TL_SetColor(btl4, RED); TL_SetColor(btl5, RED); TL_SetColor(btl6, RED); TL_SetColor(btl7, RED); TL_SetDrawMode(btl1,0); TL_SetDrawMode(btl2,0); TL_SetDrawMode(btl3,0); TL_SetDrawMode(btl4,0); TL_SetDrawMode(btl5,0); TL_SetDrawMode(btl6,0); TL_SetDrawMode(btl7,0); TL_SetExtRight(btl1,true); TL_SetExtRight(btl2,true); TL_SetExtRight(btl3,true); TL_SetExtRight(btl4,true); TL_SetExtRight(btl5,true); TL_SetExtRight(btl6,true); TL_SetExtRight(btl7,true); } } else if S == -1 and S != S[1] Then { T = -1; ll = l; ll1 = ll[1]; ld = sDate; lt = sTime; if hh > 0 Then { tl = TL_New(hd, ht, hh, ld, lt, ll); tl22 = tl2[1]; TL_SetEnd(tl22, Sdate[1], Stime[1], ll1); if ll1 == 0 or (ll1 > 0 and ll < ll1) Then color = Blue; box2 = box_new(hd, ht, hh, ld, lt, ll); Box_SetColor(box2, Blue); TL_SetExtRight(btl1,False); TL_SetExtRight(btl2,False); TL_SetExtRight(btl3,False); TL_SetExtRight(btl4,False); TL_SetExtRight(btl5,False); TL_SetExtRight(btl6,False); TL_SetExtRight(btl7,False); value1 = hh; Value2 = (hh+ll)/2; Value3 = ll; Value4 = hh - (hh - ll)/4; Value5 = hh - ((hh - ll)/4)*3; Value6 = hh - (hh - ll)/ 3; Value7 = hh - ((hh - ll)/3)*2; stl1 = TL_New(hd, ht, value1, ld, lt, Value1); stl2 = TL_New(hd, ht, value2, ld, lt, Value2); stl3 = TL_New(hd, ht, value3, ld, lt, Value3); stl4 = TL_New(hd, ht, value4, ld, lt, Value4); stl5 = TL_New(hd, ht, value5, ld, lt, Value5); stl6 = TL_New(hd, ht, value6, ld, lt, Value6); stl7 = TL_New(hd, ht, value7, ld, lt, Value7); TL_SetColor(stl1, BLUE); TL_SetColor(stl2, BLUE); TL_SetColor(stl3, BLUE); TL_SetColor(stl4, BLUE); TL_SetColor(stl5, BLUE); TL_SetColor(stl6, BLUE); TL_SetColor(stl7, BLUE); TL_SetDrawMode(stl1,0); TL_SetDrawMode(stl2,0); TL_SetDrawMode(stl3,0); TL_SetDrawMode(stl4,0); TL_SetDrawMode(stl5,0); TL_SetDrawMode(stl6,0); TL_SetDrawMode(stl7,0); TL_SetExtRight(stl1,true); TL_SetExtRight(stl2,true); TL_SetExtRight(stl3,true); TL_SetExtRight(stl4,true); TL_SetExtRight(stl5,true); TL_SetExtRight(stl6,true); TL_SetExtRight(stl7,true); } } Else { if t == 1 then { if h > hh Then { hh = h; hd = sDate; ht = sTime; value1 = hh; Value2 = (hh+ll)/2; Value3 = ll; Value4 = hh - (hh - ll)/4; Value5 = hh - ((hh - ll)/4)*3; Value6 = hh - (hh - ll)/ 3; Value7 = hh - ((hh - ll)/3)*2; TL_SetEnd(tl, hd, ht, hh); TL_SetBegin(tl1, hd, ht, hh); TL_SetEnd(tl11, Sdate[1], Stime[1], hh1); if (hh1 > 0 and hh > hh1) Then color = Red; Box_SetEnd(box1, hd, ht, hh); TL_SetBegin(btl1, ld, lt, value1); TL_SetBegin(btl2, ld, lt, Value2); TL_SetBegin(btl3, ld, lt, Value3); TL_SetBegin(btl4, ld, lt, Value4); TL_SetBegin(btl5, ld, lt, Value5); TL_SetBegin(btl6, ld, lt, Value6); TL_SetBegin(btl7, ld, lt, Value7); TL_SetEnd(btl1, hd, ht, value1); TL_SetEnd(btl2, hd, ht, Value2); TL_SetEnd(btl3, hd, ht, Value3); TL_SetEnd(btl4, hd, ht, Value4); TL_SetEnd(btl5, hd, ht, Value5); TL_SetEnd(btl6, hd, ht, Value6); TL_SetEnd(btl7, hd, ht, Value7); } } if t == -1 then { if l < ll Then { ll = l; ld = sDate; lt = sTime; value1 = hh; Value2 = (hh+ll)/2; Value3 = ll; Value4 = hh - (hh - ll)/4; Value5 = hh - ((hh - ll)/4)*3; Value6 = hh - (hh - ll)/ 3; Value7 = hh - ((hh - ll)/3)*2; TL_SetEnd(tl, ld, lt, ll); TL_SetBegin(tl2, ld, lt, ll); TL_SetEnd(tl22, Sdate[1], Stime[1], ll1); if (ll1 > 0 and ll < ll1) Then color = Blue; Box_SetEnd(box2, ld, lt, ll); TL_SetBegin(stl1, hd, ht, value1); TL_SetBegin(stl2, hd, ht, Value2); TL_SetBegin(stl3, hd, ht, Value3); TL_SetBegin(stl4, hd, ht, Value4); TL_SetBegin(stl5, hd, ht, Value5); TL_SetBegin(stl6, hd, ht, Value6); TL_SetBegin(stl7, hd, ht, Value7); TL_SetEnd(stl1, ld, lt, value1); TL_SetEnd(stl2, ld, lt, Value2); TL_SetEnd(stl3, ld, lt, Value3); TL_SetEnd(stl4, ld, lt, Value4); TL_SetEnd(stl5, ld, lt, Value5); TL_SetEnd(stl6, ld, lt, Value6); TL_SetEnd(stl7, ld, lt, Value7); } } } 즐거운 하루되세요