Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
29 lines (24 sloc) 515 Bytes
%% Copyright 2014 MERCIER David
function Vred = reducedValue(V1, V2, varargin)
%% Function giving the reduced form of 2 similar variables
% See K. L. Johnson, "Contact Mechanics" (1987) - ISBN: 9780521347969
% V1: variable of the 1st body
% V2: variable of the 2nd body
if nargin < 2
V2 = 100;
end
if nargin < 1
V1 = 50;
end
if V1 ~= 0 & V2 ~= 0
Vred = ((1./V1)+(1./V2)).^(-1);
elseif V1 == 0
Vred = V2;
elseif V2 == 0
Vred = V1;
end
if nargin == 0
display(V1);
display(V2);
end
end
You can’t perform that action at this time.