Return to Answer

Formatting issue

Source Link

edited May 27, 2017 at 12:30

This differential equation is quite simple. So you can solve it analytically.

y[x_, \[Alpha]_]α_] = 
     FullSimplify[
         y[x]FullSimplify[y[x] /. First@
      DSolve[{\[Alpha]*y'''[x]α*y'''[x] + 8 y''[x] + 17 y'[x] + 10 y[x] == 0, 
        y[0] == 6*\[Alpha]6*α, y'[0] == -20, y''[0] == 84}, y, x], 
            0 >= x <= 1 && 1 <= \[Alpha]α <= 2]

The is result not shown here.

And plot the DensityPlot

DensityPlot[y[x, \[Alpha]]α], {x, 0, 1}, {\[Alpha]α, 1, 2}]

This differential equation is quite simple. So you can solve it analytically.

y[x_, \[Alpha]_] = 
     FullSimplify[
         y[x] /. First@
      DSolve[{\[Alpha]*y'''[x] + 8 y''[x] + 17 y'[x] + 10 y[x] == 0, 
        y[0] == 6*\[Alpha], y'[0] == -20, y''[0] == 84}, y, x], 
            0 >= x <= 1 && 1 <= \[Alpha] <= 2]

The is result not shown here.

And plot the DensityPlot

DensityPlot[y[x, \[Alpha]], {x, 0, 1}, {\[Alpha], 1, 2}]

This differential equation is quite simple. So you can solve it analytically.

y[x_, α_] = FullSimplify[y[x] /. First@
DSolve[{α*y'''[x] + 8 y''[x] + 17 y'[x] + 10 y[x] == 0, 
        y[0] == 6*α, y'[0] == -20, y''[0] == 84}, y, x], 0 >= x <= 1 && 1 <= α <= 2]

The is result not shown here.

And plot the DensityPlot

DensityPlot[y[x, α], {x, 0, 1}, {α, 1, 2}]

Source Link

created May 27, 2017 at 11:17

Akku14

17.4k
15
32

This differential equation is quite simple. So you can solve it analytically.

y[x_, \[Alpha]_] = 
     FullSimplify[
         y[x] /. First@
      DSolve[{\[Alpha]*y'''[x] + 8 y''[x] + 17 y'[x] + 10 y[x] == 0, 
        y[0] == 6*\[Alpha], y'[0] == -20, y''[0] == 84}, y, x], 
            0 >= x <= 1 && 1 <= \[Alpha] <= 2]

The is result not shown here.

And plot the DensityPlot

DensityPlot[y[x, \[Alpha]], {x, 0, 1}, {\[Alpha], 1, 2}]