L={1};L1={1};
f=.04;f1=.10;
x=1;y=1;
For[i=1,i≤5000,i++,{
r=RandomReal[];
If[r≥0.48,x=(1+f)x,x=(1-f)x];
If[r≥0.48,y=(1+f1)y,y=(1-f1)y];
L=Join[L,{x}];
L1=Join[L1,{y}];
}]
L;
G=ListPlot[{Log[L],Log[L1]},PlotStyle->{Red,Blue},PlotRange->All]