커뮤니티
문의드립니다.
2018-01-15 08:50:38
147
글번호 115745
도움주시는 덕분에 도전하고 있습니다. 매번 감사합니다.
지표 a
Input : period(30);
Var : j(0), lngth(0), ymax(0), ymin(0), yscl(0), dx2(0), dy(0), FDIValue(0);
ymin = Lowest(C, Period);
ymax = Highest(C, Period);
yscl = ymax - ymin;
if Period < 2 Or ymax == ymin then
lngth = 1;
else begin
lngth = 0;
dx2 = Square(1/Period);
for j = 1 To Period begin
dy = (c[j] - c[j-1]) / yscl;
lngth = lngth + SquareRoot(dx2 + dy*dy);
end;
end;
FDIValue= 1 + (Log(lngth) + Log(2)) / Log(2*Period);
Plot1(1.5, "1.5", GRAY);
Plot2(1.4, "1.4", GRAY);
Plot3(1.6, "1.6", GRAY);
if FDIValue >= 1.5 Then
plot4(FDIValue, "FDI", blue);
Else
plot4(FDIValue, "FDI", red);
1. 기타
지표 a의 타주기분봉 지표
2. 기타
분봉에서 일봉 a지표값
3. 기타
저 지표에 있는 begin end는 꼭 써야 하는 것들인가요?
답변 1
예스스탁 예스스탁 답변
2018-01-15 17:30:41
안녕하세요
예스스탁입니다.
1
input : 타주기분(30),period(30);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
Var : j(0), lngth(0), ymax(0), ymin(0), yscl(0), dx2(0), dy(0), FDIValue(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%타주기분;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then
{
for cnt = 1 to 99
{
CC[cnt] = CC[cnt-1][1];
}
}
CC[0] = C;
if CC[Period] > 0 then
{
ymin = CC[0];
ymax = CC[0];
for cnt = 0 to Period-1{
if CC[cnt] < ymin Then
ymin = CC[cnt];
if CC[cnt] > ymax Then
ymax = CC[cnt];
}
yscl = ymax - ymin;
if Period < 2 Or ymax == ymin then
lngth = 1;
else
{
lngth = 0;
dx2 = Square(1/Period);
for j = 1 To Period {
dy = (CC[j] - CC[j-1]) / yscl;
lngth = lngth + SquareRoot(dx2 + dy*dy);
}
}
FDIValue= 1 + (Log(lngth) + Log(2)) / Log(2*Period);
Plot1(1.5, "1.5", GRAY);
Plot2(1.4, "1.4", GRAY);
Plot3(1.6, "1.6", GRAY);
if FDIValue >= 1.5 Then
plot4(FDIValue, "FDI", blue);
Else
plot4(FDIValue, "FDI", red);
}
}
2
input : 타주기분(30),period(30);
var : cnt(0),j(0), lngth(0), ymax(0), ymin(0), yscl(0), dx2(0), dy(0), FDIValue(0);
if DayClose(Period) > 0 then
{
ymin = DayClose;
ymax = DayClose;
for cnt = 0 to Period-1{
if DayClose(cnt) < ymin Then
ymin = DayClose(cnt);
if DayClose(cnt) > ymax Then
ymax = DayClose(cnt);
}
yscl = ymax - ymin;
if Period < 2 Or ymax == ymin then
lngth = 1;
else
{
lngth = 0;
dx2 = Square(1/Period);
for j = 1 To Period {
dy = (DayClose(j) - DayClose(j-1)) / yscl;
lngth = lngth + SquareRoot(dx2 + dy*dy);
}
}
FDIValue= 1 + (Log(lngth) + Log(2)) / Log(2*Period);
Plot1(1.5, "1.5", GRAY);
Plot2(1.4, "1.4", GRAY);
Plot3(1.6, "1.6", GRAY);
if FDIValue >= 1.5 Then
plot4(FDIValue, "FDI", blue);
Else
plot4(FDIValue, "FDI", red);
}
3
begin/end는 중괄호 {/}로 대체하셔도 됩니다.
Begin --> {
end --> }
Input : period(30);
Var : j(0), lngth(0), ymax(0), ymin(0), yscl(0), dx2(0), dy(0), FDIValue(0);
ymin = Lowest(C, Period);
ymax = Highest(C, Period);
yscl = ymax - ymin;
if Period < 2 Or ymax == ymin then
lngth = 1;
else {
lngth = 0;
dx2 = Square(1/Period);
for j = 1 To Period {
dy = (c[j] - c[j-1]) / yscl;
lngth = lngth + SquareRoot(dx2 + dy*dy);
}
}
FDIValue= 1 + (Log(lngth) + Log(2)) / Log(2*Period);
Plot1(1.5, "1.5", GRAY);
Plot2(1.4, "1.4", GRAY);
Plot3(1.6, "1.6", GRAY);
if FDIValue >= 1.5 Then
plot4(FDIValue, "FDI", blue);
Else
plot4(FDIValue, "FDI", red);
즐거운 하루되세요
> 잡다백수 님이 쓴 글입니다.
> 제목 : 문의드립니다.
> 도움주시는 덕분에 도전하고 있습니다. 매번 감사합니다.
지표 a
Input : period(30);
Var : j(0), lngth(0), ymax(0), ymin(0), yscl(0), dx2(0), dy(0), FDIValue(0);
ymin = Lowest(C, Period);
ymax = Highest(C, Period);
yscl = ymax - ymin;
if Period < 2 Or ymax == ymin then
lngth = 1;
else begin
lngth = 0;
dx2 = Square(1/Period);
for j = 1 To Period begin
dy = (c[j] - c[j-1]) / yscl;
lngth = lngth + SquareRoot(dx2 + dy*dy);
end;
end;
FDIValue= 1 + (Log(lngth) + Log(2)) / Log(2*Period);
Plot1(1.5, "1.5", GRAY);
Plot2(1.4, "1.4", GRAY);
Plot3(1.6, "1.6", GRAY);
if FDIValue >= 1.5 Then
plot4(FDIValue, "FDI", blue);
Else
plot4(FDIValue, "FDI", red);
1. 기타
지표 a의 타주기분봉 지표
2. 기타
분봉에서 일봉 a지표값
3. 기타
저 지표에 있는 begin end는 꼭 써야 하는 것들인가요?
다음글
이전글