summaryrefslogtreecommitdiff
path: root/1628/CH2/EX2.2/Ex2_2.sce
blob: 1466a200a613263a6e75ddc5785da5a41753761a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

                      // Example  2.2


a1=%pi*3/4;           // Relative area of wire-A
a2=%pi*1/4;           // Relative area of wire-B
l1=1;                 // Relative lenght of wire-A
l2=3;                 // Relative lenght of wire-B 
R1=10;                // Resistance of wire
r=(l2/a2)/(l1/a1);
disp('The ratio of resistances (R2/R1) = '+string(r)+' ohm');
R2=r*R1;
disp('Resistance(R2) = '+string(R2)+' ohm');







             //  p 16          2.2