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