No sabes como leer una resistencia???

Muchos de los que estudiamos carreras de ingeniería eventualmente tendremos materias relacionadas con circuitos eléctricos. A su vez, esto implica que para nuestras prácticas debamos aprendernos el típico código de colores de las resistencias para así poder conocer su valor nominal.

Pues si eres nuevo en este campo, o en algún momento necesitas saber el valor de una resistencia y no sabes que significan las banditas de color en ella, aquí te presento un notebook de Mathematica que te ayudará de forma interactiva. Simplemente ingresa el siguiente código en tu software.

CÓDIGO:

Manipulate[
 With[{c1 = 
  Switch[color1, 0, Black, 1, Brown, 2, Red, 3, Orange, 4, Yellow, 
  5, Green, 6, Blue, 7, ColorData["HTML", "Violet"], 8, Gray, 9, 
  White], c2 = 
  Switch[color2, 0, Black, 1, Brown, 2, Red, 3, Orange, 4, Yellow, 
  5, Green, 6, Blue, 7, ColorData["HTML", "Violet"], 8, Gray, 9, 
  White], c3 = 
  Switch[color3, 0, Black, 1, Brown, 2, Red, 3, Orange, 4, Yellow, 
  5, Green, 6, Blue, 7, ColorData["HTML", "Violet"], 8, Gray, 9, 
  White],
  c4 = Switch[color4, 1, Brown, 2, Red, 3, ColorData["HTML", "Gold"],
  4, ColorData["HTML", "Silver"], 5, None]}, 
  Column[{Graphics3D[{Cylinder[{{0, 0, 0}, {4, 0, 0}}], 
  Cylinder[{{-3, 0, 0}, {7, 0, 0}}, .1], c1, 
  Cylinder[{{.3, 0, 0}, {.7, 0, 0}}, 1.05], c2, 
  Cylinder[{{1.3, 0, 0}, {1.7, 0, 0}}, 1.05], c3, 
  Cylinder[{{2.3, 0, 0}, {2.7, 0, 0}}, 1.05], 
  If[c4 === None, {}, {c4, 
  Cylinder[{{3.3, 0, 0}, {3.7, 0, 0}}, 1.05]}]}, Boxed -> False,
  ImageSize -> 400], 
  Text@Row[{"resistance", " = ", 
  Row[{FromDigits[{color1, color2}, 10], "\[Times]", 
  HoldForm[10]^color3, " ohms, ", 
  color4 /. {Brown -> 1, Red -> 2, 
  ColorData["HTML", "Gold"] -> 5, 
  ColorData["HTML", "Silver"] -> 10, None -> 20}, 
  "% tolerance"}]}]}, Alignment -> Center]], {{color1, 5, 
  "band 1"}, {0 -> "Black", 1 -> "Brown", 2 -> "Red", 3 -> "Orange", 
  4 -> "Yellow", 5 -> "Green", 6 -> "Blue", 7 -> "Violet", 
  8 -> "Gray", 9 -> "White"}}, {{color2, 8, "band 2"}, {0 -> "Black",
  1 -> "Brown", 2 -> "Red", 3 -> "Orange", 4 -> "Yellow", 
  5 -> "Green", 6 -> "Blue", 7 -> "Violet", 8 -> "Gray", 
  9 -> "White"}}, {{color3, 3, "band 3"}, {0 -> "Black", 
  1 -> "Brown", 2 -> "Red", 3 -> "Orange", 4 -> "Yellow", 
  5 -> "Green", 6 -> "Blue", 7 -> "Violet", 8 -> "Gray", 
  9 -> "White"}}, {{color4, 4, "tolerance"}, {1 -> "Brown", 
  2 -> "Red", 3 -> "Gold", 4 -> "Silver", 5 -> "none"}}]

Ejecútalo y simplemente deberas seleccionar el color de cada banda para que Mathematica te diga el valor exacto de tu resistor. Espero sea de utilidad para nuestros lectores.

Diego V.