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