커뮤니티
부탁 드립니다.
2018-10-23 03:32:29
244
글번호 122926
도움주심에 깊이 감사 드립니다.
다음 타주기 수식의 일봉 주봉 월봉지표를
분봉에 나타 나도록 부탁 드립니다.
미리 감사 드립니다..
/*
Input:P4(4);
VAR:VARQ1(0);
VARQ1=ATR(P4);
plot1(varq1);
*/
input : 타주기분(60),Period(10);
var : S1(0),D1(0),TM(0),TF(0),cnt(0),HH(0),LL(0),CC(0),C1(0);
var : sumTR(0),ATRV(0);
Array : TH[100](0),TL[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%타주기분;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then
{
HH = H;
LL = L;
C1 = CC[1];
for cnt = 1 to 99
{
TH[cnt] = TH[cnt-1][1];
TL[cnt] = TL[cnt-1][1];
}
}
if H > HH Then
HH = H;
if L < LL Then
LL = L;
CC = c;
TH[0] = max(C1,HH);
TL[0] = Min(C1,LL);
if TH[Period-1] > 0 and TL[Period-1] > 0 then
{
sumTR = 0;
for cnt = 0 to Period-1
{
sumTR = sumTR + (TH[cnt]-TL[cnt]);
}
ATRV = sumTR/Period;
plot1(ATRV);
}
}
답변 1
예스스탁 예스스탁 답변
2018-10-23 11:50:01
안녕하세요
예스스탁입니다.
1. 일
input : P(4);
var : sumTR(0),TH(0),TL(0),cnt(0),ATRV(0);
sumTR = 0;
for cnt = 0 to P-1
{
If DayClose(cnt+1) > DayHigh(cnt) then
TH = DayClose(cnt+1);
else
TH = DayHigh(cnt);
If DayClose(cnt+1) < daylow(cnt) then
TL = DayClose(cnt+1);
else
TL = daylow(cnt);
sumTR = sumTR + (TH-TL);
}
ATRV = sumTR/P;
plot1(ATRV);
2 주
input : Period(4);
var : cnt(0),HH(0),LL(0),CC(0),C1(0);
var : sumTR(0),ATRV(0);
Array : TH[100](0),TL[100](0);
if DayOfWeek(bdate) < DayOfWeek(bdate[1]) Then
{
HH = H;
LL = L;
C1 = CC[1];
for cnt = 1 to 99
{
TH[cnt] = TH[cnt-1][1];
TL[cnt] = TL[cnt-1][1];
}
}
if H > HH Then
HH = H;
if L < LL Then
LL = L;
CC = c;
TH[0] = max(C1,HH);
TL[0] = Min(C1,LL);
if TH[Period-1] > 0 and TL[Period-1] > 0 then
{
sumTR = 0;
for cnt = 0 to Period-1
{
sumTR = sumTR + (TH[cnt]-TL[cnt]);
}
ATRV = sumTR/Period;
plot1(ATRV);
}
3 월
input : Period(4);
var : cnt(0),HH(0),LL(0),CC(0),C1(0);
var : sumTR(0),ATRV(0);
Array : TH[100](0),TL[100](0);
if bdate > bdate[1]+30 Then
{
HH = H;
LL = L;
C1 = CC[1];
for cnt = 1 to 99
{
TH[cnt] = TH[cnt-1][1];
TL[cnt] = TL[cnt-1][1];
}
}
if H > HH Then
HH = H;
if L < LL Then
LL = L;
CC = c;
TH[0] = max(C1,HH);
TL[0] = Min(C1,LL);
if TH[Period-1] > 0 and TL[Period-1] > 0 then
{
sumTR = 0;
for cnt = 0 to Period-1
{
sumTR = sumTR + (TH[cnt]-TL[cnt]);
}
ATRV = sumTR/Period;
plot1(ATRV);
}
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움주심에 깊이 감사 드립니다.
다음 타주기 수식의 일봉 주봉 월봉지표를
분봉에 나타 나도록 부탁 드립니다.
미리 감사 드립니다..
/*
Input:P4(4);
VAR:VARQ1(0);
VARQ1=ATR(P4);
plot1(varq1);
*/
input : 타주기분(60),Period(10);
var : S1(0),D1(0),TM(0),TF(0),cnt(0),HH(0),LL(0),CC(0),C1(0);
var : sumTR(0),ATRV(0);
Array : TH[100](0),TL[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%타주기분;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then
{
HH = H;
LL = L;
C1 = CC[1];
for cnt = 1 to 99
{
TH[cnt] = TH[cnt-1][1];
TL[cnt] = TL[cnt-1][1];
}
}
if H > HH Then
HH = H;
if L < LL Then
LL = L;
CC = c;
TH[0] = max(C1,HH);
TL[0] = Min(C1,LL);
if TH[Period-1] > 0 and TL[Period-1] > 0 then
{
sumTR = 0;
for cnt = 0 to Period-1
{
sumTR = sumTR + (TH[cnt]-TL[cnt]);
}
ATRV = sumTR/Period;
plot1(ATRV);
}
}
다음글
이전글