1 files changed, 17 insertions, 0 deletions
diff --git a/698/CH2/EX2.002/standard_dimensions.sci b/698/CH2/EX2.002/standard_dimensions.sci
new file mode 100644
index 000000000..2ea28a316
--- /dev/null
+++ b/698/CH2/EX2.002/standard_dimensions.sci
@@ -0,0 +1,17 @@
+//Function to standardize the dimensions
+
+funcprot(0)
+function stddim(x)
+    x=x*(10^3)
+    std=[1 2 3 4 5 6 8 10 12 15 18 20 24 26 30:5:400]
+    n=length(std)
+    for i=1:n
+        if (x<std(i)) then
+            y=std(i)
+            break
+        else
+            continue
+        end
+    end 
+    y=y*(10^-3)
+endfunction
+\ No newline at end of file