Shallow-StrainPathMethod/ShallowStrainPathMethodTube.m at main · lluis-mv/Shallow-StrainPathMethod · GitHub

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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
%=========================================================================
%  Matlab to compute the velocities and strains Strains due to
%  the penetration of a tube using the Strain Path Method (Baligh, 1985)
%
%  Following the approach of Sagaseta et al (1991)
%
%  This file is responsible of the numerical integration whereas the other
%  file defines the velocity and temporal derivative of strains
%  simbolically and write them into a file
%
%  Shallow strain path method!
%
%  Barcelona, 13 February 2019
%=========================================================================


function []=ShallowStrainPathMethodTube()

% Define the geometry of the tube
%   the external radius, velocity of the tube are set to one


D_over_T = 10;


[RR, ZZ] = meshgrid([linspace(1e-6, 1, 15), linspace(1.05, 4, 20)],  ...
    linspace(0.1,6,35) );
% allocatate memory
rr = 0*RR; zz = rr; disp_radial = rr; disp_vertical = rr;
eR = rr; eZ = rr; eTheta = rr; eRZ = rr;
vr = rr; vz = rr; vr1 = rr; vz1 = rr;
vr2 = rr; vz2 = rr; vr3 = rr; vz3 = rr;

InitialZOfTube = 0;
FinalZOfTube = 3;


for jj = 1:size(RR,2)
    tic
    for ii = 1:size(RR,1)
        R = RR(ii,jj); Z = ZZ(ii,jj);

        [r, z] =IntegrateDisplacements( InitialZOfTube, ...
            FinalZOfTube, R, Z, D_over_T);

        rr(ii,jj) = r;
        zz(ii,jj) = z;
        [vr(ii,jj), vz(ii,jj)] = EvaluateVelocity(r, z, FinalZOfTube, D_over_T);
        [vr(ii,jj), vz(ii,jj), vr1(ii,jj), vz1(ii,jj), vr2(ii,jj), vz2(ii,jj), ...
            vr3(ii,jj), vz3(ii,jj) ] = EvaluateVelocity(r, z, FinalZOfTube, D_over_T);
    end

    %     waitbar(jj/size(RR,2),waitBar, 'Computing displacements and strains');
    pause(0.0001)
    disp_radial = rr - RR;
    disp_vertical = zz - ZZ;

    save('Shallow.mat', 'rr','RR','zz','ZZ', 'disp_radial', ...
        'disp_vertical', 'ii', 'jj', 'vr', 'vz', ...
        'vr1', 'vz1', 'vr2', 'vz2', 'vr3', 'vz3', ...
        'eR', 'eZ', 'eTheta', 'eRZ', 'D_over_T')
    if ( jj > 3)
        PostProcessResults('ShallowStrainPath', 'Shallow.mat');
        disp(['PostProcess ', num2str(jj), ' of ', num2str( size(RR,2) )] )
        toc;
    end
end


save('Shallow.mat', 'rr','RR','zz','ZZ', 'disp_radial', ...
    'disp_vertical', 'ii', 'jj', 'vr', 'vz', ...
    'vr1', 'vz1', 'vr2', 'vz2', 'vr3', 'vz3', ...
    'eR', 'eZ', 'eTheta', 'eRZ', 'D_over_T')


function [r, z] = IntegrateDisplacements(hIni, hEnd, R, Z, D_over_T)

initialCondition = zeros(2,1);
initialCondition(1) = R;
initialCondition(2) = Z;

SourceFunction = @(t,x) AuxiliarFunction(t, x, D_over_T);
options = odeset('RelTol',1e-6, 'AbsTol', 1e-6);
[~, xx] = ode45( SourceFunction , [hIni, hEnd], initialCondition, options);


r = xx(end,1);
z = xx(end,2);


function [vr, vz, vr1, vz1, vr2, vz2, vr3, vz3] = EvaluateVelocity(r, z, FinalZofTube, D_over_T)
if (nargout == 2)
    [a] = SourceTermShallowStrainPath(FinalZofTube, r, z, D_over_T);
    vr = a(1);
    vz = a(2);
elseif (nargout == 8)
    [a, b, c, d] = SourceTermShallowStrainPath(FinalZofTube, r, z, D_over_T);
    vr = a(1); vz = a(2);
    vr1 = b(1); vz1 = b(2);
    vr2 = c(1); vz2 = c(2);
    vr3 = d(1); vz3 = d(2);
end

function [dxdt] = AuxiliarFunction(t, x, D_over_T)
r = x(1);
z = x(2);
[v] = SourceTermShallowStrainPath(t,r,z, D_over_T);

dxdt = v;