698/CH2/EX2.001/nature.sci


1
2
3
4
5
6
7
8
9
10

//Function to determine nature of normal stresses, i.e, compressive or tensile

funcprot(0)
function nature(Sn)
    if Sn<0
   disp(" compressive")
else
    disp(" tensile")
end
endfunction