> 이지화 님이 쓴 글입니다. > 제목 : 검토부탁드립니다. > input : Periodc(80), Nth1(1),Nth2(2), Nth3(3),Periodv(5), LeftStrength(5), RightStrength(5), 합계기간c1(5), 합계기간c2(5); Var : Formula0(0), Formula1(0), Formula2(0), Formula3(0), Formula4(0), Formula5(0), Formula6(0), Formula7(0), Formula8(0), Formula9(0), Formula11(0), Formula12(0), Formula13(0), Formula14(0), Formula15(0), Formula16(0), Formula17(0), Formula18(0), Formula19(0),v1(0),v2(0),v3(0),v4(0),v5(0),v6(0),v7(0),v8(0) ,value1(0), value2(0), Formulac0(0), Formulac1(0), Formulac2(0), Formulac3(0), Formulac4(0), Formulac5(0), Formulac6(0), Formulac7(0), Formulac8(0), Formulac9(0), Formulac11(0), Formulac12(0), Formulac13(0), Formulac14(0), Formulac15(0), Formulac16(0), Formulac17(0), Formulac18(0), Formulac19(0),vc1(0),vc2(0),vc3(0),vc4(0),vc5(0),vc6(0),vc7(0),vc8(0),vc9(0),vc10(0),TempMax(0),nIndex1(0),nIndex2(0),MaxIndex(0), condition(0); Var : tempi(0), tempindex(0), tempi2(0),NTHindex(0); Array : VALUE[3](0), DebugVALUE[3](0), NTHVALUE[3](0); Formulac1= ma(c,14); vc1 = SwingHighBar(Nth1, cci(14), LeftStrength, RightStrength, Periodc); vc2 = SwingHighBar(Nth2, cci(14), LeftStrength, RightStrength, Periodc); vc3 = SwingHighBar(Nth3, cci(14), LeftStrength, RightStrength, Periodc); {VALUE[0] = Formulac1[vc1]; VALUE[1] = Formulac1[vc2]; VALUE[2] = Formulac1[vc3]; DebugVALUE[0] = Formulac1[vc1]; DebugVALUE[1] = Formulac1[vc2]; DebugVALUE[2] = Formulac1[vc3];} For tempi2 = 0 to 2 { tempmax = -99999999; For tempi = 0 to 2 { if ( tempmax < VALUE[tempi] ) then { tempmax = VALUE[tempi]; tempIndex = tempi; } } NTHVALUE[tempi2] = tempmax; VALUE[tempIndex] = -99999999; } if C >= NTHVALUE[1] then { If C == C[1] Then value1 = 0.001; Else value1 = (C-C[1])/C[1]*100; } Else value1 = 0; Find(value1);