Page History

...

Script demonstrating useful McTools applications (by Pieter and Kees)

dbstop in getVolume at 42
dbstopcurrent
\[Volume, result, Boundaries\] = getVolume(xInitial, zInitial);
dbclear in getVolume at 42
dbstopcurrent
writemessage(3,'Example of getInputVariables completed');

%% roundoff

clear;fclose all;close all;clc

X = 87643.7852;

for n = -2:2:4

    Xround = roundoff(X, n);

    disp(num2str(Xround))

end

%% getdefaults

dbstop in roundoff at 40

Xround = roundoff(X);

dbclear in roundoff at 40

%% double2evalstr

clear;fclose all;close all;clc

dbstop in double2evalstr_test at 9

run double2evalstr_test

dbstopcurrent

dbstop getHsig_t_test at 30

dbstop getHsig_t_test at 41

run getHsig_t_test

dbstopcurrent

writemessage(4,'Example of double2evalstr_test completed');

%% getFileName
clear;fclose all;close all;clc
directory = 'D:\heijer\My Documents\Work\TU Delft\PhD project\Prob2B\ParametricStudy\DenHeijer2008\Case_10';
extension = 'txt';
exception = 'DP_Case_10_maxRD=068.7.txt';
fileid = \[\];
dbstopcurrent
fname = getFileName(directory, extension, exception, fileid)
writemessage(5,'Example of getFileName completed');

%% writemessage

writemessage(7,'Staring example of writemessage');

dbstopcurrent

SavedMessages = writemessage('get')

%% IsCalls

fun = 'getDuneErosion_VTV2006';

directory = 'D:\heijer\My Documents\Program Files\McTools\mc_toolbox\mc_applications\mc_ucit\getDuneErosion\';

IsCalls = getCalls(fun, directory);

IsCalls = getCalls(fun, directory, 'quiet');

dbstopcurrent

writemessage(1,'Example of IsCalls completed');

%% IsCalledBy
clear;fclose all;close all;clc
fun = 'getVolume';
directory = 'D:\heijer\My Documents\Program Files\McTools\mc_toolbox\mc_applications\mc_ucit\getDuneErosion\';
\[IsCalledBy, Line, Column\] = getIsCalledBy(fun, directory);
\[IsCalledBy, Line, Column\] = getIsCalledBy(fun, directory, 'quiet');
dbstopcurrent
writemessage(2,'Example of IsCalledBy completed');

%% FD_GUI_figure

cd( directory);

run FD_GUI_figure

dbstopcurrent

writemessage(6,'Example of FD_GUI completed');

clc

%% guidisp

guidisp('set','FD_GUI_message_panel');

guidisp('test message panel');

guidisp('set',[]);

guidisp('Test Command line');

dbstopcurrent

writemessage(7,'Example of guidisp completed');

%% dbstate

dbstop in getDuneErosion_test at 6

dbstop in getDuneErosion_VTV2006 at 12

getDuneErosion_test('VTV2006',1);

dbstopcurrent

writemessage(7,'Example of dbstate completed');

%% dbstopcurrent

cd('D:\heijer\My Documents\Work\Deltares\Projects\McTools');

dbstopcurrent;

pause(0.1);

%% writemessage

SavedMessages = writemessage('get')

dbclear all

clear all;fclose all;close all;clc

cd f:\mctools\mc_toolbox; mcsettings

addpath(fileparts(mfilename('fullpath')));

% edit getCalls getIsCalledBy getInputSize getInputVariables roundoff double2evalstr getFileName getVolume

writemessage('init');

%% getInputVariables / getInputSize

clear;fclose all;close all;clc

quickstart internet

d = readTransectData('Jarkus Data','Noord-Holland','03000','2006');

xInitial    = d.xe(~isnan(d.ze)); %keep only the points with non-NaN z-values

zInitial    = d.ze(~isnan(d.ze)); %keep only the points with non-NaN z-values