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

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

View Full Document Right Arrow Icon
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
Background image of page 1

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

View Full DocumentRight Arrow Icon
Image of page 2
This is the end of the preview. Sign up to access the rest of the document.

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 Right Arrow Icon
Ask a homework question - tutors are online