%CME434:  Solution to HW5G by TSD
clear all;
status = fclose('all')		%Make sure all files are closed

global   nn ne nm ndim nep nqn
global   nq nf nmpc
global   XYZ CTAB AE QTAB FTAB MATERIAL
global   FIDI_NAME ns
global   k l m n
global   K L F P Q

%FIDI_NAME = 'hw40data.txt'	%Name of input data file
%FIDI_NAME = 'hw41data.txt'
%FIDI_NAME = 'hw42data.txt'
%FIDI_NAME = 'hw43data.txt'
 FIDI_NAME = 'hw51data.txt'
 FIDI_NAME = 'hw52data.txt'
hw5g_sub;	%call functions

view(-10,70)