안녕하세요 예스스탁입니다. Input : 적용(2); var: length(0), smooth_len(0), sensitivity(0.0); If 적용 == 1 Then { if close <= 5000 then begin length = 7; smooth_len = 10; sensitivity = 2.5; end else if close <= 20000 then begin length = 10; smooth_len = 14; sensitivity = 2.0; end else if close <= 100000 then begin length = 12; smooth_len = 18; sensitivity = 1.8; end else begin length = 15; smooth_len = 22; sensitivity = 1.5; end; } If 적용 == 2 Then { length = 7; smooth_len = 10; sensitivity = 2.3; } If 적용 == 3 Then { length = 6; smooth_len = 12; sensitivity = 2.2; } Var : bullcolor(Magenta), bearcolor(Cyan), showbars(true), showbg(true), showsignals(true); var : typical(0), fast_ema(0), slow_ema(0), basis(0); var : vol(0), smooth_vol(0), upper(0), lower(0),box(0); typical = (h + l + c) / 3; fast_ema = ema(typical, length); slow_ema = ema(typical, length * 2); basis = (fast_ema + slow_ema) / 2; vol = std(typical, length); smooth_vol = ema(vol, smooth_len); upper = basis + (smooth_vol * sensitivity); lower = basis - (smooth_vol * sensitivity); var : Level(Nan), trend(0); if IsNaN(level) == true Then { trend = iff(close > basis, 1, -1); level = iff(trend == 1, lower, upper); } if trend == 1 Then { if close < lower Then { trend = -1; level = upper; } else { level = lower; } } else { if close > upper Then { trend = 1; level = lower; } else { level = upper; } } var : long_signal(False), short_signal(False), tx(0); long_signal = trend == 1 and trend[1] == -1; short_signal = trend == -1 and trend[1] == 1; if Trend == 1 Then { if trend[1] != trend Then { box = Box_New(sDate,sTime,H,NextBarSdate,NextBarStime,L); Box_SetColor(box,bullcolor); Box_SetFill(box,true); Box_SetExtFill(box,true); } Else Box_SetEnd(box,NextBarSdate,NextBarStime,L); } if Trend == -1 Then { if trend[1] != trend Then { box = Box_New(sDate,sTime,H,NextBarSdate,NextBarStime,L); Box_SetColor(box,bearcolor); Box_SetFill(box,true); Box_SetExtFill(box,true); } Else Box_SetEnd(box,NextBarSdate,NextBarStime,L); } plot1(basis, "basis", iff(trend == 1, bullcolor, bearcolor)); plot2(level, "level1", iff(close > level, bullcolor, bearcolor)); 즐거운 하루되세요 > 어떤하루 님이 쓴 글입니다. > 제목 : 부탁드립니다. > 아래 수식에서 생기는 채널선을 강세약세로 생기도록 부탁드립니다. Input : 적용(2); var: length(0), smooth_len(0), sensitivity(0.0); If 적용 == 1 Then { if close <= 5000 then begin length = 7; smooth_len = 10; sensitivity = 2.5; end else if close <= 20000 then begin length = 10; smooth_len = 14; sensitivity = 2.0; end else if close <= 100000 then begin length = 12; smooth_len = 18; sensitivity = 1.8; end else begin length = 15; smooth_len = 22; sensitivity = 1.5; end; } If 적용 == 2 Then { length = 7; smooth_len = 10; sensitivity = 2.3; } If 적용 == 3 Then { length = 6; smooth_len = 12; sensitivity = 2.2; } Var : bullcolor(Magenta), bearcolor(Cyan), showbars(true), showbg(true), showsignals(true); var : typical(0), fast_ema(0), slow_ema(0), basis(0); var : vol(0), smooth_vol(0), upper(0), lower(0); typical = (h + l + c) / 3; fast_ema = ema(typical, length); slow_ema = ema(typical, length * 2); basis = (fast_ema + slow_ema) / 2; vol = std(typical, length); smooth_vol = ema(vol, smooth_len); upper = basis + (smooth_vol * sensitivity); lower = basis - (smooth_vol * sensitivity); var : Level(Nan), trend(0); if IsNaN(level) == true Then { trend = iff(close > basis, 1, -1); level = iff(trend == 1, lower, upper); } if trend == 1 Then { if close < lower Then { trend = -1; level = upper; } else { level = lower; } } else { if close > upper Then { trend = 1; level = lower; } else { level = upper; } } var : long_signal(False), short_signal(False), tx(0); long_signal = trend == 1 and trend[1] == -1; short_signal = trend == -1 and trend[1] == 1; plot1(basis, "basis", iff(trend == 1, bullcolor, bearcolor)); plot2(level, "level1", iff(close > level, bullcolor, bearcolor));