diff options
Diffstat (limited to '698/CH2/EX2.18')
| -rw-r--r-- | 698/CH2/EX2.18/18_stress_in_gas_turbine.txt | 10 | ||||
| -rw-r--r-- | 698/CH2/EX2.18/P18_stress_in_gas_turbine.sce | 28 |
2 files changed, 38 insertions, 0 deletions
diff --git a/698/CH2/EX2.18/18_stress_in_gas_turbine.txt b/698/CH2/EX2.18/18_stress_in_gas_turbine.txt new file mode 100644 index 000000000..00bef6fd9 --- /dev/null +++ b/698/CH2/EX2.18/18_stress_in_gas_turbine.txt @@ -0,0 +1,10 @@ +Given
+ Sx= 20 MPa and
+ Sy= 50 MPa
+
+Maximum normal stress
+ Sn(max)=Sy
+
+Maximumshear stress
+ Tmax=(Sn_max-0)/2
+ =25.0 MPa (shear)
\ No newline at end of file diff --git a/698/CH2/EX2.18/P18_stress_in_gas_turbine.sce b/698/CH2/EX2.18/P18_stress_in_gas_turbine.sce new file mode 100644 index 000000000..07206de7b --- /dev/null +++ b/698/CH2/EX2.18/P18_stress_in_gas_turbine.sce @@ -0,0 +1,28 @@ +clc
+//Example 2.18
+//Stress in gas turbine
+//------------------------------------------------------------------------------
+
+//Given data:
+//Stresses
+//Radial Stress
+Sx=20* (10^6) // MPa
+//Tangential Stress
+Sy=50* (10^6) // MPa
+
+res18=mopen(TMPDIR+'18_stress_in_gas_turbine.txt','wt')
+
+mfprintf(res18,'Given \n\tSx= 20 MPa and \n\tSy= 50 MPa\n\n')
+
+Sn_max=Sy
+
+mfprintf(res18,'Maximum normal stress\n\tSn(max)=Sy\n\n')
+
+Tmax=(Sn_max-0)/2
+
+mfprintf(res18,'Maximumshear stress\n\tTmax=(Sn_max-0)/2\n\t=%0.1f MPa (shear)',Tmax*(10^-6))
+
+mclose(res18)
+editor(TMPDIR+'18_stress_in_gas_turbine.txt')
+//------------------------------------------------------------------------------
+//-----------------------------End of program-----------------------------------
\ No newline at end of file |