initial import

This commit is contained in:
Dave Goodwin 2006-05-01 23:04:34 +00:00
parent 265b81948d
commit c7c55cdbaf
3 changed files with 22 additions and 0 deletions

View file

@ -0,0 +1,4 @@
function v = electricPotential(a)
% ELECTRICPOTENTIAL - the electric potential of the phase
%
v = thermo_get(a.tp_id,25);

View file

@ -0,0 +1,4 @@
function a = setElectricPotential(a,phi)
% SETELECTRICPOTENTIAL Set the electric potential [V].
%
thermo_set(a.tp_id,2,phi);

View file

@ -0,0 +1,14 @@
function s = importEdge(file, name, phase1, phase2, phase3, phase4)
% IMPORTINTERFACE - import an interface
%
if nargin == 3
s = Interface(file, name, phase1);
elseif nargin == 4
s = Interface(file, name, phase1, phase2);
elseif nargin == 5
s = Interface(file, name, phase1, phase2, phase3);
elseif nargin == 6
s = Interface(file, name, phase1, phase2, phase3, phase4);
else
error('importEdge only supports 4 neighbor phases');
end