diff options
Diffstat (limited to '1205/CH10')
| -rw-r--r-- | 1205/CH10/EX10.1/S_10_1.sce | 3 | ||||
| -rw-r--r-- | 1205/CH10/EX10.2/S_10_2.sce | 3 | ||||
| -rw-r--r-- | 1205/CH10/EX10.3/S_10_3.sce | 14 | ||||
| -rw-r--r-- | 1205/CH10/EX10.4/S_10_4.sce | 18 |
4 files changed, 38 insertions, 0 deletions
diff --git a/1205/CH10/EX10.1/S_10_1.sce b/1205/CH10/EX10.1/S_10_1.sce new file mode 100644 index 000000000..74eb56bac --- /dev/null +++ b/1205/CH10/EX10.1/S_10_1.sce @@ -0,0 +1,3 @@ +
+clc;
+printf("Given problem is theoritical and no mathematical solving required for this problem");
diff --git a/1205/CH10/EX10.2/S_10_2.sce b/1205/CH10/EX10.2/S_10_2.sce new file mode 100644 index 000000000..74eb56bac --- /dev/null +++ b/1205/CH10/EX10.2/S_10_2.sce @@ -0,0 +1,3 @@ +
+clc;
+printf("Given problem is theoritical and no mathematical solving required for this problem");
diff --git a/1205/CH10/EX10.3/S_10_3.sce b/1205/CH10/EX10.3/S_10_3.sce new file mode 100644 index 000000000..ce6645a4f --- /dev/null +++ b/1205/CH10/EX10.3/S_10_3.sce @@ -0,0 +1,14 @@ +clc;
+m=1000;//kg, mass of krate
+theta=60;//degree
+theta=theta*%pi/180;//radians, conversion into rad
+a=0.70;//m
+L=3.20;//m
+g=9.81;//m/s^2
+//From theory we get
+W=m*g;//N, Weight
+W=W/1000;//kN, conversion into kN
+S=sqrt(a^2+L^2-2*a*L*cos(theta));//m
+F_DH=W*S/L/tan(theta);//kN
+
+printf("Force exerted by each cylinder is F_DH=%.2f kN",F_DH);
diff --git a/1205/CH10/EX10.4/S_10_4.sce b/1205/CH10/EX10.4/S_10_4.sce new file mode 100644 index 000000000..b6e80d1e5 --- /dev/null +++ b/1205/CH10/EX10.4/S_10_4.sce @@ -0,0 +1,18 @@ +clc;
+m=10;//kg, mass of rim
+r=300;//mm, radius of disk
+a=0.08;//m
+b=0.3;//m
+k=4;//kN/m
+g=9.81;//m/s^2 gravity
+//From theory we get
+
+//sin(theta)=k*a^2/m/g/b*theta
+dif=1;
+for theta=0:0.001:1
+ dif=sin(theta)-k*a^2/m/g/b*theta;
+ if dif<=0.001 then printf("theta= %.3f rad or %.1f degrees\n",theta,theta/%pi*180);
+ end
+end
+
+
|