View of /branches/NAU/EE/ee188/irwin.05.078.pg

    1 ##DESCRIPTION
    2 ## Apply source transformation to a dc circuit
    3 ##ENDDESCRIPTION
    4 ## DBsubject('Electric Circuits')
    5 ## DBchapter('Additional Analysis Techniques')
    6 ## DBsection('Maximum Power Transfer')
    7 ## KEYWORDS('source transformation','dc','circuits')
    8 ## TitleText1('Basic Engineering Circuit Analysis')
    9 ## EditionText1('8e')
   10 ## AuthorText1('Irwin and Nelms')
   11 ## Section1('5.4')
   12 ## Problem1('78')
   13 ## Author('Elizabeth J. Brauer')
   14 ## Institution('Northern Arizona University')
   15 
   16 DOCUMENT();        # This should be the first executable line in the problem.
   17 
   18 loadMacros(
   19 "PG.pl",
   20 "PGbasicmacros.pl",
   21 "PGchoicemacros.pl",
   22 "PGanswermacros.pl",
   23 "PGauxiliaryFunctions.pl"
   24 );
   25 
   26 TEXT(&beginproblem);
   27 $showPartialCorrectAnswers = 1;
   28 
   29 $V1 = 6;
   30 $V2 = 24;
   31 $I1 = 2;
   32 $R1 = 6;
   33 $R2 = 4;
   34 $R3 = 12;
   35 
   36 
   37 $V1 = random(4,12,1);      # V
   38 $V2 = random(8,24,1);      # V
   39 $I1 = random(1,6,1);       # mA
   40 $R1 = random(3,12,1);      # kOhms
   41 $R2 = random(3,12,1);      # kOhms
   42 $R3 = random(3,12,1);      # kOhms
   43 
   44 
   45 TEXT(EV2(<<EOT));
   46 \{image("irwin_05_078.gif")\} $BR
   47 Use source transformation to find \(V_0\) in the network given that \(V_1 = $V1 V, V_2 = $V2 V, I_1 = $I1 mA, R_1 = $R1 k\Omega, R_2 = $R2 k\Omega\) and \(R_3 = $R3 k\Omega\) $BR
   48 $PAR
   49 
   50 \(V_o =\) \{ans_rule(20)\} \(V\) $BR
   51 $PAR
   52 EOT
   53 
   54 $V3 = $V1 + $I1 * $R1;
   55 $I3 = $V3 / $R1;
   56 $R12 = $R1 * $R2 / ($R1 + $R2);
   57 $R123 = $R12 * $R3 / ($R12 + $R3);
   58 $It = $I3 - $V2 / $R3;
   59 $Vo = $It * $R123;
   60 
   61 ANS(num_cmp($Vo, reltol=>2, format=>'%4.4g'));
   62 
   63 ENDDOCUMENT();        # This should be the last executable line in the problem.