diff options
Diffstat (limited to '3526/CH7/EX7.1/EX7_1.sce')
| -rw-r--r-- | 3526/CH7/EX7.1/EX7_1.sce | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/3526/CH7/EX7.1/EX7_1.sce b/3526/CH7/EX7.1/EX7_1.sce new file mode 100644 index 000000000..cf13a6b41 --- /dev/null +++ b/3526/CH7/EX7.1/EX7_1.sce @@ -0,0 +1,9 @@ +clc;funcprot(0);//EXAMPLE 7.1
+//page 181
+// 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:")
|