منبع : عمران
Fixed point interation method
#include
#include
#include
double F (double x) {return 1.14-(2.0*log((e/d)+(9.55/r*sqrt(x))))-(1/sqrt(x)) ;}
double G (double x) {return (1.2996*x*x) +4*x*x*log((e/d)+(9.55/(r*sqrt(x))) *log((e/d)+(9.55/(r*sqrt(x))))- (4.56*x*x*log((e/d)+(9.55/(r*sqrt(x)))) ;}
main()
{ clrscr();
double eps,x0,x,e,d,r;
int n;
cout<<”Enter x0,,eps,e,d,r”<
cin>>x0>>eps>>e>>d>>r;
n=1;
x=G(x0);
while(fabs(x-x0)>=eps)
{x0=x;
x=G(x0);
n++;}
cout<<”Root=”<
cout<<”n=”<
getch();
}
بازگشت به صفحه اصلی وبلاگ مهندسی عمران راه و ساختمان(مهندس حسن فراهانی)
برچسب‌ها: برنامه نویسی, روش تكرار ساده, زبان, c
F(X)=EXP(-X)-SIN(X)
G(X)=X+ EXP(-X)-SIN(X)
READ (*,*) X0,EPS
X = G(X0)
N=1
10 IF (ABS(F(X)) .LT. EPS) THEN GOTO 20
X0 = X
X=G(X0)
N=N+1
GOTO 10
20 WRITE(*,*) "ROOT=",X
WRITE(*,*) "ITERATION=",N
END
بازگشت به صفحه اصلی وبلاگ مهندسی عمران راه و ساختمان(مهندس حسن فراهانی)
برچسب‌ها: برنامه نویسی, روش تكرار ساده, زبان فرترن, مهندس حسن فراهانی
