커뮤니티

예스랭귀지 Q&A

글쓰기
답변완료

수정부탁드립니다.

안녕하세요 더운 날씨에 저희의 수고를 덜어주셔서 감사드립니다. 아래 시스템과 지표의 수식을 다시한번 수정 부탁드립니다. 고맙습니다. 진입은 틱챠트에서 합니다 1.매수조건 (3개의 조건이 한개라도 안맞을시 신호 불가) - 1시간봉 시가선을 지수5 이평이 상향크로스 - 15 분봉 시가선을 지수5 이평이 상향크로스 - 3 분봉에서는 오직 20삼각가중선을 지수 5 이평이 상향 크로스할때 매수 (분봉 시가선, 삼각가중, 지수이평은 변수) 2.매도조건 (3개의 조건이 한개라도 안맞을시 신호 불가) - 1시간봉 시가선을 지수5 이평이 하향크로스 - 15 분봉 시가선을 지수5 이평이 하향크로스 - 3 분봉에서는 오직 20삼각가중선을 지수 5 이평이 하향 크로스할때 매도 (분봉 시가선, 삼각가중, 지수이평은 변수) 1 input : 타주기분1(3),타주기분2(60),타주기분3(240),전환선기간(9); var : S1(0),D1(0),TM(0),cnt(0),hh(0),ll(0),전환선(0); var : TF1(0),TF2(0),TF3(0),O2(0),O3(0),H2(0),L2(0); Array : H1[100](0),L1[100](0); if Bdate != Bdate[1] Then { S1 = TimeToMinutes(stime); D1 = sdate; } if D1 > 0 then { if sdate == D1 Then TM = TimeToMinutes(stime)-S1; Else TM = TimeToMinutes(stime)+1440-S1; TF1 = TM%타주기분1; if Bdate != Bdate[1] or (Bdate == Bdate[1] and 타주기분1 > 1 and TF1 < TF1[1]) or (Bdate == Bdate[1] and 타주기분1 > 1 and TM >= TM[1]+타주기분1) or (Bdate == Bdate[1] and 타주기분1 == 1 and TM > TM[1]) Then { For cnt = 99 DownTo 1 { H1[cnt] = H1[cnt-1]; L1[cnt] = L1[cnt-1]; } H1[0] = H; L1[0] = L; } if H1[0] > 0 and H > H1[0] Then H1[0] = H; if L1[0] > 0 and L < L1[0] Then L1[0] = L; TF2 = TM%타주기분2; if Bdate != Bdate[1] or (Bdate == Bdate[1] and 타주기분2 > 1 and TF2 < TF2[1]) or (Bdate == Bdate[1] and 타주기분2 > 1 and TM >= TM[1]+타주기분1) or (Bdate == Bdate[1] and 타주기분2 == 1 and TM > TM[1]) Then { O2 = O; H2 = H; L2 = L; } if H2 > 0 and H > H2 Then H2 = H; if L2 > 0 and L < L2 Then L2 = L; TF3 = TM%타주기분3; if Bdate != Bdate[1] or (Bdate == Bdate[1] and 타주기분3 > 1 and TF3 < TF3[1]) or (Bdate == Bdate[1] and 타주기분3 > 1 and TM >= TM[1]+타주기분3) or (Bdate == Bdate[1] and 타주기분3 == 1 and TM > TM[1]) Then { O3 = O; } if O2 > 0 and O3 > 0 and H1[전환선기간-1] > 0 and L1[전환선기간-1] > 0 Then { hh = 0; ll = 0; For cnt = 0 to 전환선기간-1 { if hh == 0 or (hh > 0 and H1[cnt] > hh) Then hh = H1[cnt]; if ll == 0 or (ll > 0 and L1[cnt] < ll) Then ll = L1[cnt]; } 전환선 = (hh+ll)/2; if C > O3 and C > O2 and C >= L2+(H2-L2)*0.25 and C > 전환선 then Buy(); if C < O3 and C < O2 and C <= H2-(H2-L2)*0.25 and C < 전환선 then Sell(); } } 2 input : 타주기분1(3),타주기분2(60),타주기분3(240),전환선기간(9); var : S1(0),D1(0),TM(0),cnt(0),hh(0),ll(0),전환선(0); var : TF1(0),TF2(0),TF3(0),O2(0),O3(0),H2(0),L2(0),tx(0); Array : H1[100](0),L1[100](0); if Bdate != Bdate[1] Then { S1 = TimeToMinutes(stime); D1 = sdate; } if D1 > 0 then { if sdate == D1 Then TM = TimeToMinutes(stime)-S1; Else TM = TimeToMinutes(stime)+1440-S1; TF1 = TM%타주기분1; if Bdate != Bdate[1] or (Bdate == Bdate[1] and 타주기분1 > 1 and TF1 < TF1[1]) or (Bdate == Bdate[1] and 타주기분1 > 1 and TM >= TM[1]+타주기분1) or (Bdate == Bdate[1] and 타주기분1 == 1 and TM > TM[1]) Then { For cnt = 99 DownTo 1 { H1[cnt] = H1[cnt-1]; L1[cnt] = L1[cnt-1]; } H1[0] = H; L1[0] = L; } if H1[0] > 0 and H > H1[0] Then H1[0] = H; if L1[0] > 0 and L < L1[0] Then L1[0] = L; TF2 = TM%타주기분2; if Bdate != Bdate[1] or (Bdate == Bdate[1] and 타주기분2 > 1 and TF2 < TF2[1]) or (Bdate == Bdate[1] and 타주기분2 > 1 and TM >= TM[1]+타주기분1) or (Bdate == Bdate[1] and 타주기분2 == 1 and TM > TM[1]) Then { O2 = O; H2 = H; L2 = L; } if H2 > 0 and H > H2 Then H2 = H; if L2 > 0 and L < L2 Then L2 = L; TF3 = TM%타주기분3; if Bdate != Bdate[1] or (Bdate == Bdate[1] and 타주기분3 > 1 and TF3 < TF3[1]) or (Bdate == Bdate[1] and 타주기분3 > 1 and TM >= TM[1]+타주기분3) or (Bdate == Bdate[1] and 타주기분3 == 1 and TM > TM[1]) Then { O3 = O; } if O2 > 0 and O3 > 0 and H1[전환선기간-1] > 0 and L1[전환선기간-1] > 0 Then { hh = 0; ll = 0; For cnt = 0 to 전환선기간-1 { if hh == 0 or (hh > 0 and H1[cnt] > hh) Then hh = H1[cnt]; if ll == 0 or (ll > 0 and L1[cnt] < ll) Then ll = L1[cnt]; } 전환선 = (hh+ll)/2; if C > O3 and C > O2 and C >= L2+(H2-L2)*0.25 and C > 전환선 then { tx = Text_New(sDate,sTime,H,"●"); Text_SetColor(tx,Red); Text_SetStyle(tx,2,1); Text_SetSize(tx,12); } if C < O3 and C < O2 and C <= H2-(H2-L2)*0.25 and C < 전환선 then { tx = Text_New(sDate,sTime,H,"●"); Text_SetColor(tx,Blue); Text_SetStyle(tx,2,1); Text_SetSize(tx,12); } plot1(O2); plot2(O3); plot3(전환선); plot4(L2+(H2-L2)*0.25); plot5(H2-(H2-L2)*0.25); } }
프로필 이미지
라몬
2024-07-25
833
글번호 181889
시스템
답변완료

변환 부탁 드립니다

항상 감사 합니다 아래 신호식을 검색식으로 변환 부탁 드립니다 HH = HighestSince(1, date!=date(1), H); LL = LowestSince(1, date!=date(1), L); Fixed_H = ValueWhen(1, LL<LL(1), HH); L_first = if(date!=date(1), L, 0); Lv = if(DayLow()==L_first, H, Fixed_H); 매수가격 = ValueWhen(1, DayLow()==L_first or LL<LL(1), Lv); CrossUp(C, 매수가격)
프로필 이미지
73성훈
2024-07-25
813
글번호 181879
종목검색
답변완료

예스랭귀지로 변환 부탁드려요

AA=highest(V(1), 10); // crossup 70% of 10 candel's highest volume BB=crossup(V,AA*0.7); CC=highest(C(1), 10); // crossup 10 candel's highest DD=crossup(C, CC); EE=(highest(high(25),9)+lowest(low(25),9)+highest(high(25),26)+lowest(low(25),26))/4; FF=(highest(high(25),52)+lowest(low(25),52))/2; BB and DD and EE < C and FF < C 항상 노고에 감사드립니다.
프로필 이미지
스톰82
2024-07-25
771
글번호 181860
종목검색
답변완료

파라볼릭 2파

Input : af(0.02), maxAF(0.2); var : T(0),B(0),S(0),tx(0),tx2(0),txx(0),HH(0),LL(0),box(0),B1(0),S1(0),B2(0),S2(0),H1(0),L1(0),H2(0),L2(0),TL(0); var : Z(0),dd(0),tt(0); var1 = CSar(af,maxAF); plot1(var1, "CSAR",IFF(c>var1,Red,Blue)); if CrossUp(C,var1) Then { T = 1; B = var1; B1 = B[1]; B2 = B1[1]; HH = H; H1 = HH[1]; H2 = H1[1]; dd = sDate; tt = sTime; if abs(S-LL) < 1 Then Text_Delete(tx); tx = Text_New(sDate,sTime,HH,NumToStr(abs(HH-B),2)); Text_SetColor(tx,Red); Text_SetSize(tx,25); Text_SetStyle(tx,1,1); Text_SetBold(tx,1); box = Box_New(sDate,sTime,B,NextBarSdate,NextBarStime,HH); Condition1 = False; Condition2 = False; Condition5 = False; } if CrossDown(C,var1) Then { T = -1; S = var1; S1 = S[1]; S2 = S1[1]; LL = L; L1 = LL[1]; L2 = L1[1]; dd = sDate; tt = sTime; if abs(B-HH) < 1 Then Text_Delete(tx); tx = Text_New(sDate,sTime,LL,NumToStr(abs(LL-S),2)); Text_SetColor(tx,Blue); Text_SetSize(tx,25); Text_SetStyle(tx,1,0); Text_SetBold(tx,1); box = Box_New(sDate,sTime,S,NextBarSdate,NextBarStime,LL); Condition3 = False; Condition4 = False; Condition6 = False; } if T == 1 Then { if var1 < B Then { B = var1; box_SetBegin(box,dd,tt,S); } if H > HH Then HH = H; Text_SetString(tx,NumToStr(abs(HH-B),2)); Text_SetLocation(tx,sDate,sTime,HH); Box_SetEnd(box,NextBarSdate,NextBarStime,hh); if HH < B+0.6 Then { Box_SetColor(box,Orange); Box_SetFill(box,true,120); } Else if HH >= B+0.6 and HH < B+0.8 Then { Box_SetColor(box,Gray); Box_SetFill(box,true,80); } Else if HH >= B+0.8 and HH < B+1.3 Then { Box_SetColor(box,Magenta); Box_SetFill(box,true,60); } Else if HH >= B+1.3 and HH < B+1.9 Then { Box_SetColor(box,Gray); Box_SetFill(box,true,60); } Else { Box_SetColor(box,Pink); Box_SetFill(box,true,90); } if B1 > 0 and B > B1 and H > H1 and Condition1 == False Then { Condition1 = true; TL_Delete(TL); TL =TL_New(sDate,sTime,0,sDate,sTime,999); TL_SetColor(TL,Lime); TL_SetSize(TL,2); } if B1 > 0 and B > B1 and H > H1 and B1 > B2 and H1 > H2 and Condition2 == False Then { Condition2 = true; txx = Text_New(sdate,sTime,HH+0.13,"●"); Text_SetStyle(txx,2,2); Text_SetColor(txx,Green); Text_SetSize(txx,15); } if Condition5 == False and HH >= B+0.8 Then { Condition5 = true; Text_Delete(tx2); tx2 = Text_New(sdate,sTime,LL-0.18,"■"); Text_SetStyle(tx2,2,2); Text_SetColor(tx2,Blue); Text_SetSize(tx2,40); } } if T == -1 Then { if var1 > S Then { S = var1; box_SetBegin(box,dd,tt,S); } if L < LL Then LL = L; Text_SetString(tx,NumToStr(abs(LL-S),2)); Text_SetLocation(tx,sDate,sTime,LL); Box_SetEnd(box,NextBarSdate,NextBarStime,LL); if LL > S-0.6 Then { Box_SetColor(box,Cyan); Box_SetFill(box,true,150); } Else if LL <= S-0.6 and ll > S-0.8 Then { Box_SetColor(box,Yellow); Box_SetFill(box,true,150); } Else if LL <= S-0.8 and ll > S-1.3 Then { Box_SetColor(box,Lime); Box_SetFill(box,true,120); } Else if LL <= S-1.3 and ll > S-1.6 Then { Box_SetColor(box,Cyan); Box_SetFill(box,true,90); } Else if LL <= S-1.6 and ll > S-1.9 Then { Box_SetColor(box,Blue); Box_SetFill(box,true,30); } Else { Box_SetColor(box,Yellow); Box_SetFill(box,true,120); } if S1 > 0 and S < S1 and L < L1 and Condition3 == False Then { Condition3 = true; TL_Delete(TL); TL =TL_New(sDate,sTime,0,sDate,sTime,999); TL_SetColor(TL,Gold); TL_SetSize(TL,3); } if S1 > 0 and S < S1 and L < L1 and S1 < S2 and L1 < L2 and Condition4 == False Then { Condition4 = true; txx = Text_New(sdate,sTime,LL-0.13,"●"); Text_SetStyle(txx,2,2); Text_SetColor(txx,Magenta); Text_SetSize(txx,15); } if Condition6 == False and LL <= S-0.8 Then { Condition6= true; Text_Delete(tx2); tx2 = Text_New(sdate,sTime,HH+0.18,"■"); Text_SetStyle(tx2,2,2); Text_SetColor(tx2,Magenta); Text_SetSize(tx2,40); } } 직전 저점이 깨지면 2파 세로선 생기는 조건을, 깨진후 2파 크기가 0.8 이상이 되면 세로선 표시로 수정. 직저 깨지기 전에 크기가 0.8 이상이면 깨질 때 세로선. 상승은 반대. 감사합니다.
프로필 이미지
고성
2024-07-25
789
글번호 181856
지표
답변완료

검색식 부탁 드립니다

이평평균 A=avg(C,3); B=avg(C,17); D=avg(C,34); F=(A+B+D)/3 5지수이평 분봉에서 이동평균을 지수5이평이 돌파 첫캔들 종목 검색식 부탁 드립니다 두번째 캔들은 검색이 안되도록 부탁 드립니다
프로필 이미지
구경꾼그림자
2024-07-25
844
글번호 181855
종목검색
답변완료

예스랭귀지 오류 수정 도와주세요

예스랭귀지 나름 작성해보았는데 오류가 납니다. 수정작업 도와주시면 감사하겠습니다. input : midPeriod(26); var : A(0),B(0); A=shift(close,-midPeriod+1); B=BBandsUp(20,2); if Shift(CrossUP(A,B),25) Then Find(1); -------------------------------------------- 오류부분 4번줄 선언되지 않은 이름 shift가 사용되었습니다. 5번줄 선언되지 않은 이름 BBandsUP가 사용되었습니다. 6번줄 선언되지 않은 이름 shift가 사용되었습니다.
프로필 이미지
스톰82
2024-07-25
707
글번호 181851
종목검색
답변완료

종목검색

26일신고가&& 52일신고가 고맙습니다
프로필 이미지
박셰프
2024-07-25
758
글번호 181850
종목검색
답변완료

종목검색

기준선 상승&& 선행스팬1 상승&& 선행스팬2 상승 1 신호수식 2 종목검색 감사합니다
프로필 이미지
박셰프
2024-07-25
681
글번호 181849
강조
답변완료

부탁합니다

감사합니다 1. 지표 배분1:0.236 배분2:1.02 중최고가=최고값(고가,20); 중최저가=최저값(저가,20); 경계=(중최고가+중최저가)/2-(중최고가-중최저가)*배분1; 경계1=crossup(종가, 경계)&& 종가>시가*배분2; 경계2=crossdown(c, 경계); 기준봉=valuewhen(1, 경계1 or 경계2, 시가); 기준봉1=crossup(종가, 기준봉); 기준봉2=crossdown(종가, 기준봉); 결과기준=valuewhen(1, 기준봉1 or 기준봉2, 시가); 결과기준1=crossup(종가, 결과기준); 결과기준2=crossdown(종가, 결과기준); valuewhen(1, 결과기준1 or 결과기준2, 시가) 2.지표 AA=avg(c,5); BB=avg(c,10); CC=avg(c,20); DD=valuewhen(1,AA>BB && BB>CC && AA>CC, C); EE=valuewhen(1,DD(2)<DD(1) && DD(1)>DD, DD(1)); valuewhen(1,crossup(AA,EE), AA)
프로필 이미지
송이버섯
2024-07-25
806
글번호 181848
지표
답변완료

수식변환 부탁합니다

아래 수식을 변환 부탁합니다 수식1) AA= 당주고가(); BB=AA-주봉시가(); DD=(BB/AA)*100; IF(DD<0,0,DD) 수식2) AA= 당주저가(); BB=주봉시가()-AA; DD=(BB/AA)*100; IF(DD<0,0,DD)
프로필 이미지
팔보채
2024-07-24
866
글번호 181847
지표