"Resolucion del modelo Harrod-Domar para s=0.2;ν=2.5 y valores iniciales de la renta iguales a 0.1,0.4,0.7,1,1.3,1.6";

"Solución general";
sol=DSolve[y'[t]==(s/ν)*y[t],y[t],t];
sol[[1,1,2]]

"Valor de la tasa de crecimiento de Harrod-Domar es";
s=0.2;ν=2.5;
s/ν

"El valor de y(0) es:";
y0=sol[[1,1,2]]/.t->0

"El gráfico de la solución general para los valores seleccionados es";
trajectorias=sol[[1,1,2]]/.C[1]->{0.1,0.4,0.7,1,1.3,1.6};
Plot[Evaluate[trajectorias],{t,0,25},AxesOrigin->{0,0},PlotRange->{0,6},PlotStyle->Thick]