Question: Logarithmic function plot problem

P__eff := (4.881726014*10^(-13)*(x__1^2 + 0.3)*R/((1 - x__1)*(3*x__1^2 + 0.6)*(7.654218526*10^(-21)*R^2*(x__1^2 + 0.3)/((1 - x__1)*(3*x__1^2 + 0.6)) + 1)))*1000;
expr := eval(P__eff(R));
plot([seq(expr, x__1 = [0.3, 0.5, 0.7])], R = 10000000 .. 10000000000000, legend = [seq('x__1' = x__1, x__1 = [0.3, 0.5, 0.7])], color = ["blue", "red", "gold"], thickness = 3, axes = "boxed", gridlines = true, labels = [R, P__eff], axis[1] = [mode = log]);

Obviously, there is a problem with the logarithmic function curve in the interval of 10^7 to10^10. Can anyone tell me how to solve it?thank you very much!

Please Wait...