开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数值算法/人工智能 > matlab例程 > 查看源码
simul.m
资源名称：matlab编程.zip　[点击查看]
上传用户：zjhyt3
上传日期：2007-07-03
资源大小：89k
文件大小：2k
源码类别：

matlab例程

开发平台：

Matlab

simul.m：源码内容
  1. %  Script file: simul.m
  2. %
  3. %  Purpose: 
  4. %    This program solves a system of 8 linear equations in 8
  5. %    unknowns (a*x = b), using both full and sparse matrices.
  6. %
  7. %  Record of revisions:
  8. %      Date       Programmer          Description of change
  9. %      ====       ==========          =====================
  10. %    10/14/98    S. J. Chapman        Original code 
  11. %
  12. % Define variables:
  13. %   a            -- Coefficients of x (full matrix)
  14. %   as           -- Coefficients of x (sparse matrix)
  15. %   b            -- Constant coefficients (full matrix)
  16. %   bs           -- Constant coefficients (sparse matrix)
  17. %   x            -- Solution (full matrix)
  18. %   xs           -- Solution (sparse matrix)
  20. % Define coefficients of the equation a*x = b for
  21. % the full matrix solution.
  22. a = [  1.0  0.0  1.0  0.0  0.0  2.0  0.0 -1.0; ...
  23.        0.0  1.0  0.0  0.4  0.0  0.0  0.0  0.0; ...
  24.        0.5  0.0  2.0  0.0  0.0  0.0 -1.0  0.0; ...
  25.        0.0  0.0  0.0  2.0  0.0  1.0  0.0  0.0; ...
  26.        0.0  0.0  1.0  1.0  1.0  0.0  0.0  0.0; ...
  27.        0.0  0.0  0.0  1.0  0.0  1.0  0.0  0.0; ...
  28.        0.5  0.0  0.0  0.0  0.0  0.0  1.0  0.0; ...
  29.        0.0  1.0  0.0  0.0  0.0  0.0  0.0  1.0];
  31. b = [  3.0  2.0 -1.5  1.0 -2.0  1.0  1.0  1.0]'; 
  33. % Define coefficients of the equation a*x = b for
  34. % the sparse matrix solution.
  35. as = sparse(a);
  36. bs = sparse(b);
  38. % Solve the system both ways
  39. disp ('Full matrix solution:');
  40. x = ab
  42. disp ('Sparse matrix solution:');
  43. xs = asbs
  45. % Show workspace
  46. disp('Workspace contents after the solutions:')
  47. whos