커뮤니티
부탁드립니다.
2020-09-27 21:45:37
1309
글번호 142702
첨부 이미지
그림1
Input:Period(14),n(0),multi(0.5);
Var:기울기(0),절편(0),회귀선(0),회귀선tmp(0),채널폭(0),j(0);
기울기 = LRS(C, Period)[n];
절편 = _intercept(C,Period)[n];
회귀선 = 기울기 * Index + 절편;
채널폭 = 0;
for j = n to Period + n - 1 {
회귀선tmp = 기울기 * Index[j] + 절편;
채널폭 = max(채널폭,max(abs(H[j] - 회귀선tmp),abs(회귀선tmp - L[j])));
}
plot1(회귀선);
plot2(회귀선 + 채널폭);
plot3(회귀선 - 채널폭);
plot4(회귀선 + 채널폭 * multi);
plot5(회귀선 - 채널폭 * multi);
-------------------------------------------------------------------------
위 수식은 선형회귀채널인데요.
그 중 plot1(회귀선) 가운데 중심선의 상승하락을 나타낼수 있으면
빨간선과 파란선으로 상승하락 색상표시가 되게끔 해주셨으면 좋겠습니다.
또, 위 선형회귀채널의 고점 저점을 나타내게 지지저항선이 나오게끔 표현되었음
좋겠습니다.
- 1. 20200927_214427.png (0.16 MB)
답변 2
예스스탁 예스스탁 답변
2020-09-28 16:23:15
안녕하세요
예스스탁입니다.
저항과 지지를 판단하기 위해서는 고점/저점등에 대한 명확한 조건내용이 필요합니다.
고점과 저점판단에 사용하는 swinghigh,swinglow함수를 이용해
과 저점을 판단해 그리게 작성해 드립니다.
swinghigh,swinglow에 대한 자세한 내용은 예스랭귀지 도움말을 참고하시기 바랍니다.
Input:Period(14),n(0),multi(0.5),Left(3),Right(3);
Var:기울기(0),절편(0),회귀선(0),회귀선tmp(0),채널폭(0),j(0),T(0);
var : 상단1(0),상단2(0),하단1(0),하단2(0),TL1(0),TL2(0);
기울기 = LRS(C, Period)[n];
절편 = _intercept(C,Period)[n];
회귀선 = 기울기 * Index + 절편;
채널폭 = 0;
for j = n to Period + n - 1
{
회귀선tmp = 기울기 * Index[j] + 절편;
채널폭 = max(채널폭,max(abs(H[j] - 회귀선tmp),abs(회귀선tmp - L[j])));
}
if 회귀선 > 회귀선[1] Then
T = 1;
if 회귀선 < 회귀선[1] Then
T = -1;
상단2 = 회귀선 + 채널폭 * multi;
상단1 = 회귀선 + 채널폭;
하단1 = 회귀선 - 채널폭;
하단2 = 회귀선 - 채널폭 * multi;
plot1(회귀선,"회귀선",iff(T==1,RED,BLUE));
plot2(상단1);
plot3(하단1);
plot4(상단2);
plot5(하단2);
if SwingHigh(1,상단2,left,right,left+right+1) != -1 Then
{
var1 = 상단2[right];
TL1 = TL_New(sDate[right],sTime[right],var1,sDate,sTime,var1);
TL_SetColor(TL1,BLUE);
}
Else
TL_SetEnd(TL1,sDate,sTime,var1);
if Swinglow(1,하단2,left,right,left+right+1) != -1 Then
{
var2 = 하단2[right];
TL2 = TL_New(sDate[right],sTime[right],var2,sDate,sTime,var2);
TL_SetColor(TL2,RED);
}
Else
TL_SetEnd(TL2,sDate,sTime,var2);
즐거운 하루되세요
> 양정희 님이 쓴 글입니다.
> 제목 : 부탁드립니다.
> Input:Period(14),n(0),multi(0.5);
Var:기울기(0),절편(0),회귀선(0),회귀선tmp(0),채널폭(0),j(0);
기울기 = LRS(C, Period)[n];
절편 = _intercept(C,Period)[n];
회귀선 = 기울기 * Index + 절편;
채널폭 = 0;
for j = n to Period + n - 1 {
회귀선tmp = 기울기 * Index[j] + 절편;
채널폭 = max(채널폭,max(abs(H[j] - 회귀선tmp),abs(회귀선tmp - L[j])));
}
plot1(회귀선);
plot2(회귀선 + 채널폭);
plot3(회귀선 - 채널폭);
plot4(회귀선 + 채널폭 * multi);
plot5(회귀선 - 채널폭 * multi);
-------------------------------------------------------------------------
위 수식은 선형회귀채널인데요.
그 중 plot1(회귀선) 가운데 중심선의 상승하락을 나타낼수 있으면
빨간선과 파란선으로 상승하락 색상표시가 되게끔 해주셨으면 좋겠습니다.
또, 위 선형회귀채널의 고점 저점을 나타내게 지지저항선이 나오게끔 표현되었음
좋겠습니다.
예스스탁 예스스탁 답변
2020-09-28 17:40:54
안녕하세요
예스스탁입니다.
고점/저점이 최상단과 최하단이 아닌 중간선을 기준으로 되어 있어
최상단과 최하단으로 변경해 드립니다.
Input:Period(14),n(0),multi(0.5),Left(3),Right(3);
Var:기울기(0),절편(0),회귀선(0),회귀선tmp(0),채널폭(0),j(0),T(0);
var : 상단1(0),상단2(0),하단1(0),하단2(0),TL1(0),TL2(0);
기울기 = LRS(C, Period)[n];
절편 = _intercept(C,Period)[n];
회귀선 = 기울기 * Index + 절편;
채널폭 = 0;
for j = n to Period + n - 1
{
회귀선tmp = 기울기 * Index[j] + 절편;
채널폭 = max(채널폭,max(abs(H[j] - 회귀선tmp),abs(회귀선tmp - L[j])));
}
if 회귀선 > 회귀선[1] Then
T = 1;
if 회귀선 < 회귀선[1] Then
T = -1;
상단2 = 회귀선 + 채널폭 * multi;
상단1 = 회귀선 + 채널폭;
하단1 = 회귀선 - 채널폭;
하단2 = 회귀선 - 채널폭 * multi;
plot1(회귀선,"회귀선",iff(T==1,RED,BLUE));
plot2(상단1);
plot3(하단1);
plot4(상단2);
plot5(하단2);
if SwingHigh(1,상단2,left,right,left+right+1) != -1 Then
{
var1 = 상단1[right];
TL1 = TL_New(sDate[right],sTime[right],var1,sDate,sTime,var1);
TL_SetColor(TL1,BLUE);
}
Else
TL_SetEnd(TL1,sDate,sTime,var1);
if Swinglow(1,하단2,left,right,left+right+1) != -1 Then
{
var2 = 하단1[right];
TL2 = TL_New(sDate[right],sTime[right],var2,sDate,sTime,var2);
TL_SetColor(TL2,RED);
}
Else
TL_SetEnd(TL2,sDate,sTime,var2);
즐거운 하루되세요
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 부탁드립니다.
>
안녕하세요
예스스탁입니다.
저항과 지지를 판단하기 위해서는 고점/저점등에 대한 명확한 조건내용이 필요합니다.
고점과 저점판단에 사용하는 swinghigh,swinglow함수를 이용해
과 저점을 판단해 그리게 작성해 드립니다.
swinghigh,swinglow에 대한 자세한 내용은 예스랭귀지 도움말을 참고하시기 바랍니다.
Input:Period(14),n(0),multi(0.5),Left(3),Right(3);
Var:기울기(0),절편(0),회귀선(0),회귀선tmp(0),채널폭(0),j(0),T(0);
var : 상단1(0),상단2(0),하단1(0),하단2(0),TL1(0),TL2(0);
기울기 = LRS(C, Period)[n];
절편 = _intercept(C,Period)[n];
회귀선 = 기울기 * Index + 절편;
채널폭 = 0;
for j = n to Period + n - 1
{
회귀선tmp = 기울기 * Index[j] + 절편;
채널폭 = max(채널폭,max(abs(H[j] - 회귀선tmp),abs(회귀선tmp - L[j])));
}
if 회귀선 > 회귀선[1] Then
T = 1;
if 회귀선 < 회귀선[1] Then
T = -1;
상단2 = 회귀선 + 채널폭 * multi;
상단1 = 회귀선 + 채널폭;
하단1 = 회귀선 - 채널폭;
하단2 = 회귀선 - 채널폭 * multi;
plot1(회귀선,"회귀선",iff(T==1,RED,BLUE));
plot2(상단1);
plot3(하단1);
plot4(상단2);
plot5(하단2);
if SwingHigh(1,상단2,left,right,left+right+1) != -1 Then
{
var1 = 상단2[right];
TL1 = TL_New(sDate[right],sTime[right],var1,sDate,sTime,var1);
TL_SetColor(TL1,BLUE);
}
Else
TL_SetEnd(TL1,sDate,sTime,var1);
if Swinglow(1,하단2,left,right,left+right+1) != -1 Then
{
var2 = 하단2[right];
TL2 = TL_New(sDate[right],sTime[right],var2,sDate,sTime,var2);
TL_SetColor(TL2,RED);
}
Else
TL_SetEnd(TL2,sDate,sTime,var2);
즐거운 하루되세요
> 양정희 님이 쓴 글입니다.
> 제목 : 부탁드립니다.
> Input:Period(14),n(0),multi(0.5);
Var:기울기(0),절편(0),회귀선(0),회귀선tmp(0),채널폭(0),j(0);
기울기 = LRS(C, Period)[n];
절편 = _intercept(C,Period)[n];
회귀선 = 기울기 * Index + 절편;
채널폭 = 0;
for j = n to Period + n - 1 {
회귀선tmp = 기울기 * Index[j] + 절편;
채널폭 = max(채널폭,max(abs(H[j] - 회귀선tmp),abs(회귀선tmp - L[j])));
}
plot1(회귀선);
plot2(회귀선 + 채널폭);
plot3(회귀선 - 채널폭);
plot4(회귀선 + 채널폭 * multi);
plot5(회귀선 - 채널폭 * multi);
-------------------------------------------------------------------------
위 수식은 선형회귀채널인데요.
그 중 plot1(회귀선) 가운데 중심선의 상승하락을 나타낼수 있으면
빨간선과 파란선으로 상승하락 색상표시가 되게끔 해주셨으면 좋겠습니다.
또, 위 선형회귀채널의 고점 저점을 나타내게 지지저항선이 나오게끔 표현되었음
좋겠습니다.