早教吧作业答案频道 -->数学-->
fortran牛顿迭代法求根号3PARAMETER(EPS=1.0E-05)REAL::X0=1.0,X1INTEGER::K=0F(X)=X**3-3DF(X)=3*X*XX0=1DOX1=X0-F(X0)/DF(X0)K=K+1IF(ABS(X1-X0)
题目详情
fortran牛顿迭代法求根号3
PARAMETER(EPS=1.0E-05)
REAL::X0=1.0,X1
INTEGER::K=0
F(X)=X**3-3
DF(X)=3*X*X
X0=1
DO
X1=X0-F(X0)/DF(X0)
K=K+1
IF(ABS(X1-X0)
PARAMETER(EPS=1.0E-05)
REAL::X0=1.0,X1
INTEGER::K=0
F(X)=X**3-3
DF(X)=3*X*X
X0=1
DO
X1=X0-F(X0)/DF(X0)
K=K+1
IF(ABS(X1-X0)
▼优质解答
答案和解析
F(X)=X**3-3
DF(X)=3*X*X
这里不能直接写f(x)
程序会解释成数组的!
函数要单独用 funtion定义的
DF(X)=3*X*X
这里不能直接写f(x)
程序会解释成数组的!
函数要单独用 funtion定义的
看了 fortran牛顿迭代法求根...的网友还看了以下：
设向量组α1,α2,…αr线性无关,证明向量组β1=α1+αr,β2=α2+αr,…,βr=αr- 2020-05-16 …
1+r+r^2+...+r^n=[(r^n+1)-1]/r-1如果左边取1+r+r^2,右边[(r 2020-06-02 …
什么时候或者什么卫星是可以用mg=mV^2/r有一种情况是可以mg=mV^2/r=GMm/R^2（ 2020-06-05 …
E^2*R/(R+r)^2=E^2/(R-r)^2/R+4r(某公式推导最后两行）本人只得：=E^ 2020-06-07 …
设A,B,C为三个n阶方阵,且|AB|不等于零,则正确的结论是（）A.R(ABC)=R(A)B.R 2020-07-30 …
已知两圆的半径分别为R和r（R＞r），圆心距为d.如图，若数轴上的点A表示R-r，点B表示R+r， 2020-07-31 …
已知半径分别为R,r（R＞r）的两圆外切,两条外公切线的夹角为θ.求证：sinθ＝[4(R-r)根 2020-07-31 …
1.M∪{1}={1,2,3},则M有(?)个.2.S、T是两个非空集集合,且互不包含,则S∪(S 2020-08-01 …
2、若有R+，R+，X分别表示正实数集，负实数集，纯虚数集，则集合{m2|m∈X}=（）A、R+B 2020-08-01 …
果蝇有红眼和白眼之分，控制红眼的基因是R，控制白眼的基因是r，R和r的正确含义是（）A.R和r都是隐 2021-01-12 …