diff options
Diffstat (limited to '548/CH4/EX4.26/4_26.sce')
| -rwxr-xr-x | 548/CH4/EX4.26/4_26.sce | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/548/CH4/EX4.26/4_26.sce b/548/CH4/EX4.26/4_26.sce new file mode 100755 index 000000000..a6f53b3a5 --- /dev/null +++ b/548/CH4/EX4.26/4_26.sce @@ -0,0 +1,8 @@ +pathname=get_absolute_file_path('4_26.sce')
+filename=pathname+filesep()+'4_26data.sci'
+exec(filename)
+Tw1=q*Cf1;disp(Tw1,"Tw1=","Tw1=q*Cf1","shear stress at 1 cm Tw1:");
+Tw2=q*Cf2;disp(Tw2,"Tw2=","Tw2=q*Cf2","shear stress at 1 cm Tw2:");
+printf("\Answer:\n")
+printf("\n\Local shear stress at 1 cm: %f N/m^2\n\n",Tw1)
+printf("\n\Local shear stress at 5 cm: %f N/m^2",Tw2)
|