Demonstrate Thermnet.

This function allows you to model a thermal system using a lumped element model.

Since version 1.
-------------------------------------------------------------------------
See also Thermnet, AC
-------------------------------------------------------------------------
%--------------------------------------------------------------------------
%   Copyright 1995 Princeton Satellite Systems, Inc. All rights reserved.
%--------------------------------------------------------------------------

disp('A random model')

cnm = [2 inf;1 3;4 0;1 0];
cc  = [3 4;3 2;3 0;4 0];
rnm = [2 0;1 3;4 0;1 0];
rc  = [3 0;3 2;3 0;4 0]*0.25e-6;
inm = [1 4];
onm = [2 3];
tnom= [100 100 100 100];
mn  = [1 1 1 1];

[a,b,c] = Thermnet(mn,cnm,cc,inm,onm,rnm,rc,tnom);

disp(a);
disp(b);
disp(c);

% The simplest model

disp('A single node with no radiation')

cnm  = inf;
cc   = 1;
inm  = 1;
onm  = 1;

[a,b,c] = Thermnet(1,cnm,cc,inm,onm);

disp(a);
disp(b);
disp(c);

% Add radiation

disp('A single node with radiation')

cnm  = inf;
cc   = 1;
inm  = 1;
onm  = 1;
rnm  = inf;
rc   = 0.25e-6;
tnom = 100;

[a,b,c] = Thermnet(1,cnm,cc,inm,onm,rnm,rc,tnom);
disp(a);
disp(b);
disp(c);


%--------------------------------------
A random model
   -18     6     0     8
     6   -10     4     0
     0     4   -10     6
     8     0     6   -14
     1     0
     0     0
     0     0
     0     1
     0     1     0     0
     0     0     1     0
A single node with no radiation
    -1
     1
     1
A single node with radiation
    -2
     1
     1