1 files changed, 10 insertions, 0 deletions
diff --git a/698/CH2/EX2.001/nature.sci b/698/CH2/EX2.001/nature.sci
new file mode 100644
index 000000000..0bcef8584
--- /dev/null
+++ b/698/CH2/EX2.001/nature.sci
@@ -0,0 +1,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
+\ No newline at end of file