savecomponent.m

来自「fdtd计算二维光子晶体带隙」· M 代码 · 共 26 行

function SaveComponent(fname,Data,nT,dt,dT,T)

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Electromagnetic Finite-Difference Time-Domain %
% Version 1.20, Release 1                       %
%                                               %
%   (C) Copyright 2005                          %
%   Sharif University of Technology             %
%   School of Electrical Engineering            %
%   All Rights Reserved                         %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

global X Y Phase

Output=fopen(fname,'w');

fprintf(Output,'T: %.10f dt: %.10f dT: %.10f Total Steps: %d\n',T,dt,dT,nT);
fprintf(Output,'Field Data:\n');
fprintf(Output,'%.10f\n',Data);
fprintf(Output,'END\n');
fprintf(Output,'T: %.10f dt: %.10f dT: %.10f\n',T,dt,dT);
fprintf(Output,'Dimension: %d %d\n',X,Y);
fprintf(Output,'Phase: %.10f\n',Phase);

fclose(Output);