(*This code plots the amplitude of voltage and current along a transmission line terminated by an arbitrary impedance*)
V=(E^(-I 2π z))(1+Γ)//.{Γ-> ΓL (E^(2I 2π z)), ΓL->((ZL-Z0)/(ZL+Z0)) , Z0-> 50, ZL-> RL+I XL};
ZI=(E^(-I 2π z))(1-Γ)//.{Γ-> ΓL (E^(2I 2π z)), ΓL->((ZL-Z0)/(ZL+Z0)) , Z0-> 50, ZL-> RL+I XL};
Manipulate[Plot[{ComplexExpand[Abs[V//.{RL-> rl, XL-> xl}]],ComplexExpand[Abs[ZI//.{RL-> rl, XL-> xl}]]},{z,-1,0},PlotRange->{{-1,0},{0,2}},PlotLegends->{"Abs(V)","Abs(I)"},PlotLabel->"(Subscript[Z, L])=rl+Ixl, (Subscript[Z, 0])=50Ω ",AxesLabel->{z/λ}],{{rl,0},0,200},{{xl,0},-100,100}]

(*This code plots the amplitude of voltage and the real voltage signal along a transmission line terminated by an arbitrary impedance*)

Manipulate[Plot[{ComplexExpand[Abs[V//.{RL-> rl, XL-> xl}]],ComplexExpand[Re[(E^(I ωt)) V//.{RL-> rl, XL-> xl}]] },{z,-2,0},PlotRange->{{-2,0},{-2,2}},PlotLegends->{"Abs(V)","V(t)"},PlotLabel->"(Subscript[Z, L])=rl+Ixl, (Subscript[Z, 0])=50Ω ",AxesLabel->{z/λ}],{{rl,50},0,200},{{xl,0},-100,100},{{ωt,0},0,2 Pi}]