summaryrefslogtreecommitdiff
path: root/3769/CH5/EX5.14/Ex5_14.sce
blob: 277dc4ba3f4b19b5d34446cfc8e1cc4644d6cad6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
clear
//Given
r=1
r1=0.5
R1=0.15                    //ohm

//Calculation
//
A1=(%pi/4.0)*r**2
A2=(%pi/4.0)*r1**2
l=A1/A2
R=l*l
R2=R*R1

//Result
printf("\n New resistance of the wire is  %0.3f  ohm", R2)