커뮤니티
질문입니다.
2019-01-22 13:57:43
230
글번호 125477
늘 답변 감사드립니다.
만들어 주신 아래 수식에서
input : weekP1(5),weekP2(20);
var : weekcnt(0),cnt(0),count1(0),sum1(0),mav1(0),count2(0),sum2(0),mav2(0);
array : WeekC[50](0);
if DayOfWeek(date) < DayOfWeek(date)[1] then{
weekcnt = weekcnt+1;
for cnt = 1 to 49{
WeekC[cnt] = WeekC[cnt-1][1];
}
}
WeekC[0] = C;
sum1 = 0;
if weekcnt >= weekP1 Then{
for count1 = 0 to weekP1-1{
sum1 = sum1+WeekC[count1];
}
mav1 = sum1/weekP1;
if mav1 > mav1[1] Then
var1 = 1;
if mav1 < mav1[1] Then
var1 = -1;
plot1(mav1,"이평1",iff(var1==1,red,blue));
}
sum2 = 0;
if weekcnt >= weekP2 Then{
for count2 = 0 to weekP2-1{
sum2 = sum2+WeekC[count2];
}
mav2 = sum2/weekP2;
if mav2 > mav2[1] Then
var2 = 1;
if mav2 < mav2[1] Then
var2 = -1;
plot2(mav2,"이평2",iff(var2==1,red,blue));
}
실행결과
A이평선이 이쁘게 나오지 않아서.. 빨-파-빨-파 연속적으로 나오는데... 하락중에 파란색 유지 되고 상승중에 빨간색 유지 되길 원했던 그 모습이 아니라서..
어떻게 해야할지 고민하다가 아이디어 떠올랐는데요.. 아래 오리지널 이평선 소스하고 맨아래 크로스 소스하고 합치면 될 것 같습니다.
만들어 주신 A이평선에 1이평선(20), 2이평선(40)을 넣어서
20이평선 40평선이 골드 크로스 하면 A이평선이 빨간색, 20이평선 40이평선이 데드 크로스 하면 A이평선이 파란색 유지 될수 있는 수식으로 수정 가능할까요?
잘 부탁드립니다.
늘 감사하게 생각하고 있습니다.
참고 소스
=================참고 소스 오리지널 이평선================
nput : weekP1(5),weekP2(20);
var : weekcnt(0),cnt(0),count1(0),sum1(0),mav1(0),count2(0),sum2(0),mav2(0);
array : WeekC[50](0);
if DayOfWeek(date) < DayOfWeek(date)[1] then{
weekcnt = weekcnt+1;
for cnt = 1 to 49{
WeekC[cnt] = WeekC[cnt-1][1];
}
}
WeekC[0] = C;
sum1 = 0;
if weekcnt >= weekP1 Then{
for count1 = 0 to weekP1-1{
sum1 = sum1+WeekC[count1];
}
mav1 = sum1/weekP1;
plot1(mav1);
}
sum2 = 0;
if weekcnt >= weekP2 Then{
for count2 = 0 to weekP2-1{
sum2 = sum2+WeekC[count2];
}
mav2 = sum2/weekP2;
plot2(mav2);
}
===================참고 소스2====================
var : 크로스(0), 크로스컬러(0),크로스1(0), 크로스컬러1(0) ;
If 이평선2양 and 이평선1 > 이평선2 Then { 크로스 = 1 ; 크로스컬러 = RED ; }
else If 이평선2음 and 이평선1 < 이평선2 Then { 크로스 = -1 ; 크로스컬러 = BLUE ; }
Plot1(기준선1,"기준선1",크로스컬러,def,1) ;
답변 1
예스스탁 예스스탁 답변
2019-01-22 14:44:45
안녕하세요
예스스탁입니다.
input : weekP1(20),weekP2(40);
var : weekcnt(0),cnt(0),count1(0),sum1(0),mav1(0),count2(0),sum2(0),mav2(0);
array : WeekC[50](0);
if DayOfWeek(date) < DayOfWeek(date)[1] then
{
weekcnt = weekcnt+1;
for cnt = 1 to 49
{
WeekC[cnt] = WeekC[cnt-1][1];
}
}
WeekC[0] = C;
sum1 = 0;
if weekcnt >= weekP1 Then
{
for count1 = 0 to weekP1-1
{
sum1 = sum1+WeekC[count1];
}
mav1 = sum1/weekP1;
}
sum2 = 0;
if weekcnt >= weekP2 Then
{
for count2 = 0 to weekP2-1
{
sum2 = sum2+WeekC[count2];
}
mav2 = sum2/weekP2;
}
var : 크로스컬러(0);
If mav1 > mav2 Then
{
크로스컬러 = RED ;
}
If mav1 < mav2 Then
{
크로스컬러 = BLUE ;
}
if mav1 > 0 and mav2 > 0 then
{
plot1(mav1,"주봉이평1",크로스컬러);
plot2(mav2,"주봉이평2",크로스컬러);
}
즐거운 하루되세요
> 스오어스 님이 쓴 글입니다.
> 제목 : 질문입니다.
> 늘 답변 감사드립니다.
만들어 주신 아래 수식에서
input : weekP1(5),weekP2(20);
var : weekcnt(0),cnt(0),count1(0),sum1(0),mav1(0),count2(0),sum2(0),mav2(0);
array : WeekC[50](0);
if DayOfWeek(date) < DayOfWeek(date)[1] then{
weekcnt = weekcnt+1;
for cnt = 1 to 49{
WeekC[cnt] = WeekC[cnt-1][1];
}
}
WeekC[0] = C;
sum1 = 0;
if weekcnt >= weekP1 Then{
for count1 = 0 to weekP1-1{
sum1 = sum1+WeekC[count1];
}
mav1 = sum1/weekP1;
if mav1 > mav1[1] Then
var1 = 1;
if mav1 < mav1[1] Then
var1 = -1;
plot1(mav1,"이평1",iff(var1==1,red,blue));
}
sum2 = 0;
if weekcnt >= weekP2 Then{
for count2 = 0 to weekP2-1{
sum2 = sum2+WeekC[count2];
}
mav2 = sum2/weekP2;
if mav2 > mav2[1] Then
var2 = 1;
if mav2 < mav2[1] Then
var2 = -1;
plot2(mav2,"이평2",iff(var2==1,red,blue));
}
실행결과
A이평선이 이쁘게 나오지 않아서.. 빨-파-빨-파 연속적으로 나오는데... 하락중에 파란색 유지 되고 상승중에 빨간색 유지 되길 원했던 그 모습이 아니라서..
어떻게 해야할지 고민하다가 아이디어 떠올랐는데요.. 아래 오리지널 이평선 소스하고 맨아래 크로스 소스하고 합치면 될 것 같습니다.
만들어 주신 A이평선에 1이평선(20), 2이평선(40)을 넣어서
20이평선 40평선이 골드 크로스 하면 A이평선이 빨간색, 20이평선 40이평선이 데드 크로스 하면 A이평선이 파란색 유지 될수 있는 수식으로 수정 가능할까요?
잘 부탁드립니다.
늘 감사하게 생각하고 있습니다.
참고 소스
=================참고 소스 오리지널 이평선================
nput : weekP1(5),weekP2(20);
var : weekcnt(0),cnt(0),count1(0),sum1(0),mav1(0),count2(0),sum2(0),mav2(0);
array : WeekC[50](0);
if DayOfWeek(date) < DayOfWeek(date)[1] then{
weekcnt = weekcnt+1;
for cnt = 1 to 49{
WeekC[cnt] = WeekC[cnt-1][1];
}
}
WeekC[0] = C;
sum1 = 0;
if weekcnt >= weekP1 Then{
for count1 = 0 to weekP1-1{
sum1 = sum1+WeekC[count1];
}
mav1 = sum1/weekP1;
plot1(mav1);
}
sum2 = 0;
if weekcnt >= weekP2 Then{
for count2 = 0 to weekP2-1{
sum2 = sum2+WeekC[count2];
}
mav2 = sum2/weekP2;
plot2(mav2);
}
===================참고 소스2====================
var : 크로스(0), 크로스컬러(0),크로스1(0), 크로스컬러1(0) ;
If 이평선2양 and 이평선1 > 이평선2 Then { 크로스 = 1 ; 크로스컬러 = RED ; }
else If 이평선2음 and 이평선1 < 이평선2 Then { 크로스 = -1 ; 크로스컬러 = BLUE ; }
Plot1(기준선1,"기준선1",크로스컬러,def,1) ;