18 lines
377 B
Mathematica
18 lines
377 B
Mathematica
|
function [granite] = initializeGranite()
|
||
|
|
%%
|
||
|
|
load('./mat/smiData.mat', 'smiData');
|
||
|
|
|
||
|
|
%%
|
||
|
|
granite = struct();
|
||
|
|
|
||
|
|
granite.m = smiData.Solid(5).mass;
|
||
|
|
granite.k.ax = 1e8; % x-y-z Stiffness of the granite [N/m]
|
||
|
|
|
||
|
|
granite.c.ax = granite.k.ax/1000;
|
||
|
|
|
||
|
|
%% Save if no output argument
|
||
|
|
if nargout == 0
|
||
|
|
save('./mat/granite.mat', 'granite');
|
||
|
|
end
|
||
|
|
end
|