...
- addition of Fortran routines to McTools, working with dll's: from Matlab to Fortran and vice versa (Gerben de Boer, Jan Kramer, Fedor Baart)
- discussion on the new duinerosion routines: strong points, status so far, implementation and use in other projects etc. (Kees den Heijer, Pieter van Geer, Ferdinand Diermanse, Mark van Koningsveld, Sander van Rooij)
- general maintenance of McTools (Robin Morelissen, Gerben de Boer, Kees den Heijer, Pieter van Geer, Mark van Koningsveld)
- discussion over in te dienen offerte morfologisch onderzoek zwakke schakels on upcoming coastal projects in the framework of Sandmotor and Weak link issues (PieterKoen Tonnon (offerte leider), Jan Mulder, Ap van Dongeren, Jaap van Thiel de Vries, Dano Roelvink, Mark van Koningsveld)
- discussie over de opzet van een operationeel stormimpact model DC en discussion on the setup of an operational storm impact model for DC and MICORE (Deepak Vatvani, Mark van Koningsveld, Ap van Dongeren, Jaap van Thiel de Vries, Dano Roelvink)
Eenieder is natuurlijk vrij om aan te haken/bij te dragen aan deze onderwerpen of andere vraagstukken ter tafel te brengen. Enkele van de afdelingshoofden/projectleiders hebben aangegeven even langs te zullen lopen om zich te laten bijpraten en eventueel zelf dingen aan te dragen. Ik ga er dus vanuit dat het weer een zeer productieve dag wordt. We staan nu met McTools op revision 759. Ik blijf bij mijn aanbod om het eten te betalen voor diegene die het eerst de 1000 aantiktEveryone is obviously free to join and contribute to each of these topics or to raise other items that are not on the agenda yet. It looks like it will be a very productive day. McTools is now at revision 759. Free dinner for the person to hit 1000!
Script demonstrating useful McTools applications (by Pieter and Kees)
Code Block | ||||||
---|---|---|---|---|---|---|
| ||||||
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 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 |
Items that came up during the day
migrate Refference Guide generation to Build Server
...