"Resolución para a=3;b=-1;c=1;d=2;alfa=1.2; y para diferentes valores iniciales del precio";

"La solución general es";
sol=DSolve[p'[t]==alfa*(a-c)+alfa*(b-d)*p[t],p[t],t];
sol[[1,1,2]]

"Calculemos la solución para los valores a=3;b=-1;c=1;d=2;alfa=1.2";
a=3;b=-1;c=1;d=2;alfa=1.2;
sol[[1,1,2]]

"El valor de la solución para t=0 es =";
p0=sol[[1,1,2]]/.t->0

"La representación de las trayectorias para precios iniciales iguales a 1,3,5,7";
trajectories=sol[[1,1,2]]/.C[1]->{1-(2/3),3-(2/3),5-(2/3),7-(2/3)};
Plot[Evaluate[trajectories],{t,0,2},AxesOrigin->{0,0},PlotRange->{0,6},PlotStyle->Thick]