Material Properties = PropertiesExtraction(FileName)
MaterialsProperties={ }
x=1
FileName='Q4.txt'
fhand = fopen(Filename, 'r')
while ~feof(fhand)
line = fgetl(fhand)
s=strsplit(line, '/t')
for xx= 1:1:size(s,2)
content = s{xx}
if isnan( str2double(content))
MaterialProperties{x, xx}= content
else
MaterialProperties{x, xx}= str2double(content)
end
end
x=x + 1
end
fclose(fhand)
Function Designs= DesignExtraction(FileName)
Designs={ }
mysheets =sheetnames(FileName)
for index= 1:1:size(mysheets,1)
current_s= char(mysheets(index))
[~,~,data] = xlsread(FileName, current_s)
Designs{index, 1 }= current_s
Designs{index, 2}= data(2:end, :)
end
Function [ DesignStress, InvalidMaterial ]= StressCalc(MaterialProperties, Designs)
DesignStress = 0
InvalidMaterial = 0
For m = 1:…
??/