hi.i cant write english very well. excuse me

i solve the Eigenvectors of two matrix. first i want to delete complex numbers in solve. and then sort the little vector in first matrix of vector. as this picture

1.mw

code

k__1 := (12*2)*10^6/3^3; k__2 := k__1; k__3 := (3*1.5)*10^6/3^3; k__4 := (12*1.5)*10^6/3^3; k__5 := 12*10^6/3^3; m__1 := 8000; m__2 := 7000; m__3 := 6000; m__4 := 5000; m__5 := 10000; K := Matrix(5, 5, [[k__1+k__2, -k__2, 0, 0, 0], [-k__2, k__2+k__3, -k__3, 0, 0], [0, -k__3, k__3+k__4, -k__4, 0], [0, 0, -k__4, k__4+k__5, -k__5], [0, 0, 0, -k__5, k__5]]); M := Matrix(5, 5, [[m__1, 0, 0, 0, 0], [0, m__2, 0, 0, 0], [0, 0, m__3, 0, 0], [0, 0, 0, m__4, 0], [0, 0, 0, 0, m__5]])

how can i solve Like this example in maple. approximate solution differential equation with Rayleigh–Ritz method

how can i draw the plot of solution of Runge–Kutta methods

@rkt4.mw

in my solution is 0.0000 . how can show it 0 and how can i show the solutions for example 10^-30 to zero(round to zero)

1.mw

i solve a dynamic problem but i get wrong answer. F (load) after 0.02 then to zero but d (displaciment) not go to zero 

1.mw  

New_Microsoft_Excel_Worksheet1.xlsx