summaryrefslogtreecommitdiff
path: root/2459/CH19/EX19.11/Ex19_11.sce
blob: c26d64a3b778c39ec8937b95355070053410cd40 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//chapter19
//example19.11
//page423

m=0.4
Ic=8 // A
// Pt=Pc+Ps and Ps=0.5*m^2*Pc so Pt=Pc*(1+m^2/2)
// so Pt/Pc=1+m^2/2 but P is proportional to I^2 so
// (It/Ic)^2=1+m^2/2 and thus we get

It=Ic*(1+m^2/2)^0.5

printf("antenna current for m=0.4 is = %.3f A \n",It)