안녕하세요 예스스탁입니다. input : sm_1(21),sm_2(10),sm_3(20),sm_4(60),sm_5(120),sm_6(240); input : cd_1(0.4),cd_2(0.4),cd_3(0.4),cd_4(0.4),cd_5(0.4),cd_6(0.4); var : src(0); var : di_1(0),c1_1(0),c2_1(0),c3_1(0),c4_1(0),c5_1(0); var : i1_1(0),i2_1(0),i3_1(0),i4_1(0),i5_1(0),i6_1(0); var : bfr_1(0),bfrc_1(0); var : di_2(0),c1_2(0),c2_2(0),c3_2(0),c4_2(0),c5_2(0); var : i1_2(0),i2_2(0),i3_2(0),i4_2(0),i5_2(0),i6_2(0); var : bfr_2(0),bfrc_2(0); var : di_3(0),c1_3(0),c2_3(0),c3_3(0),c4_3(0),c5_3(0); var : i1_3(0),i2_3(0),i3_3(0),i4_3(0),i5_3(0),i6_3(0); var : bfr_3(0),bfrc_3(0); var : di_4(0),c1_4(0),c2_4(0),c3_4(0),c4_4(0),c5_4(0); var : i1_4(0),i2_4(0),i3_4(0),i4_4(0),i5_4(0),i6_4(0); var : bfr_4(0),bfrc_4(0); var : di_5(0),c1_5(0),c2_5(0),c3_5(0),c4_5(0),c5_5(0); var : i1_5(0),i2_5(0),i3_5(0),i4_5(0),i5_5(0),i6_5(0); var : bfr_5(0),bfrc_5(0); var : di_6(0),c1_6(0),c2_6(0),c3_6(0),c4_6(0),c5_6(0); var : i1_6(0),i2_6(0),i3_6(0),i4_6(0),i5_6(0),i6_6(0); var : bfr_6(0),bfrc_6(0); src = close; di_1 = (sm_1 - 1.0) / 2.0 + 1.0; c1_1 = 2 / (di_1 + 1.0); c2_1 = 1 - c1_1; c3_1 = 3.0 * (cd_1 * cd_1 + cd_1 * cd_1 * cd_1); c4_1 = -3.0 * (2.0 * cd_1 * cd_1 + cd_1 + cd_1 * cd_1 * cd_1); c5_1 = 3.0 * cd_1 + 1.0 + cd_1 * cd_1 * cd_1 + 3.0 * cd_1 * cd_1; di_2 = (sm_2 - 1.0) / 2.0 + 1.0; c1_2 = 2 / (di_2 + 1.0); c2_2 = 1 - c1_2; c3_2 = 3.0 * (cd_2 * cd_2 + cd_2 * cd_2 * cd_2); c4_2 = -3.0 * (2.0 * cd_2 * cd_2 + cd_2 + cd_2 * cd_2 * cd_2); c5_2 = 3.0 * cd_2 + 1.0 + cd_2 * cd_2 * cd_2 + 3.0 * cd_2 * cd_2; di_3 = (sm_3 - 1.0) / 2.0 + 1.0; c1_3 = 2 / (di_3 + 1.0); c2_3 = 1 - c1_3; c3_3 = 3.0 * (cd_3 * cd_3 + cd_3 * cd_3 * cd_3); c4_3 = -3.0 * (2.0 * cd_3 * cd_3 + cd_3 + cd_3 * cd_3 * cd_3); c5_3 = 3.0 * cd_3 + 1.0 + cd_3 * cd_3 * cd_3 + 3.0 * cd_3 * cd_3; di_4 = (sm_4 - 1.0) / 2.0 + 1.0; c1_4 = 2 / (di_4 + 1.0); c2_4 = 1 - c1_4; c3_4 = 3.0 * (cd_4 * cd_4 + cd_4 * cd_4 * cd_4); c4_4 = -3.0 * (2.0 * cd_4 * cd_4 + cd_4 + cd_4 * cd_4 * cd_4); c5_4 = 3.0 * cd_4 + 1.0 + cd_4 * cd_4 * cd_4 + 3.0 * cd_4 * cd_4; di_5 = (sm_5 - 1.0) / 2.0 + 1.0; c1_5 = 2 / (di_5 + 1.0); c2_5 = 1 - c1_5; c3_5 = 3.0 * (cd_5 * cd_5 + cd_5 * cd_5 * cd_5); c4_5 = -3.0 * (2.0 * cd_5 * cd_5 + cd_5 + cd_5 * cd_5 * cd_5); c5_5 = 3.0 * cd_5 + 1.0 + cd_5 * cd_5 * cd_5 + 3.0 * cd_5 * cd_5; di_6 = (sm_6 - 1.0) / 2.0 + 1.0; c1_6 = 2 / (di_6 + 1.0); c2_6 = 1 - c1_6; c3_6 = 3.0 * (cd_6 * cd_6 + cd_6 * cd_6 * cd_6); c4_6 = -3.0 * (2.0 * cd_6 * cd_6 + cd_6 + cd_6 * cd_6 * cd_6); c5_6 = 3.0 * cd_6 + 1.0 + cd_6 * cd_6 * cd_6 + 3.0 * cd_6 * cd_6; if CurrentBar >= 1 Then { i1_1 = c1_1*src + c2_1*i1_1[1]; i2_1 = c1_1*i1_1 + c2_1*i2_1[1]; i3_1 = c1_1*i2_1 + c2_1*i3_1[1]; i4_1 = c1_1*i3_1 + c2_1*i4_1[1]; i5_1 = c1_1*i4_1 + c2_1*i5_1[1]; i6_1 = c1_1*i5_1 + c2_1*i6_1[1]; bfr_1 = -cd_1*cd_1*cd_1*i6_1 + c3_1*(i5_1) + c4_1*(i4_1) + c5_1*(i3_1); bfrC_1 = iff(bfr_1 > bfr_1[1], green,iff(bfr_1 < bfr_1[1], red , blue)); plot1(bfr_1,"Trend",bfrC_1); i1_2 = c1_2*src + c2_2*i1_2[1]; i2_2 = c1_2*i1_2 + c2_2*i2_2[1]; i3_2 = c1_2*i2_2 + c2_2*i3_2[1]; i4_2 = c1_2*i3_2 + c2_2*i4_2[1]; i5_2 = c1_2*i4_2 + c2_2*i5_2[1]; i6_2 = c1_2*i5_2 + c2_2*i6_2[1]; bfr_2 = -cd_2*cd_2*cd_2*i6_2 + c3_2*(i5_2) + c4_2*(i4_2) + c5_2*(i3_2); bfrC_2 = iff(bfr_2 > bfr_2[1], green,iff(bfr_2 < bfr_2[1], red , blue)); plot2(bfr_2,"Trend2",bfrC_2); i1_3 = c1_3*src + c2_3*i1_3[1]; i2_3 = c1_3*i1_3 + c2_3*i2_3[1]; i3_3 = c1_3*i2_3 + c2_3*i3_3[1]; i4_3 = c1_3*i3_3 + c2_3*i4_3[1]; i5_3 = c1_3*i4_3 + c2_3*i5_3[1]; i6_3 = c1_3*i5_3 + c2_3*i6_3[1]; bfr_3 = -cd_3*cd_3*cd_3*i6_3 + c3_3*(i5_3) + c4_3*(i4_3) + c5_3*(i3_3); bfrC_3 = iff(bfr_3 > bfr_3[1], green,iff(bfr_3 < bfr_3[1], red , blue)); plot3(bfr_3,"Trend3",bfrC_3); i1_4 = c1_4*src + c2_4*i1_4[1]; i2_4 = c1_4*i1_4 + c2_4*i2_4[1]; i3_4 = c1_4*i2_4 + c2_4*i3_4[1]; i4_4 = c1_4*i3_4 + c2_4*i4_4[1]; i5_4 = c1_4*i4_4 + c2_4*i5_4[1]; i6_4 = c1_4*i5_4 + c2_4*i6_4[1]; bfr_4 = -cd_4*cd_4*cd_4*i6_4 + c3_4*(i5_4) + c4_4*(i4_4) + c5_4*(i3_4); bfrC_4 = iff(bfr_4 > bfr_4[1], green,iff(bfr_4 < bfr_4[1], red , blue)); plot4(bfr_4,"Trend4",bfrC_4); i1_5 = c1_5*src + c2_5*i1_5[1]; i2_5 = c1_5*i1_5 + c2_5*i2_5[1]; i3_5 = c1_5*i2_5 + c2_5*i3_5[1]; i4_5 = c1_5*i3_5 + c2_5*i4_5[1]; i5_5 = c1_5*i4_5 + c2_5*i5_5[1]; i6_5 = c1_5*i5_5 + c2_5*i6_5[1]; bfr_5 = -cd_5*cd_5*cd_5*i6_5 + c3_5*(i5_5) + c4_5*(i4_5) + c5_5*(i3_5); bfrC_5 = iff(bfr_5 > bfr_5[1], green,iff(bfr_5 < bfr_5[1], red , blue)); plot5(bfr_5,"Trend5",bfrC_5); i1_6 = c1_6*src + c2_6*i1_6[1]; i2_6 = c1_6*i1_6 + c2_6*i2_6[1]; i3_6 = c1_6*i2_6 + c2_6*i3_6[1]; i4_6 = c1_6*i3_6 + c2_6*i4_6[1]; i5_6 = c1_6*i4_6 + c2_6*i5_6[1]; i6_6 = c1_6*i5_6 + c2_6*i6_6[1]; bfr_6 = -cd_6*cd_6*cd_6*i6_6 + c3_6*(i5_6) + c4_6*(i4_6) + c5_6*(i3_6); bfrC_6 = iff(bfr_6 > bfr_6[1], green,iff(bfr_6 < bfr_6[1], red , blue)); plot6(bfr_6,"Trend6",bfrC_6); } 즐거운 하루되세요 > 매치다는 님이 쓴 글입니다. > 제목 : 부탁드립니다 > input :sm(21),cd(0.4); var : src(0),di(0),c1(0),c2(0),c3(0),c4(0),c5(0); var : i1(0),i2(0),i3(0),i4(0),i5(0),i6(0),bfr(0),bfrc(0),tc(0); src = close; di = (sm - 1.0) / 2.0 + 1.0; c1 = 2 / (di + 1.0); c2 = 1 - c1; c3 = 3.0 * (cd * cd + cd * cd * cd); c4 = -3.0 * (2.0 * cd * cd + cd + cd * cd * cd); c5 = 3.0 * cd + 1.0 + cd * cd * cd + 3.0 * cd * cd; if CurrentBar >= 1 Then { i1 = c1*src + c2*i1[1]; i2 = c1*i1 + c2*i2[1]; i3 = c1*i2 + c2*i3[1]; i4 = c1*i3 + c2*i4[1]; i5 = c1*i4 + c2*i5[1]; i6 = c1*i5 + c2*i6[1]; bfr = -cd*cd*cd*i6 + c3*(i5) + c4*(i4) + c5*(i3); bfrC = iff(bfr > bfr[1], green,iff(bfr < bfr[1], red , blue)); plot1(bfr,"Trend",bfrC); } 위 지표를 10일 20일 60일 120일 240 일선 추가해서 수정 부탁드립니다