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
|
function store_all
cd 'donnees_ALADIN';
enter = input('Si vous voulez stocker les données du point le plus proche de la station de Tun C, TAPEZ 1\n Si vous voulez stocker les données du point le pp de Mo, TAPEZ 2\n Si vous voulez stocker les données du point le pp de Je, tapez 3\n Si vous voulez stocker les données du pp du projet Rawed, TAPEZ 4\n Si vous stocker les données du pp de halk el menzel, TAPEZ 5\n Si vous stocker les données du pp de Achtart, TAPEZ 6\n Si vous stocker les données du pp PT_1, TAPEZ 7\n Si vous stocker les données du pp PT_2, TAPEZ 8\n Si vous stocker les données du pp PT_3, TAPEZ 9\n Si vous voulez quitter l exécution du programme, TAPEZ 10\n') ; % entrer le choix
if (enter==1)
outt = num2str('TU-C');
end
if (enter==2)
outt = num2str('MO');
end
if (enter==3)
outt = num2str('JE');
end
if (enter==4)
outt = num2str('Achtart');
end
if (enter==5)
outt = num2str('Halkelmenzel');
end
if (enter==6)
outt = num2str('Rawed');
end
if (enter==7)
outt = num2str('PT-1');
end
if (enter==8)
outt = num2str('PT-2');
end
if (enter==9)
outt = num2str('PT-3');
end
if (enter==10) return;
end
mounth = input ('Si vous voulez travailler pour les données de janvier, tapez 1\n si vous voulez travailler pour les données de février, tapez 2\n Si vous voulez travailler pour les données de mars, tapez 3\n Si vous voulez quitter l exécution du programme, tapez 4\n') ; % entrer le choix
if (mounth ==1);
mois=num2str('ALADIN-JAN-');
date = num2str('ASCII_200701%02d');
N =31;
end
if (mounth ==2);
mois=num2str('ALADIN_-FEB-');
date = num2str('ASCII_200702%02d');
N =28;
end
if (mounth ==3);
mois=num2str('ALADIN-MAR-');
date = num2str('ASCII_200703%02d');
N =31;
end
if (mounth ==4) return;
end
for j=1:N;
for i=0:3:21;
k=(j-1)*8+(i/3);
nom_pt=num2str(j,date);
heure= num2str(i,'_%02d');
nom=[nom_pt heure];
L = load (nom);
h = (L);
[m,n] = size(h);
S1(k+1,:)= h(1,:);
S2(k+1,:)= h(2,:);
S3(k+1,:)= h(3,:);
S4(k+1,:)= h(4,:);
S5(k+1,:)= h(5,:);
S6(k+1,:)= h(6,:);
S7(k+1,:)= h(7,:);
S8(k+1,:)= h(8,:);
S9(k+1,:)= h(9,:);
end
end
cd '..';
cd 'ALADIN_POINT';
% save data as an ASCII file
sortie1= [mois outt];
sortie2= [mois outt];
sortie3= [mois outt];
sortie4= [mois outt];
sortie5= [mois outt];
sortie6= [mois outt];
sortie7= [mois outt];
sortie8= [mois outt];
sortie9= [mois outt];
save(sortie1, 'S1','-ascii');
save(sortie2, 'S2','-ascii');
save(sortie3, 'S3','-ascii');
save(sortie4, 'S4','-ascii');
save(sortie5, 'S5','-ascii');
save(sortie6, 'S6','-ascii');
save(sortie7, 'S7','-ascii');
save(sortie8, 'S8','-ascii');
save(sortie9, 'S9','-ascii');
cd '..';
return |
Partager