function [X]=GaussJordan(A,B)
% GaussJordan A:系数矩阵 B:常矩阵
%获取输入的矩阵维数
[m,n]=size(A);
[m1,n1]=size(B);
%判断系数矩阵或常矩阵输入是否正确 m是维数
if m~=n | m~=n1
disp('输入的系数矩阵或常矩阵不符合件!');
return;
end
%增广矩阵 定义A1,B1保存A,B
A1=A;
B1=B';
IsSelected=zeros(1,m);
xishu=zeros(1,m);
A(1:end,m+1)=B1;
%%%%%%%%%%%%%%%%%%%%%%
for col=1:m%控制列
maxi=E1(A,m,col,IsSelected);
xishu(maxi)=col;
IsSelected(maxi)=1;
%按列取最大 maxi保留方程
for i=1:m%代消元的行
if i==maxi
continue;
end
f=A(i,col)/A(maxi,col);
%%%代消元的列
for j=1:m+1
A(i,j)=A(i,j)-f*A(maxi,j);
end
end
end
for col=1:m
X(col)=A(col,m+1)/A(col,xishu(col));
end
%%%%%%%%%%%%%%%%%%%%%%%%%定义子函数%%%%%%%%%%%%%%%%%%%%%%%%%%
function maxi=E1(AA,m1,j,IsSelected1)%寻找第j列的最大元素m是AA的维数 IsSelected1记录该行是否选折过;
maxi=1;
maxnum=abs(AA(1,j));
for k=2:m1
if(IsSelected1(k)~=0)
continue;
end
if maxnum<abs(AA(k,j))
maxi=k;
maxnum=abs(AA(k,j));
end
end
return;
%function E2(c,i)
%function E3(c,i,j)

f8w8z8
- 粉丝: 0
- 资源: 1

最新资源
- 保存和恢复桌面图标的位置DesktopOK
- 西门子S7-200PLC与V20变频器USS通讯:轮询控制、启停与参数读取及报警处理
- 基于西门子TIA Portal的五层电梯仿真系统设计与实现
- 西门子PLC与ABB变频器Modbus RTU通信及触摸屏集成教程
- 电力系统领域基于电网与微电网的能量优化模型:最小化能源系统总运行成本的技术实现
- 三相离网逆变器不对称负载下的正负序控制MATLAB仿真及其实现
- F5负载均衡超详细培训教材
- 基于MATLAB的卷积神经网络结合空间注意力机制(CNN-SAM-Attention)的数据分类预测实现
- 材料损伤评估中声发射速率Ohtsu模型的MATLAB实现及应用
- 电力电子领域两相交错并联Buck/Boost变换器仿真的控制策略及均流效果分析
- 电力系统仿真中IEEE39节点标准系统的稳态潮流及模型转换详解
- 交错并联Boost PFC仿真电路模型在临界模式BCM下的双闭环控制策略及应用
- 【数据库编程】Oracle PLSQL从基础到高级:数据库编程技术全面解析与应用指南
- 基于出行链的电动汽车负荷预测模型及其时空特性优化
- 基于MATLAB的RRT算法在多类型无人设备路径规划中的实现与优化
- itext生成Pfd的时候中文会看不到,这个代码演示了Pdf生成的时候引用中文字体
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈


