2.编写程序,用普通迭代法求方程f(x)＝x lnx-1.7＝0的近似实根r,

说实话你写的很乱有些地方表达都是混乱的我只能给你写成这样sets:sj/1..154/:s;si/1..21/:b,y,d;sij(si,sj):m,x,dist,t;endsetscalc:@for

function[n,x]=sor22(A,b,X,nm,w,ww)%用超松弛迭代法求解方程组Ax=b%输入：A为方程组的系数矩阵,b为方程组右端的列向量,X为迭代初值构成的列向量,nm为最大迭代次数

%%以下是不动点主程序function[xc,num,eps]=fpi(g,x0,phi,step)ifnarginstepdisp('超过迭代次数,可能不收敛')break;endendxc=aft

建立.m文件直接运行试过没?

x=x-(H*sqrt(1+2*x/H)-x*arch(H/x+1)-b)/(1/sqrt(1+2*x/H)-arch(H/x+1))-x*((H/x^2+(H^2/x^3+H/x^2)/sqrt(H

x1=0Dox0=X1f1=x0^5-3*x0^2+2*x0+1f2=5*x0^4-6*x0+2X1=x0-f1/f2LoopWhileAbs(X1-x0)>0.000001PrintX1

functionX=jacobi(A,b,P,delta,max1)%A是n维非奇异阵%B是n维向量%P是初值%delta是误差界%X为所求的方程组AX=B的近似解N=length(b);fork=1

举个例子,假如你有1000个数字,你要找n.你可这么做,设x1=500,x0=1000,假如n>x1那么重新设置x1=750,x0还是500假如n

vfdvfvf

#include#includevoidmain(){\x09floata,x0,x1;\x09scanf("%f",&a);\x09x0=a/2;\x09x1=(x0+a/x0)/2;\x09do{

symsXYZeq1=X+Y+4*(Z-40)-4410;eq2=Z*X^3-(Z-40)*(X-80)^3+80*Z^3-105304178*10^4;eq3=Z*Y^3-(Z-40)*(Y-80)

将六个圆命名为“Oval1”直到“Oval6”在窗体上放6个timer控件.写入如下代码：Private Sub Form_load()'必要的初始化操作Timer1.in

function[A]=cal(a,b,v)%a,b表示区间,v是精度i=1;x=(a+b)/2;A=[ix];t=x-(x^3-x-1)/(3*x^2-1);%迭代函数while(abs(t-x)>

symsxf=x^x-10;df=diff(f,x);eps=1e-6;x0=10;cnt=0;MAXCNT=200;%最大循环次数whilecnt

把你的程序和提示贴出来看一下才知道是什么问题

PROGRAMMAINREAD(*,*)XN=110X1=XF=X1**2-4*X1+1F1=2*X1-4X=X1-F/F1WRITE(*,100)N,X1,XN=N+1IF(ABS(X-X1).GT

我的c语言运行结果是2.7419,不同版本可能会有差异,但不影响正确性#include#includevoidmain(){floatx0,x1;x0=2.5;x1=x0-(x0+log10(x

你这个带误差的,不是直接套求根公式了,是用泰勒级数来做了,存数学问题.大一的时候学过点点,网了,帮你百度算法吧.要是直接套公式,度娘也有.别说你不会将算法转换成java代码.再问：谢谢！对了，那个是c

#includevoidmain(){doublea=0.0001,b=1.5;while(b+-1.7==0){b=b+a;}printf("%f",b);}/*b＋这里因为用手机打不出来我也新手希

PrivateSubForm_Load()Me.AutoRedraw=TrueDimx#x=1.5DoUntilAbs(f(x))x=x-f(x)/df(x)LoopPrintFormat(x,"0.