커뮤니티

예스랭귀지 Q&A

글쓰기
답변완료

전환추세 상하대칭

Input : 전환(0.4); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""), TL(0),TX(0); Array:고[10,4](0),저[10,4](0); var : btx1(0),btx2(0),btx3(0),btx11(0),btx12(0),btx13(0),btx14(0),btx21(0),btx22(0),btx23(0),btx24(0); HH = H; LL = L; If Index == 0 Then { 고[1,1] = HH; 고[1,2] = 0; 고[1,3] = sDate; 고[1,4] = sTime; 저[1,1] = LL; 저[1,2] = 0; 저[1,3] = sDate; 저[1,4] = sTime; } If Index > 0 Then { hiBar = hiBar + 1; loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; If LL[loBar] > LL Then loBar = 0; Condition1 = 저[1,1]+전환 <= HH and hiBar == 0; Condition2 = 고[1,1]-전환 >= LL and loBar == 0; 처리구분 = ""; If Condition1 and Condition2 Then { If 최종꼭지점 == "저점" Then { If 저[1,1] > LL Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HH Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition1 Then 처리구분 = "고점처리"; Else If Condition2 Then 처리구분 = "저점처리"; If 처리구분 == "고점처리" Then { If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH[hiBar]; 고[1,2] = Index - hiBar; 고[1,3] = sDate[hiBar]; 고[1,4] = sTime[hiBar]; hiBar = -1; loBar = -1; TL = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]); TL_SetSize(TL,2); TL_SetColor(TL,Red); Condition2 = False; } if 고[1,1] > 0 and 저[1,1] > 0 and Condition2 == False and 고[1,1] >= 저[1,1]+0.95 Then { Condition2 = true; btx11 = Text_New(저[1,3],저[1,4],저[1,1]+abs(고[1,1]-저[1,1])*1.618,"■"); btx12 = Text_New(저[1,3],저[1,4],저[1,1]+abs(고[1,1]-저[1,1])*0.618,"■"); btx13 = Text_New(저[1,3],저[1,4],저[1,1]+abs(고[1,1]-저[1,1])*2,"■"); btx1 = Text_New(저[1,3],저[1,4],저[1,1]+abs(고[1,1]-저[1,1]),"■"); btx2 = Text_New(저[1,3],저[1,4],고[1,1]-abs(고[1,1]-저[1,1]),"■"); btx21 = Text_New(저[1,3],저[1,4],고[1,1]-abs(고[1,1]-저[1,1])*1.618,"■"); btx22 = Text_New(저[1,3],저[1,4],고[1,1]-abs(고[1,1]-저[1,1])*0.618,"■"); btx23 = Text_New(저[1,3],저[1,4],저[1,1]-abs(고[1,1]-저[1,1])*0.5,"■"); btx24 = Text_New(저[1,3],저[1,4],고[1,1]-abs(고[1,1]-저[1,1])*2,"■"); Text_SetStyle(btx11,2,2); Text_SetStyle(btx12,2,2); Text_SetStyle(btx1,2,2); Text_SetStyle(btx2,2,2); Text_SetStyle(btx21,2,2); Text_SetStyle(btx22,2,2); Text_SetStyle(btx23,2,2); Text_SetStyle(btx13,2,2); Text_SetStyle(btx24,2,2); Text_SetColor(btx11,Lime); Text_SetColor(btx12,Lime); Text_SetColor(btx1,Red); Text_SetColor(btx2,Red); Text_SetColor(btx21,Lime); Text_SetColor(btx22,Lime); Text_SetColor(btx23,Green); Text_SetColor(btx13,Red); Text_SetColor(btx24,Red); } If 고[1,1] < HH[hiBar] Then { 고[1,1] = HH[hiBar]; 고[1,2] = Index - hiBar; 고[1,3] = sDate[hiBar]; 고[1,4] = sTime[hiBar]; hiBar = -1; loBar = -1; TL_SetEnd(TL,고[1,3],고[1,4],고[1,1]); if Condition2 == true Then { Text_SetLocation(btx11, 저[1,3],저[1,4],저[1,1]+abs(고[1,1]-저[1,1])*1.618); Text_SetLocation(btx12, 저[1,3],저[1,4],저[1,1]+abs(고[1,1]-저[1,1])*0.618); Text_SetLocation(btx13, 저[1,3],저[1,4],저[1,1]+abs(고[1,1]-저[1,1])*2); Text_SetLocation(btx1, 저[1,3],저[1,4],저[1,1]+abs(고[1,1]-저[1,1])); Text_SetLocation(btx2, 저[1,3],저[1,4],고[1,1]-abs(고[1,1]-저[1,1])); Text_SetLocation(btx21, 저[1,3],저[1,4],고[1,1]-abs(고[1,1]-저[1,1])*1.618); Text_SetLocation(btx22, 저[1,3],저[1,4],고[1,1]-abs(고[1,1]-저[1,1])*0.618); Text_SetLocation(btx23, 저[1,3],저[1,4],저[1,1]-abs(고[1,1]-저[1,1])*0.5); Text_SetLocation(btx24, 저[1,3],저[1,4],고[1,1]-abs(고[1,1]-저[1,1])*2); } } 최종꼭지점 = "고점"; Plot1(고[1,1]); NoPlot(2); } If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL[loBar]; 저[1,2] = Index - loBar; 저[1,3] = sDate[loBar]; 저[1,4] = sTime[loBar]; hiBar = -1; loBar = -1; TL = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]); TL_SetSize(TL,2); TL_SetColor(TL,Blue); Condition1 = False; } if 고[1,1] > 0 and 저[1,1] > 0 and Condition1 == False and 저[1,1] <= 고[1,1]-0.95 Then { Condition1 = true; btx11 = Text_New(저[1,3],저[1,4],고[1,1]+abs(고[1,1]-저[1,1])*1.618,"■"); btx12 = Text_New(저[1,3],저[1,4],고[1,1]+abs(고[1,1]-저[1,1])*0.618,"■"); btx13 = Text_New(저[1,3],저[1,4],고[1,1]-abs(고[1,1]-저[1,1])*0.5,"■"); btx14 = Text_New(저[1,3],저[1,4],고[1,1]+abs(고[1,1]-저[1,1])*2,"■"); btx1 = Text_New(저[1,3],저[1,4],고[1,1]+abs(고[1,1]-저[1,1]),"■"); btx2 = Text_New(저[1,3],저[1,4],저[1,1]-abs(고[1,1]-저[1,1]),"■"); btx21 = Text_New(저[1,3],저[1,4],저[1,1]-abs(고[1,1]-저[1,1])*1.618,"■"); btx22 = Text_New(저[1,3],저[1,4],저[1,1]-abs(고[1,1]-저[1,1])*0.618,"■"); btx24 = Text_New(저[1,3],저[1,4],저[1,1]-abs(고[1,1]-저[1,1])*2,"■"); Text_SetStyle(btx11,2,2); Text_SetStyle(btx12,2,2); Text_SetStyle(btx13,2,2); Text_SetStyle(btx14,2,2); Text_SetStyle(btx1,2,2); Text_SetStyle(btx2,2,2); Text_SetStyle(btx21,2,2); Text_SetStyle(btx22,2,2); Text_SetStyle(btx24,2,2); Text_SetColor(btx11,Lime); Text_SetColor(btx12,Lime); Text_SetColor(btx13,Green); Text_SetColor(btx1,Blue); Text_SetColor(btx2,Blue); Text_SetColor(btx21,Lime); Text_SetColor(btx22,Lime); Text_SetColor(btx14,Blue); Text_SetColor(btx24,Blue); } If 저[1,1] > LL[loBar] Then { 저[1,1] = LL[loBar]; 저[1,2] = Index - loBar; 저[1,3] = sDate[loBar]; 저[1,4] = sTime[loBar]; hiBar = -1; loBar = -1; if Condition1 == true Then { Text_SetLocation(btx11, 저[1,3],저[1,4],고[1,1]+abs(고[1,1]-저[1,1])*1.618); Text_SetLocation(btx12, 저[1,3],저[1,4],고[1,1]+abs(고[1,1]-저[1,1])*0.618); Text_SetLocation(btx13, 저[1,3],저[1,4],고[1,1]-abs(고[1,1]-저[1,1])*0.5); Text_SetLocation(btx14, 저[1,3],저[1,4],고[1,1]+abs(고[1,1]-저[1,1])*2); Text_SetLocation(btx1, 저[1,3],저[1,4],고[1,1]+abs(고[1,1]-저[1,1])); Text_SetLocation(btx2, 저[1,3],저[1,4],저[1,1]-abs(고[1,1]-저[1,1])); Text_SetLocation(btx21, 저[1,3],저[1,4],저[1,1]-abs(고[1,1]-저[1,1])*1.618); Text_SetLocation(btx22, 저[1,3],저[1,4],저[1,1]-abs(고[1,1]-저[1,1])*0.618); Text_SetLocation(btx24, 저[1,3],저[1,4],저[1,1]-abs(고[1,1]-저[1,1])*2); } TL_SetEnd(TL,저[1,3],저[1,4],저[1,1]); } 최종꼭지점 = "저점"; Plot2(저[1,1]); NoPlot(1); } 추세선이 0.95p 이상 커지면(작으면 무시), 그 크기의 0.618배, 배, 1.618배, 2배 지점을, 추세선 상하단으로부터 위아래에 표시. 수정 부탁드립니다.
프로필 이미지
고성
2023-08-13
1282
글번호 171444
지표
답변완료

팝업알림창 문의드립니다.

1분봉에서 if 일정조건만족한다면 then 11시봉완료시 13시봉완료시 15시20분봉완료시 "매수조건만족유지중입니다" 라는 팝업과 사운드가 나오게 부탁드립니다.
프로필 이미지
e占쏙옙占싼쏙옙호
2023-08-12
801
글번호 171443
지표
답변완료

부탁 드립니다

도움에 감사 드립니다. 사용자 함수를 사용 하여 실행하면 기존수식과 결과가 다르게 나타 납니다. 사용자 함수를 수정 부탁 드립니다. //기존 수식 input :순위1(3); input:p1(20); input:p2(30); input:p3(40); input :sig(9); var : mx1(0), mx1P(0); array : mm1[3](0); mm1[0] = ma(C, p1); mm1[1] = ma(C, p2); mm1[2] = ma(C, p3); NthHighestArray(mm1, 3, 순위1, mx1, mx1P); var1=c-mx1; var11=ma(var1,sig); Plot1(var11); plotbaseline1(0); //사용자 함수 수식 input :순위1(numeric); input: p1(numeric); input: p2(numeric); input: p3(numeric); input :sig(numeric); var : mx1(0), mx1P(0); array : mm1[3](0); mm1[0] = ma(C, p1); mm1[1] = ma(C, p2); mm1[2] = ma(C, p3); NthHighestArray(mm1, 3, 순위1, mx1, mx1P); var1=c-mx1; var11=ma(var1,sig); 후8601rank_test=var11; //함수 실행식 input :순위1(3); input: p1(20); input: p2(30); input: p3(40); input :sig(9); var91=(후8601rank_test (순위1,p1,p2,p3,sig)); Plot1(var91); plotbaseline1(0);
프로필 이미지
yes
2023-08-12
820
글번호 171442
사용자 함수

hakona 님에 의해서 삭제되었습니다.

프로필 이미지
hakona
2023-08-12
14
글번호 171441
지표

hakona 님에 의해서 삭제되었습니다.

프로필 이미지
hakona
2023-08-12
31
글번호 171440
지표
답변완료

문의드립니다.

안녕하세요 아래 두 신호검색식을 이용하여 두 조건 모두 만족하는 종목 검색식으로 변경 가능할까요?? 부탁 드리겠습니다. AA=date/100%100; 대금=(H+O+L+C)/4*V/100000000; A=IF(C>O,대금,0); B=SUM(A); D=ValueWhen(1,AA(1)!=AA,B(1)); 양대금=B-D; A1=IF(C<O,대금,0); B1=SUM(A1); D1=ValueWhen(1,AA(1)!=AA,B1(1)); 음대금=B1-D1; CROSSUP(양대금,음대금) ============================== A=(highest(high,shortPeriod)+lowest(low,shortPeriod))/2; A1=(highest(high,midPeriod)+lowest(low,midPeriod))/2; A2=(highest(high,longPeriod)+lowest(low,longPeriod))/2; A3=wavg((((C-C(Period))/C(Period))*100) + (((C-C(Period1))/C(Period1))*100),Period2); A5=MAX(A(1),A1(1),A2(1)); A6=MIN(A(1),A1(1),A2(1)); A6*1.02>=A5 && A>A(1) && A1>A1(1) && A2>A2(1) && A3(1)<A3 && C>=A5 longperiod 52 shortperiod 9 midperiod 26 period 11
프로필 이미지
사령검사
2023-08-12
1137
글번호 171439
검색
답변완료

문의드립니다.

안녕하세요 신호검색식을 조건 검색식으로 변경 가능할까요?? ap = (HIGH+LOW+CLOSE)/3; esa = eavg(ap, 10); d = eavg(abs(ap - esa), 10); ci = (ap - esa) / (0.015 * d); wt1 = eavg(ci, 21); wt2 = avg(wt1,4); CROSSUP(wt1,0)
프로필 이미지
사령검사
2023-08-12
878
글번호 171438
종목검색

정구지 님에 의해서 삭제되었습니다.

프로필 이미지
정구지
2023-08-12
11
글번호 171437
지표

정구지 님에 의해서 삭제되었습니다.

프로필 이미지
정구지
2023-08-12
0
글번호 171436
지표
답변완료

예스로 부탁드립니다. 감사합니다.

A = if(avg(거래대금, 1) >= 100000, 1, 0); B = if(C(1)*1.15 <= C, 1, 0); D= EnvelopeUp(60,15); E= StochasticsSlow(5, 3); SUM(A(5), 28) >= 1 and SUM(B(5), 28) >= 1 and C(1) <= D(1) and E(1) < 30 and Crossup(DIPlus(14), DIMinus(14) ) and ((H(1)+L(1))/2) < C and C(1) < C and O < C AND C > (highest(high,226)+lowest(low, 226))/2 AND C > avg(C,60) and avg(C,20) >avg(C,60)
프로필 이미지
占쏙옙占쏙옙占쏙옙
2023-08-12
1010
글번호 171435
강조