مهندسی عمران راه و ساختمان

دانلود کتاب برنامه نویسی تجزیه و تحلیل دینامیکی سازه ها (مهندس حسن فراهانی)

تاريخ : سه شنبه ۲۱ آذر ۱۳۹۱

دانلود کتاب برنامه نویسی تجزیه و تحلیل دینامیکی سازه ها

Programming the Dynamic Analysis of Structures

Review

A textbook combining theory and associated computer programs for students in structural dynamics and practicing engineers. SciTech Book News, March 2003 Book News, Inc..

Product Description

This book presents a series of integrated computer programs in Fortran-90 for the dynamic analysis of structures, using the finite element method. Two dimensional continuum structures such as walls are covered along with skeletal structures such as rigid jointed frames and plane grids. Response to general dynamic loading of single degree freedom systems is calculated, and the author also examines multi degree of freedom systems (including earthquake analysis). Each chapter covers a different aspect of analytic theory and the corresponding program segments.

It will be an essential tool for practising structural and civil engineers, whilst also being of interest to academics and postgraduate students

برای دانلود اینجا کلیک کنید...

http://www.mediafire.com/view/?j3o13rctt5tllst

بازگشت به صفحه اصلی وبلاگ مهندسی عمران راه و ساختمان(مهندس حسن فراهانی)

برچسب‌ها: دانلود, کتاب, برنامه نویسی, تجزیه و تحلیل

ارسال توسط حسن فراهانی

برنامه نویسی روش نابجايي به زبانc++ (مهندس حسن فراهانی)

تاريخ : پنجشنبه ۲۲ تیر ۱۳۹۱

منبع : عمران

برنامه نویسی روش نابجايي به زبانc++

Regula falsi method

#include

double F (double x) {return 1.14-(2.0*log((e/d)+(9.55/r*sqrt(x))))-(1/sqrt(x)) ;}

main()

{ clrscr();

double eps,a,b,x,e,d,r;

int n;

cout<<”Enter a,b,eps,e,d,r”<

cin>>a>>b>>eps>>e>>d>>r;

n=1;

x=(a*F(b)-b*F(a))/(F(b)-F(a))

while(fabs(F(x))>=eps)

{if(F(x)*F(a)>0)

a=x;

else

b=x;

x=(a*F(b)-b*F(a))/(F(b)-F(a));

n++; }

cout<<”Root=”<

cout<<”n=”<

getch();

}

بازگشت به صفحه اصلی وبلاگ مهندسی عمران راه و ساختمان(مهندس حسن فراهانی)

برچسب‌ها: برنامه نویسی, روش نابجايي, زبان, c

ارسال توسط حسن فراهانی

برنامه نویسی روش نيوتن - رافسون به زبانc++ (مهندس حسن فراهانی)

تاريخ : پنجشنبه ۲۲ تیر ۱۳۹۱

منبع : عمران

برنامه نویسی روش نيوتن - رافسون به زبانc++

Newton-Raphson method

#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/(2*sqrt(x*x*x)))-(2.12/(r*sqrt(x*x*x)*(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=x0-F(x0)/G(x0);

while(fabs(F(x))>=eps)

{x0=x;

x=x0-F(x0)/G(x0);

n++;}

cout<<”Root=”<

cout<<”n=”<

getch();

}

بازگشت به صفحه اصلی وبلاگ مهندسی عمران راه و ساختمان(مهندس حسن فراهانی)

برچسب‌ها: برنامه نویسی, روش نيوتن, رافسون, زبان

ارسال توسط حسن فراهانی

برنامه نویسی روش تكرار ساده به زبانc++ (مهندس حسن فراهانی)

تاريخ : پنجشنبه ۲۲ تیر ۱۳۹۱

منبع : عمران

برنامه نویسی روش تكرار ساده به زبانc++

Fixed point interation method

#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

ارسال توسط حسن فراهانی

برنامه نویسی حل معادله به روش وتري به زبانc++ (مهندس حسن فراهانی)

تاريخ : پنجشنبه ۲۲ تیر ۱۳۹۱

منبع : عمران

برنامه نویسی حل معادله به روش وتري به زبانc++

Secant method

#include

double F (double x) {return 1.14-(2.0*log((e/d)+(9.55/r*sqrt(x))))-(1/sqrt(x)) ;}

main()

{ clrscr();

double eps,x0,x1,x,e,d,r;

int n;

cout<<”Enter x0,x1,eps,e,d,r”<

cin>>x0>>x1>>eps>>e>>d>>r;

n=1;

x=x1-(F(x1)*(x1-x0))/(F(x1)-F(x0));

while(fabs(F(x))>=eps)

{x0=x1;

x1=x;

x=x1-(F(x1)*(x1-x0))/(F(x1)-F(x0));

n++; }

cout<<”Root=”<

cout<<”n=”<

getch();

}

بازگشت به صفحه اصلی وبلاگ مهندسی عمران راه و ساختمان(مهندس حسن فراهانی)

برچسب‌ها: برنامه نویسی, برنامه نویسی حل معادله به روش وتري, زبانc, مهندس حسن فراهانی

ارسال توسط حسن فراهانی

برنامه نویسی روش دو بخشي ( تنصيف ) به زبانc++ (مهندس حسن فراهانی)

تاريخ : پنجشنبه ۲۲ تیر ۱۳۹۱

منبع : عمران

برنامه نویسی روش دو بخشي ( تنصيف ) به زبانc++

Bisection method

#include

double F (double x) {return 1.14-(2.0*log((e/d)+(9.55/r*sqrt(x))))-(1/sqrt(x)) ;}

main()

{ double a,b,eps,x,e,d,r;

int n;

cout<<”Enter a,b,eps,e,d,r”<

cin>>a>>b>>eps>>e>>d>>r;

n=1;

x=(a+b)/2;

while(fabs(F(x))>=eps)

{ if(F(x)*F(a)>0)

a=x;

else

b=x;

x=(a+b)/2;

n++;}

cout<<”Root=”<

cout<<”n=”<

getch();

}

بازگشت به صفحه اصلی وبلاگ مهندسی عمران راه و ساختمان(مهندس حسن فراهانی)

برچسب‌ها: برنامه نویسی, روش دو بخشي, تنصيف, زبانc

ارسال توسط حسن فراهانی

برنامه نویسی روش نابجايي براي تابع خاص به زبان فرترن (مهندس حسن فراهانی)

تاريخ : پنجشنبه ۲۲ تیر ۱۳۹۱

منبع : عمران

برنامه نویسی روش نابجايي براي تابع خاص به زبان فرترن

F(X)=X+COS(X)

READ (*,*) A,B,EPS

X=(A*F(B)-B*F(A))/(F(B)-F(A))

N=1

10 IF (ABS(F(X)) .GE. EPS) THEN

IF ( F(X) * F(A) .GA. 0 ) THEN

A=X

ELSE

B=X

ENDIF

X=(A*F(B)-B*F(A))/(F(B)-F(A))

N=N+1

GOTO 10

ELSE

WRITE(*,*) "ROOT=",X

WRITE(*,*) "ITERATION=",N

ENDIF

END

بازگشت به صفحه اصلی وبلاگ مهندسی عمران راه و ساختمان(مهندس حسن فراهانی)

برچسب‌ها: برنامه نویسی, روش نابجايي براي تابع خاص, زبان فرترن, مهندس حسن فراهانی

ارسال توسط حسن فراهانی

برنامه نویسی روش دو بخشي يا تنصيف براي تابع خاص به زبان فرترن (مهندس حسن فراهانی)

تاريخ : پنجشنبه ۲۲ تیر ۱۳۹۱

منبع : عمران

برنامه نویسی روش دو بخشي يا تنصيف براي تابع خاص به زبان فرترن

F(X)=X+COS(X)

READ (*,*) A,B,EPS

X=(A+B)/2

N=1

10 IF (ABS(F(X)) .GE. EPS) THEN

IF ( F(X) * F(A) .GA. 0 ) THEN

A=X

ELSE

B=X

ENDIF

X=(A+B)/2

N=N+1

GOTO 10

ELSE

WRITE(*,*) "ROOT=",X

WRITE(*,*) "ITERATION=",N

ENDIF

END

بازگشت به صفحه اصلی وبلاگ مهندسی عمران راه و ساختمان(مهندس حسن فراهانی)

برچسب‌ها: برنامه نویسی, روش دو بخشي يا تنصيف براي تابع خاص, زبان فرترن, مهندس حسن فراهانی

ارسال توسط حسن فراهانی

برنامه نویسی روش تكرار ساده به زبان فرترن (مهندس حسن فراهانی)

تاريخ : پنجشنبه ۲۲ تیر ۱۳۹۱

منبع : عمران

برنامه نویسی روش تكرار ساده به زبان فرترن

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

بازگشت به صفحه اصلی وبلاگ مهندسی عمران راه و ساختمان(مهندس حسن فراهانی)

برچسب‌ها: برنامه نویسی, روش تكرار ساده, زبان فرترن, مهندس حسن فراهانی

ارسال توسط حسن فراهانی

برنامه نویسی روش نيوتن - رفسون به زبان فرترن (مهندس حسن فراهانی)

تاريخ : پنجشنبه ۲۲ تیر ۱۳۹۱

منبع : عمران

برنامه نویسی روش نيوتن - رفسون به زبان فرترن

F(X)=X+COS(X)

Fprime(X)=1+SIN(X)

READ (*,*) X0,EPS

X=X0- F(X0)/ Fprime(X0)

N=1

10 IF (ABS(F(X)) .GE. EPS) THEN GOTO 20

X0 = X

X=X0- F(X0)/ Fprime(X0)

N=N+1

GOTO 10

20 WRITE(*,*) "ROOT=",X

WRITE(*,*) "ITERATION=",N

END

بازگشت به صفحه اصلی وبلاگ مهندسی عمران راه و ساختمان(مهندس حسن فراهانی)

برچسب‌ها: برنامه نویسی, روش نيوتن, رفسون, زبان فرترن

ارسال توسط حسن فراهانی

برنامه نویسی روش وتری به زبان فرترن (مهندس حسن فراهانی)

تاريخ : پنجشنبه ۲۲ تیر ۱۳۹۱

منبع : عمران

برنامه نویسی روش وتری به زبان فرترن

F(X)=X**3+X-1

       READ (*,*) X0.X1,EPS

       X=X1- (F(X1)*(X1-X0))/ (F(X1)- F(X0))

        N=1

10     IF (ABS(F(X)) .GE. EPS) THEN GOTO 20

            X0 = X1

            X1=X

       X=X1- (F(X1)*(X1-X0))/ (F(X1)- F(X0))

               N=N+1

                GOTO   10

20           WRITE(*,*) "ROOT=",X

                WRITE(*,*) "ITERATION=",N

         END