커뮤니티
부탁 드립니다.
2020-10-30 11:10:06
852
글번호 143504
도움에 감사 드립니다.
타주기 수식 부탁 드립니다.
예를 들어
1)10분봉차트에서 60분봉 지표
2)60분봉차트에서 일봉지표
미리 경배로 깊은 감사 인사 올립니다.
1)수식1
Inputs: Length(20),sig(5);
Variables: NCO(0);
NCO = C - C[Length];
VAR1=MA(NCO,SIG);
2)수식2
INPUT:P3(3),P10(10,SIG(5);
Var : value(0), value_Accum(0);
value = ((C - L) - (H - C)) / (H - L) * V;
value_Accum = Accum(value);
CO = ema(value_Accum, P3) - ema(value_Accum, P10);
VAR1=MA(CO,SIG);
참고수식)
input : ntime(5),Period(20),sig(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0),idx(0);
var : sumX(0),sumY(0),sumXY(0),sumX2(0);
var : avgX(0),avgY(0),avgXY(0),avgX2(0),Intercept(0);
Array : x[100](0),y[100](0);
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;
TF = TM%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
{
idx = idx+1;
답변 3
예스스탁 예스스탁 답변
2020-10-30 16:22:13
안녕하세요
예스스탁입니다.
1-1
input : ntime(60),Length(20),sig(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0),idx(0);
var : sum(0),NCO(0);
array : CC[100](0);
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;
TF = TM%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
{
idx = idx+1;
for cnt = 1 to 99
{
CC[cnt] = CC[cnt-1][1];
}
}
CC[0] = C;
if CC[Length+sig] > 0 Then
{
sum = 0;
For cnt = 0 to sig-1
{
NCO = CC[cnt] - CC[cnt+Length];
sum = sum + NCO;
}
var1 = sum/sig;
Plot1(var1);
}
}
1-2
Inputs : Length(20),sig(5);
Var: NCO(0),sum(0),cnt(0);
sum = 0;
For cnt = 0 to sig-1
{
NCO = DayClose(cnt) - DayClose(cnt+Length);
sum = sum + NCO;
}
var1 = sum/sig;
Plot1(var1);
2-1
input : ntime(60),P3(3),P10(10),SIG(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0),idx(0),value(0),value_Accum(0);
var : EP1(0),EP2(0),Emav1(0),Emav2(0),pre1(0),pre2(0);
var : OO(0),HH(0),LL(0),CC(0),VV(0),sum(0);
array : COv[100](0);
Ep1 = 2/(P3+1);
Ep2 = 2/(P10+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;
TF = TM%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
{
idx = idx+1;
value1 = value1+value[1];
OO = O;
HH = H;
LL = L;
VV = 0;
for cnt = 1 to 99
{
COv[cnt] = COv[cnt-1][1];
}
Pre1 = Emav1[1];
Pre2 = Emav2[1];
}
CC = C;
VV = VV + V;
if H > HH Then
HH = H;
if L < LL Then
LL = L;
value = ((CC - LL) - (HH - CC)) / (HH - LL) * VV;
value_Accum = value1+value;
if idx == 1 then
{
Emav1 = value_Accum;
Emav2 = value_Accum;
}
Else
{
Emav1 = value_Accum * EP1 + Pre1 * (1-EP1);
Emav2 = value_Accum * EP2 + Pre2 * (1-EP2);
}
COv[0] = Emav1-Emav2;
if idx >= sig Then
{
sum = 0;
For cnt = 0 to sig
{
sum = sum + COv[cnt];
}
var1 = sum/sig;
Plot1(var1);
}
}
2-2
input : ntime(60),P3(3),P10(10),SIG(5);
var : cnt(0),idx(0),value(0),value_Accum(0);
var : EP1(0),EP2(0),Emav1(0),Emav2(0),pre1(0),pre2(0);
var : OO(0),HH(0),LL(0),CC(0),VV(0),sum(0);
array : COv[100](0);
Ep1 = 2/(P3+1);
Ep2 = 2/(P10+1);
if Bdate != Bdate[1] Then
{
idx = idx+1;
value1 = value1+value[1];
OO = O;
HH = H;
LL = L;
VV = 0;
for cnt = 1 to 99
{
COv[cnt] = COv[cnt-1][1];
}
Pre1 = Emav1[1];
Pre2 = Emav2[1];
}
CC = C;
VV = VV + V;
if H > HH Then
HH = H;
if L < LL Then
LL = L;
value = ((CC - LL) - (HH - CC)) / (HH - LL) * VV;
value_Accum = value1+value;
if idx == 1 then
{
Emav1 = value_Accum;
Emav2 = value_Accum;
}
Else
{
Emav1 = value_Accum * EP1 + Pre1 * (1-EP1);
Emav2 = value_Accum * EP2 + Pre2 * (1-EP2);
}
COv[0] = Emav1-Emav2;
if idx >= sig Then
{
sum = 0;
For cnt = 0 to sig
{
sum = sum + COv[cnt];
}
var1 = sum/sig;
Plot1(var1);
}
즐거운 하루되세요
> 뮬리 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움에 감사 드립니다.
타주기 수식 부탁 드립니다.
예를 들어
1)10분봉차트에서 60분봉 지표
2)60분봉차트에서 일봉지표
미리 경배로 깊은 감사 인사 올립니다.
1)수식1
Inputs: Length(20),sig(5);
Variables: NCO(0);
NCO = C - C[Length];
VAR1=MA(NCO,SIG);
2)수식2
INPUT:P3(3),P10(10,SIG(5);
Var : value(0), value_Accum(0);
value = ((C - L) - (H - C)) / (H - L) * V;
value_Accum = Accum(value);
CO = ema(value_Accum, P3) - ema(value_Accum, P10);
VAR1=MA(CO,SIG);
참고수식)
input : ntime(5),Period(20),sig(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0),idx(0);
var : sumX(0),sumY(0),sumXY(0),sumX2(0);
var : avgX(0),avgY(0),avgXY(0),avgX2(0),Intercept(0);
Array : x[100](0),y[100](0);
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;
TF = TM%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
{
idx = idx+1;
뮬리
2020-10-30 16:55:42
답변 감사 드립니다.
1)식의 다음과 같은
타주기(일봉용)을
타주기(주봉용)도 부탁 드립니다.
번거롭게 해서 죄송 합니다.
1-2
Inputs : Length(20),sig(5);
Var: NCO(0),sum(0),cnt(0);
sum = 0;
For cnt = 0 to sig-1
{
NCO = DayClose(cnt) - DayClose(cnt+Length);
sum = sum + NCO;
}
var1 = sum/sig;
Plot1(var1);
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 부탁 드립니다.
>
안녕하세요
예스스탁입니다.
1-1
input : ntime(60),Length(20),sig(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0),idx(0);
var : sum(0),NCO(0);
array : CC[100](0);
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;
TF = TM%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
{
idx = idx+1;
for cnt = 1 to 99
{
CC[cnt] = CC[cnt-1][1];
}
}
CC[0] = C;
if CC[Length+sig] > 0 Then
{
sum = 0;
For cnt = 0 to sig-1
{
NCO = CC[cnt] - CC[cnt+Length];
sum = sum + NCO;
}
var1 = sum/sig;
Plot1(var1);
}
}
1-2
Inputs : Length(20),sig(5);
Var: NCO(0),sum(0),cnt(0);
sum = 0;
For cnt = 0 to sig-1
{
NCO = DayClose(cnt) - DayClose(cnt+Length);
sum = sum + NCO;
}
var1 = sum/sig;
Plot1(var1);
2-1
input : ntime(60),P3(3),P10(10),SIG(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0),idx(0),value(0),value_Accum(0);
var : EP1(0),EP2(0),Emav1(0),Emav2(0),pre1(0),pre2(0);
var : OO(0),HH(0),LL(0),CC(0),VV(0),sum(0);
array : COv[100](0);
Ep1 = 2/(P3+1);
Ep2 = 2/(P10+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;
TF = TM%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
{
idx = idx+1;
value1 = value1+value[1];
OO = O;
HH = H;
LL = L;
VV = 0;
for cnt = 1 to 99
{
COv[cnt] = COv[cnt-1][1];
}
Pre1 = Emav1[1];
Pre2 = Emav2[1];
}
CC = C;
VV = VV + V;
if H > HH Then
HH = H;
if L < LL Then
LL = L;
value = ((CC - LL) - (HH - CC)) / (HH - LL) * VV;
value_Accum = value1+value;
if idx == 1 then
{
Emav1 = value_Accum;
Emav2 = value_Accum;
}
Else
{
Emav1 = value_Accum * EP1 + Pre1 * (1-EP1);
Emav2 = value_Accum * EP2 + Pre2 * (1-EP2);
}
COv[0] = Emav1-Emav2;
if idx >= sig Then
{
sum = 0;
For cnt = 0 to sig
{
sum = sum + COv[cnt];
}
var1 = sum/sig;
Plot1(var1);
}
}
2-2
input : ntime(60),P3(3),P10(10),SIG(5);
var : cnt(0),idx(0),value(0),value_Accum(0);
var : EP1(0),EP2(0),Emav1(0),Emav2(0),pre1(0),pre2(0);
var : OO(0),HH(0),LL(0),CC(0),VV(0),sum(0);
array : COv[100](0);
Ep1 = 2/(P3+1);
Ep2 = 2/(P10+1);
if Bdate != Bdate[1] Then
{
idx = idx+1;
value1 = value1+value[1];
OO = O;
HH = H;
LL = L;
VV = 0;
for cnt = 1 to 99
{
COv[cnt] = COv[cnt-1][1];
}
Pre1 = Emav1[1];
Pre2 = Emav2[1];
}
CC = C;
VV = VV + V;
if H > HH Then
HH = H;
if L < LL Then
LL = L;
value = ((CC - LL) - (HH - CC)) / (HH - LL) * VV;
value_Accum = value1+value;
if idx == 1 then
{
Emav1 = value_Accum;
Emav2 = value_Accum;
}
Else
{
Emav1 = value_Accum * EP1 + Pre1 * (1-EP1);
Emav2 = value_Accum * EP2 + Pre2 * (1-EP2);
}
COv[0] = Emav1-Emav2;
if idx >= sig Then
{
sum = 0;
For cnt = 0 to sig
{
sum = sum + COv[cnt];
}
var1 = sum/sig;
Plot1(var1);
}
즐거운 하루되세요
> 뮬리 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움에 감사 드립니다.
타주기 수식 부탁 드립니다.
예를 들어
1)10분봉차트에서 60분봉 지표
2)60분봉차트에서 일봉지표
미리 경배로 깊은 감사 인사 올립니다.
1)수식1
Inputs: Length(20),sig(5);
Variables: NCO(0);
NCO = C - C[Length];
VAR1=MA(NCO,SIG);
2)수식2
INPUT:P3(3),P10(10,SIG(5);
Var : value(0), value_Accum(0);
value = ((C - L) - (H - C)) / (H - L) * V;
value_Accum = Accum(value);
CO = ema(value_Accum, P3) - ema(value_Accum, P10);
VAR1=MA(CO,SIG);
참고수식)
input : ntime(5),Period(20),sig(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0),idx(0);
var : sumX(0),sumY(0),sumXY(0),sumX2(0);
var : avgX(0),avgY(0),avgXY(0),avgX2(0),Intercept(0);
Array : x[100](0),y[100](0);
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;
TF = TM%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
{
idx = idx+1;
예스스탁 예스스탁 답변
2020-10-30 17:06:38
안녕하세요
예스스탁입니다.
Inputs : Length(20),sig(5);
Var: NCO(0),sum(0),cnt(0);
Array : CC[100](0);
if DayOfWeek(Bdate) < DayOfWeek(Bdate[1]) Then
{
for cnt = 1 to 99
{
CC[cnt] = CC[cnt-1][1];
}
}
CC[0] = c;
if CC[Length+sig] > 0 Then
{
sum = 0;
For cnt = 0 to sig-1
{
NCO = CC[cnt] - CC[cnt+Length];
sum = sum + NCO;
}
var1 = sum/sig;
Plot1(var1);
}
즐거운 하루되세요
> 뮬리 님이 쓴 글입니다.
> 제목 : Re : Re : 부탁 드립니다.
> 답변 감사 드립니다.
1)식의 다음과 같은
타주기(일봉용)을
타주기(주봉용)도 부탁 드립니다.
번거롭게 해서 죄송 합니다.
1-2
Inputs : Length(20),sig(5);
Var: NCO(0),sum(0),cnt(0);
sum = 0;
For cnt = 0 to sig-1
{
NCO = DayClose(cnt) - DayClose(cnt+Length);
sum = sum + NCO;
}
var1 = sum/sig;
Plot1(var1);
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 부탁 드립니다.
>
안녕하세요
예스스탁입니다.
1-1
input : ntime(60),Length(20),sig(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0),idx(0);
var : sum(0),NCO(0);
array : CC[100](0);
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;
TF = TM%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
{
idx = idx+1;
for cnt = 1 to 99
{
CC[cnt] = CC[cnt-1][1];
}
}
CC[0] = C;
if CC[Length+sig] > 0 Then
{
sum = 0;
For cnt = 0 to sig-1
{
NCO = CC[cnt] - CC[cnt+Length];
sum = sum + NCO;
}
var1 = sum/sig;
Plot1(var1);
}
}
1-2
Inputs : Length(20),sig(5);
Var: NCO(0),sum(0),cnt(0);
sum = 0;
For cnt = 0 to sig-1
{
NCO = DayClose(cnt) - DayClose(cnt+Length);
sum = sum + NCO;
}
var1 = sum/sig;
Plot1(var1);
2-1
input : ntime(60),P3(3),P10(10),SIG(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0),idx(0),value(0),value_Accum(0);
var : EP1(0),EP2(0),Emav1(0),Emav2(0),pre1(0),pre2(0);
var : OO(0),HH(0),LL(0),CC(0),VV(0),sum(0);
array : COv[100](0);
Ep1 = 2/(P3+1);
Ep2 = 2/(P10+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;
TF = TM%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
{
idx = idx+1;
value1 = value1+value[1];
OO = O;
HH = H;
LL = L;
VV = 0;
for cnt = 1 to 99
{
COv[cnt] = COv[cnt-1][1];
}
Pre1 = Emav1[1];
Pre2 = Emav2[1];
}
CC = C;
VV = VV + V;
if H > HH Then
HH = H;
if L < LL Then
LL = L;
value = ((CC - LL) - (HH - CC)) / (HH - LL) * VV;
value_Accum = value1+value;
if idx == 1 then
{
Emav1 = value_Accum;
Emav2 = value_Accum;
}
Else
{
Emav1 = value_Accum * EP1 + Pre1 * (1-EP1);
Emav2 = value_Accum * EP2 + Pre2 * (1-EP2);
}
COv[0] = Emav1-Emav2;
if idx >= sig Then
{
sum = 0;
For cnt = 0 to sig
{
sum = sum + COv[cnt];
}
var1 = sum/sig;
Plot1(var1);
}
}
2-2
input : ntime(60),P3(3),P10(10),SIG(5);
var : cnt(0),idx(0),value(0),value_Accum(0);
var : EP1(0),EP2(0),Emav1(0),Emav2(0),pre1(0),pre2(0);
var : OO(0),HH(0),LL(0),CC(0),VV(0),sum(0);
array : COv[100](0);
Ep1 = 2/(P3+1);
Ep2 = 2/(P10+1);
if Bdate != Bdate[1] Then
{
idx = idx+1;
value1 = value1+value[1];
OO = O;
HH = H;
LL = L;
VV = 0;
for cnt = 1 to 99
{
COv[cnt] = COv[cnt-1][1];
}
Pre1 = Emav1[1];
Pre2 = Emav2[1];
}
CC = C;
VV = VV + V;
if H > HH Then
HH = H;
if L < LL Then
LL = L;
value = ((CC - LL) - (HH - CC)) / (HH - LL) * VV;
value_Accum = value1+value;
if idx == 1 then
{
Emav1 = value_Accum;
Emav2 = value_Accum;
}
Else
{
Emav1 = value_Accum * EP1 + Pre1 * (1-EP1);
Emav2 = value_Accum * EP2 + Pre2 * (1-EP2);
}
COv[0] = Emav1-Emav2;
if idx >= sig Then
{
sum = 0;
For cnt = 0 to sig
{
sum = sum + COv[cnt];
}
var1 = sum/sig;
Plot1(var1);
}
즐거운 하루되세요
> 뮬리 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움에 감사 드립니다.
타주기 수식 부탁 드립니다.
예를 들어
1)10분봉차트에서 60분봉 지표
2)60분봉차트에서 일봉지표
미리 경배로 깊은 감사 인사 올립니다.
1)수식1
Inputs: Length(20),sig(5);
Variables: NCO(0);
NCO = C - C[Length];
VAR1=MA(NCO,SIG);
2)수식2
INPUT:P3(3),P10(10,SIG(5);
Var : value(0), value_Accum(0);
value = ((C - L) - (H - C)) / (H - L) * V;
value_Accum = Accum(value);
CO = ema(value_Accum, P3) - ema(value_Accum, P10);
VAR1=MA(CO,SIG);
참고수식)
input : ntime(5),Period(20),sig(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0),idx(0);
var : sumX(0),sumY(0),sumXY(0),sumX2(0);
var : avgX(0),avgY(0),avgXY(0),avgX2(0),Intercept(0);
Array : x[100](0),y[100](0);
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;
TF = TM%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
{
idx = idx+1;
다음글
이전글