#include?“stdio.h“
#include?“stdlib.h“
#include?“math.h“
/*======================================================
//?函數名：jaco
//?功能描述：用雅克比迭代法解方程組
//?輸入參數：a?解系數矩陣，b?常數矩陣，x返回的解向量
//???????????n?未知數個數，eps?精度要求。
//???????????iter?允許的最多迭代次數
//?返回值：整型。運行成功則返回迭代次數失敗則返回0
=========================================================*/
int?jaco（double?*a?double?*bdouble?*xint?ndouble?eps?int?iter）
{
????int?ijpiter=0;
????double?fr?=?1.0?t?*x2;
????if（（a==NULL）||（b==NULL）||（x==NULL））????????????/*?檢測輸入的指針是否為空*/
????{
??????printf（“The?pointer?is?NULL\n“）;
??????return（0）;
????}
????x2?=?（double?*）malloc（n*sizeof（double））;???????/*?分配空間并檢測是否成功*/
????if（x2==NULL）
????{
????????printf（“Memory?alloc?failed\n“）;
????????return（0）;
????}
????for（i=0;?i????if（fabs（a[i*n+i]）?????{
??????printf（“A[%d%d]?is?too?smallcannot?converged“ii）;
??????return（0）;
????}
????for（i=0;?i