1 files changed, 12 insertions, 0 deletions
diff --git a/564/CH23/EX23.1/23_1.sce b/564/CH23/EX23.1/23_1.sce
new file mode 100755
index 000000000..a02ead6f3
--- /dev/null
+++ b/564/CH23/EX23.1/23_1.sce
@@ -0,0 +1,12 @@
+pathname=get_absolute_file_path('23_1.sce')
+filename=pathname+filesep()+'23_1data.sci'
+exec(filename)
+clear
+for i=1:6
+    I(i)=B(i)*y(i)*y(i);
+end
+Ixx=sum(I);
+for i=1:6
+    S(i)=(Mx/Ixx)*y(i);
+end
+printf("\nσz: %f N/mm^2",S);
+\ No newline at end of file