blob: 9258ec20b96b2b5483171eb454c71bdd9375fe5e (
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
|
// To determine force between single phase bus bars
clc;
clear;
eload=10^7;
voltage=15*(10^3);
mo=4*%pi*(10^-7);
l=1;
r=0.3;
//Normally
I=eload/voltage;
F=mo*I*I*l/(2*%pi*r);
//Short Circuit
Isc=10*I;
Fsc=mo*Isc*Isc*l/(2*%pi*r);
disp('N',F,'i) Force per metre under normal condition =')
disp('N',Fsc,'ii) Force per metre under short circuit condition =')
|
