안녕하세요 예스스탁입니다. 작성된 식에서 시작년월,출력시작이라는 변수에 대한 내용이 없습니다. 외부변수로 처리해 드립니다. 적정한 값을 넣으시기 바랍니다. input:방향(1),시작년월(20100201),출력시작(201002); //1:상승, -1:하락 var:j(0),고(0),고Bar(0),저(0),저Bar(0),HH(0),LL(0),CC(0); array:r[7](0),ff[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; HH = H; LL = L; CC = C; #==============================================================================# # 메인처리 (Main Routine) #==============================================================================# 고Bar = 고Bar + 1; 저Bar = 저Bar + 1; #=========================================================# # 상승방향 #=========================================================# If 방향 >= 0 Then { #---------------------------------------------------------# # 최고/최저점 계산 #---------------------------------------------------------# if INT(DATE/100) == 시작년월 and (저 == 0 or 저 > LL) then { 저 = LL; 저Bar = 0; 고 = 0; } if INT(DATE/100) >= 시작년월 and 고 < HH then { 고 = HH; 고Bar = 0; } #---------------------------------------------------------# # Fibonacci Fan 계산 #---------------------------------------------------------# For j = 0 To 6 { ff[j] = (고-저)/(저Bar-고Bar) * r[j] * 저Bar + 저; } } #=========================================================# # 하락방향 #=========================================================# Else { #---------------------------------------------------------# # 최고/최저점 계산 #---------------------------------------------------------# if INT(DATE/100) == 시작년월 and 고 < HH then { 고 = HH; 고Bar = 0; 저 = 0; } if INT(DATE/100) >= 시작년월 and (저 == 0 or 저 > LL) then { 저 = LL; 저Bar = 0; } #---------------------------------------------------------# # Fibonacci Fan 계산 #---------------------------------------------------------# For j = 0 To 6 { ff[j] = (저-고)/(고Bar-저Bar) * r[j] * 고Bar + 고; } } #==============================================================================# # 지표출력 #==============================================================================# if INT(DATE/100) >= 출력시작 and 고 > 0 and 저 > 0 then { Plot1(ff[0], "0%",Iff(방향>=0,BLACK,LBLUE)); Plot2(ff[1], "24%",Iff(방향>=0,BLUE,LGREEN)); Plot3(ff[2], "38%",Iff(방향>=0,GREEN,LCYAN)); Plot4(ff[3], "50%",Iff(방향>=0,CYAN,PINK)); Plot5(ff[4], "62%",Iff(방향>=0,RED,LMAGENTA)); Plot6(ff[5], "76%",Iff(방향>=0,MAGENTA,LYELLOW)); Plot7(ff[6],"100%",Iff(방향>=0,GRAY,BWHITE)); } 즐거운 하루되세요 > 아알이 님이 쓴 글입니다. > 제목 : 문의요^^ > 수정좀 부탁드립니다. 2 : input:방향(1), //1:상승, -1:하락 5 : var:j(0),고(0),고Bar(0),저(0),저Bar(0),HH(0),LL(0),CC(0); 6 : array:r[7](0),ff[7](0); 7 : #==============================================================================# 8 : # 초기처리 (Initialize Routine) 9 : #==============================================================================# 10 : r[0] = 0; 11 : r[1] = 0.236; 12 : r[2] = 0.382; 13 : r[3] = 0.50; 14 : r[4] = 0.618; 15 : r[5] = 0.764; 16 : r[6] = 1; 17 : 18 : HH = H; 19 : LL = L; 20 : CC = C; 21 : 22 : #==============================================================================# 23 : # 메인처리 (Main Routine) 24 : #==============================================================================# 25 : 고Bar = 고Bar + 1; 26 : 저Bar = 저Bar + 1; 27 : 28 : #=========================================================# 29 : # 상승방향 30 : #=========================================================# 31 : If 방향 >= 0 Then 32 : { 33 : #---------------------------------------------------------# 34 : # 최고/최저점 계산 35 : #---------------------------------------------------------# 36 : if INT(DATE/100) == 시작년월 and 37 : (저 == 0 or 저 > LL) then 38 : { 39 : 저 = LL; 40 : 저Bar = 0; 41 : 고 = 0; 42 : } 43 : 44 : if INT(DATE/100) >= 시작년월 and 45 : 고 < HH then 46 : { 47 : 고 = HH; 48 : 고Bar = 0; 49 : } 50 : 51 : #---------------------------------------------------------# 52 : # Fibonacci Fan 계산 53 : #---------------------------------------------------------# 54 : For j = 0 To 6 55 : { 56 : ff[j] = (고-저)/(저Bar-고Bar) * r[j] * 저Bar + 저; 57 : } 58 : } 59 : #=========================================================# 60 : # 하락방향 61 : #=========================================================# 62 : Else 63 : { 64 : #---------------------------------------------------------# 65 : # 최고/최저점 계산 66 : #---------------------------------------------------------# 67 : if INT(DATE/100) == 시작년월 and 68 : 고 < HH then 69 : { 70 : 고 = HH; 71 : 고Bar = 0; 72 : 저 = 0; 73 : } 74 : 75 : if INT(DATE/100) >= 시작년월 and 76 : (저 == 0 or 저 > LL) then 77 : { 78 : 저 = LL; 79 : 저Bar = 0; 80 : } 81 : 82 : #---------------------------------------------------------# 83 : # Fibonacci Fan 계산 84 : #---------------------------------------------------------# 85 : For j = 0 To 6 86 : { 87 : ff[j] = (저-고)/(고Bar-저Bar) * r[j] * 고Bar + 고; 88 : } 89 : } 90 : 91 : #==============================================================================# 92 : # 지표출력 93 : #==============================================================================# 94 : if INT(DATE/100) >= 출력시작 and 95 : 고 > 0 and 저 > 0 then 96 : { 97 : Plot1(ff[0], "0%",Iff(방향>=0,BLACK,LBLUE)); 98 : Plot2(ff[1], "24%",Iff(방향>=0,BLUE,LGREEN)); 99 : Plot3(ff[2], "38%",Iff(방향>=0,GREEN,LCYAN)); 100 : Plot4(ff[3], "50%",Iff(방향>=0,CYAN,PINK)); 101 : Plot5(ff[4], "62%",Iff(방향>=0,RED,LMAGENTA)); 102 : Plot6(ff[5], "76%",Iff(방향>=0,MAGENTA,LYELLOW)); 103 : Plot7(ff[6],"100%",Iff(방향>=0,GRAY,BWHITE)); 104 : }