www.gusucode.com > FDTD计算二维光子带隙的程序 > FDTD计算二维光子带隙的程序/247787/SaveComponent.m

    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);