summaryrefslogtreecommitdiff
path: root/2075/CH8/EX8.5/pe8_5.sce
blob: 313b57da95cb04fdc3474375a19de67c64691309 (plain)
1
2
3
4
5
6
7
8
9
10
11
//example 8.5
clc;funcprot(0);
//Initialization of Variable
V=220;//line voltage
f=50;//hertz
R=80;//load resistance
I=46;//TSM current
//calculation
Rs=V*2^.5/(I-V*2^.5/R);
disp(Rs,"snubbing resistnce in ohm:")
clear()