안녕하세요 예스스탁입니다. 1번 수식에 추가하고자 하시는 내용을 정리해서 올려주시기 바랍니다. 합성이라고만 하시면 조건내용들이 달라 처리하기 모호합니다. 2번 수식이 최근고점과 당일고점, 최금저점과 당일저점을 연결한 선이 있으므로 1번 수식에 해당 내용을 추가해 드립니다. 이후에 내용은 수식 참고하셔서 수정보완해 완성하시기 바랍니다. Input:length(10),종가사용여부(0),파동선두께(0.8),수치표시(1); Var:j(0),jj(0),HH(0),LL(0),최종고가(0),최종저가(0),최종꼭지점(""),처리구분(""), TL1(0),Text1(0); Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime #==========================================# HH = IFF(종가사용여부==1,C,H); LL = IFF(종가사용여부==1,C,L); If Index == 0 Then { 고[1,1] = HH; 저[1,1] = LL; } Condition1 = Highest(HH,length) == HH and 최종고가 <> HH; Condition2 = Lowest (LL,length) == LL and 최종저가 <> LL; 처리구분 = ""; 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 { 최종고가 = HH; // 신규고점을 체크하기 위해 저장 If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH; 고[1,2] = Index; 고[1,3] = sDate; 고[1,4] = sTime; TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]); If 수치표시 == 1 Then { Text1 = Text_New(고[1,3],고[1,4],고[1,1],NumToStr(고[1,1],2)+NewLine+"매▼도"+"+"+NumToStr(abs(고[1,1]-저[1,1])/PriceScale,0)); Text_SetStyle(Text1, 2, 1); Text_SetColor(text1,BLUE); } TL_SetSize(TL1,파동선두께); TL_SetColor(TL1,RED); } Else If 고[1,1] < HH Then // 1번 고점보다 높은 고가 출현 { 고[1,1] = HH; 고[1,2] = Index; 고[1,3] = sDate; 고[1,4] = sTime; TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]); // 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임 If 수치표시 == 1 Then { Text_SetLocation(Text1,고[1,3],고[1,4],고[1,1]); Text_SetString(Text1,NumToStr(고[1,1],2)+NewLine+"매▼도"+"+"+NumToStr(abs(고[1,1]-저[1,1])/PriceScale,0)); PlaySound("C:￦예스트레이더￦data￦Sound￦Stop.wav"); } } 최종꼭지점 = "고점"; } #==========================================# If 처리구분 == "저점처리" Then { 최종저가 = LL; If 최종꼭지점 == "고점" then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL; 저[1,2] = Index; 저[1,3] = sDate; 저[1,4] = sTime; TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]); If 수치표시 == 1 Then { Text1 = Text_New(저[1,3],저[1,4],저[1,1],"매▲수"+"-"+NumToStr(abs(고[1,1]-저[1,1])/PriceScale,0)+NewLine+NumToStr(저[1,1],2)); Text_SetStyle(Text1, 2, 0); Text_SetColor(text1,red); } TL_SetSize(TL1,파동선두께); TL_SetColor(TL1,BLUE); } Else If 저[1,1] > LL then { 저[1,1] = LL; 저[1,2] = Index; 저[1,3] = sDate; 저[1,4] = sTime; TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]); If 수치표시 == 1 Then { Text_SetLocation(Text1,저[1,3],저[1,4],저[1,1]); Text_SetString(Text1,"매▲수"+"-"+NumToStr(abs(고[1,1]-저[1,1])/PriceScale,0)+NewLine+NumToStr(저[1,1],2)); PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); } } 최종꼭지점 = "저점"; } var : HD(0),HT(0),LD(0),LT(0),DH(0),DL(0),TL33(0),TL44(0); if bdate != BDate[1] Then { HD = sdate; HT = stime; LD = sdate; LT = stime; DH = H; DL = L; TL_Delete(TL33); TL33 = TL_New(고[1,3],고[1,4],고[1,1],HD,HT,dayhigh); TL_SetExtRight(TL33,true); TL_setcolor(TL33,blue); TL_setsize(TL33,0.8); TL_Delete(TL44); TL44 = TL_New(저[1,3],저[1,4],저[1,1],LD,LT,DayLow); TL_SetExtRight(TL44,true); TL_setcolor(TL44,blue); TL_setsize(TL44,0.8); } if H > DH Then { DH = H; HD = sdate; HT = stime; TL_Delete(TL33); TL33 = TL_New(고[1,3],고[1,4],고[1,1],HD,HT,dayhigh); TL_SetExtRight(TL33,true); TL_setcolor(TL33,blue); TL_setsize(TL33,0.8); } if L < DL Then { DL = L; LD = sdate; LT = stime; TL_Delete(TL44); TL44 = TL_New(저[1,3],저[1,4],저[1,1],LD,LT,DayLow); TL_SetExtRight(TL44,true); TL_setcolor(TL44,blue); TL_setsize(TL44,0.8); } 즐거운 하루되세요 > 천년의사랑 님이 쓴 글입니다. > 제목 : 안녕하세요 > 안녕하세요^^ 아래 2번 지표식중에 가운데 중심추세선 수식을 제외하고 나머지 수식을 1번 추세선지표식에 합성을 부탁을 드립니다. 매번 도움주셔서 감사드립니다. 1번 지표 Input:length(10),종가사용여부(0),파동선두께(0.8),수치표시(1); Var:j(0),jj(0),HH(0),LL(0),최종고가(0),최종저가(0),최종꼭지점(""),처리구분(""), TL1(0),Text1(0); Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime #==========================================# HH = IFF(종가사용여부==1,C,H); LL = IFF(종가사용여부==1,C,L); If Index == 0 Then { 고[1,1] = HH; 저[1,1] = LL; } Condition1 = Highest(HH,length) == HH and 최종고가 <> HH; Condition2 = Lowest (LL,length) == LL and 최종저가 <> LL; 처리구분 = ""; 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 { 최종고가 = HH; // 신규고점을 체크하기 위해 저장 If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH; 고[1,2] = Index; 고[1,3] = sDate; 고[1,4] = sTime; TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]); If 수치표시 == 1 Then { Text1 = Text_New(고[1,3],고[1,4],고[1,1],NumToStr(고[1,1],2)+NewLine+"매▼도"+"+"+NumToStr(abs(고[1,1]-저[1,1])/PriceScale,0)); Text_SetStyle(Text1, 2, 1); Text_SetColor(text1,BLUE); } TL_SetSize(TL1,파동선두께); TL_SetColor(TL1,RED); } Else If 고[1,1] < HH Then // 1번 고점보다 높은 고가 출현 { 고[1,1] = HH; 고[1,2] = Index; 고[1,3] = sDate; 고[1,4] = sTime; TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]); // 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임 If 수치표시 == 1 Then { Text_SetLocation(Text1,고[1,3],고[1,4],고[1,1]); Text_SetString(Text1,NumToStr(고[1,1],2)+NewLine+"매▼도"+"+"+NumToStr(abs(고[1,1]-저[1,1])/PriceScale,0)); PlaySound("C:￦예스트레이더￦data￦Sound￦Stop.wav"); } } 최종꼭지점 = "고점"; } #==========================================# If 처리구분 == "저점처리" Then { 최종저가 = LL; If 최종꼭지점 == "고점" then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL; 저[1,2] = Index; 저[1,3] = sDate; 저[1,4] = sTime; TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]); If 수치표시 == 1 Then { Text1 = Text_New(저[1,3],저[1,4],저[1,1],"매▲수"+"-"+NumToStr(abs(고[1,1]-저[1,1])/PriceScale,0)+NewLine+NumToStr(저[1,1],2)); Text_SetStyle(Text1, 2, 0); Text_SetColor(text1,red); } TL_SetSize(TL1,파동선두께); TL_SetColor(TL1,BLUE); } Else If 저[1,1] > LL then { 저[1,1] = LL; 저[1,2] = Index; 저[1,3] = sDate; 저[1,4] = sTime; TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]); If 수치표시 == 1 Then { Text_SetLocation(Text1,저[1,3],저[1,4],저[1,1]); Text_SetString(Text1,"매▲수"+"-"+NumToStr(abs(고[1,1]-저[1,1])/PriceScale,0)+NewLine+NumToStr(저[1,1],2)); PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); } } 최종꼭지점 = "저점"; } 2번 지표 input:barCnt(5); Var:j(0),turnPntBit(""),TL1(0),TL33(0),TL44(0),HD(0),HT(0),LD(0),LT(0),HH(0),LL(0); var : TL121(0),TL122(0),tx121(0),tx122(0); Array:valArr[10](0),barArr[10](0),turnPntArr[10](""); // 봉이 새로 생겼으므로 봉개수 관리하는 변수들의 봉개수 값 1씩 증가 For j = 0 To 9 { barArr[j] = barArr[j] + 1; } // 고점조건 = 5-1-5에서 가운데 고가가 좌측 5봉과 우측 5봉 고가보다 높다 // 저점조건 = 5-1-5에서 가운데 저가가 좌측 5봉과 우측 5봉 저가보다 낮다 Condition1 = Highest(H,barCnt)[barCnt+1] <= H[barCnt] and H[barCnt] > Highest(H,barCnt); Condition2 = Lowest(L,barCnt)[barCnt+1] >= L[barCnt] and L[barCnt] < Lowest(L,barCnt); // 전환점구분 null값으로 초기화; // if 고점조건, 저점조건 동시 만족시 then // if 이전 고점,저점 범위를 모두 벗어났을 때 // 전환점구분 = 고저점; // else if 이전 고점을 갱신했다면 전환점구분 = 고점; // else if 이전 저점을 갱신했다면 전환점구분 = 저점; // else if 전환점배열의 현재(배열상 1번째)값이 고점이면 전환점구분 = 저점; // else if 전환점배열의 현재 값이 저점이면 전환점구분 = 고점; // else if 고점조건 만족하면 전환점구분 = 고점; // else if 저점조건 만족하면 전환전구분 = 저점; turnPntBit = ""; If Condition1 and Condition2 Then { If Max(valArr[1],valArr[2]) < H[barCnt] and Min(valArr[1],valArr[2]) > L[barCnt] Then turnPntBit = "HiLo"; Else If Max(valArr[1],valArr[2]) < H[barCnt] Then turnPntBit = "Hi"; Else If Min(valArr[1],valArr[2]) > L[barCnt] Then turnPntBit = "Lo"; Else If turnPntArr[1] == "Hi" Then turnPntBit = "Lo"; Else If turnPntArr[1] == "Lo" Then turnPntBit = "Hi"; } Else If Condition1 Then turnPntBit = "Hi"; Else If Condition2 Then turnPntBit = "Lo"; // if 전환점구분에 값이 있을 때만 아래 실행, 없으면 통과 If turnPntBit <> "" Then { // if 전환점구분이 고저점이면 then // 이전 파동은 연장시키고 아래에서 새로이 파동선을 추가토록 한다. If turnPntBit == "HiLo" Then { valArr[1] = IFF(turnPntArr[1] == "Hi",H[barCnt],L[barCnt]); barArr[1] = barCnt; TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]); If turnPntArr[1] == "Hi" Then turnPntBit = "Lo"; Else turnPntBit = "Hi"; } // if 신규 전환점구분이 현재(전환점배열 1번째)와 다르면 then // 배열값들을 이전값으로 Move; If turnPntBit <> turnPntArr[1] Then { for j = 8 downto 1 { valArr[j+1] = valArr[j]; barArr[j+1] = barArr[j]; turnPntArr[j+1] = turnPntArr[j]; } } // if 전환점구분이 바뀌었거나 또는 // (전환점구분은 안바뀌었는데 // (이전 고점보다 높은 고점이 발생했거나 또는 // 이전 저점보다 낮은 저점이 발생했으면)) then If turnPntBit <> turnPntArr[1] or (turnPntBit == turnPntArr[1] and ((turnPntBit == "Hi" and valArr[1] < H[barCnt]) or (turnPntBit == "Lo" and valArr[1] > L[barCnt]))) Then { // 값 배열에는 고점 또는 저점을 대입; // 봉개수 배열에는 입력변수의 봉개수 대입; // 전환점 배열에 전환점구분값을 대입; valArr[1] = IFF(turnPntBit == "Hi",H[barCnt],L[barCnt]); barArr[1] = barCnt; turnPntArr[1] = turnPntBit; // if 이전봉대비 전환점구분이 바뀌었다면 추세선 새로 그리고; // else 전환점구분이 안바뀌었으면 값만 바뀐거므로 추세선 연장; // If turnPntArr[1][1] <> turnPntArr[1][0] Then // TL1 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2], // sDate[barArr[1]],sTime[barArr[1]],valArr[1]); // Else // TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]); } } // TL_SetSize(TL1,0); // TL_SetColor(TL1,GREEN); var : TL11(0),TL12(0); if turnPntArr[1][0] == "Hi" Then { TL_delete(TL12); TL_Delete(TL11); TL11 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[1],sDate[barArr[1]],sTime[barArr[1]],valArr[1]); TL_SetExtRight(TL11,true); TL_SetColor(TL11,BLUE); TL_SetSize(TL11,3); TL_Delete(TL121); var1 = valArr[1]-abs(valArr[1]-valArr[2])*0.382; var2 = valArr[1]-abs(valArr[1]-valArr[2])*0.618; TL_SetExtRight(TL121,true); TL_SetColor(TL121,GREEN); TL_SetSize(TL121,1); TL_Delete(TL122); TL_SetExtRight(TL122,true); TL_SetColor(TL122,GREEN); TL_SetSize(TL122,1); #텍스트 출력 #출력전에 이전에 출력한 것은 삭제(즉 매봉 새로 출력) Text_Delete(tx121); Text_Delete(tx122); #고점-38.2 값 출력 #고점-61.8 값 출력 tx121 = Text_New(sdate,stime,var1,NumToStr(var1,2)); tx122 = Text_New(sdate,stime,var2,NumToStr(var2,2)); } if turnPntArr[1][0] == "Lo" Then { TL_delete(TL11); TL_Delete(TL12); TL12 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[1],sDate[barArr[1]],sTime[barArr[1]],valArr[1]); TL_SetExtRight(TL12,true); TL_SetColor(TL12,RED); TL_SetSize(TL12,3); TL_Delete(TL121); var1 = valArr[1]+abs(valArr[1]-valArr[2])*0.382; var2 = valArr[1]+abs(valArr[1]-valArr[2])*0.618; TL_SetExtRight(TL121,true); TL_SetColor(TL121,GREEN); TL_SetSize(TL121,1); TL_Delete(TL122); TL_SetExtRight(TL122,true); TL_SetColor(TL122,GREEN); TL_SetSize(TL122,1); #텍스트 출력 #출력전에 이전에 출력한 것은 삭제(즉 매봉 새로 출력) Text_Delete(tx121); Text_Delete(tx122); #저점+38.2 값 출력 #저점+61.8 값 출력 tx121 = Text_New(sdate,stime,var1,NumToStr(var1,2)); tx122 = Text_New(sdate,stime,var2,NumToStr(var2,2)); } if bdate != BDate[1] Then{ HD = sdate; HT = stime; LD = sdate; LT = stime; HH = H; LL = L; } if H > HH Then{ HH = H; HD = sdate; HT = stime; } TL_Delete(TL33); if turnPntArr[1][0] == "Hi" Then{ TL33 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1],HD,HT,dayhigh); } if turnPntArr[1][0] == "Lo" Then{ TL33 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],HD,HT,dayhigh); } TL_SetExtRight(TL33,true); TL_setcolor(TL33,blue); TL_setsize(TL33,0.8); if L < LL Then{ LL = L; LD = sdate; LT = stime; } TL_Delete(TL44); if turnPntArr[1][0] == "Hi" Then{ TL44 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],LD,LT,daylow); } if turnPntArr[1][0] == "Lo" Then{ TL44 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1],LD,LT,daylow); } TL_SetExtRight(TL44,true); TL_setcolor(TL44,blue); TL_setsize(TL44,0.8); #텍스트 출력값 위치를 항상 마지막완성봉 위치로 옮김 Text_SetLocation(Tx121,sdate,stime,Text_GetValue(Tx121)); Text_SetLocation(Tx122,sdate,stime,Text_GetValue(Tx122)); #텍스트는 정렬 Text_SetStyle(tx121,0,1); Text_SetS