From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 1055/CH17/EX17.4/ch17_4.sce | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100755 1055/CH17/EX17.4/ch17_4.sce

(limited to '1055/CH17/EX17.4/ch17_4.sce')

diff --git a/1055/CH17/EX17.4/ch17_4.sce b/1055/CH17/EX17.4/ch17_4.sce
new file mode 100755
index 000000000..616ef58ce
--- /dev/null
+++ b/1055/CH17/EX17.4/ch17_4.sce
@@ -0,0 +1,14 @@
+// To calculate the critical clearing angle for the condition described.
+clear 
+clc;
+sindo=.5;
+d0=asind(sindo)*%pi/180;
+r1=.2;
+r2=.75;
+sindm=.5/.75;
+d=asind(sindm);
+cosdm=cosd(d);
+dm=%pi*(180-(asind(sindm)))/180;
+Dc=((.5*(dm-d0))-(r2*cosdm)-(r1*cosd(d0)))/(r2-r1);
+dc=acosd(Dc);// critical angle
+mprintf("The critical clearing angle  is given by=%.2f degrees",dc);//Answers don't match due to difference in rounding off of digits
-- 
cgit