From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001 From: priyanka Date: Wed, 24 Jun 2015 15:03:17 +0530 Subject: initial commit / add all books --- 587/CH2/EX2.6/example2_6.sce | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100755 587/CH2/EX2.6/example2_6.sce (limited to '587/CH2/EX2.6') diff --git a/587/CH2/EX2.6/example2_6.sce b/587/CH2/EX2.6/example2_6.sce new file mode 100755 index 000000000..fcf80bc41 --- /dev/null +++ b/587/CH2/EX2.6/example2_6.sce @@ -0,0 +1,14 @@ +clear; +clc; + +//Example2.6[Heat Conduction in a Short Cylinder] +//Given:- +//Radius R and height h of the small cylinder +T=300;//Temperature of cylinder[degree Celcius] +T_ambient=20;//Temperature of ambient air[degree Celcius] +//Variation is thermal conductivity is negligible +//The cylinder is cooled unifromly from the top and bottom surfaces in the z-direction as well as the lateral surface in the radial r-direction.Also Temperature at any point in the ball changes with time during cooling. Therefore this is a two dimensional transient heat conduction problem i.e. T=T(r,z,t) +disp("The differential equation governing the variation of temperature in the billet is ") +disp("((1/r)(d/dr)(k*r(dT/dr)))+((d/dz)(k(dT/dz)))=rho*c(dT/dt)") +disp("In case of constant thermal conductivity it reduces to") +disp("((1/r)(d/dr)(r(dT/dr)))+(d^2)T/(dz^2)=(1/a)(dT/dt)") \ No newline at end of file -- cgit