커뮤니티
부탁 드립니다.
2020-08-20 18:11:22
848
글번호 141624
도움에 감사 드립니다.
1)타주기(분봉용_예를 들어 10분봉 차트에서 60분봉 지표),
2)타주기(일봉용_예를 들어 60분봉 차트에서 일봉 지표) 부탁 드립니다.
미리 경배로 감사 인사 올립니다.
var : src(0),sp(0),dt(0);
src = (H+L)/2;
sp = (4*src + 3*src[1] + 2*src[2] + src[3]) / 10.0;
if CurrentBar >= 1 then
{
dt = (.0962*sp + .5769*(sp[2]));
}
참고지표1)
input :ntime(60),P(10),sig(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : C1(0),CC(0),VV(0),idx(0),sum1(0),mav1(0),sum2(0),mav2(0);
Array : value[100](0),diff[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;
C1 = CC[1];
VV = 0;
For cnt = 1 to 99
{
value[cnt] = value[cnt-1][1];
diff[cnt] = diff[cnt-1][1];
}
}
답변 1
예스스탁 예스스탁 답변
2020-08-21 15:32:40
안녕하세요
예스스탁입니다.
1 분
input : ntime(10),P(4);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : sum1(0),Csum1(0),dt(0);
Array : HH[50](0),LL[50](0),SP[50](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
{
HH[0] = H;
LL[0] = L;
for cnt = 1 to 49
{
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
SP[cnt] = SP[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
if LL[P-1] > 0 Then
{
Sum1 = 0;
CSum1 = 0;
For cnt = 0 To P - 1
{
Sum1 = Sum1 + ((HH[cnt]+LL[cnt])/2) * (P - cnt);
CSum1 = CSum1 + P - cnt;
}
If CSum1 > 0 Then
SP[0] = Sum1/CSum1;
Else
SP[0] = 0;
}
if SP[2] > 0 Then
{
dt = (.0962*SP[0] + .5769*(SP[2]));
Plot1(dt);
}
}
2 일
input : P(4);
var : cnt(0),sum(0),Csum(0),SP(0);
var : sum2(0),Csum2(0),SP2(0),dt(0);
Sum = 0;
CSum = 0;
Sum2 = 0;
CSum2 = 0;
For cnt = 0 To P - 1
{
Sum = Sum + ((DayHigh(cnt)+DayLow(cnt))/2) * (P - cnt);
CSum = CSum + P - cnt;
Sum2 = Sum2 + ((DayHigh(cnt+2)+DayLow(cnt+2))/2) * (P - cnt);
CSum2 = CSum2 + P - cnt;
}
SP = Sum/CSum;
SP2 = Sum2/CSum2;
if SP2 > 0 Then
{
dt = (.0962*SP + .5769*(SP2));
Plot1(dt);
}
즐거운 하루되세요
> 뮬리 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움에 감사 드립니다.
1)타주기(분봉용_예를 들어 10분봉 차트에서 60분봉 지표),
2)타주기(일봉용_예를 들어 60분봉 차트에서 일봉 지표) 부탁 드립니다.
미리 경배로 감사 인사 올립니다.
var : src(0),sp(0),dt(0);
src = (H+L)/2;
sp = (4*src + 3*src[1] + 2*src[2] + src[3]) / 10.0;
if CurrentBar >= 1 then
{
dt = (.0962*sp + .5769*(sp[2]));
}
참고지표1)
input :ntime(60),P(10),sig(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : C1(0),CC(0),VV(0),idx(0),sum1(0),mav1(0),sum2(0),mav2(0);
Array : value[100](0),diff[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;
C1 = CC[1];
VV = 0;
For cnt = 1 to 99
{
value[cnt] = value[cnt-1][1];
diff[cnt] = diff[cnt-1][1];
}
}