안녕하세요 예스스탁입니다. 각 줄의 맨앞의 줄번호 모두 지우시면 됩니다. 1 : 2 : 3 : ~~~ 104 : 수식앞의 위 내용은 줄번호입니다 해당 내용은 모두 지우셔야 합니다 삭제만 하시면 되는 내용이므로 삭제해서 수식을 올려드리진 않습니다. 즐거운 하루되세요 > 장군 님이 쓴 글입니다. > 제목 : 문의드립니다 > 1 : #==========================================# 2 : # 지표명 : 피보나치 팬(시작일 입력방식) 3 : # 작성자 : 수식지왕 4 : # 블로그 : http://blog.naver.com/yahoosir 5 : #==========================================# 6 : input:방향(1), //1:상승, -1:하락 7 : 시작년월(200303); 8 : var:j(0),고(0),고Bar(0),저(0),저Bar(0),HH(0),LL(0),CC(0); 9 : array:r[7](0),ff[7](0); 10 : #==============================================================================# 11 : # 초기처리 (Initialize Routine) 12 : #==============================================================================# 13 : r[0] = 0; 14 : r[1] = 0.236; 15 : r[2] = 0.382; 16 : r[3] = 0.50; 17 : r[4] = 0.618; 18 : r[5] = 0.764; 19 : r[6] = 1; 20 : 21 : HH = H; 22 : LL = L; 23 : CC = C; 24 : 25 : #==============================================================================# 26 : # 메인처리 (Main Routine) 27 : #==============================================================================# 28 : 고Bar = 고Bar + 1; 29 : 저Bar = 저Bar + 1; 30 : 31 : #=========================================================# 32 : # 상승방향 33 : #=========================================================# 34 : If 방향 >= 0 Then 35 : { 36 : #---------------------------------------------------------# 37 : # 최고/최저점 계산 38 : #---------------------------------------------------------# 39 : if INT(DATE/100) >= 시작년월 and 40 : 고 < HH then 41 : { 42 : 고 = HH; 43 : 고Bar = 0; 44 : } 45 : 46 : if INT(DATE/100) == 시작년월 and 47 : (저 == 0 or 저 > LL) then 48 : { 49 : 저 = LL; 50 : 저Bar = 0; 51 : } 52 : 53 : #---------------------------------------------------------# 54 : # Fibonacci Fan 계산 55 : #---------------------------------------------------------# 56 : For j = 0 To 6 57 : { 58 : ff[j] = (고-저)/(저Bar-고Bar) * r[j] * 저Bar + 저; 59 : } 60 : } 61 : #=========================================================# 62 : # 하락방향 63 : #=========================================================# 64 : Else 65 : { 66 : #---------------------------------------------------------# 67 : # 최고/최저점 계산 68 : #---------------------------------------------------------# 69 : if INT(DATE/100) == 시작년월 and 70 : 고 < HH then 71 : { 72 : 고 = HH; 73 : 고Bar = 0; 74 : } 75 : 76 : if INT(DATE/100) >= 시작년월 and 77 : (저 == 0 or 저 > LL) then 78 : { 79 : 저 = LL; 80 : 저Bar = 0; 81 : } 82 : 83 : #---------------------------------------------------------# 84 : # Fibonacci Fan 계산 85 : #---------------------------------------------------------# 86 : For j = 0 To 6 87 : { 88 : ff[j] = (저-고)/(고Bar-저Bar) * r[j] * 고Bar + 고; 89 : } 90 : } 91 : 92 : #==============================================================================# 93 : # 지표출력 94 : #==============================================================================# 95 : if 고 > 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 : } 검증이 안되는데 수정부탁드립니다~~`