안녕하세요 예스스탁입니다. Input : 기간1(120); value1 = Ceiling((기간1 + 1) * .5); value2 = ma(ma(C, value1),value1); input : 기간2(120); var : Hval(0),Lval(0),MID(0); Hval = highest(H,기간2); Lval = Lowest(L,기간2); MID = Lval + (Hval-Lval)/2; input : Period(120); var : Hval1(0),Lval1(0),UPV1(0),MID1(0),DOWNV1(0); Hval1 = highest(H,Period); Lval1 = Lowest(L,Period); UPV1 = Hval1 - (Hval1-Lval1)/3; MID1 = Lval1 + (Hval1-Lval1)/2.8; DOWNV1 = Lval1 + (Hval1-Lval1)/3; input : P4(9),P5(26); Var : 기준선(0), 전환선(0); 전환선 = (Highest(High, P4) + Lowest(Low, P4)) / 2; 기준선 = (Highest(High, P5) + Lowest(Low, P5)) / 2; Var4 = ma(전환선,P4); Var5 = ma(기준선,P5); plot2(Var4); plot3(Var5); input : 가중이평기간(7); value10 = wma(c,가중이평기간); Condition1 = value10 > max(value2,mid,Var5); Condition2 = value10 < min(value2,mid,Var5); if Condition1 == true and Condition1[1] == false Then value99 = Min(value2,mid,Var5); if Condition2 == true and Condition2[1] == false Then value99 = Max(value2,mid,Var5); plot1(value99); Input : Length1(20); Var : TLen1(0),Tma1(0); TLen1 = Ceiling((Length1 + 1) * .5); Tma1 = ma(ma(C, TLen1), TLen1); plot4(tma1,"삼각"); Inputs: AMDPeriod1(20); Vars: Noise1(0), Signal1(0), Diff1(0), efRatio1(0), Smooth1(1), Fastest1(0.6667), Slowest1(0.0645), AdaptMA1(0); Diff1 = AbsValue(Close - Close[1]); IF CurrentBar <= AMDPeriod1 Then AdaptMA1 = Close; IF CurrentBar > AMDPeriod1 Then Begin Signal1 = AbsValue(Close - Close[AMDPeriod1]); Noise1 = accumN(Diff1, AMDPeriod1); efRatio1 = Signal1 / Noise1; Smooth1 = Power(efRatio1 * (Fastest1 - Slowest1) + Slowest1, 2); AdaptMA1 = AdaptMA1[1] + Smooth1 * (Close - AdaptMA1[1]); End; plot5(AdaptMA1,"적합1"); Inputs: AMDPeriod2(40); Vars: Noise2(0), Signal2(0), Diff2(0), efRatio2(0), Smooth2(1), Fastest2(0.6667), Slowest2(0.0645), AdaptMA2(0); Diff2 = AbsValue(Close - Close[1]); IF CurrentBar <= AMDPeriod2 Then AdaptMA2 = Close; IF CurrentBar > AMDPeriod2 Then Begin Signal2 = AbsValue(Close - Close[AMDPeriod2]); Noise2 = accumN(Diff2, AMDPeriod2); efRatio2 = Signal2 / Noise2; Smooth2 = Power(efRatio2 * (Fastest2 - Slowest2) + Slowest2, 2); AdaptMA2 = AdaptMA2[1] + Smooth2 * (Close - AdaptMA2[1]); End; plot9(AdaptMA2,"적합2"); input : tironePeriod(50); var : Hh(0),Ll(0),mm(0); hh = highest(H,tironePeriod); ll = Lowest(L,tironePeriod); mm = ll + (hh-ll)/2; plot6(mm,"티론중간"); var : maxv(0),minv(0); maxv = max(value99,tma1,adaptma1,mm,adaptma2); minv = min(value99,tma1,adaptma1,mm,adaptma2); plot7(maxv,"최고"); plot8(minv,"최저"); 즐거운 하루되세요 > 해암 님이 쓴 글입니다. > 제목 : 문의드립니다. > 지난번에 다음과 같이 답을 주셨습니다. 문의드릴 내용은 아래의 수식에 적합이동평균 40선을 추가하여 5개선 안쪽을 색채우기 하고자 하는 것입니다. 추가되는 적합이평의 기간값도 수정가능하게 부탁드립니다. 항상 감사드립니다. 수고하세요!!! ================================ 속서에서 plot7(최고) > plot8(최저)로 조건지정하고 색지정하시면 됩니다. Input : 기간1(120); value1 = Ceiling((기간1 + 1) * .5); value2 = ma(ma(C, value1),value1); input : 기간2(120); var : Hval(0),Lval(0),MID(0); Hval = highest(H,기간2); Lval = Lowest(L,기간2); MID = Lval + (Hval-Lval)/2; input : Period(120); var : Hval1(0),Lval1(0),UPV1(0),MID1(0),DOWNV1(0); Hval1 = highest(H,Period); Lval1 = Lowest(L,Period); UPV1 = Hval1 - (Hval1-Lval1)/3; MID1 = Lval1 + (Hval1-Lval1)/2.8; DOWNV1 = Lval1 + (Hval1-Lval1)/3; input : P4(9),P5(26); Var : 기준선(0), 전환선(0); 전환선 = (Highest(High, P4) + Lowest(Low, P4)) / 2; 기준선 = (Highest(High, P5) + Lowest(Low, P5)) / 2; Var4 = ma(전환선,P4); Var5 = ma(기준선,P5); plot2(Var4); plot3(Var5); input : 가중이평기간(7); value10 = wma(c,가중이평기간); Condition1 = value10 > max(value2,mid,Var5); Condition2 = value10 < min(value2,mid,Var5); if Condition1 == true and Condition1[1] == false Then value99 = Min(value2,mid,Var5); if Condition2 == true and Condition2[1] == false Then value99 = Max(value2,mid,Var5); plot1(value99); Input : Length1(20); Var : TLen1(0),Tma1(0); TLen1 = Ceiling((Length1 + 1) * .5); Tma1 = ma(ma(C, TLen1), TLen1); plot4(tma1,"삼각"); Inputs: AMDPeriod(20); Vars: Noise(0), Signal(0), Diff(0), efRatio(0), Smooth(1), Fastest(0.6667), Slowest(0.0645), AdaptMA(0); Diff = AbsValue(Close - Close[1]); IF CurrentBar <= AMDPeriod Then AdaptMA = Close; IF CurrentBar > AMDPeriod Then Begin Signal = AbsValue(Close - Close[AMDPeriod]); Noise = accumN(Diff, AMDPeriod); efRatio = Signal / Noise; Smooth = Power(efRatio * (Fastest - Slowest) + Slowest, 2); AdaptMA = AdaptMA[1] + Smooth * (Close - AdaptMA[1]); End; plot5(AdaptMA,"적합"); input : tironePeriod(50); var : Hh(0),Ll(0),mm(0); hh = highest(H,tironePeriod); ll = Lowest(L,tironePeriod); mm = ll + (hh-ll)/2; plot6(mm,"티론중간"); var : maxv(0),minv(0); maxv = max(value99,tma1,adaptma,mm); minv = min(value99,tma1,adaptma,mm); plot7(maxv,"최고"); plot8(minv,"최저");