Manipulate[
With[{
g1=Plot[(((ρ^B)(1-ρ))/(1-(ρ^(B+1)))),{ρ,0,2},PlotStyle->Black],
g2=ParametricPlot[{((Sqrt[2])/(wnd (Sqrt[p]))),p},{p,.001,.5},PlotStyle->Blue]},
Show[{g1,g2,Graphics[{GrayLevel[.4],Line[{{1,0},{1,1}}]}]},AxesLabel->{"ρ","p"}]],
{{B,10},1,100,Appearance->Labeled},
{{wnd,10},1,100,Appearance->Labeled}
]

Manipulate[
With[{g1=Plot[Log[(((ρ^B)(1-ρ))/(1-(ρ^(B+1))))],{ρ,0,2},PlotStyle->Black],
g2=ParametricPlot[{((Sqrt[2])/(wnd (Sqrt[p]))),Log[p]},{p,.00001,.5},PlotStyle->Blue]},
Show[{g1,g2,Graphics[{GrayLevel[.4],Line[{{1,0},{1,-1000}}]}]},AxesLabel->{"ρ","Log[p]"}]],
{{B,10},1,100,Appearance->Labeled},
{{wnd,10},1,100,Appearance->Labeled}
]