안녕하세요 예스스탁입니다. Input:length(15); Var:j(0),lastHiVal(0),lastLoVal(0),sBar(0),eBar(0),Text1(0),처리구분(""), TL_Val1(0),TL_Val2(0),TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0),TL9(0); var : tx4(0),tx5(0),tx6(0),tx7(0),tx8(0),tx9(0); Array:고점[10,2](0),저점[10,2](0); 처리구분 = ""; If Highest(H,length) == H and lastHiVal <> H and Lowest(L,length) == L and lastLoVal <> L Then { If 저점[1,1] > L Then 처리구분 = "저점처리"; If 고점[1,1] < H Then 처리구분 = "고점처리"; } Else If Highest(H,length) == H and lastHiVal <> H Then 처리구분 = "고점처리"; Else If Lowest(L,length) == L and lastLoVal <> L Then 처리구분 = "저점처리"; If 처리구분 == "고점처리" Then { TL_Delete(TL2); TL_Delete(TL3); TL_Delete(TL4); TL_Delete(TL5); TL_Delete(TL6); TL_Delete(TL7); TL_Delete(TL8); TL_Delete(TL9); lastHiVal = H; If 고점[1,2] < 저점[1,2] Then { For j = 10 DownTo 2 { 고점[j,1] = 고점[j-1,1]; 고점[j,2] = 고점[j-1,2]; } } If 고점[1,2] < 저점[1,2] or 고점[1,1] < H Then { 고점[1,1] = H; 고점[1,2] = Index; sBar = Index - 저점[1,2]; eBar = 0; If TL_GetBeginDate(TL1) == sDate[sBar] and TL_GetBeginTime(TL1) == sTime[sBar] Then { TL_Delete(TL1); If 고점[3,1][1] < 고점[2,1][1] and 고점[2,1][1] > 고점[1,1][1] and 저점[2,1][1] < 저점[1,1][1] Then TL_Delete(TL2); } TL1 = TL_New(sDate[sBar],sTime[sBar],저점[1,1],sDate[eBar],sTime[eBar],고점[1,1]); TL2 = TL_New(sDate[index-고점[2,2]],sTime[index-고점[2,2]],저점[1,1],sDate,sTime,저점[1,1]); TL3 = TL_New(sDate[index-고점[2,2]],sTime[index-고점[2,2]],고점[2,1],sDate,sTime,고점[2,1]); TL4 = TL_New(sDate[index-고점[2,2]],sTime[index-고점[2,2]],고점[2,1]+(고점[2,1]-저점[1,1])*0.88,sDate,sTime,고점[2,1]+(고점[2,1]-저점[1,1])*0.88); TL5 = TL_New(sDate[index-고점[2,2]],sTime[index-고점[2,2]],고점[2,1]+(고점[2,1]-저점[1,1]),sDate,sTime,고점[2,1]+(고점[2,1]-저점[1,1])); TL6 = TL_New(sDate[index-고점[2,2]],sTime[index-고점[2,2]],고점[2,1]+(고점[2,1]-저점[1,1])*1.236,sDate,sTime,고점[2,1]+(고점[2,1]-저점[1,1])*1.236); TL7 = TL_New(sDate[index-고점[2,2]],sTime[index-고점[2,2]],저점[1,1]-(고점[2,1]-저점[1,1])*0.88,sDate,sTime,저점[1,1]-(고점[2,1]-저점[1,1])*0.88); TL8 = TL_New(sDate[index-고점[2,2]],sTime[index-고점[2,2]],저점[1,1]-(고점[2,1]-저점[1,1]),sDate,sTime,저점[1,1]-(고점[2,1]-저점[1,1])); TL9 = TL_New(sDate[index-고점[2,2]],sTime[index-고점[2,2]],저점[1,1]-(고점[2,1]-저점[1,1])*1.236,sDate,sTime,저점[1,1]-(고점[2,1]-저점[1,1])*1.236); TL_SetExtRight(tl2,true); TL_SetExtRight(tl3,true); TL_SetExtRight(tl4,true); TL_SetExtRight(tl5,true); TL_SetExtRight(tl6,true); TL_SetExtRight(tl7,true); TL_SetExtRight(tl8,true); TL_SetExtRight(tl9,true); TL_SetColor(TL4,YELLOW); TL_SetColor(TL5,BLACK); TL_SetColor(TL6,RED); TL_SetColor(TL7,YELLOW); TL_SetColor(TL8,BLACK); TL_SetColor(TL9,blue); If 고점[3,1] < 고점[2,1] and 고점[2,1] > 고점[1,1] and 저점[2,1] < 저점[1,1] Then { sBar = Index - 저점[2,2]; eBar = Index - 저점[1,2]; } } } If 처리구분 == "저점처리" Then { TL_Delete(TL2); TL_Delete(TL3); TL_Delete(TL4); TL_Delete(TL5); TL_Delete(TL6); TL_Delete(TL7); TL_Delete(TL8); TL_Delete(TL9); lastLoVal = L; If 저점[1,2] < 고점[1,2] Then { For j = 10 DownTo 2 { 저점[j,1] = 저점[j-1,1]; 저점[j,2] = 저점[j-1,2]; } } If 저점[1,2] < 고점[1,2] or 저점[1,1] > L Then { 저점[1,1] = L; 저점[1,2] = Index; sBar = Index - 고점[1,2]; eBar = 0; If TL_GetBeginDate(TL1) == sDate[sBar] and TL_GetBeginTime(TL1) == sTime[sBar] Then { TL_Delete(TL1); If 저점[2,1][1] < 저점[1,1][1] and 저점[2,1][1] < 저점[3,1][1] and 고점[2,1][1] > 고점[1,1][1] Then TL_Delete(TL3); } TL1 = TL_New(sDate[sBar],sTime[sBar],고점[1,1],sDate[eBar],sTime[eBar],저점[1,1]); TL2 = TL_New(sDate[index-저점[2,2]],sTime[index-저점[2,2]],고점[1,1],sDate,sTime,고점[1,1]); TL3 = TL_New(sDate[index-저점[2,2]],sTime[index-저점[2,2]],저점[2,1],sDate,sTime,저점[2,1]); TL4 = TL_New(sDate[index-저점[2,2]],sTime[index-저점[2,2]],고점[1,1]+(고점[1,1]-저점[2,1])*0.88,sDate,sTime,고점[1,1]+(고점[1,1]-저점[2,1])*0.88); TL5 = TL_New(sDate[index-저점[2,2]],sTime[index-저점[2,2]],고점[1,1]+(고점[1,1]-저점[2,1]),sDate,sTime,고점[1,1]+(고점[1,1]-저점[2,1])); TL6 = TL_New(sDate[index-저점[2,2]],sTime[index-저점[2,2]],고점[1,1]+(고점[1,1]-저점[2,1])*1.236,sDate,sTime,고점[1,1]+(고점[1,1]-저점[2,1])*1.236); TL7 = TL_New(sDate[index-저점[2,2]],sTime[index-저점[2,2]],저점[2,1]-(고점[1,1]-저점[2,1])*0.88,sDate,sTime,저점[2,1]-(고점[1,1]-저점[2,1])*0.88); TL8 = TL_New(sDate[index-저점[2,2]],sTime[index-저점[2,2]],저점[2,1]-(고점[1,1]-저점[2,1]),sDate,sTime,저점[2,1]-(고점[1,1]-저점[2,1])); TL9 = TL_New(sDate[index-저점[2,2]],sTime[index-저점[2,2]],저점[2,1]-(고점[1,1]-저점[2,1])*1.236,sDate,sTime,저점[2,1]-(고점[1,1]-저점[2,1])*1.236); TL_SetExtRight(tl2,true); TL_SetExtRight(tl3,true); TL_SetExtRight(tl4,true); TL_SetExtRight(tl5,true); TL_SetExtRight(tl6,true); TL_SetExtRight(tl7,true); TL_SetExtRight(tl8,true); TL_SetExtRight(tl9,true); TL_SetColor(TL4,YELLOW); TL_SetColor(TL5,BLACK); TL_SetColor(TL6,RED); TL_SetColor(TL7,YELLOW); TL_SetColor(TL8,BLACK); TL_SetColor(TL9,blue); If 저점[2,1] < 저점[1,1] and 저점[2,1] < 저점[3,1] and 고점[2,1] > 고점[1,1] Then { sBar = Index - 고점[2,2]; eBar = Index - 고점[1,2]; } } } TL_SetSize(TL1,1); TL_SetColor(TL1,white); Text_Delete(tx4); Text_Delete(tx5); Text_Delete(tx6); Text_Delete(tx7); Text_Delete(tx8); Text_Delete(tx9); tx4 = Text_New(sdate,stime,TL_GetValue(TL4,sdate,stime),NumToStr(TL_GetValue(TL4,sdate,stime),2)); tx5 = Text_New(sdate,stime,TL_GetValue(TL5,sdate,stime),NumToStr(TL_GetValue(TL5,sdate,stime),2)); tx6 = Text_New(sdate,stime,TL_GetValue(TL6,sdate,stime),NumToStr(TL_GetValue(TL6,sdate,stime),2)); tx7 = Text_New(sdate,stime,TL_GetValue(TL7,sdate,stime),NumToStr(TL_GetValue(TL7,sdate,stime),2)); tx8 = Text_New(sdate,stime,TL_GetValue(TL8,sdate,stime),NumToStr(TL_GetValue(TL8,sdate,stime),2)); tx9 = Text_New(sdate,stime,TL_GetValue(TL9,sdate,stime),NumToStr(TL_GetValue(TL9,sdate,stime),2)); Text_SetColor(Tx4,YELLOW); Text_SetColor(Tx5,BLACK); Text_SetColor(Tx6,RED); Text_SetColor(Tx7,YELLOW); Text_SetColor(Tx8,BLACK); Text_SetColor(Tx9,blue); 즐거운 하루되세요 > 동해바다01 님이 쓴 글입니다. > 제목 : 문의 드립니다. > 안녕하세요 아래 파동 수식에서 한 파동이 완성되면 1. 완성된 파동의 진폭의 88%선(노랑색)을 파동고점에서 위로 표시 2. 완성된 파동의 진폭의 100%선(검정색)을 파동 고점에서 위로 표시 3. 완성된 파동의 진폭의 123.6%(빨강색)을 파동 고점에서 위로 표시 4. 완성된 파동의 진폭의 88%선*(노랑색)을 파동 저점에서 아래로 표시 5. 완성된 파동의 진폭의 100선(검정색)을 파동 저점에서 아래로 표시 6. 완성된 파동의 진폭의 123.6%선(파랑색)을 파동 저점에서 아래로 표시 이렇게 선을 나타내고 싶습니다. 그리고 각 선에 대한 수치를 오른쪽에 표시하고 싶습니다. 감사합니다. 참고로 차트를 첨부 합니다. ===================== Input:length(15); Var:j(0),lastHiVal(0),lastLoVal(0),sBar(0),eBar(0),TL1(0),TL2(0),TL3(0),Text1(0),처리구분(""), TL_Val1(0),TL_Val2(0); Var:TL11(0),TL12(0),TL13(0),TL14(0),TL15(0),TL16(0),TL17(0),TL18(0),TL19(0),TL20(0); Var:TL21(0),TL22(0),TL23(0),TL24(0),TL25(0),TL26(0),TL27(0),TL28(0),TL29(0),TL30(0),mav(0),T(0); Array:고점[10,2](0),저점[10,2](0); 처리구분 = ""; If Highest(H,length) == H and lastHiVal <> H and Lowest(L,length) == L and lastLoVal <> L Then { If 저점[1,1] > L Then 처리구분 = "저점처리"; If 고점[1,1] < H Then 처리구분 = "고점처리"; } Else If Highest(H,length) == H and lastHiVal <> H Then 처리구분 = "고점처리"; Else If Lowest(L,length) == L and lastLoVal <> L Then 처리구분 = "저점처리"; If 처리구분 == "고점처리" Then { lastHiVal = H; If 고점[1,2] < 저점[1,2] Then { For j = 10 DownTo 2 { 고점[j,1] = 고점[j-1,1]; 고점[j,2] = 고점[j-1,2]; } } If 고점[1,2] < 저점[1,2] or 고점[1,1] < H Then { 고점[1,1] = H; 고점[1,2] = Index; sBar = Index - 저점[1,2]; eBar = 0; If TL_GetBeginDate(TL1) == sDate[sBar] and TL_GetBeginTime(TL1) == sTime[sBar] Then { TL_Delete(TL1); If 고점[3,1][1] < 고점[2,1][1] and 고점[2,1][1] > 고점[1,1][1] and 저점[2,1][1] < 저점[1,1][1] Then TL_Delete(TL2); } TL1 = TL_New(sDate[sBar],sTime[sBar],저점[1,1],sDate[eBar],sTime[eBar],고점[1,1]); If 고점[3,1] < 고점[2,1] and 고점[2,1] > 고점[1,1] and 저점[2,1] < 저점[1,1] Then { sBar = Index - 저점[2,2]; eBar = Index - 저점[1,2]; } } } If 처리구분 == "저점처리" Then { lastLoVal = L; If 저점[1,2] < 고점[1,2] Then { For j = 10 DownTo 2 { 저점[j,1] = 저점[j-1,1]; 저점[j,2] = 저점[j-1,2]; } } If 저점[1,2] < 고점[1,2] or 저점[1,1] > L Then { 저점[1,1] = L; 저점[1,2] = Index; sBar = Index - 고점[1,2]; eBar = 0; If TL_GetBeginDate(TL1) == sDate[sBar] and TL_GetBeginTime(TL1) == sTime[sBar] Then { TL_Delete(TL1); If 저점[2,1][1] < 저점[1,1][1] and 저점[2,1][1] < 저점[3,1][1] and 고점[2,1][1] > 고점[1,1][1] Then TL_Delete(TL3); } TL1 = TL_New(sDate[sBar],sTime[sBar],고점[1,1],sDate[eBar],sTime[eBar],저점[1,1]); If 저점[2,1] < 저점[1,1] and 저점[2,1] < 저점[3,1] and 고점[2,1] > 고점[1,1] Then { sBar = Index - 고점[2,2]; eBar = Index - 고점[1,2]; } } } TL_SetSize(TL1,1); TL_SetColor(TL1,white); ============================