-
Notifications
You must be signed in to change notification settings - Fork 16
/
INSTALL_Direct_Method_Examples.m
181 lines (142 loc) · 5.27 KB
/
INSTALL_Direct_Method_Examples.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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
%--------------------------------------------------------------------------
% INSTALL_Direct_Method_Examples
% This scripts helps you get the project up and running
%--------------------------------------------------------------------------
% Automatically adds project files to your MATLAB path, downloads the
% required files, and opens an example
%--------------------------------------------------------------------------
% Install script based on MFX Submission Install Utilities
% https://github.com/danielrherber/mfx-submission-install-utilities
% https://www.mathworks.com/matlabcentral/fileexchange/62651
%--------------------------------------------------------------------------
% Primary Contributor: Daniel R. Herber, Graduate Student, University of
% Illinois at Urbana-Champaign
% https://github.com/danielrherber/optimal-control-direct-method-examples
%--------------------------------------------------------------------------
function INSTALL_Direct_Method_Examples
% add contents to path
AddSubmissionContents(mfilename)
% download required web zips
RequiredWebZips
% add contents to path (files have been downloaded)
AddSubmissionContents(mfilename)
% run install file for DTQP Project
evalc('INSTALL_DTQP');
CloseThisFile('BrysonHo166')
% add contents to path (files have been downloaded)
AddSubmissionContents(mfilename)
% open example
OpenThisFile('Run_All_Examples')
% close this file
CloseThisFile(mfilename) % this will close this file
end
%--------------------------------------------------------------------------
function RequiredWebZips
disp('--- Obtaining required web zips')
% initialize index
ind = 0;
% initialize structure
zips = struct('url','','folder','','test','');
% zip 1
ind = ind + 1;
zips(ind).url = 'https://www.mathworks.com/matlabcentral/mlc-downloads/downloads/submissions/51104/versions/1/download/zip/v1.zip';
zips(ind).folder = 'MFX 51104';
zips(ind).test = 'LagrangeInter';
% zip 2
ind = ind + 1; % increment
zips(ind).url = 'https://github.com/danielrherber/dt-qp-project/archive/master.zip';
zips(ind).folder = 'MFX 65434';
zips(ind).test = 'DTQP_solve';
% obtain full function path
full_fun_path = which(mfilename('fullpath'));
outputdir = fullfile(fileparts(full_fun_path),'include');
% download and unzip
DownloadWebZips(zips,outputdir)
disp(' ')
end
%--------------------------------------------------------------------------
function AddSubmissionContents(name)
disp('--- Adding submission contents to path')
disp(' ')
% current file
fullfuncdir = which(name);
% current folder
submissiondir = fullfile(fileparts(fullfuncdir));
% add folders and subfolders to path
addpath(genpath(submissiondir))
end
%--------------------------------------------------------------------------
function DownloadWebZips(zips,outputdir)
% store the current directory
olddir = pwd;
% create a folder for outputdir
if ~exist(outputdir, 'dir')
mkdir(outputdir); % create the folder
else
addpath(genpath(outputdir)); % add folders and subfolders to path
end
% change to the output directory
cd(outputdir)
% go through each zip
for k = 1:length(zips)
% get data
url = zips(k).url;
folder = zips(k).folder;
test = zips(k).test;
% first check if the test file is in the path
if exist(test,'file') == 0
try
% download zip file
zipname = websave(folder,url);
% save location
outputdirname = fullfile(outputdir,folder);
% create a folder utilizing name as the foldername name
if ~exist(outputdirname, 'dir')
mkdir(outputdirname);
end
% unzip the zip
unzip(zipname,outputdirname);
% delete the zip file
delete([folder,'.zip'])
% output to the command window
disp(['Downloaded and unzipped ',folder])
catch % failed to download
% output to the command window
disp(['Failed to download ',folder])
% remove the html file
delete([folder,'.html'])
end
else
% output to the command window
disp(['Already available ',folder])
end
end
% change back to the original directory
cd(olddir)
end
%--------------------------------------------------------------------------
function OpenThisFile(name)
disp(['--- Opening ', name])
try
% open the file
open(name);
catch % error
disp(['Could not open ', name])
end
disp(' ')
end
%--------------------------------------------------------------------------
function CloseThisFile(name)
disp(['--- Closing ', name])
disp(' ')
% get editor information
h = matlab.desktop.editor.getAll;
% go through all open files in the editor
for k = 1:numel(h)
% check if this is the file
if ~isempty(strfind(h(k).Filename,name))
% close this file
h(k).close
end
end
end