CE 311K Lab11

# CE 311K Lab11 - CE311K Introduction to Computer Methods...

This preview shows pages 1–2. Sign up to view the full content.

Sheet1 Page 1 ! CE311K Introduction to Computer Methods ! Lab11 - Integration Program lab11 implicit none Real Length, alpha Real upper, lower Real F_Tr,F_S13,F_S38,Int_Tr,Int_S13,Int_S38 Real d_Tr,d_S13,d_S38, T_Tr, T_S13, T_S38 Integer i, num, seg(18) ! Open Output File Open (unit=6, file='lab11out.dat', status='unknown') !input data, define Lenght as 10, alpha as 40 degrees Length=10. alpha=40. alpha=alpha*(3.1415926/180) !conversion of degrees to radians write(6,*) alpha 100 Format (2/, 23x, f4.1, /, 29x, f4.0) Data seg /1,2,3,4,5,7,10,12,15,20,30,50,100,200,300,400,500,1000/ ! Initialization of upper and lower bounds lower = 0.0 upper = Length - lower ! Writing Headers Write(6,200) Write(6,210) Write(6,200) Do i=1,18 ! Calculation of Force and centroid num= seg(i) Call Trapezoidal(lower, upper, num, F_Tr, Int_Tr) Call Simpson13(lower, upper, num, F_S13, Int_S13) Call Simpson38(lower, upper, num, F_S38, Int_S38) d_S38 = Int_S38/F_S38 d_S13 = Int_S13/F_S13 d_Tr = Int_Tr/F_Tr ! Calculation of Tension

This preview has intentionally blurred sections. Sign up to view the full version.

View Full Document
This is the end of the preview. Sign up to access the rest of the document.

{[ snackBarMessage ]}

### Page1 / 3

CE 311K Lab11 - CE311K Introduction to Computer Methods...

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document
Ask a homework question - tutors are online