## simulated example
# generate square matrices
A = matrix(rnorm(25),nrow=5)
X = matrix(rnorm(25),nrow=5)
Q = A%*%X + X%*%t(A)
# solve using 'lyapunov' function
solX = lyapunov(A,Q)
if (FALSE) {
pm1 = "* Experiment with Lyapunov Solver"
pm2 = paste("* Absolute Error : ",norm(solX-X,"f"),sep="")
pm3 = paste("* Relative Error : ",norm(solX-X,"f")/norm(X,"f"),sep="")
cat(paste(pm1,"\n",pm2,"\n",pm3,sep=""))
}
Run the code above in your browser using DataLab