1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
hd=getenv('HOMEDRIVE');
hd=getenv('HOMEAPATH');
fid=fopen(fullfile(hd,hp,'Bureau', 'test.txt'),'wt');
fprintf(fid,'Near Field Title: Electric Field (Z-Component) at 2.03 GHz\n Quantity: Ez (V/m)\n''\n No. 0 Cut: Dir= Z NX= 41 NY= 101\n');
fprintf(fid,'1st \t 2nd \t x\t y\t z\t Mag[Ez]\tangle[Ez]\n');
for i=1:4141
fprintf(fid,'%3d\t %3d\t %d \t %d\t %d \t %d \t %d \n',a(i)-1,b(i)-1,a(i)-1,b(i)-1,z(i),abs(mag(i)), (angle(i)*pi)/180);
end
g=max (max(mag));
fprintf(fid,'''\n Maximum=%8.8d\n',g);
fclose(fid); |
Partager