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演算法一般比較慢，但是如果慢的過分一般來講是你的代碼有問題，你可以把非對角元的平方和輸出出來觀察一下收斂速度。