savefield.m

来自「外国人开发的电磁时域有限差分方法工具包 Electromagnetic Fin」· M 代码 · 共 24 行

function SaveField(Data)

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 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 TimeSteps dT TimeDecimation MaxTimeStep
global OutputFileName FileExtension

fname=strcat('Output\\',OutputFileName,FileExtension);

dTT=dT/MaxTimeStep;
nT=length(Data);
dt=dTT*TimeDecimation;
T=nT*dt;

SaveComponent(fname,Data,nT,dTT,dt,T)