summaryrefslogtreecommitdiff
path: root/1760/CH1/EX1.39/EX1_39.sce
blob: fcbc6f6f8198ca63561228d192e043de73c83e60 (plain)
1
2
3
4
5
6
7
8
9
10
                   //EXAMPLE 1-39    PG NO-32-33
V=440;               //voltage
V1=5;                  //voltage
R=40;            //resistance
V2=220;
V3=100;
Rv=(V3*R)/[V2-V3];            //insulation resistance
disp('i)Resistance (Rv) = ' + string (Rv)+' Kohm')
Ri=[Rv*(V-V1)]/V1;            //insulation resistance
disp('iii)Resistance(Ri) = '+string (Ri)+' Kohm')