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

---
 2123/CH3/EX3.9/Exa_3_9.sce | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100755 2123/CH3/EX3.9/Exa_3_9.sce

(limited to '2123/CH3/EX3.9')

diff --git a/2123/CH3/EX3.9/Exa_3_9.sce b/2123/CH3/EX3.9/Exa_3_9.sce
new file mode 100755
index 000000000..09cb68a17
--- /dev/null
+++ b/2123/CH3/EX3.9/Exa_3_9.sce
@@ -0,0 +1,31 @@
+//Example No. 3.9
+clc;
+clear;
+close;
+format('v',7);
+
+//Given Data : 
+Jmotor=0.3;//Kg-m^2
+Jgd_load=15;//Kg-m^2(Inertia gear driven load)
+GSRratio=0.1;//gear speed reduction ratio
+Jbd_load=0.6;//Kg-m^2(Inertia belt driven load)
+d1=10;//cm(diameter of driver pulley)
+d2=30;//cm(diameter of driven pulley)
+MotorSpeed=1440;//rpm
+Tload1=100;//N-m
+Tload2=35;//N-m
+
+//Solution : 
+MotorSpeed=MotorSpeed*2*%pi/60;//rad/sec
+Speed_gd=GSRratio*MotorSpeed;//rad/sec
+Speed_bd=MotorSpeed*d1/d2;//rad/sec
+//Equating Kinetic Energies
+//1/2*J*MotorSpeed^2=1/2*Jmotor*MotorSpeed^2+1/2*Jgd_load*speed_gd^2+1/2*Jbd_load*speed_bd^2
+J=(1/2*Jmotor*MotorSpeed^2+1/2*Jgd_load*Speed_gd^2+1/2*Jbd_load*Speed_bd^2)*2/MotorSpeed^2
+disp(J,"Moment of Inertia refered to motor shaft in Kg-m^2 : ");
+//Equating power of motor
+//T*(MotorSpeed)=Tload1*Speed_gd+Tload2*Speed_bd
+T=(Tload1*Speed_gd+Tload2*Speed_bd)/MotorSpeed;//N-m
+disp(T,"Torque in N-m : ");
+Pdev=T*MotorSpeed;//watt
+disp(Pdev,"Power developed by the motor in watts : ");
-- 
cgit