blob: aabb6dc5e3d3d38764c4fea6928443b55f32893b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
clear;
clc;
//To find Approx Value
function[A]=approx(V,n)
A=round(V*10^n)/10^n;//V-Value n-To what place
funcprot(0)
endfunction
//Example 2.13
//Caption : Program to Find the time for a certain Temperature Drop
//Given values
M=190;//Mass=190Kg
T0=333.15;//Temperature=333.15K(60`C)
m=0.2;//Steady rate of mass(Kg/s)
T=308.15;//Temperature=308.15K(35`C)
T1=283.15;//Temperature=283.15K(10`C)
//Solution
//Using the Eqn (2.29)
t=approx(-(M/m)*log((T-T1)/(T0-T1)),1);//s
disp('s',t,'Time Taken for temperature of water to drop from 333.15K to 308.15K')
t=round(t/60);//min
disp('min',t,'Time Taken for temperature of water to drop from 333.15K to 308.15K')
//End
|
