포트란을 이용한 최적설계 레포트

소개글

포트란을 이용한 최적설계 레포트에 대한 보고서 자료입니다.

본문내용

goden(){
double r, xlow, xhigh,d, u1, u2, f1, f2, iter, xopt, ea, maxit=0, fx
iter = 0
printf("\n, xlow: ")
scanf("%lf", &xlow)
printf("\n, xhigh: ")
scanf("%lf", &xhigh)
r = (sqrt(5) - 1) / 2
d = r * (xhigh-xlow)
u1 = xlow + d
u2 = xhigh - d
f1 = f(u1)
f2 = f(u2)
if(f1 < f2){
xopt = u1
fx = f1}
else
{ xopt = u2
fx = f2 }
do{
d = r * d
if(f1 < f2){
xlow = u2
u2 = u1
u1 = xlow + d
f2 = f1
f1 = f(u1)}
else{
xhigh = u1
u1 = u2
u2 = xhigh - d
f1 = f2
f2 = f(u2)}
iter++
if(f1 < f2){
xopt = u1
fx = f1
}
else{
xopt = u2
fx =f2
}
if(xopt != 0){ea = (1 -r) * fabs((xhigh-xlow)/xopt) * 100
} else{}
}while((ea>es)&&(iter printf("\n", xopt)
return(xopt)
}
(c f)[ C++ , 이분법]
#include
#include
double FUNC(double)
void main()
{
double x,x1,x2,e
/*** 단계 1 자료의 입력 ***/
printf("2-4x+exp(x)")
printf("\n 초기값 X1= ")
scanf("%lf", &x1)
printf("\n 초기값 x2= ")
scanf("%lf",&x2)
printf("\n 수렴 판정 조건 ε=")
scanf("%lf",&e)
/*** 단계 2 2분법의 반복 계산 ***/
do{
x=(x1+x2)/2.0
if((FUNC(x1))*(FUNC(x))<0)
x2=x
else
x1=x
}while(fabs(x1-x2)>=e)
/*** 단계 3 계산 결과의 출력 ***/
printf("\n답 X= %10.7lf", x)
printf("\n")
}
/* < 비선형 방정식의 정의 함수 > */
double FUNC(double x)
/* x : 스칼라 - 입력 변수 (IN) */
{
return(x)
}

키워드

최적설계,   포트란,   C,   황금분할법