summaryrefslogtreecommitdiff
path: root/3556/CH2/EX2.15/Ex2_15.sce
blob: 6bcc0beaab3a399df8e42605de7716c254c64d9e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
clc
// Fundamental of Electric Circuit 
// Charles K. Alexander and  Matthew N.O Sadiku  
// Mc Graw Hill of New York 
// 5th Edition 

// Part 1   :  DC Circuits 
// Chapter 2:  Basic Laws 
// Example 2 - 15

clear; clc; close; 
//
// Given data
V    = 120.00;      
Rac  =  12.50;       
Rcb  =  15.00;       
Rcn  =   5.00;      
Rbn  =  20.00;     
Ran  =  10.00;       
Rab  =  30.00;      
//
// Calculations
// Convert Y Network to Equivalent Delta Network 
// Calculations Rabc
Rabc = (Ran*Rbn)+ (Rbn*Rcn) + (Rcn*Ran)         
// Calculations Ra
Ra   = Rabc/Ran;                                
// Calculations Rb
Rb   = Rabc/Rbn;                                
// Calculations Rc
Rc   = Rabc/Rcn;                               
// Calculations RP1 
RP1 = (Rc*Rab)/(Rc+Rab);                        
// Calculations RP2  
RP2 = (Rb*Rac)/(Rb+Rac);                        
// Calculations RP3 
RP3 = (Ra*Rcb)/(Ra+Rcb);                       
// Calculations RS1
RS1 = RP2 + RP3;                              
// Calculations Req
Req = (RP1*RS1)/(RP1 + RS1)                    
// Calculations Current (I)
I = V/Req                                     
// Display the result
disp("Example 2-15 Solution : ");
printf(" \n Rab : Resistance Equivalen(Rab) = %.3f Ohm ",Req);
printf(" \n I   : Current (I)               = %.3f A",I);