summaryrefslogtreecommitdiff
path: root/1802/CH7/EX7.7/Exa7_7.sce
blob: d1d9f3b382bfdece23719f831d2ae8a008eda436 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
//Exa 7.7
clc;
clear;
close;
//Given data : 
format('v',6);
R=0.2;//in ohm/km
X=0.1;//in ohm/km
ZAM=((R+%i*X)/1000)*200;//in ohm
ZMB=((R+%i*X)/1000)*100;//in ohm
I1=100*(0.707-0.707*%i);//in A
I2=200*(0.8-0.6*%i);//in A
IAM=I1+I2;//in Ampere
VAM=ZAM*IAM;//in volts
VMB=ZMB*I2;//in volts
VAB=VAM+VMB;//in volts
magVAB=sqrt(real(VAB)^2+imag(VAB)^2);
disp(magVAB,"Total voltage drop(in volts) :");