function result = check_transistor(name,index,type)
   dclevels = equations(0,'constant',0.1);
   ac1MHz = equations(0,'Iin',1e6);
   ac10MHz = equations(0,'Iin',1e7);
   ac100MHz = equations(0,'Iin',1e8);
   dcval = dclevels(index);
   acval1 = ac1MHz(index);
   acval10 = ac10MHz(index);
   acval100 = ac100MHz(index);
   gain1 = equations('Vt','Iin',1e6);
   gain10 = equations('Vt','Iin',10e6);
   gain100 = equations('Vt','Iin',100e6);
   cprintf('black','Static bias conditions in %s are as follows\n',name);
   if type == 'PNP'
      if dcval(1,2) < 0
         cprintf('red','   emitter:   %f V, %f mA\n',dcval(1,1),dcval(1,2)*1e3);
      else
         cprintf('black','   emitter:   %f V, %f mA\n',dcval(1,1),dcval(1,2)*1e3);
      end
      if dcval(2,2) > 0
         cprintf('red','   base:      %f V, %f mA\n',dcval(2,1),-dcval(2,2)*1e3);
      else
         cprintf('black','   base:      %f V, %f mA\n',dcval(2,1),-dcval(2,2)*1e3);
      end
      if dcval(3,2) < 0
         cprintf('red','   collector: %f V, %f mA\n',dcval(3,1),dcval(3,2)*1e3);
      elseif dcval(2,1)-dcval(3,1) < 0.200
         cprintf('red','   collector: %f V, %f mA\n',dcval(3,1),dcval(3,2)*1e3);
      else
         cprintf('black','   collector: %f V, %f mA\n',dcval(3,1),dcval(3,2)*1e3);
      end
      if dcval(1,1)-dcval(2,1) < 0.50
         cprintf('red','   Vbe, beta: %f V, %f\n',dcval(1,1)-dcval(2,1),-dcval(3,2)/dcval(2,2));
      else
         cprintf('black','   Vbe, beta: %f V, %f\n',dcval(1,1)-dcval(2,1),-dcval(3,2)/dcval(2,2));
      end
      cprintf('black','   emitter impedance is %f / %f Ohms\n',acval10(1,1),acval10(1,2));
      cprintf('black','   saturation at output pulse height (1, 10, 100MHz) %.2f, %.2f, %.2f\n',...
                          abs(gain1*(dcval(2,1)-dcval(3,1))/(acval1(2,1)-acval1(3,1))),...
                          abs(gain10*(dcval(2,1)-dcval(3,1))/(acval10(2,1)-acval10(3,1))),...
                          abs(gain100*(dcval(2,1)-dcval(3,1))/(acval100(2,1)-acval100(3,1))));
   else
      if dcval(3,2) < 0
         cprintf('red','   collector: %f V, %f mA\n',dcval(3,1),dcval(3,2)*1e3);
      elseif dcval(3,1)-dcval(2,1) < 0.200
         cprintf('red','   collector: %f V, %f mA\n',dcval(3,1),dcval(3,2)*1e3);
      else
         cprintf('black','   collector: %f V, %f mA\n',dcval(3,1),dcval(3,2)*1e3);
      end
      if dcval(2,2) < 0
         cprintf('red','   base:      %f V, %f mA\n',dcval(2,1),dcval(2,2)*1e3);
      else
         cprintf('black','   base:      %f V, %f mA\n',dcval(2,1),dcval(2,2)*1e3);
      end
      if dcval(3,2) < 0
         cprintf('red','   emitter:   %f V, %f mA\n',dcval(1,1),dcval(1,2)*1e3);
      else
         cprintf('black','   emitter:   %f V, %f mA\n',dcval(1,1),dcval(1,2)*1e3);
      end
      if dcval(2,1)-dcval(1,1) < 0.50
         cprintf('red','   Vbe, beta: %f V, %f\n',dcval(2,1)-dcval(1,1),dcval(3,2)/dcval(2,2));
      else
         cprintf('black','   Vbe, beta: %f V, %f\n',dcval(2,1)-dcval(1,1),dcval(3,2)/dcval(2,2));
      end
      cprintf('black','   emitter impedance is %f / %f Ohms\n',acval10(1,1),acval10(1,2));
      cprintf('black','   saturation at output pulse height (1, 10, 100MHz) %.2f, %.2f, %.2f\n',...
                          abs(gain1*(dcval(3,1)-dcval(2,1))/(acval1(3,1)-acval1(2,1))),...
                          abs(gain10*(dcval(3,1)-dcval(2,1))/(acval10(3,1)-acval10(2,1))),...
                          abs(gain100*(dcval(3,1)-dcval(2,1))/(acval100(3,1)-acval100(2,1))));
   end
