0
$\begingroup$
N1 = 1000;
mu = 0.001;

x1 = {0.`, 0.01`, 0.02`, 0.03`, 0.04`, 0.05`, 0.06`, 0.07`, 0.08`, 
 0.09`, 0.1`, 0.11`, 0.12`, 0.13`, 0.14`, 0.15`, 0.16`, 0.17`, 
0.18`, 0.19`, 0.2`, 0.21`, 0.22`, 0.23`, 0.24`, 0.25`, 0.26`, 
0.27`, 0.28`, 0.29`, 0.3`, 0.31`, 0.32`, 0.33`, 0.34`, 0.35`, 
0.36`, 0.37`, 0.38`, 0.39`, 0.4`, 0.41`, 0.42`, 0.43`, 0.44`, 
0.45`, 0.46`, 0.47`, 0.48`, 0.49`, 0.5`, 0.51`, 0.52`, 0.53`, 
0.54`, 0.55`, 0.56`, 0.57`, 0.58`, 0.59`, 0.6`, 0.61`, 0.62`, 
0.63`, 0.64`, 0.65`, 0.66`, 0.67`, 0.68`, 0.69`, 0.7`, 0.71`, 
0.72`, 0.73`, 0.74`, 0.75`, 0.76`, 0.77`, 0.78`, 0.79`, 0.8`, 
0.81`, 0.82`, 0.83`, 0.84`, 0.85`, 0.86`, 0.87`, 0.88`, 0.89`, 
0.9`, 0.91`, 0.92`, 0.93`, 0.94`, 0.95`, 0.96`, 0.97`, 0.98`, 
0.99`, 1.`};
x2 = {13281.987778`, 129.778889`, 45.622222`, 23.78`, 14.668889`, 
9.96`, 7.313333`, 5.496667`, 4.758889`, 3.775556`, 3.117778`, 2.6`,
2.27`, 2.058889`, 1.852222`, 1.585555`, 1.388889`, 1.225556`, 
1.222222`, 1.032222`, 1.012222`, 0.955555`, 0.854444`, 0.842222`, 
0.736667`, 0.712222`, 0.717778`, 0.604445`, 0.588889`, 0.566667`, 
0.546667`, 0.576667`, 0.525556`, 0.541111`, 0.453333`, 0.427778`, 
0.472222`, 0.396667`, 0.418889`, 0.433333`, 0.377778`, 0.38`, 
0.384444`, 0.415556`, 0.342222`, 0.343333`, 0.326667`, 0.354444`, 
0.353333`, 0.316667`, 0.292222`, 0.296667`, 0.313333`, 0.297778`, 
0.292222`, 0.271111`, 0.244444`, 0.221111`, 0.246667`, 0.23`, 
0.253333`, 0.241111`, 0.258889`, 0.253333`, 0.258889`, 0.177778`, 
0.246667`, 0.191111`, 0.228889`, 0.216667`, 0.227778`, 0.222222`, 
0.263333`, 0.217778`, 0.203333`, 0.218889`, 0.185556`, 0.242222`, 
0.204444`, 0.186667`, 0.2`, 0.181111`, 0.216667`, 0.233333`, 
0.247778`, 0.248889`, 0.277778`, 0.251111`, 0.225556`, 0.253333`, 
0.276667`, 0.28`, 0.325556`, 0.348889`, 0.326667`, 0.4`, 0.43`, 
0.622222`, 0.641111`, 0.823333`, 13737.397778`};

Data1 = Transpose@{x1, x2};

sd = 0.03;
N1 = 1000;
mu = 0.001;
ud = 0.08;
theta = 2 N1 mu;
a1 = ListLogLogPlot[{Data1}, PlotRange -> All, Frame -> True, 
FrameLabel -> {"x", "SFS"}, FrameStyle -> Thickness[.003], 
FrameTicks -> Automatic, 
LabelStyle -> Directive[Black, Bold, Medium], PlotStyle -> {Blue}];

I want to the enhance the range from 0.5 onwards in the same graph. I think logit function is one possibility. Could you suggest how that can be implemented here?

$\endgroup$
1
  • $\begingroup$ See logit ScalingFunctions for an implementation of logit scaling functions, but also for a potential bug in frame tick generation when using these. $\endgroup$
    – MarcoB
    Jun 20 at 12:24

0

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Browse other questions tagged or ask your own question.