Times[{{1,1,1,1}} . (IdentityMatrix[4] - Transpose[{{0,0.5,0,0},{0,0,0.5,0.5},{0,0,0,0},{0,0,0.1,0}}]), {{1000, 1500, 1825, 10750}}]

Uh oh! Wolfram|Alpha doesn't run without JavaScript.

Please enable JavaScript. If you don't know how, you can find instructionshere.Once you've done that, refresh this page to start using Wolfram|Alpha.