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

커뮤니티

질문입니다.

프로필 이미지
스오어스
2019-01-11 11:10:17
196
글번호 125154
답변완료
안녕하세요. 늘 답변 주셔서 감사하고 막힌 문제를 해결 해주셔서 감사합니다. 아래 수식은 과거 게시판을 찾아서 올립니다. 이 수식에 제가 원하는 수식을 수성해주시면 너무 감사하겠습니다. ================================================= Input : length(12),추세선굵기(2);#굵기(0~6사이의 정수) input : 고저점값표시(1);#1이면 표시, 0이면 표시안함 input : 피보값표시(1);#1이면 표시, 0이면 표시안함 Var : j(0),lastHiVal(0),lastLoVal(0),turnPntBit(""),TL1(0),T(0); var : tx(0),tx1(0),tx2(0),tx3(0),tx4(0),tx5(0),tx6(0),tx7(0); Array:valArr[20](0),barArr[20](0),turnPntArr[20](""),r[10](0); // 봉이 새로 생겼으므로 봉개수 관리하는 변수들의 봉개수 값 1씩 증가 For j = 0 To 19 { barArr[j] = barArr[j] + 1; } // 고점조건 = 현재 봉의 고가가 기간최고가이면서 최고가 갱신되었을 때; // 저점조건 = 현재 봉의 저가가 기간최저가이면서 최저가 갱신되었을 때; // 고점,저점조건 만족시 현재 봉의 고[저]가를 변수에 저장 Condition1 = Highest(H,length) == H and lastHiVal <> H; Condition2 = Lowest(L,length) == L and lastLoVal <> L; If Condition1 Then lastHiVal = H; If Condition2 Then lastLoVal = L; // 전환점구분 null값으로 초기화; // if 고점조건, 저점조건 동시 만족시 { // if 전환점배열의 현재(배열상 1번째)값이 고점이면 전환점구분 = 저점; // else if 전환점배열의 현재 값이 저점이면 전환점구분 = 고점; // else if 고점조건 만족하면 전환점구분 = 고점; // else if 저점조건 만족하면 전환점구분 = 저점; turnPntBit = ""; If Condition1 and Condition2 Then { 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 전환점구분에 값이 있을 때만 then 아래 실행, 없으면 통과 // if 신규 전환점구분이 현재(전환점배열 1번째)와 다르면 then // 배열값들을 이전값으로 Move; If turnPntBit == "Hi" or turnPntBit == "Lo" Then { If turnPntBit <> turnPntArr[1] Then { for j = 18 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) or (turnPntBit == "Lo" and valArr[1] > L))) Then { // 값 배열에는 고점 또는 저점을 대입; // 봉개수 배열에는 0값 대입; // 전환점 배열에 전환점구분값을 대입; valArr[1] = IFF(turnPntBit == "Hi",H,L); barArr[1] = 0; 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]); if turnPntArr[1][0] == "Hi" Then { T = 1; } if turnPntArr[1][0] == "Lo" Then { T = -1; } if 고저점값표시 == 1 and T != T[1] Then { tx = Text_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],NumToStr(valArr[2],2)); if t == 1 then { Text_SetStyle(tx,2,0); Text_SetColor(tx,BLUE); } Else { Text_SetStyle(tx,2,1); Text_SetColor(tx,RED); } } } Else TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]); } } TL_SetSize(TL1,추세선굵기); TL_SetColor(TL1,iff(t== 1,red,BLUE)); var : TTL1(0),TTL2(0),TTL3(0),TTL4(0),TTL5(0),TTL6(0),TTL7(0); if T == -1 then { r[0] = 0; r[1] = 0.236; r[2] = 0.382; r[3] = 0.50; r[4] = 0.618; r[5] = 0.764; r[6] = 1; var1 = valArr[1]+(valArr[2]-valArr[1])*R[0]; var2 = valArr[1]+(valArr[2]-valArr[1])*R[1]; var3 = valArr[1]+(valArr[2]-valArr[1])*R[2]; var4 = valArr[1]+(valArr[2]-valArr[1])*R[3]; var5 = valArr[1]+(valArr[2]-valArr[1])*R[4]; var6 = valArr[1]+(valArr[2]-valArr[1])*R[5]; var7 = valArr[1]+(valArr[2]-valArr[1])*R[6]; TL_Delete(TTL1); TL_Delete(TTL2); TL_Delete(TTL3); TL_Delete(TTL4); TL_Delete(TTL5); TL_Delete(TTL6); TL_Delete(TTL7); TTL1 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1]+(valArr[2]-valArr[1])*R[0],sdate,stime,valArr[1]+(valArr[2]-valArr[1])*R[0]); TTL2 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1]+(valArr[2]-valArr[1])*R[1],sdate,stime,valArr[1]+(valArr[2]-valArr[1])*R[1]); TTL3 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1]+(valArr[2]-valArr[1])*R[2],sdate,stime,valArr[1]+(valArr[2]-valArr[1])*R[2]); TTL4 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1]+(valArr[2]-valArr[1])*R[3],sdate,stime,valArr[1]+(valArr[2]-valArr[1])*R[3]); TTL5 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1]+(valArr[2]-valArr[1])*R[4],sdate,stime,valArr[1]+(valArr[2]-valArr[1])*R[4]); TTL6 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1]+(valArr[2]-valArr[1])*R[5],sdate,stime,valArr[1]+(valArr[2]-valArr[1])*R[5]); TTL7 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1]+(valArr[2]-valArr[1])*R[6],sdate,stime,valArr[1]+(valArr[2]-valArr[1])*R[6]); TL_SetExtRight(TTL1,true); TL_SetExtRight(TTL2,true); TL_SetExtRight(TTL3,true); TL_SetExtRight(TTL4,true); TL_SetExtRight(TTL5,true); TL_SetExtRight(TTL6,true); TL_SetExtRight(TTL7,true); TL_SetExtRight(TTL7,true); TL_SetColor(TTL1,blue); TL_SetColor(TTL2,blue); TL_SetColor(TTL3,blue); TL_SetColor(TTL4,blue); TL_SetColor(TTL5,blue); TL_SetColor(TTL6,blue); TL_SetColor(TTL7,blue); if 피보값표시 == 1 then { Text_Delete(Tx1); Text_Delete(Tx2); Text_Delete(Tx3); Text_Delete(Tx4); Text_Delete(Tx5); Text_Delete(Tx6); Text_Delete(Tx7); tx1 = Text_New(sdate,stime,var1,NumToStr(var1,0)); tx2 = Text_New(sdate,stime,var2,NumToStr(var2,0)); tx3 = Text_New(sdate,stime,var3,NumToStr(var3,0)); tx4 = Text_New(sdate,stime,var4,NumToStr(var4,0)); tx5 = Text_New(sdate,stime,var5,NumToStr(var5,0)); tx6 = Text_New(sdate,stime,var6,NumToStr(var6,0)); tx7 = Text_New(sdate,stime,var7,NumToStr(var7,0)); Text_SetStyle(tx1,0,1); Text_SetStyle(tx2,0,1); Text_SetStyle(tx3,0,1); Text_SetStyle(tx4,0,1); Text_SetStyle(tx5,0,1); Text_SetStyle(tx6,0,1); Text_SetStyle(tx7,0,1); Text_SetColor(tx1,blue); Text_SetColor(tx2,blue); Text_SetColor(tx3,blue); Text_SetColor(tx4,blue); Text_SetColor(tx5,blue); Text_SetColor(tx6,blue); Text_SetColor(tx7,blue); } } #--하락적용--- if T == 1 Then { r[0] = 0; r[1] = 0.236; r[2] = 0.382; r[3] = 0.50; r[4] = 0.618; r[5] = 0.764; r[6] = 1; var1 = valArr[1]-(valArr[1]-valArr[2])*R[0]; var2 = valArr[1]-(valArr[1]-valArr[2])*R[1]; var3 = valArr[1]-(valArr[1]-valArr[2])*R[2]; var4 = valArr[1]-(valArr[1]-valArr[2])*R[3]; var5 = valArr[1]-(valArr[1]-valArr[2])*R[4]; var6 = valArr[1]-(valArr[1]-valArr[2])*R[5]; var7 = valArr[1]-(valArr[1]-valArr[2])*R[6]; TL_Delete(TTL1); TL_Delete(TTL2); TL_Delete(TTL3); TL_Delete(TTL4); TL_Delete(TTL5); TL_Delete(TTL6); TL_Delete(TTL7); TTL1 = TL_New(sDate[barArr[1]],sTime[barArr[1]],var1,sdate,stime,var1); TTL2 = TL_New(sDate[barArr[1]],sTime[barArr[1]],var2,sdate,stime,var2); TTL3 = TL_New(sDate[barArr[1]],sTime[barArr[1]],var3,sdate,stime,var3); TTL4 = TL_New(sDate[barArr[1]],sTime[barArr[1]],var4,sdate,stime,var4); TTL5 = TL_New(sDate[barArr[1]],sTime[barArr[1]],var5,sdate,stime,var5); TTL6 = TL_New(sDate[barArr[1]],sTime[barArr[1]],var6,sdate,stime,var6); TTL7 = TL_New(sDate[barArr[1]],sTime[barArr[1]],var7,sdate,stime,var7); TL_SetExtRight(TTL1,true); TL_SetExtRight(TTL2,true); TL_SetExtRight(TTL3,true); TL_SetExtRight(TTL4,true); TL_SetExtRight(TTL5,true); TL_SetExtRight(TTL6,true); TL_SetExtRight(TTL7,true); if 피보값표시 == 1 then { TL_SetColor(TTL1,red); TL_SetColor(TTL2,red); TL_SetColor(TTL3,red); TL_SetColor(TTL4,red); TL_SetColor(TTL5,red); TL_SetColor(TTL6,red); TL_SetColor(TTL7,red); Text_Delete(Tx1); Text_Delete(Tx2); Text_Delete(Tx3); Text_Delete(Tx4); Text_Delete(Tx5); Text_Delete(Tx6); Text_Delete(Tx7); tx1 = Text_New(sdate,stime,var1,NumToStr(var1,0)); tx2 = Text_New(sdate,stime,var2,NumToStr(var2,0)); tx3 = Text_New(sdate,stime,var3,NumToStr(var3,0)); tx4 = Text_New(sdate,stime,var4,NumToStr(var4,0)); tx5 = Text_New(sdate,stime,var5,NumToStr(var5,0)); tx6 = Text_New(sdate,stime,var6,NumToStr(var6,0)); tx7 = Text_New(sdate,stime,var7,NumToStr(var7,0)); Text_SetStyle(tx1,0,1); Text_SetStyle(tx2,0,1); Text_SetStyle(tx3,0,1); Text_SetStyle(tx4,0,1); Text_SetStyle(tx5,0,1); Text_SetStyle(tx6,0,1); Text_SetStyle(tx7,0,1); Text_SetColor(tx1,red); Text_SetColor(tx2,red); Text_SetColor(tx3,red); Text_SetColor(tx4,red); Text_SetColor(tx5,red); Text_SetColor(tx6,red); Text_SetColor(tx7,red); } } ===================================================================== 수정 사항 1. 이 수식은 추세선이 새로 발생할때 마다(계속그리는지그재그가 앞부분을 새로 새로 생길때 마다) 피보를 발생하고 있다. 이 부분에서 제가 원하는 것은 앞부분 추세선이 새로 발생할 때마다 피보가 자동으로 나오는게 아니라 추세선이 발생한 피보의 고가 저가를 고정하면서 그대로 두고 그 고가 저가를 뚫는 추세선이 발생하지 않는 한 계속 고정한다. 추세선 진행중에 고가 저가 중 하나 뚫으면 이 뚫은 새로운 추세선을 새로운 피보를 생성하고 전에 생성한 피보를 삭세 한다. 이렇게 반복적으로 계속그리는지그재그로 피보를 그어놓으면 좋겠습니다. 가능할까요? 요약하자면 1. 지그재그추세선에서 첫번째 피보 발생 2. 그 피보안에서 생성한 새로운추세선들이 첫번째 발생한 피보의 고가저가를 뚫지 않는한 새로운 피보를 발생하지 않는다. 3. 진행중에 첫번째 피보의 고가 저가중 하나를 뚫은 새로운 추세선이 발생히면 그 추세선기준으로 두번째 피보 발생한다. 4. 두번째 피보를 계속 유지하면서 새로운 추세선이 두번째 피보의 고가 저가를 뚫지 않는한 계속 고정한다. 5. 고점 저점이 낮아지면 파란색 피보, 저점 고점이 높아지면 빨간색 피보 이런식으로 계속 발생할 수 있다면 좋겠습니다. 가능할까요? 감사합니다.
지표
답변 1
프로필 이미지

예스스탁 예스스탁 답변

2019-01-11 13:52:03

안녕하세요 예스스탁입니다. 죄송하지만 문의하신 내용은 저희가 작성해 드리기 어렵습니다. 작성해 보는데 시간이 좀 걸리는 내용들은 저희가 업무상 답변이 어렵습니다. 도움을 드리지 못해 죄송합니다. 즐거운 하루되세요 > 스오어스 님이 쓴 글입니다. > 제목 : 질문입니다. > 안녕하세요. 늘 답변 주셔서 감사하고 막힌 문제를 해결 해주셔서 감사합니다. 아래 수식은 과거 게시판을 찾아서 올립니다. 이 수식에 제가 원하는 수식을 수성해주시면 너무 감사하겠습니다. ================================================= Input : length(12),추세선굵기(2);#굵기(0~6사이의 정수) input : 고저점값표시(1);#1이면 표시, 0이면 표시안함 input : 피보값표시(1);#1이면 표시, 0이면 표시안함 Var : j(0),lastHiVal(0),lastLoVal(0),turnPntBit(""),TL1(0),T(0); var : tx(0),tx1(0),tx2(0),tx3(0),tx4(0),tx5(0),tx6(0),tx7(0); Array:valArr[20](0),barArr[20](0),turnPntArr[20](""),r[10](0); // 봉이 새로 생겼으므로 봉개수 관리하는 변수들의 봉개수 값 1씩 증가 For j = 0 To 19 { barArr[j] = barArr[j] + 1; } // 고점조건 = 현재 봉의 고가가 기간최고가이면서 최고가 갱신되었을 때; // 저점조건 = 현재 봉의 저가가 기간최저가이면서 최저가 갱신되었을 때; // 고점,저점조건 만족시 현재 봉의 고[저]가를 변수에 저장 Condition1 = Highest(H,length) == H and lastHiVal <> H; Condition2 = Lowest(L,length) == L and lastLoVal <> L; If Condition1 Then lastHiVal = H; If Condition2 Then lastLoVal = L; // 전환점구분 null값으로 초기화; // if 고점조건, 저점조건 동시 만족시 { // if 전환점배열의 현재(배열상 1번째)값이 고점이면 전환점구분 = 저점; // else if 전환점배열의 현재 값이 저점이면 전환점구분 = 고점; // else if 고점조건 만족하면 전환점구분 = 고점; // else if 저점조건 만족하면 전환점구분 = 저점; turnPntBit = ""; If Condition1 and Condition2 Then { 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 전환점구분에 값이 있을 때만 then 아래 실행, 없으면 통과 // if 신규 전환점구분이 현재(전환점배열 1번째)와 다르면 then // 배열값들을 이전값으로 Move; If turnPntBit == "Hi" or turnPntBit == "Lo" Then { If turnPntBit <> turnPntArr[1] Then { for j = 18 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) or (turnPntBit == "Lo" and valArr[1] > L))) Then { // 값 배열에는 고점 또는 저점을 대입; // 봉개수 배열에는 0값 대입; // 전환점 배열에 전환점구분값을 대입; valArr[1] = IFF(turnPntBit == "Hi",H,L); barArr[1] = 0; 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]); if turnPntArr[1][0] == "Hi" Then { T = 1; } if turnPntArr[1][0] == "Lo" Then { T = -1; } if 고저점값표시 == 1 and T != T[1] Then { tx = Text_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],NumToStr(valArr[2],2)); if t == 1 then { Text_SetStyle(tx,2,0); Text_SetColor(tx,BLUE); } Else { Text_SetStyle(tx,2,1); Text_SetColor(tx,RED); } } } Else TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]); } } TL_SetSize(TL1,추세선굵기); TL_SetColor(TL1,iff(t== 1,red,BLUE)); var : TTL1(0),TTL2(0),TTL3(0),TTL4(0),TTL5(0),TTL6(0),TTL7(0); if T == -1 then { r[0] = 0; r[1] = 0.236; r[2] = 0.382; r[3] = 0.50; r[4] = 0.618; r[5] = 0.764; r[6] = 1; var1 = valArr[1]+(valArr[2]-valArr[1])*R[0]; var2 = valArr[1]+(valArr[2]-valArr[1])*R[1]; var3 = valArr[1]+(valArr[2]-valArr[1])*R[2]; var4 = valArr[1]+(valArr[2]-valArr[1])*R[3]; var5 = valArr[1]+(valArr[2]-valArr[1])*R[4]; var6 = valArr[1]+(valArr[2]-valArr[1])*R[5]; var7 = valArr[1]+(valArr[2]-valArr[1])*R[6]; TL_Delete(TTL1); TL_Delete(TTL2); TL_Delete(TTL3); TL_Delete(TTL4); TL_Delete(TTL5); TL_Delete(TTL6); TL_Delete(TTL7); TTL1 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1]+(valArr[2]-valArr[1])*R[0],sdate,stime,valArr[1]+(valArr[2]-valArr[1])*R[0]); TTL2 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1]+(valArr[2]-valArr[1])*R[1],sdate,stime,valArr[1]+(valArr[2]-valArr[1])*R[1]); TTL3 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1]+(valArr[2]-valArr[1])*R[2],sdate,stime,valArr[1]+(valArr[2]-valArr[1])*R[2]); TTL4 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1]+(valArr[2]-valArr[1])*R[3],sdate,stime,valArr[1]+(valArr[2]-valArr[1])*R[3]); TTL5 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1]+(valArr[2]-valArr[1])*R[4],sdate,stime,valArr[1]+(valArr[2]-valArr[1])*R[4]); TTL6 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1]+(valArr[2]-valArr[1])*R[5],sdate,stime,valArr[1]+(valArr[2]-valArr[1])*R[5]); TTL7 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1]+(valArr[2]-valArr[1])*R[6],sdate,stime,valArr[1]+(valArr[2]-valArr[1])*R[6]); TL_SetExtRight(TTL1,true); TL_SetExtRight(TTL2,true); TL_SetExtRight(TTL3,true); TL_SetExtRight(TTL4,true); TL_SetExtRight(TTL5,true); TL_SetExtRight(TTL6,true); TL_SetExtRight(TTL7,true); TL_SetExtRight(TTL7,true); TL_SetColor(TTL1,blue); TL_SetColor(TTL2,blue); TL_SetColor(TTL3,blue); TL_SetColor(TTL4,blue); TL_SetColor(TTL5,blue); TL_SetColor(TTL6,blue); TL_SetColor(TTL7,blue); if 피보값표시 == 1 then { Text_Delete(Tx1); Text_Delete(Tx2); Text_Delete(Tx3); Text_Delete(Tx4); Text_Delete(Tx5); Text_Delete(Tx6); Text_Delete(Tx7); tx1 = Text_New(sdate,stime,var1,NumToStr(var1,0)); tx2 = Text_New(sdate,stime,var2,NumToStr(var2,0)); tx3 = Text_New(sdate,stime,var3,NumToStr(var3,0)); tx4 = Text_New(sdate,stime,var4,NumToStr(var4,0)); tx5 = Text_New(sdate,stime,var5,NumToStr(var5,0)); tx6 = Text_New(sdate,stime,var6,NumToStr(var6,0)); tx7 = Text_New(sdate,stime,var7,NumToStr(var7,0)); Text_SetStyle(tx1,0,1); Text_SetStyle(tx2,0,1); Text_SetStyle(tx3,0,1); Text_SetStyle(tx4,0,1); Text_SetStyle(tx5,0,1); Text_SetStyle(tx6,0,1); Text_SetStyle(tx7,0,1); Text_SetColor(tx1,blue); Text_SetColor(tx2,blue); Text_SetColor(tx3,blue); Text_SetColor(tx4,blue); Text_SetColor(tx5,blue); Text_SetColor(tx6,blue); Text_SetColor(tx7,blue); } } #--하락적용--- if T == 1 Then { r[0] = 0; r[1] = 0.236; r[2] = 0.382; r[3] = 0.50; r[4] = 0.618; r[5] = 0.764; r[6] = 1; var1 = valArr[1]-(valArr[1]-valArr[2])*R[0]; var2 = valArr[1]-(valArr[1]-valArr[2])*R[1]; var3 = valArr[1]-(valArr[1]-valArr[2])*R[2]; var4 = valArr[1]-(valArr[1]-valArr[2])*R[3]; var5 = valArr[1]-(valArr[1]-valArr[2])*R[4]; var6 = valArr[1]-(valArr[1]-valArr[2])*R[5]; var7 = valArr[1]-(valArr[1]-valArr[2])*R[6]; TL_Delete(TTL1); TL_Delete(TTL2); TL_Delete(TTL3); TL_Delete(TTL4); TL_Delete(TTL5); TL_Delete(TTL6); TL_Delete(TTL7); TTL1 = TL_New(sDate[barArr[1]],sTime[barArr[1]],var1,sdate,stime,var1); TTL2 = TL_New(sDate[barArr[1]],sTime[barArr[1]],var2,sdate,stime,var2); TTL3 = TL_New(sDate[barArr[1]],sTime[barArr[1]],var3,sdate,stime,var3); TTL4 = TL_New(sDate[barArr[1]],sTime[barArr[1]],var4,sdate,stime,var4); TTL5 = TL_New(sDate[barArr[1]],sTime[barArr[1]],var5,sdate,stime,var5); TTL6 = TL_New(sDate[barArr[1]],sTime[barArr[1]],var6,sdate,stime,var6); TTL7 = TL_New(sDate[barArr[1]],sTime[barArr[1]],var7,sdate,stime,var7); TL_SetExtRight(TTL1,true); TL_SetExtRight(TTL2,true); TL_SetExtRight(TTL3,true); TL_SetExtRight(TTL4,true); TL_SetExtRight(TTL5,true); TL_SetExtRight(TTL6,true); TL_SetExtRight(TTL7,true); if 피보값표시 == 1 then { TL_SetColor(TTL1,red); TL_SetColor(TTL2,red); TL_SetColor(TTL3,red); TL_SetColor(TTL4,red); TL_SetColor(TTL5,red); TL_SetColor(TTL6,red); TL_SetColor(TTL7,red); Text_Delete(Tx1); Text_Delete(Tx2); Text_Delete(Tx3); Text_Delete(Tx4); Text_Delete(Tx5); Text_Delete(Tx6); Text_Delete(Tx7); tx1 = Text_New(sdate,stime,var1,NumToStr(var1,0)); tx2 = Text_New(sdate,stime,var2,NumToStr(var2,0)); tx3 = Text_New(sdate,stime,var3,NumToStr(var3,0)); tx4 = Text_New(sdate,stime,var4,NumToStr(var4,0)); tx5 = Text_New(sdate,stime,var5,NumToStr(var5,0)); tx6 = Text_New(sdate,stime,var6,NumToStr(var6,0)); tx7 = Text_New(sdate,stime,var7,NumToStr(var7,0)); Text_SetStyle(tx1,0,1); Text_SetStyle(tx2,0,1); Text_SetStyle(tx3,0,1); Text_SetStyle(tx4,0,1); Text_SetStyle(tx5,0,1); Text_SetStyle(tx6,0,1); Text_SetStyle(tx7,0,1); Text_SetColor(tx1,red); Text_SetColor(tx2,red); Text_SetColor(tx3,red); Text_SetColor(tx4,red); Text_SetColor(tx5,red); Text_SetColor(tx6,red); Text_SetColor(tx7,red); } } ===================================================================== 수정 사항 1. 이 수식은 추세선이 새로 발생할때 마다(계속그리는지그재그가 앞부분을 새로 새로 생길때 마다) 피보를 발생하고 있다. 이 부분에서 제가 원하는 것은 앞부분 추세선이 새로 발생할 때마다 피보가 자동으로 나오는게 아니라 추세선이 발생한 피보의 고가 저가를 고정하면서 그대로 두고 그 고가 저가를 뚫는 추세선이 발생하지 않는 한 계속 고정한다. 추세선 진행중에 고가 저가 중 하나 뚫으면 이 뚫은 새로운 추세선을 새로운 피보를 생성하고 전에 생성한 피보를 삭세 한다. 이렇게 반복적으로 계속그리는지그재그로 피보를 그어놓으면 좋겠습니다. 가능할까요? 요약하자면 1. 지그재그추세선에서 첫번째 피보 발생 2. 그 피보안에서 생성한 새로운추세선들이 첫번째 발생한 피보의 고가저가를 뚫지 않는한 새로운 피보를 발생하지 않는다. 3. 진행중에 첫번째 피보의 고가 저가중 하나를 뚫은 새로운 추세선이 발생히면 그 추세선기준으로 두번째 피보 발생한다. 4. 두번째 피보를 계속 유지하면서 새로운 추세선이 두번째 피보의 고가 저가를 뚫지 않는한 계속 고정한다. 5. 고점 저점이 낮아지면 파란색 피보, 저점 고점이 높아지면 빨간색 피보 이런식으로 계속 발생할 수 있다면 좋겠습니다. 가능할까요? 감사합니다.
등록