From 7bc77cb1ed33745c720952c92b3b2747c5cbf2df Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Sat, 3 Feb 2018 11:01:52 +0530
Subject: Added new code

---
 3871/CH5/EX5.10/Ex5_10.sce | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 3871/CH5/EX5.10/Ex5_10.sce

(limited to '3871/CH5/EX5.10')

diff --git a/3871/CH5/EX5.10/Ex5_10.sce b/3871/CH5/EX5.10/Ex5_10.sce
new file mode 100644
index 000000000..e8ee25f32
--- /dev/null
+++ b/3871/CH5/EX5.10/Ex5_10.sce
@@ -0,0 +1,30 @@
+//===========================================================================
+//chapter 5 example 10
+
+clc;clear all;
+
+//variable declaration
+R     = 400;		//resistance in Ω
+V    = 150;		//voltmeter reading in V
+I      = 0.05;		//current in A
+alphac    = 0.004;	//temperature coefficient of copper 
+alphas    = 0.00001;	//temperature coefficient of eureka
+f          = 100;       //frequency in Hz
+L        = 0.75;	//inductance in H
+
+
+//calculations
+//R1    = R+r;
+R1     = V/(I);		//total reistance in Ω
+r        = R1-R;		//swamping resistancein Ω
+R11   = (R*(1+alphac))+(r*(1+alphas));		//total resistance for 1° C  rise in temperature in Ω
+e       = ((R11-R1)/(R1))*100;			//percentage rise in resistance per degree rise in  temperature
+W    = 2*%pi*f*L;					//inductive reactance in  Ω
+Z      = sqrt((R1^2)+(W^2));		//impedance in Ω
+v      = V*(R1/(Z));		//reading indicated on 100 Hz in V
+
+
+//result
+mprintf("R1 =%3.0f",W);
+mprintf("percentage rise in resistance per degree rise in  temperature = %3.4f percentage",e);
+mprintf("\nreading indicated on 100 Hz= %3.1f V",v);
-- 
cgit