index.html

eq1 = D[y[t], t] == y[t] * (1 - y[t]) ;

eq2 = D[y[t], t] == 10 * y[t] * (1 - y[t]) ;

cond = y[0] == 1/2 ;

sol1 = DSolve[{eq1, cond}, y[t], t] ;

sol2 = DSolve[{eq2, cond}, y[t], t] ;

y1[t_] = sol1[[1, 1, 2]]

Plot[y1[t], {t, -6, 6}] ;

y2[t_] = sol2[[1, 1, 2]]

Plot[y2[t], {t, -6, 6}] ;

Solve :: ifun : 逆関数がSolveで使われているため，求められない解がある可能性があります．解の詳細情報にはReduceをお使いください．  詳細

Solve :: ifun : 逆関数がSolveで使われているため，求められない解がある可能性があります．解の詳細情報にはReduceをお使いください．  詳細

E^t/(1 + E^t)

[Graphics:HTMLFiles/index_13.gif]

E^(10 t)/(1 + E^(10 t))

[Graphics:HTMLFiles/index_15.gif]