summaryrefslogtreecommitdiff
path: root/1802/CH7/EX7.12/Exa7_12.sce
blob: 7ac103441e1e0231dcbd3309c92496a90f4feeeb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//Exa 7.12
clc;
clear;
close;
//Given data : 
format('v',7);
VA=220;//in volt
VB=200;//in volt
R=0.1;//in ohm/km
I=1;//in A/m
l=500;//in meter
R=2*R/1000;//in ohm/m
x=(VA-VB)/(I*R*l)+l/2;//in meter
Vmin=VA-I*R*x^2/2;//in volts
disp(Vmin,"Value of minimum potential(in V) :");
IA=I*x;//in A
disp(IA,"Current supplied from end A(in A) :");
IB=I*(l-x);//in A
disp(IB,"Current supplied from end B(in A) :");