Manipulate[Plot[{PDF[NormalDistribution[muL,t-sigmaL],x],prisl[{muL,t-sigmaL},{muR,t-sigmaR},{x,x}],PDF[NormalDistribution[muR,t-sigmaR],x]},{x,-12,40},PlotStyle->{Thickness[0.01],{RGBColor[0, 0, 1], RGBColor[0.996078, 0.00392157, 0.870588],RGBColor[1, 0, 0]}},PlotRange-> {{-12,30},{0,1}}],
{{muL,1,"(Subscript[μ, L]) (mean left)"},-4,14,Slider,ControlPlacement->Bottom},
{{sigmaL,1,"(Subscript[σ, R])"},0,t-σmin,VerticalSlider,ControlPlacement->Left},{{muR,18,"(Subscript[μ, R]) (mean right)"},0,34,Slider,ControlPlacement->Top},
{{sigmaR,2,"(Subscript[σ, R])"},0,t-σmin,VerticalSlider,ControlPlacement->Right},AutorunSequencing->Automatic, ControllerLinking->True,FrameLabel->{"","","Fuzzy representation of a region with imprecise boundary"},Initialization:>(prisl[{muL_,sigmaL_},{muR_,sigmaR_},{xL_,xR_}]:=(((1-Erf[((xR-muR)/((Sqrt[2]) sigmaR))]) (1+Erf[((xL-muL)/((Sqrt[2]) sigmaL))]))/(2 (1+Erf[((muR-muL)/((Sqrt[2]) (Sqrt[(sigmaL^2)+(sigmaR^2)]))) ])));t=4;σmin=0.1)]