본 내용은 http://cafe.empas.com/systrader에 게시된 내용입니다. 지난번 마켓프로파일 자료를 수집하면서 봤던 내용중에 1~2일전의 중심가격을 금일 차트에 띄워놓고 보는 화면이 있어 이번에는 전일 중심가격 지표식을 만들어 보았습니다. 피봇포인트처럼 전일의 값을 기준으로 저항 및 지지선으로 활용하는 전략 같은데 아직 마켓프로파일을 이용한 전략을 사용해 본 적이 없어 우선 지표식 만드는 과정만 설명드립니다 윗 글에서 설명한 당일의 지표식과 합쳐서 하나의 지표식으로 만들어 보려고 했는데 당일 지표식은 매 봉마다 계산을 새로이 하는 개념이고 전일 지표식은 매일 첫번째 봉에서만 계산하면 되는 로직이라 별도의 지표식으로 분리했습니다. /*작성자:수식지왕*/ input:n(1),interval(15); var:arr(0),j(0),k(0),tick(0),chk_cnt(0),ttm(0),t_val(0),max_tpo(0),tot_tpo(0), sum(0),acc(0),mdl_prc(0),mdl_arr(0),range_u(0),range_d(0),base(0), cal_tpo(0),up_tpo(0),dn_tpo(0),up_tail_u(0),up_tail_d(0),dn_tail_u(0),dn_tail_d(0); array:price_u[100](0),price_m[100](0),price_d[100](0), status_u[100](0),status_m[100](0),status_d[100](0), tpo_u[100](0),tpo_m[100](0),tpo_d[100](0); if CodeCategoryEX() == 11 then //Kospi 주식 { if C >= 500000 then tick = 1000; else if C >= 100000 then tick = 500; else if C >= 50000 then tick = 100; else if C >= 10000 then tick = 50; else if C >= 5000 then tick = 10; else tick = 5; } if CodeCategoryEX() == 12 then //Kosdaq 주식 { if C >= 50000 then tick = 100; else if C >= 10000 then tick = 50; else if C >= 5000 then tick = 10; else tick = 5; } if CodeCategoryEX() == 21 then //Kospi200 선물 tick = 0.05; if CodeCategoryEX() == 31 or CodeCategoryEX() == 32 then //Kospi200 콜옵션,풋옵션 { if C >= 3.0 then tick = 0.05; else tick = 0.01; } var1 = dayindex(); //전일 데이터를 이용하는 로직이므로 과거참조가 들어가는데 dayindex()의 경우 //dayindex()[n]으로 사용할 수 없어 dayindex()값을 일반변수에 move하여 사용하여야 합니다. //예전에도 이런 경험을 했었는데 기억력이 나쁘다보니 요번에도 여기서 좀 헤맸습니다. if dayindex()==0 then //당일 첫번째 봉에서만 계산 { for arr = 0 to 99 { price_u[arr] = 0; price_m[arr] = 0; price_d[arr] = 0; status_u[arr] = 0; status_m[arr] = 0; status_d[arr] = 0; tpo_u[arr] = 0; tpo_m[arr] = 0; tpo_d[arr] = 0; } max_tpo = 0; tot_tpo = 0; sum = 0; acc = 0; mdl_prc = 0; mdl_arr = 0; range_u = 0; range_d = 0; //n일 동안의 봉의 개수를 계산하여 계산할 첫번째 봉의 위치를 찾음 if n > 0 then { var2 = 0; for j = 1 to i { if var1[j] == 0 then var2 = var2 + 1; //dayindex()가 0 즉, 09시인 봉을 n번 찾음 if var2 == n then { var3 = j; j = i; } } } base = dayopen(n) + tick * 149; //n일전 시초가를 기준으로 가격대중 가장 상위의 가격 계산 price_u[0] = base; //지수 배열 상단 for arr = 1 to 99 { price_u[arr] = price_u[arr-1] - tick; } price_m[0] = price_u[99] - tick; //지수 배열 중단 for arr = 1 to 99 { price_m[arr] = price_m[arr-1] - tick; } price_d[0] = price_m[99] - tick; //지수 배열 하단 for arr = 1 to 99 { price_d[arr] = price_d[arr-1] - tick; } for j = var3 downto 1 { //n일전 시초봉에서부터 현재봉 1봉 이전 봉까지 순차적으로 계산 //이후 내용은 당일 지표식과 동일하므로 윗글 참조 ttm = TimeToMinutes(stime[j]); t_val = int((ttm-540)/interval) + 1; for arr = 0 to 99 { if l[j] <= price_u[arr] and price_u[arr] <= h[j] then { if status_u[arr] < t_val then { status_u[arr] = t_val; tpo_u[arr] = tpo_u[arr] + 1; tot_tpo = tot_tpo + 1; if max_tpo < tpo_u[arr] then { max_tpo = tpo_u[arr]; sum = 0; acc = 0; } if max_tpo == tpo_u[arr] then { sum = sum + price_u[arr]; acc = acc + 1; } } } if l[j] <= price_m[arr] and price_m[arr] <= h[j] then { if status_m[arr] < t_val then { status_m[arr] = t_val; tpo_m[arr] = tpo_m[arr] + 1; tot_tpo = tot_tpo + 1; if max_tpo < tpo_m[arr] then { max_tpo = tpo_m[arr]; sum = 0; acc = 0; } if max_tpo == tpo_m[arr] then { sum = sum + price_m[arr]; acc = acc + 1; } } } if l[j] <= price_d[arr] and price_d[arr] <= h[j] then { if status_d[arr] < t_val then { status_d[arr] = t_val; tpo_d[arr] = tpo_d[arr] + 1; tot_tpo = tot_tpo + 1; if max_tpo < tpo_d[arr] then { max_tpo = tpo_d[arr]; sum = 0; acc = 0; } if max_tpo == tpo_d[arr] then { sum = sum + price_d[arr]; acc = acc + 1; } } } } } mdl_prc = round(sum/acc/tick,0)*tick; mdl_arr = int((base-mdl_prc)/tick); range_u = mdl_arr; range_d = mdl_arr; cal_tpo = iff(mdl_arr<100,tpo_u[mdl_arr],iff(mdl_arr<200,tpo_m[mdl_arr-100],tpo_d[mdl_arr-200])); for k = 0 to 150 { // range_u는 한단위씩 위로(-1), range_d는 한단위씩 아래로(+1) // TPO가 많은 쪽의 TPO를 먼저 누적한다 var4 = iff(range_u-1<100,tpo_u[range_u-1],iff(range_u-1<200,tpo_m[range_u-1-100],tpo_d[range_u-1-200])); var5 = iff(range_d+1<100,tpo_u[range_d+1],iff(range_d+1<200,tpo_m[range_d+1-100],tpo_d[range_d+1-200])); if var4 > var5 then { cal_tpo = cal_tpo + var4; range_u = range_u - 1; } else if var4 < var5 then { cal_tpo = cal_tpo + var5; range_d = range_d + 1; } else if var4 == var5 and var4 > 0 and var5 > 0 then { cal_tpo = cal_tpo + var4; range_u = range_u - 1; } if cal_tpo >= tot_tpo * 0.7 or var4 + var5 == 0 then k = 150; } up_tpo = 0; dn_tpo = 0; if tpo_u[0] == 1 then up_tail_u = 0; else up_tail_u = 299; up_tail_d = 0; dn_tail_u = 299; if tpo_d[99] == 1 then dn_tail_d = 299; else dn_tail_d = 0; for arr = 0 to mdl_arr-1 { if iff(arr<100,tpo_u[arr],iff(arr<200,tpo_m[arr-100],tpo_d[arr-200])) == 0 and iff(arr+1<100,tpo_u[arr+1],iff(arr+1<200,tpo_m[arr-100+1],tpo_d[arr-200+1])) == 1 then up_tail_u = arr + 1; if iff(arr<100,tpo_u[arr],iff(arr<200,tpo_m[arr-100],tpo_d[arr-200])) == 1 and iff(arr+1<100,tpo_u[arr+1],iff(arr+1<200,tpo_m[arr-100+1],tpo_d[arr-200+1])) > 1 and up_tail_d == 0 then up_tail_d = arr; if iff(arr<100,tpo_u[arr],iff(arr<200,tpo_m[arr-100],tpo_d[arr-200])) > 1 then up_tpo = up_tpo + iff(arr<100,tpo_u[arr],iff(arr<200,tpo_m[arr-100],tpo_d[arr-200])); } for arr = 299 downto mdl_arr+1 { if iff(arr<100,tpo_u[arr],iff(arr<200,tpo_u[arr-100],tpo_d[arr-200])) > 1 then dn_tpo = dn_tpo + iff(arr<100,tpo_u[arr],iff(arr<200,tpo_m[arr-100],tpo_d[arr-200])); if iff(arr<100,tpo_u[arr],iff(arr<200,tpo_m[arr-100],tpo_d[arr-200])) == 1 and iff(arr-1<100,tpo_u[arr-1],iff(arr-1<200,tpo_m[arr-100-1],tpo_d[arr-200-1])) > 1 and dn_tail_u == 299 then dn_tail_u = arr; if iff(arr<100,tpo_u[arr],iff(arr<200,tpo_m[arr-100],tpo_d[arr-200])) == 0 and iff(arr-1<100,tpo_u[arr-1],iff(arr-1<200,tpo_m[arr-100-1],tpo_d[arr-200-1])) == 1 then dn_tail_d = arr - 1; } } plot1(mdl_prc,"중심가격"); plot2(base-(range_u*tick),"가치영역(상)"); plot3(base-(range_d*tick),"가치영역(하)"); if up_tail_u <= up_tail_d then { plot4(base-(up_tail_u*tick),"윗꼬리상단"); plot5(base-(up_tail_d*tick),"윗꼬리하단"); } if dn_tail_u <= dn_tail_d then { plot6(base-(dn_tail_u*tick),"아랫꼬리상단"); plot7(base-(dn_tail_d*tick),"아랫꼬리하단"); }