안녕하세요 예스스탁입니다. 여러 plot중에 현재봉에 그려지는 값으로 작성해 드립니다. Var: achng_rt(0),aj(0),ama_val(0),astd_val(0),adn_rng(0),aup_rng(0),arawVBE_up(0),arawVBE_dn(0); Array:alen[6](0),aVBE_up[6](0),aVBE_dn[6](0), aup_chg[6](0),adn_chg[6](0),aup_cor[6](0),adn_cor[6](0), afcstVBE_up[6](0),afcstVBE_dn[6](0); alen[0] = 21; alen[1] = 17; alen[2] = 13; alen[3] = 9; alen[4] = 5; alen[5] = 2; achng_rt = (C/C[1]-1); //가격 변동률 ama_val = ma(achng_rt,alen[0]); //가격변동률의 평균 astd_val = Std(achng_rt,alen[0]); //가격변동률의 표준편차 adn_rng = ama_val - (astd_val * 2); aup_rng = ama_val + (astd_val * 2); arawVBE_up = C * (1 + aup_rng); //원시VBE arawVBE_dn = C * (1 + adn_rng); for aj = 0 to 5 { aVBE_up[aj] = wma(arawVBE_up,alen[aj]); //원시VBE를 가중이평으로 평활화 aVBE_dn[aj] = wma(arawVBE_dn,alen[aj]); if aVBE_up[aj][1] > 0 then aup_chg[aj] = (aVBE_up[aj]-aVBE_up[aj][1])/aVBE_up[aj][1]; //VBE의 변동률 if aVBE_dn[aj][1] > 0 then adn_chg[aj] = (aVBE_dn[aj]-aVBE_dn[aj][1])/aVBE_dn[aj][1]; } afcstVBE_up[0] = aVBE_up[0]; afcstVBE_dn[0] = aVBE_dn[0]; for aj = 1 to 5 { aup_cor[aj] = Correlation(aup_chg[0], aup_chg[aj],63); //21일 VBE변동률과 17,13,9,5,2 변동률간의 상관도 adn_cor[aj] = Correlation(adn_chg[0], adn_chg[aj],63); afcstVBE_up[aj] = afcstVBE_up[aj-1] * (1+(aup_chg[aj]*aup_cor[aj])); //이전값에 상관도와 변동률을 곱해서 계산 afcstVBE_dn[aj] = afcstVBE_dn[aj-1] * (1+(adn_chg[aj]*adn_cor[aj])); } input:N(9),multi(2),Period(63); Var:chng_rt(0),j(0),ma_val(0),std_val(0),dn_rng(0),up_rng(0),rawVBE_up(0),rawVBE_dn(0); Array:len[11](0),VBE_up[11](0),VBE_dn[11](0), up_chg[11](0),dn_chg[11](0),up_cor[11](0),dn_cor[11](0), fcstVBE_up[11](0),fcstVBE_dn[11](0); len[0] = 2; len[1] = 5; len[2] = 9; len[3] = 13; len[4] = 17; len[5] = 21; len[6] = 25; len[7] = 29; len[8] = 33; len[9] = 37; len[10] = 41; chng_rt = (C/C[1]-1); // 가격 변동률 ma_val = ma(chng_rt,len[N]); // 가격변동률의 평균 std_val = Std(chng_rt,len[N]); // 가격변동률의 표준편차 dn_rng = ma_val - (std_val * multi); up_rng = ma_val + (std_val * multi); rawVBE_up = C * (1 + up_rng); // 원시VBE rawVBE_dn = C * (1 + dn_rng); for j = 0 to N { VBE_up[j] = wma(rawVBE_up,len[j]); // 원시VBE를 가중이평으로 평활화 VBE_dn[j] = wma(rawVBE_dn,len[j]); if VBE_up[j][1] > 0 then up_chg[j] = (VBE_up[j]-VBE_up[j][1])/VBE_up[j][1]; // VBE의 변동률 if VBE_dn[j][1] > 0 then dn_chg[j] = (VBE_dn[j]-VBE_dn[j][1])/VBE_dn[j][1]; } fcstVBE_up[N] = VBE_up[N]; fcstVBE_dn[N] = VBE_dn[N]; for j = N - 1 downto 0 { up_cor[j] = Correlation(up_chg[N], up_chg[j],Period); // 21일 VBE변동률과 17,13,9,5,2 변동률간의 상관도 dn_cor[j] = Correlation(dn_chg[N], dn_chg[j],Period); fcstVBE_up[j] = fcstVBE_up[j+1] * (1+(up_chg[j]*up_cor[j])); // 이전값에 상관도와 변동률을 곱해서 계산 fcstVBE_dn[j] = fcstVBE_dn[j+1] * (1+(dn_chg[j]*dn_cor[j])); } if CrossUp(afcstVBE_up[5],fcstVBE_up[0]) and CrossUp(afcstVBE_dn[5],fcstVBE_dn[0]) Then Find(1); 즐거운 하루되세요 > 미래테크 님이 쓴 글입니다. > 제목 : 수식 부탁합니다 > A식 Var:chng_rt(0),j(0),ma_val(0),std_val(0),dn_rng(0),up_rng(0),rawVBE_up(0),rawVBE_dn(0); Array:len[6](0),VBE_up[6](0),VBE_dn[6](0), up_chg[6](0),dn_chg[6](0),up_cor[6](0),dn_cor[6](0), fcstVBE_up[6](0),fcstVBE_dn[6](0); len[0] = 21; len[1] = 17; len[2] = 13; len[3] = 9; len[4] = 5; len[5] = 2; chng_rt = (C/C[1]-1); //가격 변동률 ma_val = ma(chng_rt,len[0]); //가격변동률의 평균 std_val = Std(chng_rt,len[0]); //가격변동률의 표준편차 dn_rng = ma_val - (std_val * 2); up_rng = ma_val + (std_val * 2); rawVBE_up = C * (1 + up_rng); //원시VBE rawVBE_dn = C * (1 + dn_rng); for j = 0 to 5 { VBE_up[j] = wma(rawVBE_up,len[j]); //원시VBE를 가중이평으로 평활화 VBE_dn[j] = wma(rawVBE_dn,len[j]); if VBE_up[j][1] > 0 then up_chg[j] = (VBE_up[j]-VBE_up[j][1])/VBE_up[j][1]; //VBE의 변동률 if VBE_dn[j][1] > 0 then dn_chg[j] = (VBE_dn[j]-VBE_dn[j][1])/VBE_dn[j][1]; } fcstVBE_up[0] = VBE_up[0]; fcstVBE_dn[0] = VBE_dn[0]; for j = 1 to 5 { up_cor[j] = Correlation(up_chg[0], up_chg[j],63); //21일 VBE변동률과 17,13,9,5,2 변동률간의 상관도 dn_cor[j] = Correlation(dn_chg[0], dn_chg[j],63); fcstVBE_up[j] = fcstVBE_up[j-1] * (1+(up_chg[j]*up_cor[j])); //이전값에 상관도와 변동률을 곱해서 계산 fcstVBE_dn[j] = fcstVBE_dn[j-1] * (1+(dn_chg[j]*dn_cor[j])); } plot1(fcstVBE_up[0],"상-5",RED); //5봉 뒤로 이동 plot2(fcstVBE_dn[0],"하-5",black); //5봉 뒤로 이동 if LastBarOnChart then { //마지막봉에서 아래 5봉만 추가로 출력 plot3(fcstVBE_up[5],"상0",RED); plot4(fcstVBE_up[4],"상-1",RED); //1봉 뒤로 이동 plot5(fcstVBE_up[3],"상-2",RED); //2봉 뒤로 이동 plot6(fcstVBE_up[2],"상-3",RED); //3봉 뒤로 이동 plot7(fcstVBE_up[1],"상-4",RED); //4봉 뒤로 이동 plot8(fcstVBE_dn[5],"하0",BLUE); plot9(fcstVBE_dn[4],"하-1",BLUE); //1봉 뒤로 이동 plot10(fcstVBE_dn[3],"하-2",BLUE); //2봉 뒤로 이동 plot11(fcstVBE_dn[2],"하-3",BLUE); //3봉 뒤로 이동 plot12(fcstVBE_dn[1],"하-4",BLUE); //4봉 뒤로 이동 } B식 input:N(9),multi(2),Period(63); Var:chng_rt(0),j(0),ma_val(0),std_val(0),dn_rng(0),up_rng(0),rawVBE_up(0),rawVBE_dn(0); Array:len[11](0),VBE_up[11](0),VBE_dn[11](0), up_chg[11](0),dn_chg[11](0),up_cor[11](0),dn_cor[11](0), fcstVBE_up[11](0),fcstVBE_dn[11](0); len[0] = 2; len[1] = 5; len[2] = 9; len[3] = 13; len[4] = 17; len[5] = 21; len[6] = 25; len[7] = 29; len[8] = 33; len[9] = 37; len[10] = 41; chng_rt = (C/C[1]-1); // 가격 변동률 ma_val = ma(chng_rt,len[N]); // 가격변동률의 평균 std_val = Std(chng_rt,len[N]); // 가격변동률의 표준편차 dn_rng = ma_val - (std_val * multi); up_rng = ma_val + (std_val * multi); rawVBE_up = C * (1 + up_rng); // 원시VBE rawVBE_dn = C * (1 + dn_rng); for j = 0 to N { VBE_up[j] = wma(rawVBE_up,len[j]); // 원시VBE를 가중이평으로 평활화 VBE_dn[j] = wma(rawVBE_dn,len[j]); if VBE_up[j][1] > 0 then up_chg[j] = (VBE_up[j]-VBE_up[j][1])/VBE_up[j][1]; // VBE의 변동률 if VBE_dn[j][1] > 0 then dn_chg[j] = (VBE_dn[j]-VBE_dn[j][1])/VBE_dn[j][1]; } fcstVBE_up[N] = VBE_up[N]; fcstVBE_dn[N] = VBE_dn[N]; for j = N - 1 downto 0 { up_cor[j] = Correlation(up_chg[N], up_chg[j],Period); // 21일 VBE변동률과 17,13,9,5,2 변동률간의 상관도 dn_cor[j] = Correlation(dn_chg[N], dn_chg[j],Period); fcstVBE_up[j] = fcstVBE_up[j+1] * (1+(up_chg[j]*up_cor[j])); // 이전값에 상관도와 변동률을 곱해서 계산 fcstVBE_dn[j] = fcstVBE_dn[j+1] * (1+(dn_chg[j]*dn_cor[j])); } Var:Size(4); plot1(fcstVBE_up[N],"상-N",RED,DEF,Size-1); // N봉 뒤로 이동 plot2(fcstVBE_dn[N],"하-N",RED,DEF,Size-1); // N봉 뒤로 이동 FixPlotShift(1,-N); FixPlotShift(2,-N); if LastBarOnChart then { // 마지막봉에서 아래 N봉만 추가로 출력 plot3(fcstVBE_up[0],"상0",RED,DEF,Size); if N > 1 then plot4(fcstVBE_up[1],"상-1",RED,DEF,Size); // 1봉 뒤로 이동 if N > 2 then plot5(fcstVBE_up[2],"상-2",RED,DEF,Size); // 2봉 뒤로 이동 if N > 3 then plot6(fcstVBE_up[3],"상-3",RED,DEF,Size); // 3봉 뒤로 이동 if N > 4 then plot7(fcstVBE_up[4],"상-4",RED,DEF,Size); // 4봉 뒤로 이동 if N > 5 then plot8(fcstVBE_up[5],"상-5",RED,DEF,Size); // 5봉 뒤로 이동 if N > 6 then plot9(fcstVBE_up[6],"상-6",RED,DEF,Size); // 6봉 뒤로 이동 if N > 7 then plot10(fcstVBE_up[7],"상-7",RED,DEF,Size); // 7봉 뒤로 이동 if N > 8 then plot11(fcstVBE_up[8],"상-8",RED,DEF,Size); // 8봉 뒤로 이동 plot12(fcstVBE_dn[0],"하0",BLUE,DEF,Size); if N > 1 then plot13(fcstVBE_dn[1],"하-1",BLUE,DEF,Size); // 1봉 뒤로 이동 if N > 2 then plot14(fcstVBE_dn[2],"하-2",BLUE,DEF,Size); // 2봉 뒤로 이동 if N > 3 then plot15(fcstVBE_dn[3],"하-3",BLUE,DEF,Size); // 3봉 뒤로 이동 if N > 4 then plot16(fcstVBE_dn[4],"하-4",BLUE,DEF,Size); // 4봉 뒤로 이동 if N > 5 then plot17(fcstVBE_dn[5],"하-5",BLUE,DEF,Size); // 5봉 뒤로 이동 if N > 6 then plot18(fcstVBE_dn[6],"하-6",BLUE,DEF,Size); // 6봉 뒤로 이동 if N > 7 then plot19(fcstVBE_dn[7],"하-7",BLUE,DEF,Size); // 7봉 뒤로 이동 if N > 8 then plot20(fcstVBE_dn[8],"하-8",BLUE,DEF,Size); // 8봉 뒤로 이동 FixPlotShift(4,-1); FixPlotShift(5,-2); FixPlotShift(6,-3); FixPlotShift(7,-4); FixPlotShift(8,-5); FixPlotShift(9,-6); FixPlotShift(10,-7); FixPlotShift(11,-8); FixPlotShift(13,-1); FixPlotShift(14,-2); FixPlotShift(15,-3); FixPlotShift(16,-4); FixPlotShift(17,-5); FixPlotShift(18,-6); FixPlotShift(19,-7); FixPlotShift(20,-8); } A식 과 B식 둘다 Envelope 나타내는 지표인데 B가 A를 Golden Cross 종목검색식 부탁합니다 Envelope 상단과 하단선 두가지 모두 Golden Cross 검색식 수식 부탁합니다