0001 function lukeobj = iluke_info(lukeobj,s)
0002
0003
0004
0005 if ischar(s) && isempty(s),
0006
0007 lukeobj = iluke_switch(lukeobj,'');
0008
0009 elseif ischar(s) && strcmp(s,'text'),
0010
0011 lukeobj = iluke_switch(lukeobj,'text');
0012
0013 lukeobj.infostr.string = {'INFOS'};
0014
0015 elseif ischar(s) && strcmp(s,'startup'),
0016
0017 lukeobj = iluke_switch(lukeobj,'text');
0018
0019 lukeobj.infostr.string = {'INFOS'};
0020 lukeobj.infotext.string = {'',...
0021 ' To get started :',...
0022 ' ==============','',...
0023 ' - "Load" Existing simulation','',...
0024 ' - "Import" Exp. data to import from database',...
0025 ' - "Load" Exp. data to load from existing EXTERNAL file',...
0026 ' - "New" Equilibrium to create equilibrium or import EQDSK file',...
0027 ' - "Load" Equilibrium to load from existing EQUIL file'};
0028
0029
0030 elseif ischar(s) && strcmp(s,'data'),
0031
0032 lukeobj = iluke_switch(lukeobj,'text');
0033
0034 lukeobj.infostr.string = {'INFOS'};
0035 lukeobj.infotext.string = {'','Next step :',...
0036 '========= ','',...
0037 '- "New" Equilibrium to create equilibrium from EXTERNAL structure'};
0038
0039
0040 elseif ischar(s) && strcmp(s,'output'),
0041
0042 lukeobj = iluke_switch(lukeobj,'text');
0043
0044 lukeobj.infostr.string = {'INFOS'};
0045 lukeobj.infotext.string = {'','Next step :',...
0046 '========= ','',...
0047 '- You may now create additional input structures, or run LUKE'};
0048
0049
0050 elseif ischar(s) && strcmp(s,'luke'),
0051
0052 lukeobj = iluke_switch(lukeobj,'luke');
0053
0054 lukeobj.infostr.string = {'RUN LUKE'};
0055
0056 elseif ischar(s) && strcmp(s,'c3po'),
0057
0058 lukeobj = iluke_switch(lukeobj,'c3po');
0059
0060 lukeobj.infostr.string = {'RUN C3PO'};
0061
0062 elseif ischar(s) && strcmp(s,'c3po_MultiTimes'),
0063
0064 lukeobj = iluke_switch(lukeobj,'c3po_MultiTimes');
0065
0066 lukeobj.infostr.string = {'RUN C3PO'};
0067
0068 elseif ischar(s) && strcmp(s,'r5x2'),
0069
0070 lukeobj = iluke_switch(lukeobj,'r5x2');
0071
0072 lukeobj.infostr.string = {'RUN R5X2'};
0073
0074 end
0075
0076 iluke_update_state(lukeobj);
0077
0078 end
0079
0080 function lukeobj = iluke_switch(lukeobj,str)
0081
0082
0083
0084 if strcmp(str,'luke'),
0085
0086 set(lukeobj.infotext.handle,'visible','off');
0087 set(lukeobj.infostr.handle,'visible','on');
0088
0089 lukeobj.param.visible = 'on';
0090
0091 lukeobj.timedep.visible = 'on';
0092 lukeobj.timeout.visible = 'on';
0093 lukeobj.remote.visible = 'on';
0094 lukeobj.dist.visible = 'on';
0095 lukeobj.runluke.visible = 'on';
0096 lukeobj.lukeidtitle.visible = 'on';
0097 lukeobj.lukeid.visible = 'on';
0098 lukeobj.runcheck.visible = 'on';
0099 lukeobj.lukechecktext.visible = 'on';
0100
0101 else
0102
0103 lukeobj.param.visible = 'off';
0104
0105 lukeobj.timedep.visible = 'off';
0106 lukeobj.timeout.visible = 'off';
0107 lukeobj.remote.visible = 'off';
0108 lukeobj.dist.visible = 'off';
0109 lukeobj.runluke.visible = 'off';
0110 lukeobj.lukeidtitle.visible = 'off';
0111 lukeobj.lukeid.visible = 'off';
0112 lukeobj.runcheck.visible = 'off';
0113 lukeobj.lukechecktext.visible = 'off';
0114
0115 end
0116
0117 if any(strcmp(str,{'c3po_MultiTimes','c3po'})),
0118
0119 set(lukeobj.infotext.handle,'visible','off');
0120 set(lukeobj.infostr.handle,'visible','on');
0121
0122 lukeobj.angles.visible = 'on';
0123 lukeobj.spectrum.visible = 'on';
0124 lukeobj.launch.visible = 'on';
0125
0126 lukeobj.runc3pooptim.visible = 'on';
0127 lukeobj.wsparamtitle.visible = 'off';
0128 lukeobj.wsparam.visible = 'off';
0129
0130 else
0131
0132 lukeobj.angles.visible = 'off';
0133 lukeobj.spectrum.visible = 'off';
0134 lukeobj.launch.visible = 'off';
0135
0136 lukeobj.runc3pooptim.visible = 'off';
0137 lukeobj.wsparamtitle.visible = 'off';
0138 lukeobj.wsparam.visible = 'off';
0139
0140 end
0141
0142 if strcmp(str,'c3po_MultiTimes'),
0143
0144
0145
0146
0147
0148 else
0149
0150
0151
0152
0153
0154 end
0155
0156 if any(strcmp(str,{'c3po_MultiTimes','c3po'})),
0157
0158 set(lukeobj.infotext.handle,'visible','off');
0159 set(lukeobj.infostr.handle,'visible','on');
0160
0161 lukeobj.wavestruct.visible = 'on';
0162 lukeobj.wavestruct.select.visible = 'off';
0163 lukeobj.c3poparam.visible = 'on';
0164 lukeobj.runc3po.visible = 'on';
0165 lukeobj.runc3poall.visible = 'on';
0166
0167 else
0168
0169 lukeobj.wavestruct.visible = 'off';
0170 lukeobj.wavestruct.select.visible = 'off';
0171 lukeobj.c3poparam.visible = 'off';
0172 lukeobj.runc3po.visible = 'off';
0173 lukeobj.runc3poall.visible = 'off';
0174
0175 end
0176
0177 if strcmp(str,'r5x2'),
0178
0179 set(lukeobj.infotext.handle,'visible','off');
0180 set(lukeobj.infostr.handle,'visible','on');
0181
0182 lukeobj.hxrcam.visible = 'on';
0183 lukeobj.hxrrange1.visible = 'on';
0184 lukeobj.hxrrange2.visible = 'on';
0185 lukeobj.hxrchord.visible = 'on';
0186 lukeobj.hxrbin.visible = 'on';
0187 lukeobj.hxrrho.visible = 'on';
0188 lukeobj.hxrtheta.visible = 'on';
0189 lukeobj.hxrdir.visible = 'on';
0190 lukeobj.hxrkphot.visible = 'on';
0191 lukeobj.hxrexp.visible = 'on';
0192 lukeobj.hxrparam.visible = 'on';
0193 lukeobj.hxrbrem.visible = 'on';
0194 lukeobj.hxrdiag.visible = 'on';
0195
0196 else
0197
0198 lukeobj.hxrcam.visible = 'off';
0199 lukeobj.hxrrange1.visible = 'off';
0200 lukeobj.hxrrange2.visible = 'off';
0201 lukeobj.hxrchord.visible = 'off';
0202 lukeobj.hxrbin.visible = 'off';
0203 lukeobj.hxrrho.visible = 'off';
0204 lukeobj.hxrtheta.visible = 'off';
0205 lukeobj.hxrdir.visible = 'off';
0206 lukeobj.hxrkphot.visible = 'off';
0207 lukeobj.hxrexp.visible = 'off';
0208 lukeobj.hxrparam.visible = 'off';
0209 lukeobj.hxrbrem.visible = 'off';
0210 lukeobj.hxrdiag.visible = 'off';
0211 end
0212
0213 if isempty(str),
0214
0215 set(lukeobj.infotext.handle,'visible','off');
0216 set(lukeobj.infostr.handle,'visible','off');
0217
0218 elseif strcmp(str,'text'),
0219
0220 set(lukeobj.infotext.handle,'visible','on');
0221 set(lukeobj.infostr.handle,'visible','on');
0222
0223 end
0224 end
0225
0226
0227
0228
0229
0230