안녕하세요 예스스탁입니다. input : 저점1(888),저점2(880),시작시간(90000); var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0),TL9(0),TL10(0); var : Tcond(False),HH(0),LL(0),d1(0),t1(0),tx(0),box(0); if Bdate != Bdate[1] Then { Tcond = False; } if (sdate != sDate[1] and sTime >= 시작시간) or (sdate == sDate[1] and sTime >= 시작시간 and sTime[1] < 시작시간) Then { Tcond = true; d1 = sDate; t1 = sTime; HH = H; LL = L; tx = Text_New(sDate,sTime,LL,NumToStr(HH-LL,2)+" "); Text_SetStyle(tx,1,0); Text_SetSize(tx,25); Text_SetBold(tx,1); } if (sdate != sDate[1] and Time >= 153500) or (sdate == sDate[1] and Time >= 153500 and Time[1] < 153500) Then { Tcond = False; } if tcond == true Then { if H > HH Then { HH = H; Text_SetString(tx,NumToStr(HH-LL,2)+" "); } if L < LL Then { LL = L; Text_SetString(tx,NumToStr(HH-LL,2)+" "); Text_SetLocation(tx,sDate,sTime,LL); } var1 = HH; Var2 = 저점1; Var3 = 저점1-(HH-저점1)*0.587; Var4 = 저점1-(HH-저점1)*0.95; Var5 = 저점1-(HH-저점1)*1.537; Var6 = 저점2; Var7 = 저점2-(HH-저점2)*0.587; Var8 = 저점2-(HH-저점2)*0.95; Var9 = 저점2-(HH-저점2)*1.537; var10 = HH-28; if tcond == true and tcond != tcond[1] Then { TL_Delete(TL1); TL_Delete(TL2); TL_Delete(TL3); TL_Delete(TL4); TL_Delete(TL5); TL_Delete(TL6); TL_Delete(TL7); TL_Delete(TL8); TL_Delete(TL9); TL_Delete(TL10); TL1 = TL_New(sDate,sTime,var1,NextBarSdate,NextBarStime,var1); TL2 = TL_New(sDate,sTime,var2,NextBarSdate,NextBarStime,var2); TL3 = TL_New(sDate,sTime,var3,NextBarSdate,NextBarStime,var3); TL4 = TL_New(sDate,sTime,var4,NextBarSdate,NextBarStime,var4); TL5 = TL_New(sDate,sTime,var5,NextBarSdate,NextBarStime,var5); TL6 = TL_New(sDate,sTime,var6,NextBarSdate,NextBarStime,var6); TL7 = TL_New(sDate,sTime,var7,NextBarSdate,NextBarStime,var7); TL8 = TL_New(sDate,sTime,var8,NextBarSdate,NextBarStime,var8); TL9 = TL_New(sDate,sTime,var9,NextBarSdate,NextBarStime,var9); TL10 = TL_New(sDate,sTime,var10,NextBarSdate,NextBarStime,var10); TL_SetExtRight(TL1,true); TL_SetExtRight(TL2,true); TL_SetExtRight(TL3,true); TL_SetExtRight(TL4,true); TL_SetExtRight(TL5,true); TL_SetExtRight(TL6,true); TL_SetExtRight(TL7,true); TL_SetExtRight(TL8,true); TL_SetExtRight(TL9,true); TL_SetExtRight(TL10,true); TL_SetColor(TL1,Red); TL_SetColor(TL2,Gold); TL_SetColor(TL3,Magenta); TL_SetColor(TL4,Red); TL_SetColor(TL5,Red); TL_SetColor(TL6,Gold); TL_SetColor(TL7,Green); TL_SetColor(TL8,Blue); TL_SetColor(TL9,Blue); TL_SetColor(TL10,Gold); TL_SetSize(TL2,1); TL_SetSize(TL5,1); TL_SetSize(TL6,1); TL_SetSize(TL9,1); TL_SetSize(TL10,2); Box_Delete(box); box = Box_New(sDate,sTime,var5,NextBarSdate,NextBarStime,var8); Box_SetColor(box,Red); Box_SetFill(box,true); } Else { 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); TL_SetBegin(TL8,d1,t1,var8); TL_SetBegin(TL9,d1,t1,var9); TL_SetBegin(TL10,d1,t1,var10); 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); TL_SetEnd(TL8,NextBarSdate,NextBarStime,var8); TL_SetEnd(TL9,NextBarSdate,NextBarStime,var9); TL_SetEnd(TL10,NextBarSdate,NextBarStime,var10); Box_SetBegin(box,d1,t1,Var5); Box_SetEnd(box,NextBarSdate,NextBarStime,var8); } } if Bdate != Bdate[1] Then { Condition1 = False; Condition2 = False; Condition3 = False; Condition4 = False; Condition5 = False; Condition6 = False; Condition7 = False; } if Tcond == true Then { if MarketPosition == 1 Then { if IsEntryName("b1") == true Then Condition1 = true; if IsEntryName("b2") == true Then Condition2 = true; if IsEntryName("b4") == true Then Condition4 = true; if IsEntryName("b5") == true Then Condition5 = true; } if Condition1 == False and L > var3 Then Buy("b1",Atlimit,var3); if Condition2 == False and L > var4 Then Buy("b2",Atlimit,var4); if Condition4 == False and L > var7 Then Buy("b4",Atlimit,var7); if Condition5 == False and L > var8 Then Buy("b5",Atlimit,var8); if MarketPosition == 1 and BarsSinceEntry == 1 Then ExitLong("bx"); if MarketPosition == -1 Then { if IsEntryName("b3") == true Then Condition3 = true; if IsEntryName("b6") == true Then Condition6 = true; if IsEntryName("b7") == true Then Condition7 = true; } if Condition3 == False and L > var5 Then Sell("b3",AtStop,var5); if Condition6 == False and L > var9 Then Sell("b6",AtStop,var9); if Condition7 == False and L > var10 Then Sell("b7",AtStop,var10); if MarketPosition == -1 and BarsSinceEntry == 1 Then ExitShort(); } 즐거운 하루되세요