커뮤니티
수식변경
2019-04-11 11:25:23
217
글번호 127783
늘 도움 감사합니다.
아래의 피보나치 수식을 시간 단위 즉 60분 단위로 표시되도록 부탁드립니다.
input : N(0),X(1);
var:j(0),고점(0),저점(0);
Array:rate[5](0),line[5](0);
고점 = dayhigh(n);
저점 = daylow(n);
rate[0] = -0.236;
rate[1] = -0.382;
rate[2] = -0.5;
rate[3] = -0.618;
rate[4] = -0.764;
var1 = Log10(고점);
var2 = Log10(저점);
var3 = var1 - var2;
for j = 0 to 4
{
line[j] = Power(10,var1 + rate[j] * var3);
}
plot1(고점,"고점");
plot2(line[0],"0.236");
plot3(line[1],"0.382");
plot4(line[2],"0.50");
plot5(line[3],"0.618");
plot6(line[4],"0.764");
plot7(저점,"저점");
if X == 1 Then
plot8(Power(10,var2 + var3*1.236),"1.236");
Else
plot8(Power(10,var1 + var3*(-1.236)),"1.236");
if X == 1 Then
plot9(Power(10,var2 + var3*1.618),"1.618");
Else
plot9(Power(10,var1 + var3*(-1.618)),"1.618");
답변 1
예스스탁 예스스탁 답변
2019-04-11 17:03:56
안녕하세요
예스스탁입니다.
input : 분(60),N(0),X(1);
var:j(0),고점(0),저점(0);
var : s1(0),d1(0),tm(0),tf(0);
Array:rate[5](0),line[5](0);
rate[0] = -0.236;
rate[1] = -0.382;
rate[2] = -0.5;
rate[3] = -0.618;
rate[4] = -0.764;
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 = TimeToMinutes(stime)%분;
if bdate != bdate[1] or (bdate == bdate[1] and TF < TF[1]) Then
{
고점 = h;
저점 = l;
}
if H > 고점 then
고점 = H;
if L < 저점 then
저점 = L;
var1 = Log10(고점);
var2 = Log10(저점);
var3 = var1 - var2;
for j = 0 to 4
{
line[j] = Power(10,var1 + rate[j] * var3);
}
plot1(고점,"고점");
plot2(line[0],"0.236");
plot3(line[1],"0.382");
plot4(line[2],"0.50");
plot5(line[3],"0.618");
plot6(line[4],"0.764");
plot7(저점,"저점");
if X == 1 Then
plot8(Power(10,var2 + var3*1.236),"1.236");
Else
plot8(Power(10,var1 + var3*(-1.236)),"1.236");
if X == 1 Then
plot9(Power(10,var2 + var3*1.618),"1.618");
Else
plot9(Power(10,var1 + var3*(-1.618)),"1.618");
}
즐거운 하루되세요
> 알리섬 님이 쓴 글입니다.
> 제목 : 수식변경
> 늘 도움 감사합니다.
아래의 피보나치 수식을 시간 단위 즉 60분 단위로 표시되도록 부탁드립니다.
input : N(0),X(1);
var:j(0),고점(0),저점(0);
Array:rate[5](0),line[5](0);
고점 = dayhigh(n);
저점 = daylow(n);
rate[0] = -0.236;
rate[1] = -0.382;
rate[2] = -0.5;
rate[3] = -0.618;
rate[4] = -0.764;
var1 = Log10(고점);
var2 = Log10(저점);
var3 = var1 - var2;
for j = 0 to 4
{
line[j] = Power(10,var1 + rate[j] * var3);
}
plot1(고점,"고점");
plot2(line[0],"0.236");
plot3(line[1],"0.382");
plot4(line[2],"0.50");
plot5(line[3],"0.618");
plot6(line[4],"0.764");
plot7(저점,"저점");
if X == 1 Then
plot8(Power(10,var2 + var3*1.236),"1.236");
Else
plot8(Power(10,var1 + var3*(-1.236)),"1.236");
if X == 1 Then
plot9(Power(10,var2 + var3*1.618),"1.618");
Else
plot9(Power(10,var1 + var3*(-1.618)),"1.618");