function dydt = elemi( t,y,A )

dydt = A*y;
end

