diff options
Diffstat (limited to '1991/CH2/EX2.29/29.sce')
| -rwxr-xr-x | 1991/CH2/EX2.29/29.sce | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/1991/CH2/EX2.29/29.sce b/1991/CH2/EX2.29/29.sce new file mode 100755 index 000000000..8cdc7ecd4 --- /dev/null +++ b/1991/CH2/EX2.29/29.sce @@ -0,0 +1,10 @@ +clc
+clear
+//input
+f=55//frequency
+amp=7*10^-3//amplitude
+m=1.2//mass
+//calculation
+e=0.5*m*4*%pi^2*f^2*amp^2//maximum pe occurs at zero position
+//output
+printf("the maximum pe is %3.3f J",e)
|