heat_prob1

(./heat_prob1.m)

Help text

 dof = 1 for heat transfer
 dof = 3 for a truss

Cross-Reference Information

solve_truss    ./solve_truss.m

Listing of ./heat_prob1.m

nodes = [0,0,0;
        0,15,0;
        15,0,0];

A = 1;                     % in^2
K = 10;                    % Heat Transfer Coefficient

members = [
        1,2,A,K;
        1,3,A,K;
        2,3,A,K];        %node 1, node 2,area, K
        
active_nodes = [2,3];

loads = [3,-100];        %node, fi,fj,fk

% dof = 1 for heat transfer
% dof = 3 for a truss
        
dof = 1;

displacements = solve_truss(nodes,members,active_nodes,loads,dof)
%plot_truss(nodes,members,displacements);
%member_forces = forces (displacements, members,nodes)
%setup_rotate;