[go: up one dir, main page]
Menu ▾ ▴

[73c35b]: / anal / force2ch.m  Maximize  Restore  History

Download this file

24 lines (23 with data), 508 Bytes 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
% force2ch.m: look for forced parameters

% GUISDAP v1.81   03-01-30 Copyright EISCAT

%

% See also: GUIZARD

forced=who('f_*');

for i=forced'

 forcepar=char(i);

 forcedpar=forcepar(3:end);

 if exist(forcedpar,'var')

  forcepare=eval(forcepar);

  if isstr(forcepare)

   try

    eval([forcedpar '=' forcepare ';'])

   catch

    eval([forcedpar '=' forcepar ';'])

   end

  else

   eval([forcedpar '=' forcepar ';'])

  end

 else

  warning('GUISDAP:default','Forced parameter %s do not exists!',forcedpar)

 end

end