View of /branches/NAU/EE/ee188/irwin.03.027kvl.pg

    1 ##DESCRIPTION
    2 ## Apply Ohm's Law and KVL to a dc circuit
    3 ##ENDDESCRIPTION
    4 ## DBsubject('Electric Circuits')
    5 ## DBchapter('Nodal and Loop Analysis Techniques')
    6 ## DBsection('Nodal Analysis')
    7 ## KEYWORDS('dc','KVL','circuits')
    8 ## TitleText1('Basic Engineering Circuit Analysis')
    9 ## EditionText1('8e')
   10 ## AuthorText1('Irwin and Nelms')
   11 ## Section1('3.1')
   12 ## Problem1('27kvl')
   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 # book values
   30 $V1 = 12;
   31 $I2 = 2;
   32 $R3 = 1;
   33 $R4 = 1;
   34 $R5 = 1;
   35 $R6 = 1;
   36 
   37 
   38 $V1 = random(4,16,1);     # V
   39 $I2 = random(3,22,1);     # mA
   40 $R3 = random(1,10,1);      # kOhms
   41 $R4 = random(1,10,1);      # kOhms
   42 $R5 = random(1,10,1);      # kOhms
   43 $R6 = random(1,10,1);      # kOhms
   44 
   45 $VN3 = Round(($R6*$V1 + $R6*$R4*$I2)/($R4 + $R6),2);
   46 $VN2 = Round(($V1*$R5 - $R5*$R3*$I2)/($R3 + $R5),2);
   47 $VN1 = $V1;
   48 
   49 $V3 = $VN1 - $VN2;
   50 $V6 = - $VN3;
   51 
   52 TEXT(EV2(<<EOT));
   53 \{ image("irwin_03_027kvl.gif") \}$BR
   54 Use Ohm's Law and Kirchhoff's Voltage Law to find the requested values in the network shown given that \(V_1 = $V1 V, I_2 = $I2 mA\),
   55 \(V_3 = $V3 V,\), \(V_6 = $V6 V\),
   56 \(R_3 = $R3 k\Omega\), \(R_4 = $R4 k\Omega\),
   57 \(R_5 = $R5 k\Omega,\), and \(R_6 = $R6 k\Omega\).
   58 $BR
   59 $BR
   60 
   61 \(V_2 =\) \{ans_rule(20)\} \(V\) $BR
   62 \(V_4 =\) \{ans_rule(20)\} \(V\) $BR
   63 \(V_5 =\) \{ans_rule(20)\} \(V\) $BR
   64 \(I_3 =\) \{ans_rule(20)\} \(mA\) $BR
   65 \(I_4 =\) \{ans_rule(20)\} \(mA\) $BR
   66 \(I_5 =\) \{ans_rule(20)\} \(mA\) $BR
   67 \(I_6 =\) \{ans_rule(20)\} \(mA\) $BR
   68 $PAR
   69 EOT
   70 
   71 $V2 = $VN3 - $VN2;
   72 $V4 = $VN1 - $VN3;
   73 $V5 =  - $VN2;
   74 $I3 = - $V3 / $R3;
   75 $I4 = $V4 / $R4;
   76 $I5 = $V5 / $R5;
   77 $I6 = - $V6 / $R6;
   78 
   79 ANS(num_cmp($V2, reltol=>2, format=>'%4.4g'));
   80 ANS(num_cmp($V4, reltol=>2, format=>'%4.4g'));
   81 ANS(num_cmp($V5, reltol=>2, format=>'%4.4g'));
   82 ANS(num_cmp($I3, reltol=>2, format=>'%4.4g'));
   83 ANS(num_cmp($I4, reltol=>2, format=>'%4.4g'));
   84 ANS(num_cmp($I5, reltol=>2, format=>'%4.4g'));
   85 ANS(num_cmp($I6, reltol=>2, format=>'%4.4g'));
   86 
   87 
   88 ENDDOCUMENT();        # This should be the last executable line in the problem.