unit CYTipos;
interface

uses
	xMatDefs, horrores;

const
	AutoTrace: boolean = false;

const
   qnn=24;
   qnx=12;
   qn=36; {nx+nn}
   qnm=56; {nn+nx*2+nindep}
	qndiodos=34;
	qnindep=8;{cantidad de funciones r(t)}
   	
	NBitsUltimoByteCodLog = qndiodos mod 8;
	NByteCodLog = (qndiodos + NBitsUltimoByteCodLog) div 8;

type
	TVectFila=array[1..qnm]of NReal;


	TMatSistema=array[1..qn] of TVectFila;
	TVectEstLog= array[1..qndiodos] of boolean;

   TCodLog = array[1..NByteCodLog] of byte;

	TVectEstReal=array[1..qnx]of NReal;
	TVectEstRealIdx=array[1..qnx] of word;

	TVectVolt=array[0..qnn]of NReal;

{	TVectVoltIdx=array[0..qnn]of integer; }
{20.2.98 Hay que mantener un ¡dice para cada ecuaci¢n y no
	para cada tensi¢n. Esto hac¡a que la funci¢n PON no se pudiese
	usar para cualquier parte del sistema y daba lugar a errores.}
	TVectVoltIdx=array[0..qn]of integer;

	TVectIndeps= array[1..qnindep]of NReal;


implementation
begin
	if NByteCodLog*8+NBitsUltimoByteCodLog <> qndiodos then
		error(' Error de formula en cálculo parametros de CodLogico');
end.
