summaryrefslogtreecommitdiff
path: root/20/CH3/EX3.16.161/example3_16_pg161.sce
blob: 6b086191a34635d63a91e6f772e3151a1e22a9c4 (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
// Example3_16_pg161.sce
// To find radial force due to current
// Theory of Alternating Current Machinery by Alexander Langsdorf
// First Edition 1999, Thirty Second reprint
// Tata McGraw Hill Publishing Company
// Example in Page 161


clear; clc; close;

// Given data
va = 200e+3;  // Volt Amperes of transformer, VA
v1 = 11000; // Voltage in volts
v2 = 2300; // Voltage in volts
T = 46.3; // Mean length of the turn, inches
n = 455; // Number of turns
I = 1320; // Current in Amperes
l = 35; // length in inches
k = 1.8;
zeq_ht = 8.33;

// Calculations

F_av = (0.45/1e+7)*((T*n^2*I^2)/(k*l));
printf("\n The radial force due to the current of %d Amps for given data is %d lb\n", I, round(F_av));

// Result
//  The radial force due to the current of 1320 Amps for given data is 11930 lb