//@version=6
indicator("Visualisation tendances", shorttitle="Visu_Tendances", overlay=true)

montrer_moyenne_decalee = input.bool (defval=false,title ="Montrer la visualisation de la tendance",group= "Suivi de la tendance")
montrer_Bollinger = input.bool(defval=false,title="Montrer les bandes_Bollinger",group= "Suivi de la volatilité")
montrer_faisceaux =  input.bool (defval=false,title ="Montrer les faisceaux",group= "Suivi de la tendance")
montrer_moyennes =  input.bool (defval=false,title ="Montrer les moyennes exponentielles",group= "Suivi de la tendance")
montrer_ema200 =  input.bool (defval=false,title ="Montrer moyenne EMA 200",group= "Suivi de la tendance")

Prix = input(close)

Periode_Mdecalee = input.int(14,minval =1,title="Moyenne expo Base",group= "visualisation tendance")
offset = input.int(title="décalage", defval=3,minval=0,maxval=50,display = display.data_window,group= "visualisation tendance")
color_above = input.color(color.new(color.green, 30), title="Tendance haussière",group= "visualisation tendance")
color_below = input.color(color.new(color.red, 30), title="Tendance baissière",group= "visualisation tendance")
Sortie_4 = ta.ema(Prix,Periode_Mdecalee)
Prix_2 = ta.sma(close,3)

//Déclaration moyennes faisceaux

Periode_ATR = input(0.3, title = 'largeur faisceau',group= "paramètre faisceau")

Periode_Moyenne_courte = input(20, title = 'Faisceau court',group= "paramètre faisceau")
Sortie_courte = ta.ema(close, Periode_Moyenne_courte)

Periode_Moyenne_moyenne = input(50, title = 'Faisceau moyen',group= "paramètre faisceau")
Sortie_moyenne = ta.ema(close, Periode_Moyenne_moyenne)

Periode_Moyenne_longue = input(200, title = 'Faisceau long',group= "paramètre faisceau")
Sortie_longue = ta.ema(close, Periode_Moyenne_longue)

Faisceau_CT = Sortie_courte + Periode_ATR * ta.atr(40)
Faisceau_CT_2 = Sortie_courte - Periode_ATR * ta.atr(40)

Faisceau_MT = Sortie_moyenne + Periode_ATR * ta.atr(40)
Faisceau_MT_2 = Sortie_moyenne - Periode_ATR * ta.atr(40)

Faisceau_LT = Sortie_longue + Periode_ATR * ta.atr(40)
Faisceau_LT_2 = Sortie_longue - Periode_ATR * ta.atr(40)

//Déclaration moyennes mobiles ema

Periode_Mm_courte = input(20, title = 'Moyenne courte',group= "paramètre ema")
Sortie_Mcourte = ta.ema(close, Periode_Moyenne_courte)

Periode_Mm_moyenne = input(50, title = 'Moyenne moyen',group= "paramètre ema")
Sortie_Moyenne_moyenne = ta.ema(close, Periode_Moyenne_moyenne)

Periode_Mm_longue = input(200, title = 'Moyenne longue',group= "paramètre ema")
Sortie_Mlongue = ta.ema(close, Periode_Moyenne_longue)
//Déclaration Bandes de Bollinger

periode = input.int(20, minval=1,group = "Bandes Bollinger")
mult = input.float(2.0, minval=0.001, maxval=50, title="Ecart type",group = "Bandes Bollinger")
basis = ta.sma(close,periode)
dev = mult * ta.stdev(close, periode)

Boll_sup= basis + dev
Boll_inf = basis - dev

Plot4 = plot(Sortie_4,'Moyenne_décalee',montrer_moyenne_decalee?color.rgb(19, 44, 184):na, linewidth = 2, offset = offset )
Plot5 = plot(Prix_2,'lissage_prix',montrer_moyenne_decalee?color.blue:na)

fill(Plot4,Plot5,montrer_moyenne_decalee? (Sortie_4 > Prix_2 ? color_below : color_above):na)


//Affichage Bollinger

plot13 = plot(Boll_sup, "Bollinger_supérieur", montrer_Bollinger?#2708ad:na,linewidth = 1,display=display.all-display.status_line)
plot14 = plot(Boll_inf, "Bollinger_inférieur", montrer_Bollinger?#2708ad:na,linewidth = 1,display=display.all-display.status_line )
fill(plot13, plot14,montrer_Bollinger? color.rgb(33, 149, 243, 91):na, title = "Background")

//Affichage faiceaux

Plot10=plot(Faisceau_CT,'Faisceau_CT',montrer_faisceaux?color.green:na, linewidth = 1,display=display.all-display.status_line )
Plot6=plot(Faisceau_CT_2,'Faisceau_CT',montrer_faisceaux?color.green:na, linewidth = 1,display=display.all-display.status_line)
Plot7=plot(Faisceau_MT,'Faisceau_MT',montrer_faisceaux?color.orange:na, linewidth = 1,display=display.all-display.status_line)
Plot12=plot(Faisceau_MT_2,'Faisceau_MT_2',montrer_faisceaux?color.orange:na, linewidth = 1,display=display.all-display.status_line)
Plot13=plot(Faisceau_LT,'Faisceau_LT',montrer_faisceaux?color.red:na, linewidth = 1,display=display.all-display.status_line)
Plot14=plot(Faisceau_LT_2,'Faisceau_LT',montrer_faisceaux?color.red:na, linewidth = 1,display=display.all-display.status_line)

fill(Plot13, Plot14,montrer_faisceaux? color.new(#ff1100,80):na,title="Faisceau lent")
fill(Plot10, Plot6, montrer_faisceaux? color.new(#0cb51a,80):na,title="Faisceau rapide")
fill(Plot12, Plot7, montrer_faisceaux?color.new(#e58907,80):na,title="Faisceau moyen")

//Affichage moyennes ema

//Plot15=plot(Sortie_Mcourte,'Sortie_Mcourte',montrer_moyennes?color.blue:na, linewidth = 2,display=display.all-display.status_line )
Plot16=plot(Sortie_Moyenne_moyenne,'Sortie_Moyenne_moyenne',montrer_moyennes?color.purple:na, linewidth = 2,display=display.all-display.status_line )
Plot17=plot(Sortie_Mlongue,'Sortie_Mlongue',montrer_moyennes?color.orange:na, linewidth = 2,display=display.all-display.status_line )
Plot18=plot(Sortie_Mlongue,'Sortie_Mlongue',montrer_ema200?color.orange:na, linewidth = 2,display=display.all-display.status_line )