(Subscript[S, dr])=(1/A)[(Underscript[∫∫, A])((Sqrt[[1+(((((∂z(x,y))/(∂x))))^2)+(((((∂z(x,y))/(∂y))))^2)]])-1)dxdy]