diff options
Diffstat (limited to '746/CH3/EX3.06/3_06.sce')
| -rwxr-xr-x | 746/CH3/EX3.06/3_06.sce | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/746/CH3/EX3.06/3_06.sce b/746/CH3/EX3.06/3_06.sce new file mode 100755 index 000000000..89f2daf73 --- /dev/null +++ b/746/CH3/EX3.06/3_06.sce @@ -0,0 +1,9 @@ +//force//
+pathname=get_absolute_file_path('3.06.sce')
+filename=pathname+filesep()+'3.06-data.sci'
+exec(filename)
+//Force required to keep the door shut(in lbf):
+function y=f(z),y=b/L*p0*z+d*b/L*(L*z-z^2),endfunction
+Ft=intg(0,L,f)
+printf("\n\nRESULTS\n\n")
+printf("\n\nForce requiredto kep the door shut: %.1f lbf\n\n",Ft)
|