1. 求雅可比迭代法解方程组的C\C++程序
/************************************
下面程序是解下面这个方程：（可以改变方程系，程序即可解不同的方程）
方程：
5x1+2x2+x3=8
2x1+8x2-3x3=21
x1-3x2-6x3=1
用VC6.0编译,保存代码时,以.C为后缀名
************************************/
#include<malloc.h>
#include<stdio.h>
#include<conio.h>
#include<math.h>
#define EPS 1e-6/*允许误差*/
#define MAX 100/*迭代次数的最大值*/
float *Jacobi(float a[3][4],int n);
main()
{
int i;
float a[3][4]={5,2,1,8,2,8,-3,21,1,-3,-6,1};/*方程的系数*/
float *x;
x=(float *)malloc(3*sizeof(float));/*动态申请内存，用于保存方程的解*/
x=Jacobi(a,3);/*调用雅可比函数*/
for(i=0;i<3;i++)/*输出方程的解*/
{
printf("x[%d]=%f\t",i,x[i]);
}
printf("\n");
getch();
}
float *Jacobi(float a[3][4],int n)
{
float *x,*y;
float epsilon,s;
int i,j,k=0;
x=(float *)malloc(n*sizeof(float));
y=(float *)malloc(n*sizeof(float));
for(i=0;i<n;i++)
x[i]=0;
while(1)
{
epsilon=0;/*容允误差*/
k++;/*迭代次数计数*/
for(i=0;i<n;i++)
{
s=0;
for(j=0;j<n;j++)
{
if(j==i)
{
continue;
}
s+=a[i][j]*x[j];
}
y[i]=(a[i][n]-s)/a[i][i];/*计算"x^(k+1)"*/
epsilon+=(float)fabs(y[i]-x[i]);
}
if(epsilon<EPS)
{
printf("迭代次数为：%d\n",k);
return x;/*返回方程的解*/
}
if(k>=MAX)
{
printf("方程不收敛\n");
return y;
}
for(i=0;i<n;i++)
{
x[i]=y[i];
}
}
}
2. 关于诺贝尔
今年诺贝尔奖金金额为1000万瑞典克朗，约合140万美元。按照诺贝尔当初的意愿，较为理想的诺贝尔奖金额，应能保证一位教授20年不拿薪水仍能继续他的研究。根据诺贝尔奖官方网站公布的数据，1901年的诺贝尔奖金数额为15.0872万瑞典克朗，即相当于当时一位教授20年的工资。此后，奖金数额不断缩水，1902年为14.1847万瑞典克朗，1903年为14.1358万瑞典克朗。直至1923年，诺贝尔奖金数额名义价值降到了历史最低，为11.4935万克朗。以后，诺贝尔奖金数额虽逐年扩大，但因瑞典克朗的数次贬值，一直到不了1901年的水平。1969年第一次颁发诺贝尔经济学奖时，奖金金额为37.5万瑞典克朗。
1991年，诺贝尔奖达到600万瑞典克朗，才与诺贝尔奖自颁发以来首次超过1901年时的实际价值相当。那以后，诺贝尔奖金又连年上涨，1992年诺贝尔奖为650万瑞典克朗，1993年为670万瑞典克朗，2000年诺贝尔奖五大单项奖和诺贝尔经济学奖达到了900万瑞典克朗（100万美元），远远超出了整个原始基金的名义价植，也大大超过了原始奖金的实际价值。2001年诺贝尔奖百年华诞时，诺贝尔奖金额达到1000万克朗，此后便一直维持在这个水平上。
按照阿尔弗里德·诺贝尔的遗愿，只有诺贝尔基金会的直接收益——利息和红利——才能用于诺贝尔奖金，从股份管理中得到的资本收益以前不能用于诺贝尔奖金，但从2000年1月1日开始，诺贝尔基金会被批准可以将从资产售卖中所获得的资本收益用于诺贝尔奖金。根据这个新规则，从诺贝尔基金资产销售中得到的收益还可以用于授奖活动及支付各种开支，“直到不再需要它们来维持长期良好的授奖能力”。此外，诺贝尔基金会还可以对投资于股市的资产份额作出决定。长期来看，这意味着诺贝尔基金会可能会将更大比例的资产投资于股票，从而带来更大的整体收益，以及更丰厚的诺贝尔奖金。因而，在未来一段时间内，如果诺贝尔基金会投资得当，诺贝尔奖金还会涨。
[B]诺贝尔基金会是怎么挣钱的[/B]
阿尔弗里德·诺贝尔于1896年12月10日逝世后，在其遗嘱中提出，将自己的部分遗产（920万美元）作为基金，以其利息分设物理、化学、生理或医学、文学及和平五种奖金，授予世界各国在这些领域对人类作出重大贡献的学者。遗嘱中的条款及其“非同一般”的目的，连同其部分未完全的形式，引来了巨大的关注，并很快导致了对其的怀疑和批评。只有在经过几年的谈判、协商，有时甚至是痛苦的冲突，克服了无数的困难和障碍之后，诺贝尔遗愿中的基本概念才得以以诺贝尔基金会的成立而出现稳定的模式。
诺贝尔基金会是一家私立机构，其职责是受托保护诺贝尔遗嘱中指定的授奖机构的共同利益，并对外代表诺贝尔机构。这具体包括各种各样的通知信息活动以及与授奖有关的各种安排事宜，但是诺贝尔基金会本身却不参与诺贝尔奖得主的遴选过程和最后的选择。“诺贝尔基金会的一项重要任务是以一种能够保护奖项本身及评奖过程的财政基础的方式管理其资产”。
因而，诺贝尔基金会的投资政策很自然地要把保持和增加它的基金、从而增加奖金的金额作为头等重要的因素来制定。遗嘱本身曾指示执行人把剩余的财产投资到“安全的证券”方面。在1901年最初为董事会制定的投资规则中，“安全的证券”这个提法曾根据当时的情况，被解释为意味着金边证券，或者以这类证券或不动产为抵押的贷款，而这类证券和不动产，主要是在瑞典和挪威发行或存在的。
基金会在前50年遇到了许多挫折，税务问题是其中之一。基金会成立的时候，人们还没想过税收问题，尽管诺贝尔遗嘱监护人一直要求对该基金会的投资活动进行税收豁免，但没人理会。1914年以前，基金会交纳的税率为10%，还勉强能维持。到了1915年，瑞典政府通过了一项“临时国防税”，使基金会的交税率成倍提高。1922年，当年的累征税负超已大于1923年的诺贝尔奖金了。
从此以后，关于是否该给基金会免税一直是瑞典议会的议题。这场旷日持久的讨论持续了几十年。直到1946年才有了结果：议会同意基金会享受免税待遇。瑞典议会的这一决定，也感染了美国人，美国规定从1953年起，诺贝尔基金会在美国的投资活动享受免税待遇。
基金会的投资开始从保守转向积极。1953年，政府允许基金会可独立进行投资，可将钱投在股市和不动产方面。这是基金会投资规则的一个里程碑式的改变。20世纪六七十年代，如以瑞典克朗计，诺贝尔基金数额的确增加了许多，但因瑞典克朗数次贬值，基金的实际价值并未增多。到了80年代，股市增长迅速，基金会的资产不断增值，不动产也在不断升值。但在1985年，瑞典又提高了不动产税，使得基金会的收益大打折扣。两年后，基金会作出一项重要决定：将基金会拥有的所有不动产转到一家新成立的上市公司名下，这家公司有个有趣的名字叫“招募人”。后来，基金会将持有的“招募人”公司股票全部出售，这正好赶在1990年初瑞典金融危机爆发之前，于是大大发了一笔。
由于诺贝尔基金会理财有方，世界上许多国家也纷纷效仿。设于1985年的日本两项大奖“日本奖”和“京都奖”，以奖金数额论，与诺贝尔奖属一个档次。他们就是根据诺奖的模式设立和操作的。为此，他们还为诺贝尔基金会捐了巨额资金。
3. 关于大学里面计算方法（数值分析）中，解线性方程组，利用到雅可比迭代和SOR迭代的利用matlab求解问题
雅克比迭代法
function [x,n]=jacobi(A,b,x0,eps,varargin)
if nargin==3
eps= 1.0e-6;
M = 200;
elseif nargin<3
error
return
elseif nargin ==5
M = varargin{1};
end
D=diag(diag(A)); %求A的对角矩阵
L=-tril(A,-1); %求A的下三角阵
U=-triu(A,1); %求A的上三角阵
B=D\(L+U);
f=D\b;
x=B*x0+f;
n=1; %迭代次数
while norm(x-x0)>=eps
x0=x;
x=B*x0+f;
n=n+1;
if(n>=M)
disp('Warning: 迭代次数太多，可能不收敛！');
return;
end
end
sor
function [x,n]=SOR(A,b,x0,w,eps,M)
if nargin==4
eps= 1.0e-6;
M = 200;
elseif nargin<4
error
return
elseif nargin ==5
M = 200;
end
if(w<=0 || w>=2)
error;
return;
end
D=diag(diag(A)); %求A的对角矩阵
L=-tril(A,-1); %求A的下三角阵
U=-triu(A,1); %求A的上三角阵
B=inv(D-L*w)*((1-w)*D+w*U);
f=w*inv((D-L*w))*b;
x=B*x0+f;
n=1; %迭代次数
while norm(x-x0)>=eps
x0=x;
x =B*x0+f;
n=n+1;
if(n>=M)
disp('Warning: 迭代次数太多，可能不收敛！');
return;
end
end
4. 帮忙找找雅可比求特征值，特征向量的源程序
Mathematica软件编写一个程序包: 雅可比方法求对称矩阵之特征值。希望对你有帮助。
5. 机械臂雅可比矩阵怎么用到stm32中
不是要背库文件，而是要理解每个外设的功能，库函数只是说把操作寄存器的代码封装成了函数；这些函数不用背，背了也没什么用。主要学习怎么配置各个外设的参数，和怎么配置的，这才是学习的重点；库函数是一个糖衣炮弹，有好处也有坏处；好处是代码整齐了，坏处是把底层隐藏了；我们要学的精髓就是隐藏的那一部分。我最开始学的时候直接写的寄存器，没有用库函数；所以重在理解，不是背诵。
6. matlab 可视化的线性方程组的雅可比迭代解法的实验代码~~~各位大神~~靠你们了~~·
你说的可视化是指做GUI界面吗？jacobi迭代计算是数值计算，何来可视化之说。下面的是脚本实例，希望有所帮助。代码function main()
% 用Jacobi迭代法求方程组的解
clc;
A=[4 3 0;3 3 -1;0 -1 4];
b=[24;30;-24];[x, k, index]=Jacobi(A, b, 1e-5, 100)% 按照算法(Jacobi迭代法)编写Matlab程序(Jacobi.m)
function [x, k, index]=Jacobi(A, b, ep, it_max)
% 求解线性方程组的Jacobi迭代法，其中
% A --- 方程组的系数矩阵
% b --- 方程组的右端项
% ep --- 精度要求。省缺为1e-5
% it_max --- 最大迭代次数，省缺为100
% x --- 方程组的解
% k --- 迭代次数
% index --- index=1表示迭代收敛到指定要求；
% index=0表示迭代失败if nargin <4
it_max=100;
endif nargin <3
ep=1e-5;
end
n=length(A);
k=0;
x=zeros(n,1);
y=zeros(n,1);
index=1;
while 1
for i=1:n
y(i)=b(i);
for j=1:n
if j~=i
y(i)=y(i)-A(i,j)*x(j);
end
end
if abs(A(i,i))<1e-10 || k==it_max
index=0;
return;
end
y(i)=y(i)/A(i,i);
end
if norm(y-x,inf)<ep
break;
end
x=y;
k=k+1;
end 结果
x = -2.9998
11.9987
-3.0001
k = 100
index = 0>>
7. 雅可比法求对称矩阵的特征值的并行算法
如果把所有非对角元扫描一遍作为一次迭代，那么几步迭代后就能收敛，换句话说需要O(n^2)步旋转才能收敛，因为Jacobi算法具有渐进二次收敛性。
Jacobi算法一般比较慢，但是如果慢的过分一般来讲是你的代码有问题，你可以把非对角元的平方和输出出来观察一下收敛速度。