Exibir código-fonte para Resolução da questão do wattímetro

No SCILAB:


  
 --> j = %i
  j  = 
 
    0. + i  
 
 --> ZL = j*10
  ZL  = 
 
    0. + 10.i
 
 --> ZR2 = 10
  ZR2  = 
 
    10.
 
 --> Z1 = ZL + ZR2
  Z1  = 
 
    10. + 10.i
 
 --> ZR1 =  5
  ZR1  = 
 
    5.
 
 --> Z2 = (Z1 *ZR1)/(Z1 + ZR1)
  Z2  = 
 
    3.8461538 + 0.7692308i
 
 --> ZC = -j*5
  ZC  = 
 
    0. - 5.i
 
 --> Z3 = Z2 + ZC
  Z3  = 
 
    3.8461538 - 4.2307692i
 
 --> I = (12.99 + j*7.5)/Z3
  I  = 
 
    0.5576471 + 2.5634118i

 --> [Im,Ia]=toPolar(I)
  Im  = 
 
    2.6233662
  Ia  = 
 
    77.727039
 
 --> P = 15*2.6233662*cosd(30 - 77.73)
  P  = 
 
    26.468131
 
A potência também pode ser calculada como R.I<sup>2</sup>
 
 --> P = 3.8461*Im*Im
  P  = 
 
    26.469053