forked from randlab/hytool
-
Notifications
You must be signed in to change notification settings - Fork 0
/
agarwal_dmo.m
61 lines (50 loc) · 1.98 KB
/
agarwal_dmo.m
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
%% Demo example for the agarwal time
% This demonstrates the interpretation of a recovery test after a constant
% rate or variable rate test.
%
% MIT License
% Copyright (c) 2017 Philippe Renard - University of Neuchâtel (CHYN)
%%
%
% This demo contains two examples: the first shows the interpretation of a
% recovery test after a constant rate test with real field data, the second
% is a synthetic example comparing the interpretation of the recovery after
% a multiple rate test with a standard Theis interpretation or with the
% Agarwal technique.
%% Field example: recovery after constant rate
%
% The data set for this example comes from:
% Todd D.K.(1980), Ground Water Hydrology, John Wiley & Sons, New York,
% Batu, V., Aquifer Hydraulics: A Comprehensive Guide to Hydrogeologic
% Data Analysis, John Wiley, New York, 1998.
% Example 4-12, Pages 183-186
%
% The data are from an observation well located 60 m away from the pumping
% well. Let us first load the data and plot them.
[t,s]=ldf('agt_ds1.dat');
clf
plot(t,s,'-o')
title('Recovery data in the observation well')
xlabel('Time since pump stopped in seconds')
ylabel('Residual drawdown in m')
%%
% We then define the values of the parameters that are required for the
% interpretation:
tp=240*60; % Duration of pumping
qp=2500/24/60/60; % pumping rate
r= 60; % distance to the pumping well
%%
% Once the data have been loaded and the parameter defined, they can
% be interpreted. First, we calculate the Agarwal time. Then we use it to
% estimate the parameter p and fit the Theis solution to the data. The
% result is controlled graphically with the trial function.
[ta,sa] = agarwal_time( t, s, tp); % compute the Agarwal time
p=ths_gss(ta,sa);
p=fit('ths',p,ta,sa);
ths_rpt(p,ta,sa,[qp,r],'Interpretation of recovery test with Agarwal time')
%%
% The folowing values are obtained:
% T = 1.3e-2 m2/s and S = 1.9 e-4
%
% They are identical to the values found by Batu (1998):
% T = 1.3 e-2 m2/s and S = 1.9 e-4