diff options
Diffstat (limited to '3648/CH9/EX9.2/Ex9_2.sce')
| -rw-r--r-- | 3648/CH9/EX9.2/Ex9_2.sce | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/3648/CH9/EX9.2/Ex9_2.sce b/3648/CH9/EX9.2/Ex9_2.sce new file mode 100644 index 000000000..f042ab933 --- /dev/null +++ b/3648/CH9/EX9.2/Ex9_2.sce @@ -0,0 +1,19 @@ +//Example 9_2
+clc();
+clear;
+//To calculate the cross sectional area and how far the ball will stretch the wire
+m=40 //units in Kg
+g=9.8 //units in meter/sec^2
+F=m*g //units in Kg meter/sec^2
+stress=0.48*10^8 //units in Newton/meter^2
+A=F/stress //units in meter^2
+r=sqrt(A/%pi)*10^3 //units in mm
+printf("The radius of the wire should be r=%.1f mm and the cross sectional area is A=",r)
+disp(A)
+printf("meter^2")
+y=200*10^9 //units in Newton/meter^2
+strain=stress/y
+L0=15 //units in meters
+deltaL=strain*L0 //units in meters
+deltaL=deltaL*10^3 //units in mm
+printf("\nThe ball stretches the wire a distance of deltaL=%.2f mm",deltaL)
|