커뮤니티
수정부탁 드립니다.
2015-05-01 23:23:54
252
글번호 85626
안녕 하십니까?
시작년월일을 매번 수정해야 되는데..
당일 시가 기준 또는 며칠전 기준으로 변경 수정 부탁드립니다.
#==========================================#
# 지 표 명 : 피보나치 되돌림비율
# 작 성 자 : 수식지왕
# 블 로 그 : http://yahoosir.blog.me
#==========================================#
input:방향(1),시작년월(201505);
Var:j(0),k(0),고(0),저(0),고Bar(0),저Bar(0);
Array:r[7](0),fr[7](0);
#==============================================================================#
# 초기처리 (Initialize Routine)
#==============================================================================#
r[0] = 0.;
r[1] = 0.236;
r[2] = 0.382;
r[3] = 0.50;
r[4] = 0.618;
r[5] = 0.764;
r[6] = 1;
#==============================================================================#
# 메인처리 (Main Routine)
#==============================================================================#
고Bar = 고Bar + 1;
저Bar = 저Bar + 1;
#=========================================================#
# 상승방향
#=========================================================#
If 방향 >= 0 Then
{
#---------------------------------------------------------#
# 최고/최저점 계산
#---------------------------------------------------------#
if INT(DATE/100) >= 시작년월 and
고 < H then
{
고 = H;
고Bar = 0;
}
if INT(DATE/100) == 시작년월 and
(저 == 0 or 저 > L) then
{
저 = L;
저Bar = 0;
}
#---------------------------------------------------------#
# Fibonacci Retracements 계산
#---------------------------------------------------------#
k = Highest(H,저Bar+1);
for j = 0 to 6
{
fr[j] = 저 + ((k - 저) * r[j]);
}
}
#=========================================================#
# 하락방향
#=========================================================#
Else
{
#---------------------------------------------------------#
# 최고/최저점 계산
#---------------------------------------------------------#
if INT(DATE/100) == 시작년월 and
고 < H then
{
고 = H;
고Bar = 0;
}
if INT(DATE/100) >= 시작년월 and
(저 == 0 or 저 > L) then
{
저 = L;
저Bar = 0;
}
#---------------------------------------------------------#
# Fibonacci Retracements 계산
#---------------------------------------------------------#
k = Lowest(L,고Bar+1);
for j = 0 to 6 {
fr[j] = 고 - ((고 - k) * r[j]);
}
}
#==============================================================================#
# 지표출력
#==============================================================================#
Plot1(fr[0], "0%",Iff(방향>=0,BLACK,LBLUE));
Plot2(fr[1], "24%",Iff(방향>=0,CYAN,CYAN));
Plot3(fr[2], "38%",Iff(방향>=0,LCYAN,LCYAN));
Plot4(fr[3], "50%",Iff(방향>=0,BLUE,BLUE));
Plot5(fr[4], "62%",Iff(방향>=0,RED,LMAGENTA));
Plot6(fr[5], "76%",Iff(방향>=0,MAGENTA,LYELLOW));
Plot7(fr[6],"100%",Iff(방향>=0,GRAY,BWHITE));
답변 1
예스스탁 예스스탁 답변
2015-05-04 09:40:02
안녕하세요
예스스탁입니다.
당일 시가기준이면 아래와 같습니다.
#==========================================#
# 지 표 명 : 피보나치 되돌림비율
# 작 성 자 : 수식지왕
# 블 로 그 : http://yahoosir.blog.me
#==========================================#
input:방향(1),시작년월(201505);
Var:j(0),k(0),고(0),저(0),고Bar(0),저Bar(0);
Array:r[7](0),fr[7](0);
#==============================================================================#
# 초기처리 (Initialize Routine)
#==============================================================================#
r[0] = 0.;
r[1] = 0.236;
r[2] = 0.382;
r[3] = 0.50;
r[4] = 0.618;
r[5] = 0.764;
r[6] = 1;
#==============================================================================#
# 메인처리 (Main Routine)
#==============================================================================#
고Bar = 고Bar + 1;
저Bar = 저Bar + 1;
#=========================================================#
# 상승방향
#=========================================================#
If 방향 >= 0 Then
{
#---------------------------------------------------------#
# 최고/최저점 계산
#---------------------------------------------------------#
if date != date[1] Then{
고 = H;
고Bar = 0;
저 = L;
저Bar = 0;
}
if date == date[1] Then{
if 고 < H then
{
고 = H;
고Bar = 0;
}
if 저 > L then
{
}
}
#---------------------------------------------------------#
# Fibonacci Retracements 계산
#---------------------------------------------------------#
k = Highest(H,저Bar+1);
for j = 0 to 6
{
fr[j] = 저 + ((k - 저) * r[j]);
}
}
#=========================================================#
# 하락방향
#=========================================================#
Else
{
#---------------------------------------------------------#
# 최고/최저점 계산
#---------------------------------------------------------#
if date != date[1] Then{
고 = H;
고Bar = 0;
저 = L;
저Bar = 0;
}
if date == date[1] Then{
if 고 < H then
{
고 = H;
고Bar = 0;
}
if 저 > L then
{
}
}
#---------------------------------------------------------#
# Fibonacci Retracements 계산
#---------------------------------------------------------#
k = Lowest(L,고Bar+1);
for j = 0 to 6 {
fr[j] = 고 - ((고 - k) * r[j]);
}
}
#==============================================================================#
# 지표출력
#==============================================================================#
Plot1(fr[0], "0%",Iff(방향>=0,BLACK,LBLUE));
Plot2(fr[1], "24%",Iff(방향>=0,CYAN,CYAN));
Plot3(fr[2], "38%",Iff(방향>=0,LCYAN,LCYAN));
Plot4(fr[3], "50%",Iff(방향>=0,BLUE,BLUE));
Plot5(fr[4], "62%",Iff(방향>=0,RED,LMAGENTA));
Plot6(fr[5], "76%",Iff(방향>=0,MAGENTA,LYELLOW));
Plot7(fr[6],"100%",Iff(방향>=0,GRAY,BWHITE));
며칠전은 기존과 같이 날짜를 지정하실수 밖에 없습니다.
현재 연도와 월까지 입력하실수 잇는데 년월일을 지정하게
수정해 드립니다.
#==========================================#
# 지 표 명 : 피보나치 되돌림비율
# 작 성 자 : 수식지왕
# 블 로 그 : http://yahoosir.blog.me
#==========================================#
input:방향(1),시작년월일(20150504);
Var:j(0),k(0),고(0),저(0),고Bar(0),저Bar(0);
Array:r[7](0),fr[7](0);
#==============================================================================#
# 초기처리 (Initialize Routine)
#==============================================================================#
r[0] = 0.;
r[1] = 0.236;
r[2] = 0.382;
r[3] = 0.50;
r[4] = 0.618;
r[5] = 0.764;
r[6] = 1;
#==============================================================================#
# 메인처리 (Main Routine)
#==============================================================================#
고Bar = 고Bar + 1;
저Bar = 저Bar + 1;
#=========================================================#
# 상승방향
#=========================================================#
If 방향 >= 0 Then
{
#---------------------------------------------------------#
# 최고/최저점 계산
#---------------------------------------------------------#
if date >= 시작년월일 and
고 < H then
{
고 = H;
고Bar = 0;
}
if date == 시작년월일 and
(저 == 0 or 저 > L) then
{
저 = L;
저Bar = 0;
}
#---------------------------------------------------------#
# Fibonacci Retracements 계산
#---------------------------------------------------------#
k = Highest(H,저Bar+1);
for j = 0 to 6
{
fr[j] = 저 + ((k - 저) * r[j]);
}
}
#=========================================================#
# 하락방향
#=========================================================#
Else
{
#---------------------------------------------------------#
# 최고/최저점 계산
#---------------------------------------------------------#
if date == 시작년월일 and
고 < H then
{
고 = H;
고Bar = 0;
}
if date >= 시작년월일 and
(저 == 0 or 저 > L) then
{
저 = L;
저Bar = 0;
}
#---------------------------------------------------------#
# Fibonacci Retracements 계산
#---------------------------------------------------------#
k = Lowest(L,고Bar+1);
for j = 0 to 6 {
fr[j] = 고 - ((고 - k) * r[j]);
}
}
#==============================================================================#
# 지표출력
#==============================================================================#
Plot1(fr[0], "0%",Iff(방향>=0,BLACK,LBLUE));
Plot2(fr[1], "24%",Iff(방향>=0,CYAN,CYAN));
Plot3(fr[2], "38%",Iff(방향>=0,LCYAN,LCYAN));
Plot4(fr[3], "50%",Iff(방향>=0,BLUE,BLUE));
Plot5(fr[4], "62%",Iff(방향>=0,RED,LMAGENTA));
Plot6(fr[5], "76%",Iff(방향>=0,MAGENTA,LYELLOW));
Plot7(fr[6],"100%",Iff(방향>=0,GRAY,BWHITE));
즐거운 하루되세요
> fill 님이 쓴 글입니다.
> 제목 : 수정부탁 드립니다.
> 안녕 하십니까?
시작년월일을 매번 수정해야 되는데..
당일 시가 기준 또는 며칠전 기준으로 변경 수정 부탁드립니다.
#==========================================#
# 지 표 명 : 피보나치 되돌림비율
# 작 성 자 : 수식지왕
# 블 로 그 : http://yahoosir.blog.me
#==========================================#
input:방향(1),시작년월(201505);
Var:j(0),k(0),고(0),저(0),고Bar(0),저Bar(0);
Array:r[7](0),fr[7](0);
#==============================================================================#
# 초기처리 (Initialize Routine)
#==============================================================================#
r[0] = 0.;
r[1] = 0.236;
r[2] = 0.382;
r[3] = 0.50;
r[4] = 0.618;
r[5] = 0.764;
r[6] = 1;
#==============================================================================#
# 메인처리 (Main Routine)
#==============================================================================#
고Bar = 고Bar + 1;
저Bar = 저Bar + 1;
#=========================================================#
# 상승방향
#=========================================================#
If 방향 >= 0 Then
{
#---------------------------------------------------------#
# 최고/최저점 계산
#---------------------------------------------------------#
if INT(DATE/100) >= 시작년월 and
고 < H then
{
고 = H;
고Bar = 0;
}
if INT(DATE/100) == 시작년월 and
(저 == 0 or 저 > L) then
{
저 = L;
저Bar = 0;
}
#---------------------------------------------------------#
# Fibonacci Retracements 계산
#---------------------------------------------------------#
k = Highest(H,저Bar+1);
for j = 0 to 6
{
fr[j] = 저 + ((k - 저) * r[j]);
}
}
#=========================================================#
# 하락방향
#=========================================================#
Else
{
#---------------------------------------------------------#
# 최고/최저점 계산
#---------------------------------------------------------#
if INT(DATE/100) == 시작년월 and
고 < H then
{
고 = H;
고Bar = 0;
}
if INT(DATE/100) >= 시작년월 and
(저 == 0 or 저 > L) then
{
저 = L;
저Bar = 0;
}
#---------------------------------------------------------#
# Fibonacci Retracements 계산
#---------------------------------------------------------#
k = Lowest(L,고Bar+1);
for j = 0 to 6 {
fr[j] = 고 - ((고 - k) * r[j]);
}
}
#==============================================================================#
# 지표출력
#==============================================================================#
Plot1(fr[0], "0%",Iff(방향>=0,BLACK,LBLUE));
Plot2(fr[1], "24%",Iff(방향>=0,CYAN,CYAN));
Plot3(fr[2], "38%",Iff(방향>=0,LCYAN,LCYAN));
Plot4(fr[3], "50%",Iff(방향>=0,BLUE,BLUE));
Plot5(fr[4], "62%",Iff(방향>=0,RED,LMAGENTA));
Plot6(fr[5], "76%",Iff(방향>=0,MAGENTA,LYELLOW));
Plot7(fr[6],"100%",Iff(방향>=0,GRAY,BWHITE));
다음글
이전글