diff options
Diffstat (limited to '1586/CH7/EX7.1/EXP7_1.sce')
| -rw-r--r-- | 1586/CH7/EX7.1/EXP7_1.sce | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/1586/CH7/EX7.1/EXP7_1.sce b/1586/CH7/EX7.1/EXP7_1.sce new file mode 100644 index 000000000..fbb59599b --- /dev/null +++ b/1586/CH7/EX7.1/EXP7_1.sce @@ -0,0 +1,8 @@ +clc;funcprot(0);//EXAMPLE 7.1
+// Initialisation of Variables
+f=1.12;.......//Geometry factor for the specimen and flaw
+sigma=45000;.....//Applied stress on Steel in psi
+K=80000;.........//The stress intensity factor
+//CALCULATIONS
+a=(K/(f*sigma))^2/%pi;........//Depth of crank in in
+disp(a,"Depth of crank that will propagate in the steel in in:")
|