안녕하세요 예스스탁입니다. 1 주 input : Period(20),Dv(2); var : cnt(0),sum(0),mav(0),BBup(0),BBdn(0),SumSqrt(0),Counter(0),Stdv(0); Array : WeekC[100](0); #주간 시고저종가 계산 if dayofweek(bdate) < dayofweek(bdate[1]) Then { for cnt = 1 to 99 { WeekC[cnt] = WeekC[cnt-1][1]; } } WeekC[0] = C; If WeekC[Period] != 0 Then { sum = 0; for cnt = 0 to Period-1 { sum = sum+WeekC[cnt]; } mav = sum/Period; SumSqrt = 0; For cnt = 0 To Period - 1 { SumSqrt = SumSqrt + (WeekC[cnt] - mav) * (WeekC[cnt] - mav); } Stdv = SquareRoot(SumSqrt / Period); BBup = mav + (Dv * Stdv); BBdn = mav - (Dv * Stdv); plot1(BBup); plot2(mav ); plot3(BBdn); } 2 input : MPeriod(20),MDv(2); var : Mcnt(0),Msum(0),Mmav(0),MBBup(0),MBBdn(0),MSumSqrt(0),MCounter(0),MStdv(0); Array : MC[100](0); if bdate > bdate[1]+30 Then { for Mcnt = 1 to 99 { MC[Mcnt] = MC[Mcnt-1][1]; } } MC[0] = C; If MC[MPeriod] != 0 Then { Msum = 0; for Mcnt = 0 to MPeriod-1 { Msum = Msum+MC[Mcnt]; } Mmav = Msum/MPeriod; MSumSqrt = 0; For Mcnt = 0 To MPeriod - 1 { MSumSqrt = MSumSqrt + (MC[Mcnt] - Mmav) * (MC[Mcnt] - Mmav); } MStdv = SquareRoot(MSumSqrt / MPeriod); MBBup = Mmav + (MDv * MStdv); MBBdn = Mmav - (MDv * MStdv); plot1(MBBup); plot2(Mmav ); plot3(MBBdn); } 3 input : 타주기분(140),P(20),Dv(2); var : S1(0),D1(0),TM(0),TF(0); var : cnt(0),SumSqrt(0),Stdv(0); var : sum(0),BBmd(0),Bbup(0),BBdn(0); Array : CC[100](0); if Bdate != Bdate[1] Then{ S1 = TimeToMinutes(stime); D1 = sdate; } if D1 > 0 then{ if sdate == D1 Then TM = TimeToMinutes(stime)-S1; Else TM = TimeToMinutes(stime)+1440-S1; TF = TM%타주기분; if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then{ for cnt = 1 to 99{ CC[cnt] = CC[cnt-1][1]; } } CC[0] = C; if CC[P] > 0 then{ sum = 0; for cnt = 0 to P-1{ sum = sum + CC[cnt]; } BBmd = sum/P; SumSqrt = 0; For cnt = 0 To P - 1 { SumSqrt = SumSqrt + (CC[cnt] - BBmd)^2; } Stdv = SquareRoot(SumSqrt / P); BBup = BBmd + (Dv * Stdv); BBdn = BBmd - (Dv * Stdv); plot1(BBmd); plot2(BBup); plot3(BBdn); } } 즐거운 하루되세요 > 행복한가방 님이 쓴 글입니다. > 제목 : 행복; 지표식 작성 바랍니다 > 한국의 금융산업 발전을 위해 불철주야 애쓰시는 귀하의 노고를 높이 평가합니다 지표식 관련입니다 << 아래 >>의 지표식은 분봉 차트에서 일봉의 볼린져밴드를 그리는 지표식 입니다 ==============<< 아래 시작 >>============================================ # 분봉에서 일봉 볼린져밴드 계산 시작 input : dayPeriod(20),dayDv(2); var : daysum(0),daycnt(0),dayma(0),daySumSqrt(0),dayStdv(0); var : dayBBup(0),dayBBdn(0),dayCounter(0); # 일봉 이동평균 계산 daysum = 0; for daycnt = 0 to dayPeriod-1{ daysum = daysum + DayClose(daycnt); } dayma = daysum/dayPeriod; #표준편차 계산 If DayClose(dayPeriod) != 0 Then { daySumSqrt = 0; For dayCounter = 0 To dayPeriod - 1 { daySumSqrt = daySumSqrt + (DayClose(dayCounter) - dayma)^2; } dayStdv = SquareRoot(daySumSqrt / dayPeriod); } Else dayStdv = 0; # 일봉 볼린져밴드 계산 dayBBup = dayma + (dayDv * dayStdv); dayBBdn = dayma - (dayDv * dayStdv); plot1(dayBBup ,"상단"); plot2(dayma,"중단"); plot3(dayBBdn,"하단"); ==============<< 아래 끝 >>============================================== < 질문1 > - 분봉 차트에서 주봉의 볼린져밴드를 그리는 지표식 작성 바랍니다 < 질문2 > - 분봉 차트에서 월봉의 볼린져밴드를 그리는 지표식 작성 바랍니다 < 질문3 > - 10분봉 차트에서 140분봉의 볼린져밴드를 그리는 지표식 작성바랍니다 수고하십시요^^