안녕하세요 예스스탁입니다. 랭귀지로 기울기를 계산할 수 없고 해당 내용에 대해 별도로 다른 방법으로 계산해 보지 않아 계산식에 대해 아는 부분이 없습니다. 4번 내용을 제외한 수식입니다. 수식에서 타주기 지표는 기본차트의 주기로 배수만 가능합니다. 기본차트보다 낮은 주기나 배수가 아니면 계산할 수 없습니다. input : ntime1(5),ntime2(10); #타분봉주기 input : P1(5),P2(20),P3(60),P4(120); #이동평균 기간 input : 표시소숫점(2); 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); Text_Delete(tx1); tx1 = Text_New(sdate,stime,H+PriceScale*10, "현재가/당일시가 :"+NumToStr(var1,표시소숫점)+NewLine+ "일간시가이격 : "+NumToStr(var2,표시소숫점)+NewLine+ "일간저가이격 : "+NumToStr(var3,표시소숫점)+NewLine+ "일간고가이격 : "+NumToStr(var4,표시소숫점)+NewLine+ "ntime1이평이격 : "+NumToStr(var5,표시소숫점)+NewLine+ "ntime2이평이격 : "+NumToStr(var6,표시소숫점)); Text_SetStyle(tx1,0,1); 즐거운 하루되세요 > 풍운객 님이 쓴 글입니다. > 제목 : 시/고/저/이평 이격, 이평 수렴 및 기울기 표현 > 안녕하세요, 수식작성에 도움을 주셔서 너무 감사드립니다. 제가 원하는 수식들을 숫자로 나타내어 차트상에 표현을 하고 싶습니다. --------------------------------------------------------------------------------- 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이평선의 기울기가 가파르냐, 완만하냐를 +, - 소수점 둘째자리 숫자로 퍼센트로 표현하고 싶은데, 이 부분은 관리자님의 노하우를 배우고 싶습니다. 부탁드립니다. 마찬가지로 X, Y, a에 대한 변수를 주석으로 달아주시면 감사하겠습니다. --------------------------------------------------------------------------------- 위 8가지 소수점 둘째자리 +,- 숫자를 현재 제가 보는 시뮬레이션 차트 상에 실시간으로 보이게끔 하고 싶습니다. 잘 부탁드리겠습니다.