-
Notifications
You must be signed in to change notification settings - Fork 0
/
io_Saver_P1_table.m
45 lines (36 loc) · 1.95 KB
/
io_Saver_P1_table.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
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Table Saver
% for use with Sediment Budget Analysis 2.0
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Produced by Joseph Wheaton %
% August 2007 %
% %
% Last Updated: 02 August 2007
% %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%
% This function simply saves a table (for later use) of the elevation
% change distributions based on the Simulation Path chosen by user.
% ASSUMING THAT DATA will be saved IN A NESTED FOLDER WORKING\scenarios:
cd(Dir_Run);
%-------Prouce an Output Report and Metadata File----------------
if(userFilePref == 0)
[filename,pathname]=uiputfile('*.csv','Save an Output Table to a File'); % Select final file name
table_file_name=[pathname filename '.csv'];
else
table_file_name= strcat(Dir_Run, '/P1DoD_ElevDist.csv');
end
fid20 = fopen(table_file_name, 'w'); %write a file based on user's specificaitons
fprintf(fid20,'Upper Elevation Range (m), Lower Elevation Range (m), Total Area (m2), Total Volume (m3), Number of Cells\n');
%Reinitialize Bin LImits
bin_CurrentLow = bin_LowerLimits;
bin_CurrentHigh = bin_LowerLimits+bin_increment;
for m=1:bin_nc; % Begin category loop
fprintf(fid20,'%6.2f,%6.2f,%10.3f,%10.3f,%d\n', bin_CurrentLow, bin_CurrentHigh, p1_AreaSum(m), p1_VolumeSum(m), p1_ChangeCount(m));
% Update bin intervals at end of category loop
bin_CurrentLow = bin_CurrentLow+bin_increment;
bin_CurrentHigh = bin_CurrentHigh+bin_increment;
end
fclose(fid20); %close file