안녕하세요 예스스탁입니다. 1. if crossup(var11,var5) Then T = 1; if CrossDown(var11,var5) Then T = -1; if T == 1 Then plot1(1,"트랜드",RED); Else plot1(1,"트랜드",BLUE); if crossup(var11,var3) Then T1 = 1; if CrossDown(var11,var3) Then T1 = -1; if T1 == 1 Then plot2(1,"가이드",RED); Else plot2(1,"가이드",blue); Condition1 = T == 1 and T1 == 1; Condition2 = T == -1 and T1 == -1; if Condition1 == true and Condition1[1] == true then playsound("c:￦예스트레이더￦data￦sound￦alert.wav"); if Condition2 == true and Condition2[1] == true then playsound("c:￦예스트레이더￦data￦sound￦alert.wav"); playsound함수는 컴퓨터안에 있는 wav파일을 구동합니다. 위식에서는 기본으로 제공되는 wav파일을 지정했습니다 게시판에서 수식을 복사해 편집기에 옮길경우 파일의 경로 중 ￦의 폰트가 맞지 않아 깨질수 있습니다. ￦는 다시 타이핑 하시기 바랍니다. 2. input:상승률(0.17),하락률(0.17); Var:j(0),상승(100),하락(-100),양방향(2),색깔(0),파랑(-1),빨강(1), 기준고(0),기준저(0),기준고Bar(0),기준저Bar(0),추세(0),이중파동(0); var : hbody(0),lbody(0); Array:고[20](0),저[20](0),고Bar[20](0),저Bar[20](0); #==========================================# # 전고점,전저점 index 증가 #==========================================# For j = 1 To 19 { 저Bar[j] = 저Bar[j] + 1; 고Bar[j] = 고Bar[j] + 1; } #==========================================# # 이중파동 처리 #==========================================# If 이중파동 > 0 Then { if 색깔 == 빨강 Then{ Plot1(이중파동,"Zigzag",blue); var2 = 이중파동; var3 = -1; } Else{ Plot1(이중파동,"Zigzag",red); var1 = 이중파동; var3 = 1; } 이중파동 = 0; } #==========================================# # 최근 고,저 갱신 #==========================================# If 기준고 <= Hbody || 기준고 == 0 || IsNaN(기준고) == True Then { 기준고 = Hbody; 기준고Bar = 0; } Else 기준고Bar = 기준고Bar + 1; If 기준저 >= Lbody || 기준저 == 0 || IsNaN(기준저) == True Then { 기준저 = Lbody; 기준저Bar = 0; } Else 기준저Bar = 기준저Bar + 1; #==========================================# # 추세방향 결정 #==========================================# If 기준고 * (1 - (하락률/100)) > Hbody && 기준저 * (1 + (상승률/100)) < Lbody Then { 추세 = Iff(기준고Bar==기준저Bar,양방향,Iff(기준고Bar>기준저Bar,상승,하락)); } Else If 기준고 * (1 - (하락률/100)) > Hbody Then 추세 = 하락; Else If 기준저 * (1 + (상승률/100)) < Lbody Then 추세 = 상승; #==========================================# # 추세변화에 따른 변곡점 처리 #==========================================# If 추세[1] == 상승 && 추세 == 하락 Then { For j = 18 DownTo 1 { 고[j+1] = 고[j]; 고Bar[j+1] = 고Bar[j]; } 고[1] = 기준고; 고Bar[1] = 기준고Bar; 기준고 = Hbody; 기준고Bar = 0; 기준저 = Lbody; 기준저Bar = 0; If 고[2] < 고[1] Then 색깔 = 빨강 ; If 이중파동[1] > 0 Then 이중파동 = 고[1]; Else { plot1(고[1],"Zigzag",RED); var1 = 고[1]; var3 = 1; } } If 추세[1] == 하락 && 추세 == 하락 && 고[1] < 기준고 && 기준고 * (1 - (하락률/100)) > Hbody Then { For j = 18 DownTo 1 { 고[j+1] = 고[j]; 고Bar[j+1] = 고Bar[j]; 저[j+1] = 저[j]; 저Bar[j+1] = 저Bar[j]; } 고[1] = 기준고; 고Bar[1] = 기준고Bar; 저[1] = 기준저; 저Bar[1] = 기준저Bar; 기준고 = Hbody; 기준고Bar = 0; 기준저 = Lbody; 기준저Bar = 0; If 저[2] > 저[1] Then 색깔 = 파랑; plot1(저[1],"Zigzag",blue); var2 = 저[1]; var3 = -1; If 고[2] < 고[1] Then 색깔 = 빨강; 이중파동 = 고[1]; } If 추세[1] == 하락 && 추세 == 상승 Then { For j = 18 DownTo 1 { 저[j+1] = 저[j]; 저Bar[j+1] = 저Bar[j]; } 저[1] = 기준저; 저Bar[1] = 기준저Bar; 기준저 = Lbody; 기준저Bar = 0; 기준고 = Hbody; 기준고Bar = 0; If 저[2] > 저[1] Then 색깔 = 파랑; If 이중파동[1] > 0 Then 이중파동 = 저[1]; Else { plot1(저[1],"Zigzag",blue); var2 = 저[1]; var3 = -1; } } If 추세[1] == 상승 && 추세 == 상승 && 저[1] > 기준저 && 기준저 * (1 + (상승률/100)) < Lbody Then { For j = 18 DownTo 1 { 고[j+1] = 고[j]; 고Bar[j+1] = 고Bar[j]; 저[j+1] = 저[j]; 저Bar[j+1] = 저Bar[j]; } 고[1] = 기준고; 고Bar[1] = 기준고Bar; 저[1] = 기준저; 저Bar[1] = 기준저Bar; 기준저 = Lbody; 기준저Bar = 0; 기준고 = Hbody; 기준고Bar = 0; If 고[2] < 고[1] Then 색깔 = 빨강; plot1(고[1],"Zigzag",RED); var1 = 고[1]; var3 = 1; If 저[2] > 저[1] Then 색깔 = 파랑; 이중파동 = 저[1]; } If 추세 == 양방향 Then { For j = 18 DownTo 1 { 고[j+1] = 고[j]; 고Bar[j+1] = 고Bar[j]; 저[j+1] = 저[j]; 저Bar[j+1] = 저Bar[j]; } 고[1] = 기준고; 고Bar[1] = 기준고Bar; 저[1] = 기준저; 저Bar[1] = 기준저Bar; 기준고 = Hbody; 기준고Bar = 0; 기준저 = Lbody; 기준저Bar = 0; 추세 = 추세[1]; If 추세[1] == 상승 Then { If 고[2] < 고[1] Then 색깔 = 빨강; Plot1(고[1],"Zigzag",RED); var1 = 고[1]; var3 = 1; If 저[2] > 저[1] Then 색깔 = 파랑; 이중파동 = 저[1]; } Else { If 저[2] > 저[1] Then 색깔 = 파랑; Plot1(저[1],"Zigzag",blue); Text_New(sdate,stime,저[1],NumToStr(저[1],2)); var2 = 저[1]; var3 = -1; If 고[2] < 고[1] Then 색깔 = 빨강; 이중파동 = 고[1]; } } if 고[1] != 고[1][1] Then value1 = 저[1][1]; if 저[1] != 저[1][1] Then value1 = 고[1][1]; plot2(value1); plot3(value2); 즐거운 하루되세요 > 백진강 님이 쓴 글입니다. > 제목 : 수식문의 > ##아래수식에서 두개다 빨강이면 사운드소리나게 반대로 두개다 파랑이면 소리나는 수식부탁합니다 @@ 그리고 39368 추가질문했는데 답변글이없네요 부탁합니다 if crossup(var11,var5) Then T = 1; if CrossDown(var11,var5) Then T = -1; if T == 1 Then plot1(1,"트랜드",RED); Else plot1(1,"트랜드",BLUE); if crossup(var11,var3) Then T1 = 1; if CrossDown(var11,var3) Then T1 = -1; if T1 == 1 Then plot2(1,"가이드",RED); Else plot2(1,"가이드",blue);