커뮤니티
문의 입니다.
2018-07-25 12:02:04
261
글번호 120877
안녕하세요. 과거 게시판을 찾으면서
제가 원하는 지표를 찾았는데요.
좀 수정 가능한지 어쭤 봅니다.
=======================================================
Input:length(12);
Var:j(0),lastHiVal(0),lastLoVal(0),turnPntBit(""),TL1(0),T(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;
}
Else
TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
}
}
TL_SetSize(TL1,4);
TL_SetColor(TL1,RED);
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;
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);
}
#--하락적용---
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;
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[1]-valArr[2])*R[0],sdate,stime,valArr[1]-(valArr[1]-valArr[2])*R[0]);
TTL2 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1]-(valArr[1]-valArr[2])*R[1],sdate,stime,valArr[1]-(valArr[1]-valArr[2])*R[1]);
TTL3 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1]-(valArr[1]-valArr[2])*R[2],sdate,stime,valArr[1]-(valArr[1]-valArr[2])*R[2]);
TTL4 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1]-(valArr[1]-valArr[2])*R[3],sdate,stime,valArr[1]-(valArr[1]-valArr[2])*R[3]);
TTL5 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1]-(valArr[1]-valArr[2])*R[4],sdate,stime,valArr[1]-(valArr[1]-valArr[2])*R[4]);
TTL6 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1]-(valArr[1]-valArr[2])*R[5],sdate,stime,valArr[1]-(valArr[1]-valArr[2])*R[5]);
TTL7 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1]-(valArr[1]-valArr[2])*R[6],sdate,stime,valArr[1]-(valArr[1]-valArr[2])*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);
}
==========================================================
1.
이 지표인데요. 제가 원하는 것은 RED 한가지 색으로 지그재그 그리는데 상승추세선은 빨간색 하락추세선은 파란색으로 수정 가능할까요? 과거 게시판에 지그재그에 빨간색 파란색 변갈아 가면서 출현 가능했는데 이 지표는 안되네요.
2.
추세선 라인 두께 수정 가능한 옵션을 넣어주심 감사하겠습니다.
3.
고점 저점 가격을 표시 가능하게 해주심 감사하겠습니다.(설정에서 On, Off 여부 가능하게)
4.
피보에서 각각 값을 표시 가능하게 해주심 감사하셌습니다. (설정에서 On, Off 여부 가능하게)
** 값을 왼쪽에 놓지말고 맨 오른쪽 배치 하게 해주세요.
5.
피보 라인 색깔과 두께 수정 가능하게 해주심 감사하겠습니다.
**설정에 넣기 어려우면 제가 직접 소스에서 글자와 숫자를 찾아 수정은 할 수 있습니다.**
//추가로 부탁드리는데요.//
지금 지표는 첫번째 새로운 추세선 발생하면 피보가 나오게 하는데
다른 지표를 만들어 주시면 감사하겠습니다.
새로운 추세선 발생하면 바로 피보 출현하지 말고요
그전 추세선 피보 유지하면서 새로운 추세선 발생하더라도 그전 추세선 피보는 사라지지않고 유지하는 지표입니다.
새로운 추세선 그 다음에 뉴새로운 추세선 발생하면 새로운 추세선이 그전 추세선이 되어 피보 발생하고 뉴새로운 추세선이 새로운 추세선이 되는 것으로 지표 수정 가능할까요?
좀 더 자세하게 설명하자면
N - 새로운 추세선 , B - 그전 추세선
기존것은 N 추세선 발생할때마다 피보 발생하고 반복적인데
원하는 것은 N추세선 발생하면 바로 피보 발생하지 말고 B 추세선 피보 유지하고
NN두번째 추세선 발생하면 B추세선 피보가 사라지고 N추세선에서 피보 나오면서 B추세선 역할을 하고 NN추세선이 N추세선 역할 됩니다. 이렇게 반복적으로 하는 겁니다.
이런 지표 가능할까요?
무더운 날씨에 감사합니다.
답변 1
예스스탁 예스스탁 답변
2018-07-25 14:23:29
안녕하세요
예스스탁입니다.
색상은 수식내에서 변경하셔야 합니다.
1
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);
}
}
2
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[2]-(valArr[2]-valArr[3])*R[0];
var2 = valArr[2]-(valArr[2]-valArr[3])*R[1];
var3 = valArr[2]-(valArr[2]-valArr[3])*R[2];
var4 = valArr[2]-(valArr[2]-valArr[3])*R[3];
var5 = valArr[2]-(valArr[2]-valArr[3])*R[4];
var6 = valArr[2]-(valArr[2]-valArr[3])*R[5];
var7 = valArr[2]-(valArr[2]-valArr[3])*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[2]+(valArr[3]-valArr[2])*R[0];
var2 = valArr[2]+(valArr[3]-valArr[2])*R[1];
var3 = valArr[2]+(valArr[3]-valArr[2])*R[2];
var4 = valArr[2]+(valArr[3]-valArr[2])*R[3];
var5 = valArr[2]+(valArr[3]-valArr[2])*R[4];
var6 = valArr[2]+(valArr[3]-valArr[2])*R[5];
var7 = valArr[2]+(valArr[3]-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[3]],sTime[barArr[3]],var1,sdate,stime,var1);
TTL2 = TL_New(sDate[barArr[3]],sTime[barArr[3]],var2,sdate,stime,var2);
TTL3 = TL_New(sDate[barArr[3]],sTime[barArr[3]],var3,sdate,stime,var3);
TTL4 = TL_New(sDate[barArr[3]],sTime[barArr[3]],var4,sdate,stime,var4);
TTL5 = TL_New(sDate[barArr[3]],sTime[barArr[3]],var5,sdate,stime,var5);
TTL6 = TL_New(sDate[barArr[3]],sTime[barArr[3]],var6,sdate,stime,var6);
TTL7 = TL_New(sDate[barArr[3]],sTime[barArr[3]],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);
}
}
즐거운 하루되세요
> 스오어스 님이 쓴 글입니다.
> 제목 : 문의 입니다.
> 안녕하세요. 과거 게시판을 찾으면서
제가 원하는 지표를 찾았는데요.
좀 수정 가능한지 어쭤 봅니다.
=======================================================
Input:length(12);
Var:j(0),lastHiVal(0),lastLoVal(0),turnPntBit(""),TL1(0),T(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;
}
Else
TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
}
}
TL_SetSize(TL1,4);
TL_SetColor(TL1,RED);
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;
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);
}
#--하락적용---
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;
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[1]-valArr[2])*R[0],sdate,stime,valArr[1]-(valArr[1]-valArr[2])*R[0]);
TTL2 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1]-(valArr[1]-valArr[2])*R[1],sdate,stime,valArr[1]-(valArr[1]-valArr[2])*R[1]);
TTL3 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1]-(valArr[1]-valArr[2])*R[2],sdate,stime,valArr[1]-(valArr[1]-valArr[2])*R[2]);
TTL4 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1]-(valArr[1]-valArr[2])*R[3],sdate,stime,valArr[1]-(valArr[1]-valArr[2])*R[3]);
TTL5 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1]-(valArr[1]-valArr[2])*R[4],sdate,stime,valArr[1]-(valArr[1]-valArr[2])*R[4]);
TTL6 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1]-(valArr[1]-valArr[2])*R[5],sdate,stime,valArr[1]-(valArr[1]-valArr[2])*R[5]);
TTL7 = TL_New(sDate[barArr[1]],sTime[barArr[1]],valArr[1]-(valArr[1]-valArr[2])*R[6],sdate,stime,valArr[1]-(valArr[1]-valArr[2])*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);
}
==========================================================
1.
이 지표인데요. 제가 원하는 것은 RED 한가지 색으로 지그재그 그리는데 상승추세선은 빨간색 하락추세선은 파란색으로 수정 가능할까요? 과거 게시판에 지그재그에 빨간색 파란색 변갈아 가면서 출현 가능했는데 이 지표는 안되네요.
2.
추세선 라인 두께 수정 가능한 옵션을 넣어주심 감사하겠습니다.
3.
고점 저점 가격을 표시 가능하게 해주심 감사하겠습니다.(설정에서 On, Off 여부 가능하게)
4.
피보에서 각각 값을 표시 가능하게 해주심 감사하셌습니다. (설정에서 On, Off 여부 가능하게)
** 값을 왼쪽에 놓지말고 맨 오른쪽 배치 하게 해주세요.
5.
피보 라인 색깔과 두께 수정 가능하게 해주심 감사하겠습니다.
**설정에 넣기 어려우면 제가 직접 소스에서 글자와 숫자를 찾아 수정은 할 수 있습니다.**
//추가로 부탁드리는데요.//
지금 지표는 첫번째 새로운 추세선 발생하면 피보가 나오게 하는데
다른 지표를 만들어 주시면 감사하겠습니다.
새로운 추세선 발생하면 바로 피보 출현하지 말고요
그전 추세선 피보 유지하면서 새로운 추세선 발생하더라도 그전 추세선 피보는 사라지지않고 유지하는 지표입니다.
새로운 추세선 그 다음에 뉴새로운 추세선 발생하면 새로운 추세선이 그전 추세선이 되어 피보 발생하고 뉴새로운 추세선이 새로운 추세선이 되는 것으로 지표 수정 가능할까요?
좀 더 자세하게 설명하자면
N - 새로운 추세선 , B - 그전 추세선
기존것은 N 추세선 발생할때마다 피보 발생하고 반복적인데
원하는 것은 N추세선 발생하면 바로 피보 발생하지 말고 B 추세선 피보 유지하고
NN두번째 추세선 발생하면 B추세선 피보가 사라지고 N추세선에서 피보 나오면서 B추세선 역할을 하고 NN추세선이 N추세선 역할 됩니다. 이렇게 반복적으로 하는 겁니다.
이런 지표 가능할까요?
무더운 날씨에 감사합니다.
다음글
이전글