• 커뮤니티
  • 질의응답
  • 예스랭귀지 Q&A

커뮤니티

수식부탁드립니다

프로필 이미지
회원
2019-01-27 17:27:56
236
글번호 125618
답변완료
#,안녕하세요. #,아래수식1번)을 시작 날짜를 지정해서 피보나치선을 그리는 방식으로 수정하고 나머지는 동일하게 부탁드립니다, (일봉,주봉,월봉에만 동시적용가능하면 좋겠습니다) #,아래수식2번)은 매수지정가 터치시 신호발생하는 시스템식인데요,여기에 매도지정가도 같은 수식안에서 적용되도록 추가부탁드리며,매수,매도지정가 터치시 소리출력함수가 한번만 발생 하도록 추가부탁 드립니다. -아래1번- input : nday(30),n(1); input : Per1(0),Per2(23.60),Per3(38.20),Per4(50.00),Per5(61.80),Per6(76.40),Per7(88.20),Per8(100.00); var : ndate(0),cnt(0),RR(0),HH(0),LL(0); var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0); var : Tx1(0),Tx2(0),Tx3(0),Tx4(0),Tx5(0),Tx6(0),Tx7(0),Tx8(0); Array : Hv[10](0),Lv[10](0),Dv[10](0),Tv[10](0); ndate = bdate%100; if bdate != bdate[1] and (ndate == nday or (ndate > nday and ndate[1] < nday)) Then{ Hv[0] = H; Lv[0] = L; Dv[0] = sdate; Tv[0] = stime; for cnt = 1 to 9{ Hv[cnt] = Hv[cnt-1][1]; Lv[cnt] = Lv[cnt-1][1]; Dv[cnt] = Dv[cnt-1][1]; Tv[cnt] = Tv[cnt-1][1]; } } if H > Hv[0] Then Hv[0] = H; if L < Lv[0] Then Lv[0] = L; if Hv[n] > 0 and Hv[n] > 0 then{ HH = Hv[n]; LL = Lv[n]; RR = HH-LL; TL_Delete(TL1); TL_Delete(TL2); TL_Delete(TL3); TL_Delete(TL4); TL_Delete(TL5); TL_Delete(TL6); TL_Delete(TL7); TL_Delete(TL8); TL1 = TL_New(DV[1],TV[1],HH-RR*(Per8/100),Sdate,stime,HH-RR*(Per8/100)); TL2 = TL_New(DV[1],TV[1],HH-RR*(Per7/100),Sdate,stime,HH-RR*(Per7/100)); TL3 = TL_New(DV[1],TV[1],HH-RR*(Per6/100),Sdate,stime,HH-RR*(Per6/100)); TL4 = TL_New(DV[1],TV[1],HH-RR*(Per5/100),Sdate,stime,HH-RR*(Per5/100)); TL5 = TL_New(DV[1],TV[1],HH-RR*(Per4/100),Sdate,stime,HH-RR*(Per4/100)); TL6 = TL_New(DV[1],TV[1],HH-RR*(Per3/100),Sdate,stime,HH-RR*(Per3/100)); TL7 = TL_New(DV[1],TV[1],HH-RR*(Per2/100),Sdate,stime,HH-RR*(Per2/100)); TL8 = TL_New(DV[1],TV[1],HH-RR*(Per1/100),Sdate,stime,HH-RR*(Per1/100)); 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_SetStyle(TL1,3); TL_SetStyle(TL2,3); TL_SetStyle(TL3,3); TL_SetStyle(TL4,3); TL_SetStyle(TL5,3); TL_SetStyle(TL6,3); TL_SetStyle(TL7,3); TL_SetStyle(TL8,3); } - 아래2번- input : Price(52.90),pst(1); if pst == 1 then { if MarketPosition <= 0 then { if NextBarOpen <= Price Then buy("b1",AtStop,Price); Else buy("b2",AtLimit,Price); } ExitLong("bx",AtStop,Price-PriceScale*5); } else { if MarketPosition >= 0 then { if NextBarOpen >= Price Then sell("s1",AtStop,Price); Else sell("s2",AtLimit,Price); } Exitshort("sx",AtStop,Price+PriceScale*5); } $,매번감사합니다.
지표
답변 1
프로필 이미지

예스스탁 예스스탁 답변

2019-01-28 11:19:53

안녕하세요 예스스탁입니다. 1 input : 시작일(20190102); input : Per1(0),Per2(23.60),Per3(38.20),Per4(50.00),Per5(61.80),Per6(76.40),Per7(88.20),Per8(100.00); var : cnt(0),RR(0),HH(0),LL(0),Tcond(false),Hv(0),Lv(0),Dv(0),Tv(0); var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0); var : Tx1(0),Tx2(0),Tx3(0),Tx4(0),Tx5(0),Tx6(0),Tx7(0),Tx8(0); if bdate != bdate[1] and bdate == 시작일 Then { Tcond = true; Hv = H; Lv = L; Dv = sdate; Tv = stime; } if Tcond == true then { if H > Hv Then Hv = H; if L < Lv Then Lv = L; HH = Hv; LL = Lv; RR = HH-LL; TL_Delete(TL1); TL_Delete(TL2); TL_Delete(TL3); TL_Delete(TL4); TL_Delete(TL5); TL_Delete(TL6); TL_Delete(TL7); TL_Delete(TL8); TL1 = TL_New(DV[1],TV[1],HH-RR*(Per8/100),Sdate,stime,HH-RR*(Per8/100)); TL2 = TL_New(DV[1],TV[1],HH-RR*(Per7/100),Sdate,stime,HH-RR*(Per7/100)); TL3 = TL_New(DV[1],TV[1],HH-RR*(Per6/100),Sdate,stime,HH-RR*(Per6/100)); TL4 = TL_New(DV[1],TV[1],HH-RR*(Per5/100),Sdate,stime,HH-RR*(Per5/100)); TL5 = TL_New(DV[1],TV[1],HH-RR*(Per4/100),Sdate,stime,HH-RR*(Per4/100)); TL6 = TL_New(DV[1],TV[1],HH-RR*(Per3/100),Sdate,stime,HH-RR*(Per3/100)); TL7 = TL_New(DV[1],TV[1],HH-RR*(Per2/100),Sdate,stime,HH-RR*(Per2/100)); TL8 = TL_New(DV[1],TV[1],HH-RR*(Per1/100),Sdate,stime,HH-RR*(Per1/100)); 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_SetStyle(TL1,3); TL_SetStyle(TL2,3); TL_SetStyle(TL3,3); TL_SetStyle(TL4,3); TL_SetStyle(TL5,3); TL_SetStyle(TL6,3); TL_SetStyle(TL7,3); TL_SetStyle(TL8,3); } 2 신호발생시 소리는 설정창의 경보음 설정하시면 됩니다. input : BuyPrice(52.90),SellPrice(51.90); if MarketPosition <= 0 then { if NextBarOpen <= BuyPrice Then buy("b1",AtStop,BuyPrice); Else buy("b2",AtLimit,BuyPrice); } ExitLong("bx",AtStop,BuyPrice-PriceScale*5); if MarketPosition >= 0 then { if NextBarOpen >= SellPrice Then sell("s1",AtStop,SellPrice); Else sell("s2",AtLimit,SellPrice); } Exitshort("sx",AtStop,SellPrice+PriceScale*5); 즐거운 하루되세요 > 골든키 님이 쓴 글입니다. > 제목 : 수식부탁드립니다 > #,안녕하세요. #,아래수식1번)을 시작 날짜를 지정해서 피보나치선을 그리는 방식으로 수정하고 나머지는 동일하게 부탁드립니다, (일봉,주봉,월봉에만 동시적용가능하면 좋겠습니다) #,아래수식2번)은 매수지정가 터치시 신호발생하는 시스템식인데요,여기에 매도지정가도 같은 수식안에서 적용되도록 추가부탁드리며,매수,매도지정가 터치시 소리출력함수가 한번만 발생 하도록 추가부탁 드립니다. -아래1번- input : nday(30),n(1); input : Per1(0),Per2(23.60),Per3(38.20),Per4(50.00),Per5(61.80),Per6(76.40),Per7(88.20),Per8(100.00); var : ndate(0),cnt(0),RR(0),HH(0),LL(0); var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0); var : Tx1(0),Tx2(0),Tx3(0),Tx4(0),Tx5(0),Tx6(0),Tx7(0),Tx8(0); Array : Hv[10](0),Lv[10](0),Dv[10](0),Tv[10](0); ndate = bdate%100; if bdate != bdate[1] and (ndate == nday or (ndate > nday and ndate[1] < nday)) Then{ Hv[0] = H; Lv[0] = L; Dv[0] = sdate; Tv[0] = stime; for cnt = 1 to 9{ Hv[cnt] = Hv[cnt-1][1]; Lv[cnt] = Lv[cnt-1][1]; Dv[cnt] = Dv[cnt-1][1]; Tv[cnt] = Tv[cnt-1][1]; } } if H > Hv[0] Then Hv[0] = H; if L < Lv[0] Then Lv[0] = L; if Hv[n] > 0 and Hv[n] > 0 then{ HH = Hv[n]; LL = Lv[n]; RR = HH-LL; TL_Delete(TL1); TL_Delete(TL2); TL_Delete(TL3); TL_Delete(TL4); TL_Delete(TL5); TL_Delete(TL6); TL_Delete(TL7); TL_Delete(TL8); TL1 = TL_New(DV[1],TV[1],HH-RR*(Per8/100),Sdate,stime,HH-RR*(Per8/100)); TL2 = TL_New(DV[1],TV[1],HH-RR*(Per7/100),Sdate,stime,HH-RR*(Per7/100)); TL3 = TL_New(DV[1],TV[1],HH-RR*(Per6/100),Sdate,stime,HH-RR*(Per6/100)); TL4 = TL_New(DV[1],TV[1],HH-RR*(Per5/100),Sdate,stime,HH-RR*(Per5/100)); TL5 = TL_New(DV[1],TV[1],HH-RR*(Per4/100),Sdate,stime,HH-RR*(Per4/100)); TL6 = TL_New(DV[1],TV[1],HH-RR*(Per3/100),Sdate,stime,HH-RR*(Per3/100)); TL7 = TL_New(DV[1],TV[1],HH-RR*(Per2/100),Sdate,stime,HH-RR*(Per2/100)); TL8 = TL_New(DV[1],TV[1],HH-RR*(Per1/100),Sdate,stime,HH-RR*(Per1/100)); 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_SetStyle(TL1,3); TL_SetStyle(TL2,3); TL_SetStyle(TL3,3); TL_SetStyle(TL4,3); TL_SetStyle(TL5,3); TL_SetStyle(TL6,3); TL_SetStyle(TL7,3); TL_SetStyle(TL8,3); } - 아래2번- input : Price(52.90),pst(1); if pst == 1 then { if MarketPosition <= 0 then { if NextBarOpen <= Price Then buy("b1",AtStop,Price); Else buy("b2",AtLimit,Price); } ExitLong("bx",AtStop,Price-PriceScale*5); } else { if MarketPosition >= 0 then { if NextBarOpen >= Price Then sell("s1",AtStop,Price); Else sell("s2",AtLimit,Price); } Exitshort("sx",AtStop,Price+PriceScale*5); } $,매번감사합니다.
등록