Clear["Global`*"]​​w=100000;​​L=3240000;​​V=0.0625;​​t=2;​​p=0.75;​​f[θ_]:=w
2
Log[θ]
Log[2]
+
2
Log[θ]
Log[2]
LVt
2-p
;​​Plot[f[θ],{θ,0,10}]