커뮤니티
부탁드립니다.
2018-10-10 19:56:31
221
글번호 122586
항상 도움주심에 감사드립니다.
아래의 분봉 타주기용 이평선을
1)일봉차트의 이평선을 분봉에
2)주봉차트의 이평선을 분봉에
3)월간차트의 이평선을 분봉에
나타 나도록 부탁 드립니다.
미리 감사 드립니다.
Input : Atime(30),Period(20),sig(5);
var : S1(0),D1(0),TM(0),EP(0);
Var : TF1(0),idx1(0),emav1(0),Pre1(0);
Ep = 2/(Period+1);
if Bdate != Bdate[1] Then{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF1 = TM%Atime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and Atime <= 1 and TF1 > TF1[1]) or
(Bdate == Bdate[1] and Atime > 1 and TF1 < TF1[1]) Then{
idx1 = idx1+1;
Pre1 = emav1[1];
}
if idx1 <= 1 then
emav1 = C;
else
emav1 = C * EP + Pre1 * (1-EP);
var1=ema(emav1,sig);
}
plot1(var1);
답변 3
예스스탁 예스스탁 답변
2018-10-11 10:23:28
안녕하세요
예스스탁입니다.
Input : Period(5),sig(20);
Var : Ep1(0),Ep2(0);
var : didx(0),emad(0),sigd(0),pred(0),preds(0);
var : widx(0),emaw(0),sigw(0),prew(0),prews(0);
var : midx(0),emam(0),sigm(0),prem(0),prems(0);
Ep1 = 2/(Period+1);
Ep2 = 2/(sig+1);
if bdate != bdate[1] then
{
didx = didx + 1;
pred = emad[1];
preds = sigd[1];
}
if didx <= 1 then
{
emad = C;
sigd = emad;
}
else
{
emad = C * EP1 + pred * (1-EP1);
sigd = emad * EP2 + preds * (1-EP2);
}
if DayOfWeek(bdate) < DayOfWeek(bdate[1]) then
{
widx = widx + 1;
prew = emaw[1];
prews = sigw[1];
}
if widx <= 1 then
{
emaw = C;
sigw = emaw;
}
else
{
emaw = C * EP1 + prew * (1-EP1);
sigw = emaw * EP2 + prews * (1-EP2);
}
if bdate > bdate[1]+30 then
{
midx = midx + 1;
prem = emam[1];
prems = sigm[1];
}
if midx <= 1 then
{
emam = C;
sigm = emam;
}
else
{
emam = C * EP1 + prem * (1-EP1);
sigm = emam * EP2 + prems * (1-EP2);
}
plot1(emads,"일봉");
plot2(emaws,"주봉");
plot3(emams,"월봉");
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁드립니다.
> 항상 도움주심에 감사드립니다.
아래의 분봉 타주기용 이평선을
1)일봉차트의 이평선을 분봉에
2)주봉차트의 이평선을 분봉에
3)월간차트의 이평선을 분봉에
나타 나도록 부탁 드립니다.
미리 감사 드립니다.
Input : Atime(30),Period(20),sig(5);
var : S1(0),D1(0),TM(0),EP(0);
Var : TF1(0),idx1(0),emav1(0),Pre1(0);
Ep = 2/(Period+1);
if Bdate != Bdate[1] Then{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF1 = TM%Atime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and Atime <= 1 and TF1 > TF1[1]) or
(Bdate == Bdate[1] and Atime > 1 and TF1 < TF1[1]) Then{
idx1 = idx1+1;
Pre1 = emav1[1];
}
if idx1 <= 1 then
emav1 = C;
else
emav1 = C * EP + Pre1 * (1-EP);
var1=ema(emav1,sig);
}
plot1(var1);
yes
2018-10-11 11:00:31
답변수식에 감사 드립니다.
실행결과 그림과 같이 수평선만 나타 나오니
수정 부탁 드립니다.
미리 감사 드립니다.
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 부탁드립니다.
> 안녕하세요
예스스탁입니다.
Input : Period(5),sig(20);
Var : Ep1(0),Ep2(0);
var : didx(0),emad(0),sigd(0),pred(0),preds(0);
var : widx(0),emaw(0),sigw(0),prew(0),prews(0);
var : midx(0),emam(0),sigm(0),prem(0),prems(0);
Ep1 = 2/(Period+1);
Ep2 = 2/(sig+1);
if bdate != bdate[1] then
{
didx = didx + 1;
pred = emad[1];
preds = sigd[1];
}
if didx <= 1 then
{
emad = C;
sigd = emad;
}
else
{
emad = C * EP1 + pred * (1-EP1);
sigd = emad * EP2 + preds * (1-EP2);
}
if DayOfWeek(bdate) < DayOfWeek(bdate[1]) then
{
widx = widx + 1;
prew = emaw[1];
prews = sigw[1];
}
if widx <= 1 then
{
emaw = C;
sigw = emaw;
}
else
{
emaw = C * EP1 + prew * (1-EP1);
sigw = emaw * EP2 + prews * (1-EP2);
}
if bdate > bdate[1]+30 then
{
midx = midx + 1;
prem = emam[1];
prems = sigm[1];
}
if midx <= 1 then
{
emam = C;
sigm = emam;
}
else
{
emam = C * EP1 + prem * (1-EP1);
sigm = emam * EP2 + prems * (1-EP2);
}
plot1(emads,"일봉");
plot2(emaws,"주봉");
plot3(emams,"월봉");
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁드립니다.
> 항상 도움주심에 감사드립니다.
아래의 분봉 타주기용 이평선을
1)일봉차트의 이평선을 분봉에
2)주봉차트의 이평선을 분봉에
3)월간차트의 이평선을 분봉에
나타 나도록 부탁 드립니다.
미리 감사 드립니다.
Input : Atime(30),Period(20),sig(5);
var : S1(0),D1(0),TM(0),EP(0);
Var : TF1(0),idx1(0),emav1(0),Pre1(0);
Ep = 2/(Period+1);
if Bdate != Bdate[1] Then{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF1 = TM%Atime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and Atime <= 1 and TF1 > TF1[1]) or
(Bdate == Bdate[1] and Atime > 1 and TF1 < TF1[1]) Then{
idx1 = idx1+1;
Pre1 = emav1[1];
}
if idx1 <= 1 then
emav1 = C;
else
emav1 = C * EP + Pre1 * (1-EP);
var1=ema(emav1,sig);
}
plot1(var1);
예스스탁 예스스탁 답변
2018-10-11 11:12:11
안녕하세요
예스스탁입니다.
plot에 출력값을 잘못지정되었습니다
plot을 아래내용으로 변경하시기 바랍니다.
첨부된 그림과 같이 지표가 그려집니다.
plot1(sigd,"일봉");
plot2(sigw,"주봉");
plot3(sigm,"월봉");
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : Re : Re : 부탁드립니다.
> 답변수식에 감사 드립니다.
실행결과 그림과 같이 수평선만 나타 나오니
수정 부탁 드립니다.
미리 감사 드립니다.
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 부탁드립니다.
> 안녕하세요
예스스탁입니다.
Input : Period(5),sig(20);
Var : Ep1(0),Ep2(0);
var : didx(0),emad(0),sigd(0),pred(0),preds(0);
var : widx(0),emaw(0),sigw(0),prew(0),prews(0);
var : midx(0),emam(0),sigm(0),prem(0),prems(0);
Ep1 = 2/(Period+1);
Ep2 = 2/(sig+1);
if bdate != bdate[1] then
{
didx = didx + 1;
pred = emad[1];
preds = sigd[1];
}
if didx <= 1 then
{
emad = C;
sigd = emad;
}
else
{
emad = C * EP1 + pred * (1-EP1);
sigd = emad * EP2 + preds * (1-EP2);
}
if DayOfWeek(bdate) < DayOfWeek(bdate[1]) then
{
widx = widx + 1;
prew = emaw[1];
prews = sigw[1];
}
if widx <= 1 then
{
emaw = C;
sigw = emaw;
}
else
{
emaw = C * EP1 + prew * (1-EP1);
sigw = emaw * EP2 + prews * (1-EP2);
}
if bdate > bdate[1]+30 then
{
midx = midx + 1;
prem = emam[1];
prems = sigm[1];
}
if midx <= 1 then
{
emam = C;
sigm = emam;
}
else
{
emam = C * EP1 + prem * (1-EP1);
sigm = emam * EP2 + prems * (1-EP2);
}
plot1(emads,"일봉");
plot2(emaws,"주봉");
plot3(emams,"월봉");
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁드립니다.
> 항상 도움주심에 감사드립니다.
아래의 분봉 타주기용 이평선을
1)일봉차트의 이평선을 분봉에
2)주봉차트의 이평선을 분봉에
3)월간차트의 이평선을 분봉에
나타 나도록 부탁 드립니다.
미리 감사 드립니다.
Input : Atime(30),Period(20),sig(5);
var : S1(0),D1(0),TM(0),EP(0);
Var : TF1(0),idx1(0),emav1(0),Pre1(0);
Ep = 2/(Period+1);
if Bdate != Bdate[1] Then{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF1 = TM%Atime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and Atime <= 1 and TF1 > TF1[1]) or
(Bdate == Bdate[1] and Atime > 1 and TF1 < TF1[1]) Then{
idx1 = idx1+1;
Pre1 = emav1[1];
}
if idx1 <= 1 then
emav1 = C;
else
emav1 = C * EP + Pre1 * (1-EP);
var1=ema(emav1,sig);
}
plot1(var1);
다음글
이전글