matrixHW8 - LAB-8 Solve 1 (Rod problem), 2 (Gauss...

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

View Full Document Right Arrow Icon
1 LAB-8 Solve 1 (Rod problem), 2 (Gauss elimination), and 9 (Gauss-siedel) HW 8 1) The average temperature of a reinforcement bar is set at 16 degrees. The left end of the bar is always fixed at a constant temperature of 16 degrees. Length of the rod is 100 cm. The temperature of the right boundary is suddenly dropped to 11 degrees during an experiment. Find the temperature changes in the bar at various times = 10 mins, 20 mins, 40 mins, 80 mins, 160 mins, 250 mins, 400 mins, and 500 mins. The temperature diffusivity of the system (property of the material) is D = 10 cm 2 /min. Analytical solution to this problem can be written as: ( ) ( ) 21 22 2 1 1 cos( ) 2 ( , ) sin exp( / ) =  −−  = ++     n TTx TT n nx T x t T Dn t L L nL π Generate the solution at every 10 cm ( x= 0, 10, 20…. .., 100 cm) for various time = 10 mins, 20 mins, 40 mins, 80 mins, 160 mins, 320 mins, 640 mins, and 1280 mins. Perform summations from n = 1 to 50. Develop a VB program to generate data (see table below) and also plot the results as shown below. EXCEL DESIGN AND ANSWERS FOR THE ROD PROBLEM
Background image of page 1

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

View Full DocumentRight Arrow Icon
2 Code for ROD problem pi = 22 / 7 t1 = Cells(1, 2) t2 = Cells(2, 2) length = ? delx = ? time = ? !first time read from a cell D = Cells(6, 2) index = Cells(1, 5) n = length / delx + 1 For iprint = 2 To 9 !Outer loop for all different times x = 0# For i = 1 To n !loop for different x values constant = 0# For j = 1 To 50 !loop for the summation over 50 terms
Background image of page 2
Image of page 3
This is the end of the preview. Sign up to access the rest of the document.

This note was uploaded on 11/14/2011 for the course CE 3010 taught by Professor Clement during the Fall '09 term at Auburn University.

Page1 / 5

matrixHW8 - LAB-8 Solve 1 (Rod problem), 2 (Gauss...

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

View Full Document Right Arrow Icon
Ask a homework question - tutors are online