안녕하세요 예스스탁입니다. 1 input : N(10); var : ii(0),TF(0),TL(0),Box1(0),Box2(0),cnt(0); var : h5(0),l5(0),m5(0),TX(0),clr(0),clr1(0),sound(False); Array : HH[10](0),LL[10](0); if Bdate != Bdate[1] Then ii = 0; Else ii = ii +1; TF = ii%N; if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1] and TF > -1) Then { var1 = O; Var2 = H; Var3 = L; var11 = var1[1]; Var4 = (Var2+Var3)/2; Var41 = Var4[1]; For cnt = 9 downto 1 { HH[cnt] = HH[cnt-1]; LL[cnt] = LL[cnt-1]; } hh[0] = Var2; ll[0] = Var3; h5 = 0; l5 = 0; For cnt = 1 to 5 { if h5 == 0 or (h5 > 0 and hh[cnt] > h5) Then h5 = hh[cnt]; if l5 == 0 or (l5 > 0 and ll[cnt] < l5) Then l5 = ll[cnt]; } m5 = (h5+l5)/2; value1 = sDate; Value2 = sTime; TL = TL_new(sDate,sTime,var4,NextBarSdate,NextBarStime,var4); TL_SetColor(TL,Green); TL_SetSize(TL,1); Box1 = Box_New(sDate,sTime,var2,NextBarSdate,NextBarStime,Var3); if var4 > m5 Then Box_SetColor(Box1,Red); Else Box_SetColor(Box1,Blue); Box_SetFill(Box1,true); TX = Text_New(sDate,sTime,L,NumToStr(TF+1,0)); Text_SetStyle(tx,2,0); Text_SetSize(tx,12); clr1 = clr[1]; sound = False; } Else { if H > Var2 Then Var2 = H; if L < var3 Then Var3 = L; Var4 = (Var2+Var3)/2; TL_SetBegin(TL,value1,Value2,var4); TL_SetEnd(TL,NextBarSdate,NextBarStime,var4); Box_SetBegin(Box1,value1,Value2,Var2); Box_SetEnd(Box1,NextBarSdate,NextBarStime,Var3); if var4 > m5 Then { clr = Red; } Else { clr = Blue; } Box_SetColor(Box1,clr); hh[0] = Var2; ll[0] = Var3; TX = Text_New(sDate,sTime,L,NumToStr(TF+1,0)); Text_SetStyle(tx,2,0); Text_SetSize(tx,12); } if NextBarOpen > 0 and sound == False and clr != clr1 Then { sound = true; PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); } if TF+1 == 1 Then { Buy(); Sell(); } 2 input : N(10); var : ii(0),TF(0),TL(0),Box1(0),Box2(0),cnt(0); var : h5(0),l5(0),m5(0),TX(0),clr(0),clr1(0),sound(False); Array : HH[10](0),LL[10](0); if Bdate != Bdate[1] Then ii = 0; Else ii = ii +1; TF = ii%N; if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1] and TF > -1) Then { var1 = O; Var2 = H; Var3 = L; var11 = var1[1]; Var4 = (Var2+Var3)/2; Var41 = Var4[1]; For cnt = 9 downto 1 { HH[cnt] = HH[cnt-1]; LL[cnt] = LL[cnt-1]; } hh[0] = Var2; ll[0] = Var3; h5 = 0; l5 = 0; For cnt = 1 to 5 { if h5 == 0 or (h5 > 0 and hh[cnt] > h5) Then h5 = hh[cnt]; if l5 == 0 or (l5 > 0 and ll[cnt] < l5) Then l5 = ll[cnt]; } m5 = (h5+l5)/2; value1 = sDate; Value2 = sTime; TL = TL_new(sDate,sTime,var4,NextBarSdate,NextBarStime,var4); TL_SetColor(TL,Green); TL_SetSize(TL,1); Box1 = Box_New(sDate,sTime,var2,NextBarSdate,NextBarStime,Var3); if var4 > m5 Then Box_SetColor(Box1,Red); Else Box_SetColor(Box1,Blue); Box_SetFill(Box1,true); TX = Text_New(sDate,sTime,L,NumToStr(TF+1,0)); Text_SetStyle(tx,2,0); Text_SetSize(tx,12); clr1 = clr[1]; sound = False; } Else { if H > Var2 Then Var2 = H; if L < var3 Then Var3 = L; Var4 = (Var2+Var3)/2; TL_SetBegin(TL,value1,Value2,var4); TL_SetEnd(TL,NextBarSdate,NextBarStime,var4); Box_SetBegin(Box1,value1,Value2,Var2); Box_SetEnd(Box1,NextBarSdate,NextBarStime,Var3); if var4 > m5 Then { clr = Red; } Else { clr = Blue; } Box_SetColor(Box1,clr); hh[0] = Var2; ll[0] = Var3; TX = Text_New(sDate,sTime,L,NumToStr(TF+1,0)); Text_SetStyle(tx,2,0); Text_SetSize(tx,12); } if NextBarOpen > 0 and sound == False and clr != clr1 Then { sound = true; PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); } if TF+1 == 2 Then { Buy(); Sell(); } 즐거운 하루되세요 > 새벽에 님이 쓴 글입니다. > 제목 : 문의드립니다 > 안녕하세요? 아래수식에서 1. 각박스의 봉번호1번에서(해당봉에) 매수와 매도의신호가 동시에 발생하도록해주세요 2. 각박스의 봉번호2번에서(해당봉에) 매수와 매도의신호가 동시에 발생하도록 2가지수식을 부탁드립니다. 감사합니다 input : N(10); var : ii(0),TF(0),TL(0),Box1(0),Box2(0),cnt(0); var : h5(0),l5(0),m5(0),TX(0),clr(0),clr1(0),sound(False); Array : HH[10](0),LL[10](0); if Bdate != Bdate[1] Then ii = 0; Else ii = ii +1; TF = ii%N; if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1] and TF > -1) Then { var1 = O; Var2 = H; Var3 = L; var11 = var1[1]; Var4 = (Var2+Var3)/2; Var41 = Var4[1]; For cnt = 9 downto 1 { HH[cnt] = HH[cnt-1]; LL[cnt] = LL[cnt-1]; } hh[0] = Var2; ll[0] = Var3; h5 = 0; l5 = 0; For cnt = 1 to 5 { if h5 == 0 or (h5 > 0 and hh[cnt] > h5) Then h5 = hh[cnt]; if l5 == 0 or (l5 > 0 and ll[cnt] < l5) Then l5 = ll[cnt]; } m5 = (h5+l5)/2; value1 = sDate; Value2 = sTime; TL = TL_new(sDate,sTime,var4,NextBarSdate,NextBarStime,var4); TL_SetColor(TL,Green); TL_SetSize(TL,1); Box1 = Box_New(sDate,sTime,var2,NextBarSdate,NextBarStime,Var3); if var4 > m5 Then Box_SetColor(Box1,Red); Else Box_SetColor(Box1,Blue); Box_SetFill(Box1,true); TX = Text_New(sDate,sTime,L,NumToStr(TF+1,0)); Text_SetStyle(tx,2,0); Text_SetSize(tx,12); clr1 = clr[1]; sound = False; } Else { if H > Var2 Then Var2 = H; if L < var3 Then Var3 = L; Var4 = (Var2+Var3)/2; TL_SetBegin(TL,value1,Value2,var4); TL_SetEnd(TL,NextBarSdate,NextBarStime,var4); Box_SetBegin(Box1,value1,Value2,Var2); Box_SetEnd(Box1,NextBarSdate,NextBarStime,Var3); if var4 > m5 Then { clr = Red; } Else { clr = Blue; } Box_SetColor(Box1,clr); hh[0] = Var2; ll[0] = Var3; TX = Text_New(sDate,sTime,L,NumToStr(TF+1,0)); Text_SetStyle(tx,2,0); Text_SetSize(tx,12); } if NextBarOpen > 0 and sound == False and clr != clr1 Then { sound = true; PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); } //Plot1(m5);