finished

Author: gaoxt1983

cachematrix.R

@@ -4,12 +4,28 @@
 ## Write a short comment describing this function
 
 makeCacheMatrix <- function(x = matrix()) {
-
+    m <- NULL
+	set <- function(y) {
+			x <<- y
+			m <<- NULL
+	}
+	get <- function() x
+	setmatrix <- function(ma) m <<- ma
+	getmatrix <- function() m
+	list(set = set, get = get,
+		 setmatrix = setmatrix,
+		 getmatrix = getmatrix)
 }
 
 
-## Write a short comment describing this function
-
 cacheSolve <- function(x, ...) {
-        ## Return a matrix that is the inverse of 'x'
+	m <- x$getmatrix()
+	if(!is.null(m)) {
+			message("getting cached data")
+			return(m)
+	}
+	data <- x$get()
+	m <- solve(data)
+	x$setmatrix(m)
+	m
 }