summaryrefslogtreecommitdiff
path: root/965/CH4/EX4.21/21.sci
blob: 8b231d397739a75334caaedc281b40933927beb8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
clc;
clear all;
disp("to find Depth")
a=2.75*10^(-3);//m^2/h
ti=5.4;// degree C
ta=-6;// degree C
t=0;// degree C
tau=9.5;// hours


T1=(t-ta)/(ti-ta);
erfM=T1;
M=0.5;// from tables
x=2*M*(a*tau)^0.5;
disp("m",x,"x =")