안녕하세요 예스스탁입니다. input : ntime1(5),ntime2(10); #타분봉주기 input : P1(5),P2(20),P3(60),P4(120); #이동평균 기간 input : 표시소숫점(2),폰트크기(9); var : S1(0),D1(0),TM(0),TF1(0),TF2(0),cnt(0); var : sum11(0),sum12(0),sum13(0),sum14(0); var : mav11(0),mav12(0),mav13(0),mav14(0); var : sum21(0),sum22(0),sum23(0),sum24(0); var : mav21(0),mav22(0),mav23(0),mav24(0); Array : C1[150](0),C2[150](0); var1 = (c-dayopen(0))/dayopen(0)*100; var2 = (dayopen(0)-dayopen(1))/dayopen(1)*100; var3 = (daylow(0)-DayLow(1))/DayLow(1)*100; var4 = (DayHigh(1)-DayHigh(1))/DayHigh(1)*100; 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; TF1 = TM%ntime1; TF2 = TM%ntime2; if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF1 < TF1[1]) Then { for cnt = 1 to 149 { C1[cnt] = C1[cnt-1][1]; } } C1[0] = C; if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF2 < TF2[1]) Then { for cnt = 1 to 149 { C2[cnt] = C2[cnt-1][1]; } } C2[0] = C; if C1[P4] > 0 then { sum11 = 0; sum12 = 0; sum13 = 0; sum14 = 0; for cnt = 0 to P4 { if cnt < P1 then sum11 = sum11+C1[cnt]; if cnt < P2 then sum12 = sum12+C1[cnt]; if cnt < P3 then sum13 = sum13+C1[cnt]; if cnt < P4 then sum14 = sum14+C1[cnt]; } mav11 = sum11/P1; mav12 = sum12/P2; mav13 = sum13/P3; mav14 = sum14/P4; var5 = (max(mav11,mav12,mav13,mav14)-min(mav11,mav12,mav13,mav14))/min(mav11,mav12,mav13,mav14)*100; } if C2[P4] > 0 then { sum21 = 0; sum22 = 0; sum23 = 0; sum24 = 0; for cnt = 0 to P4 { if cnt < P1 then sum21 = sum21+C1[cnt]; if cnt < P2 then sum22 = sum22+C1[cnt]; if cnt < P3 then sum23 = sum23+C1[cnt]; if cnt < P4 then sum24 = sum24+C1[cnt]; } mav21 = sum21/P1; mav22 = sum22/P2; mav23 = sum23/P3; mav24 = sum24/P4; var6 = (max(mav21,mav22,mav23,mav24)-min(mav21,mav22,mav23,mav24))/min(mav21,mav22,mav23,mav24)*100; } } var : tx1(0); tx1 = Text_New(sdate,stime,H+PriceScale*10, NumToStr(var1,표시소숫점)+NewLine+ NumToStr(var2,표시소숫점)+NewLine+ NumToStr(var3,표시소숫점)+NewLine+ NumToStr(var4,표시소숫점)+NewLine+ NumToStr(var5,표시소숫점)+NewLine+ NumToStr(var6,표시소숫점)); Text_SetStyle(tx1,0,1); Text_SetSize(tx1,폰트크기); 즐거운 하루되세요 > 풍운객 님이 쓴 글입니다. > 제목 : 시/고/저/이평 이격, 이평 수렴 및 기울기 표현(재요청) > 안녕하세요, 지난번에 수식 작성을 해주셨는데, 다시 재요청 드리겠습니다. 죄송합니다 ㅠㅠ 일전에 말씀드린건 현재 가격 기준으로 계산된 수식을 표현해주셨는데, 차트상에 표현된 봉 하나하나 마다의 현재 봉 기준에서 계산된 숫자를 표현하고 싶습니다. 예로 첨부파일1에 그림파일을 첨부하였는데, 그림파일 상에는 봉3개에만 숫자를 표시하였지만, 차트상에 표현되는 모든 봉 하단에 숫자로 표현되었으면 좋겠습니다. 다시 말씀드리지만 현재 표현된 차트 각각의 개별봉 기준에서 계산된 값을 표현하여야 합니다. 차트 상 시뮬레이션 할 때 필요한 값을 즉시즉시 제가 참고하기 위해서입니다. 그리고 4번의 경우도 다시 읽어주셔서 작성 부탁드리겠습니다. 8가지 소수점 둘째자리 +,- 숫자를 현재 제가 보는 시뮬레이션 차트 상에 각각의 개별봉마다 봉 하단에 숫자로만 표현을 했으면 좋겠습니다. 숫자 크기에 대해 일괄적으로 조절하는 변수도 주석으로 달아주시면 감사하겠습니다. --------------------------------------------------------------------------------- 1. 현재 가격이 당일시가와의 이격률 ☞ X분봉 상 전략실행 차트에 당일 시가와의 이격이 얼마나 되어 있는지 퍼센트로 +,- 소수점 둘째자리 숫자로 표현하고 싶습니다. (예시로 당일 시가가 10, 당일 현재가가 8이라면 이격률이 {(8-10)/10} x 100 = -20% 당일 시가가 20, 당일 현재가가 22이면 이격률이 {(22-20)/20} x 100 = 10% 2. (전일시가와 당일시가), (전일저가와 당일저가), (전일 고가와 당일고가)와의 이격률 ☞ 위와 마찬가지로 3가지 이격률을 퍼센트로 +,- 소수점 둘째자리 숫자로 표현하고 싶습니다. 3. 이평선 수렴률(타주기 2개 참조) ☞ 타주기를 참조하여 현재 가격 기준, X분봉 상 이평 수렴률, Y분봉상 이평수렴률을 Z분봉 상에 퍼센트로 +,- 소수점 둘째자리 숫자로 표현하고 싶습니다. 이평 기준은 5, 20, 60, 120 이평이고, 수렴률은 4개 이평선 가격 중 {(최고이평-최저이평)/최저이평} x 100 으로 하면 되지 않을까 싶습니다. 그리고 수식 중 타주기 시간 X, Y에 대한 변수를 주석으로 달아주시면 감사하겠습니다. 4. 이평선 기울기(타주기 2개 참조) ☞ 타주기 참조하여 X분봉상, Y분봉상의 a이평선의 기울기가 가파르냐, 완만하냐를 +, - 소수점 둘째자리 숫자로 퍼센트로 표현하고 싶은데, {(현재 봉 기준 a이평 값 - a이평의 a봉 전 이평값)}/(현재 봉 기준 a이평 값) 이렇게 계산하면 될 것 같습니다. 마찬가지로 X, Y, a에 대한 변수를 주석으로 달아주시면 감사하겠습니다. --------------------------------------------------------------------------------- 감사합니다.