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
|
% Lecture fichier ini
fid = fopen('node_ini.txt');
XYZ_ini = textscan(fid,'%*d%f%f%f','commentstyle','NODE','headerlines',5);
fclose(fid);
% Lecture fichier def
fid = fopen('node_def.txt');
data_def = textscan(fid,'%s','delimiter','\n','headerlines',10);
fclose(fid);
% Suppression des toutes les lignes lues depuis le fichier def qui sont vides ou qui possedent des lettres
idx = cellfun('isempty',data_def{1});
data_def{1}(idx,:) = [];
idx = strncmp(data_def{1},'NODE',4);
data_def{1}(idx,:) = [];
idx = strncmp(data_def{1},'*****',5);
data_def{1}(idx,:) = [];
idx = strncmp(data_def{1},'POST1',5);
data_def{1}(idx,:) = [];
idx = strncmp(data_def{1},'LOAD',4);
data_def{1}(idx,:) = [];
idx = strncmp(data_def{1},'RFRQ=',5);
data_def{1}(idx,:) = [];
idx = strncmp(data_def{1},'THE',3);
data_def{1}(idx,:) = [];
idx = strncmp(data_def{1},'MAXIMUM',7);
data_def{1}(idx,:) = [];
idx = strncmp(data_def{1},'VALUE',5);
data_def{1}(idx,:) = [];
[x_def,y_def,z_def] = strread(char(data_def{1}).','%*d%f%f%f%*f');
% Affichage
figure
plot3(XYZ_ini{1},XYZ_ini{2},XYZ_ini{3},'b+');
hold on
plot3(XYZ_ini{1}+x_def,XYZ_ini{2}+y_def,XYZ_ini{3}+z_def,'r+'); |
Partager