code for above diagram

> matrix([[x, 2, 2, 2,2], [x+h, 2.1, 2.01, 2.0001, 2.0000001], [Difference_quotient, -.238095, -.248756,-0.249988, -.24999999875]]):