summaryrefslogtreecommitdiff
path: root/3169/CH6/EX6.10/Ex6_10.sce
blob: b0e18423c2ca1df79b1a0e7f04350542386bbc74 (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
//developed in windows XP operating system
//platform Scilab 5.4.1
clc;clear all;
//example 6.10
//calculation of resistance and inductance

//given data
CR=70.6//value from table
LC=11.6//value from table
C=1//capacitance(in microfarad)
pern=98.8//percentage voltage efficiency
V=10//rating(in kV)
LC2=65//value from table
alpha=0.0535//value from table

//calculation
R=CR/C
L=LC/C
Vo=pern*V/100
L2=LC2/C
R2=2*L2*alpha
Ip=V*C/14

printf('The value of resistance for 1/50 microsecond voltage is %3.1f ohm',R)
printf('\nThe value of inductance for 1/50 microsecond voltage is %3.1f microhenry',L)
printf('\nThe value of output voltage is %3.2f kV',Vo)
printf('\nThe value of inductance for 8/20 microsecond voltage is %d microhenry',L2)
printf('\nThe value of resistance for 8/20 microsecond voltage is %3.3f ohm',R2)
printf('\nThe peak value of current is %d A',Ip*10^3)