hfssassignlumpedport.m

用matlab调用HFSS代码hfssapi.rar

% ----------------------------------------------------------------------------
% function hfssAssignLumpedPort(fid, Name, ObjName, iLStart, iLEnd, Units, 
%                               [Resistance = 50.0], [Reactance = 0.0])
% 
% Description :
% -------------
% Create the necessary VB Script to assign a Lumped Port to a given Object.
%
% Parameters :
% ------------
% fid     - file identifier of the HFSS script file.
% Name    - name of the lumped port (appears under 'Boundaries' in HFSS).
% ObjName - name of the (sheet-like) object to which the lumped port is to 
%           be assigned.
% iLStart - (vector) starting point of the integration line. Specify as
%           [x, y, z].
% iLEnd   - (vector) ending point of the integration line. Specify as
%           [x, y, z].
% Units   - specify as 'meter', 'in', 'cm' (defined in HFSS).
% [Resistance] - (scalar, optional) the port resistance (defaults to 
%                50.0 Ohms)
% [Reactance]  - (scalar, optional) the port reactance (defaults to 
%                0.0 Ohms)
% 
% Note :
% ------
% Integration Lines are mandatory in lumped ports.
%
% Example :
% ---------
% fid = fopen('myantenna.vbs', 'wt');
% ... 
% hfssAssignLumpedPort(fid, 'LumpedPort', 'GapSource', [-gapL/2, 0, 0], ...
%	                 [gapL/2, 0, 0], 'meter', 75, 0);
%
% ----------------------------------------------------------------------------

% ----------------------------------------------------------------------------
% This file is part of HFSS-MATLAB-API.
%
% HFSS-MATLAB-API is free software; you can redistribute it and/or modify it 
% under the terms of the GNU General Public License as published by the Free 
% Software Foundation; either version 2 of the License, or (at your option) 
% any later version.
%
% HFSS-MATLAB-API is distributed in the hope that it will be useful, but 
% WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY 
% or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License 
% for more details.
%
% You should have received a copy of the GNU General Public License along with
% Foobar; if not, write to the Free Software Foundation, Inc., 59 Temple 
% Place, Suite 330, Boston, MA  02111-1307  USA
%
% Copyright 2004, Vijay Ramasami ([e-mail])
% ----------------------------------------------------------------------------

function hfssAssignLumpedPort(fid, Name, ObjName, iLStart, iLEnd, Units, ...
                              Resistance, Reactance)

% arguments processor.
if (nargin < 6)
	error('Not Enough Arguments !');
elseif (nargin < 7)
	Resistance = [];
	Reactance = [];
elseif (nargin < 8)
	Reactance = [];
end;

% Setup default arguments.
if isempty(Resistance)
	Resistance = 50.0;
end;

if isempty(Reactance)
	Reactance = 0.0;
end;

% The usual fprintf stuff.
fprintf(fid, '\n');
fprintf(fid, 'Set oModule = oDesign.GetModule("BoundarySetup")\n');

fprintf(fid, 'oModule.AssignLumpedPort _\n');
fprintf(fid, 'Array("NAME:%s", _\n', Name);
fprintf(fid, '      Array("NAME:Modes", _\n');
fprintf(fid, '             Array("NAME:Mode1", _\n');
fprintf(fid, '                   "ModeNum:=", 1, _\n');
fprintf(fid, '                   "UseIntLine:=", true, _\n');
fprintf(fid, '                   Array("NAME:IntLine", _\n');
fprintf(fid, '                          "Start:=", Array("%f%s", "%f%s", "%f%s"), _\n', ...
        iLStart(1), Units, iLStart(2), Units, iLStart(3), Units);
fprintf(fid, '                          "End:=",   Array("%f%s", "%f%s", "%f%s") _\n', ...
        iLEnd(1), Units, iLEnd(2), Units, iLEnd(3), Units);
fprintf(fid, '                         ), _\n');
fprintf(fid, '                   "CharImp:=", "Zpi" _\n');
fprintf(fid, '                   ) _\n');
fprintf(fid, '            ), _\n');
fprintf(fid, '      "Resistance:=", "%fOhm", _\n', Resistance);
fprintf(fid, '      "Reactance:=", "%fOhm", _\n', Reactance);
fprintf(fid, '      "Objects:=", Array("%s") _\n', ObjName);
fprintf(fid, '      )\n');