- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
窗体顶端
窗体顶端
窗体底端
Leverrier-Faddeeva递推算法的程序设计范例,编写程序实现基于塞尔维斯特准则的二次型标量函数的正定性判断。要求:编写程序设计报告,含:任务需求分析、程序流程、实现方法、测试验收、源代码等,
根据赛尔维斯特(Sylvester),可以通过判断对称矩阵P的定号性来确定二次型函数的定号性。
则
矩阵P正定的充要条件是所有的顺子主子式都是正的,即;
矩阵P负定的充要条件是
(三)程序设计流程图:
(四) 程序设计实现
输入:矩阵A,n阶方阵
输出:二次型标量函数V(x)是正定的、负定的、既不是正定的也不是负定的
结果
程序验证与测试
包含三个cpp文件
Mat.cpp包含类Mat的各成员函数、
Base.cpp实现矩阵的一些基本操作
包括:求行列式的值、
矩阵的余子式、
判断正定性
Mat.cpp
#include Mat.h
/********类Mat成员函数************/
void Mat::CreateMat(int r,int c,int type,double *A)
{
int i;
this-rows=r;
this-cols=c;
this-type=type;
data = new double[r*c]; //为矩阵申请(r*c)大小的内存空间。
if(A!=NULL)switch(type)
{
case INT:
for(i=0; ir*c; i++)//循环赋值
data[i] = (int)A[i];
break;
case DOUBLE:
for(i=0; ir*c; i++)
data[i] = (double)A[i];
break;
default:
data = NULL;
break;
}
else
{
for(i=0; ir*c; i++)//循环赋值
data[i] = 0;
}
}
void Mat::PrintMat()
{
int j;
if(data==NULL)coutendl还没给该矩阵赋值endl;
else
{
for(int i=0;irows;i++)
{
switch(type)
{
case INT:
case DOUBLE:
for(j=0;jcols;j++)cout”\t”data[i*cols+j];
default:break;
}
printf(\n);
}
}
}
double Mat::Read(int i,int j)
{
return this-data[i*cols+j];
}
(2)Main.cpp
#include base.h
void main()
{
Mat A;
int n;
double* a;
cout请输入方阵的维数:;
cinn;
a=new double[n*n];
cout请输入方阵:endl;
for(int i=0;in*n;i++)
cina[i];
A.CreateMat(n,n,DOUBLE,a); //创建矩阵 A 并赋值
cout原矩阵:endl;
A.PrintMat(); //输出原矩阵
coutendl;
Judge(A); //判断是否为实对数矩阵、正定性
// system(pause);
}
(3)Base.cpp
#include base.h
#include mat.h
//============用递归法求行列式的值(并返回)=================
double Fun( int n, double *a )
{
if(1==n)return a[0];
double* b;
double sum = 0; //i,j为行与列,sum为行列式的值
int x=0,num=0; //用x判断(-1)^(i+j)的正负
b=new double[(n-1)*(n-1)]; //数组用来存放代数余子式
for(int c=0;cn;c++)
{
for(int i=1;in;i++) //实现将余子式存入数组b中
{
for(int j=0;jn;j++)
{
if(j==c)continue;
b[num++]
您可能关注的文档
- 2013-2014学年人教版高中政治必修一强化训练第1单元综合测试题分解.doc
- 肌筋膜激痛点治疗----斜方肌分解.ppt
- 肌肉的深度拉伸解剖图MicrosoftPowerPoint幻灯片分解.ppt
- 2013-2014学年物理(粤教版)选修3-2:1-1~2产生感应电流的条件分解.ppt
- 2013-2015高考作文题目(审题训练)分解.ppt
- 2013-2015课标卷实用类人物传记汇编分解.doc
- 肌细胞的收缩与舒张原理分解.ppt
- 2013-2015年3年新课标I高考化学试卷(纯word详解版)分解.doc
- 2013-2015年高考新课标全国卷数学(文)试题分类汇编分解.doc
- 2013—2015年江苏省无锡市中考化学试题(word解析版)分解.doc
文档评论(0)