% смена рабочих директорий (избранных)

cd1='D:\USERS\DATA\Baselines\LEMI_Baselines\';
cd2='d:\Users\Geo\Observatory\Магнитные дела\POS_LEMI\';
cd3='d:\Users\LEMI_POS';
cd4='d:\Users\Geo\OPL';
cd5='D:\Users\Intermagnet_CD\';

cd_work=strvcat(cd1,cd2,cd3,cd4,cd5);
N=length(cd_work(:,1));

fprintf('--------------------\n')
for k=1:N, fprintf('%2.0f - %s\n',k,cd_work(k,:)), end
fprintf('--------------------\n')

k=input('Enter number of directory ... ');

cd(deblank(cd_work(k,:)))


