1import graph;
2size(8cm,6cm,IgnoreAspect);
3
4pair S0=(4,0.2);
5pair S1=(2,3);
6pair S8=(0.5,0);
7
8xaxis("$S$");
9yaxis(Label("$I$",0.5));
10
11draw(S0{curl 0}..tension 1.5..S1{W}..tension 1.5..{curl 0}S8,Arrow(Fill,0.4));
12draw((S1.x,0)..S1,dashed);
13draw((0,S1.y)..S1,dotted);
14
15labelx("$\frac{\gamma}{\beta}$",S1.x);
16labelx("$S_\infty$",S8.x);
17labely("$I_{\max}$",S1.y);
18
19