Esta es la respuesta más exacta que encomtrarás dar, pero estúdiala detenidamente y analiza si se puede adaptar a tu proyecto.
Solución:
Usando pgfplots:
documentclassarticle
usepackage[svgnames]xcolor
usepackagepgfplots
begindocument
defb1
begintikzpicture
beginaxis[%
domain=0:4,
samples=200,
xmin=0,
xmax=4,
extra x ticks=1,
extra x tick labels=,
extra tick style=grid=major,
xlabel=$b_1/b_2$,
ymin=0,
ymax=1,
ytick=0,0.5,1,
extra y ticks=0.5,
extra y tick labels=,
extra tick style=grid=major,
ylabel=$x_1(b_1/b_2)$,
]
foreach a/clr in 0.25/DarkOliveGreen,
0.5/NavyBlue,
1/FireBrick,
2/DarkGoldenrod,
4/MediumSeaGreen%
expandafteraddplotexpandafter[clr,
line width=1pt,
mark=none,
] a*((x/b)^a)/(a*((x/b)^a) + a*b^a);
endaxis
endtikzpicture
enddocument
Oh, demasiado tarde 😛
quieres tikZ, ¿verdad? (Me refiero a no pgfplots.) Así que aquí vamos.
documentclass[tikz,border=5pt]standalone
begindocument
begintikzpicture[scale=2]
foreach a/Col in 0.25/blue,0.5/red,1/orange,2/purple,4/black
draw[Col] plot[domain=0:4,variable=x,samples=90] (x,4*(a*x^a)/(a + a*x^a));
draw (0,0) rectangle (4,4);
draw [dotted] (1,0) node[below]$1$ -- (1,4);
draw [dotted] (0,2) node[left](p5)$0.5$ -- (4,2);
node [left of=p5,rotate=90]$x_1(b_1/b_2)$;
endtikzpicture
enddocument
Solo por diversión: pgfplots. Phelype fue más rápido con eso.
documentclass[tikz,border=2mm]standalone
usepackagepgfplots
pgfplotssetcompat=1.15
begindocument
tikzsetdeclare function=f(x,y)=(y*x^y)/(y + y*x^y);
begintikzpicture
beginaxis[domain=0:4,ytick=0,0.5,1,xtick=0,1,2,3,4,
xmin=0,ymin=0,xmax=4,ymax=1,mark=none,samples=100]
foreach a in 0.25,0.5,1,2,4
addplot[very thick] f(x,a);
draw[dotted] (1,0) -- (1,1);
draw[dotted] (0,0.5) -- (4,0.5);
endaxis
endtikzpicture
enddocument
Si conservas algún problema o disposición de renovar nuestro reseña te invitamos dejar un informe y con gusto lo observaremos.
¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)