unit variable;
interface
uses
	xMatDefs, CYTipos;

var

(************************************************)
(* Parámetros que hay que especificar en INICIO *)
(************************************************)

	tinicial,   { inicio de la simulación }
	tfinal:NReal; { Fin de la simulación }
	dtmax0:NReal; { Máximo paso de tiempo. }

	PasoDivisor,  { Divisor del paso de tiempo crítico (6 es un buen valor)}
	TmaxTmin:NReal; { Relación entre los pasos de tiempos. Un valor de 1000
						indica que las conmutaciones se afinarán con un paso de
						tiempo 1000 veces menor que el paso de simulación. }

              	
(**********************)
(* Variables globales *)
(**********************)


{ Matriz general del sistema de ecuaciones }
	m:TMatSistema;

{ Arboles de ecuaciones de nudo mostrando los cortes }
	arbv: TVectVoltIdx;

{ Estados lógicos }
	dx, dx0: TVectEstLog;

{ Estados reales }
	x, x0: TVectEstReal;

{ Indice de direccionamiento del vector de estados reales. Este índice
permite acceder a las variables de estado. El orden original puede
alterarse en caso de que las variables de estado originales sean redun-
dantes}
	indx: TVectEstRealIdx;

{ Vector de tensiones. v[0] es la tierra }
	v: TVectVolt;

{ Indica cuando se recorre Cirt2 si se está formando el sistema
de ecuaciones o recorriendo los componentes para chequear su estado lógico } 
	chek:boolean;


	t,   { tiempo actual de simulación }
	t_siguiente, { tiempo siguiente }
	dt, { paso de tiempo actual }
	dtmin, { mínimo valor del paso de tiempo determinado automáticamente }
	dtmax { máximo valor del paso de tiempo determinado automáticamente }
   :NReal;
 
	rf: TVectIndeps;

	n,
	nm,
	nn,
	nx,
	ndiodos
	:integer;

	nve,
	nvecirt1,
	nd,
	nindep:integer;

	redundancia:word;

implementation

begin
	t:=0;   { tiempo actual de simulación }
	t_siguiente:=0; { tiempo siguiente }
	dt:=1; { paso de tiempo actual }
	dtmin:=1; { mínimo valor del paso de tiempo determinado automáticamente }
	dtmax:=1; { máximo valor del paso de tiempo determinado automáticamente }

 
end. (* fin de la unidad de variables *)
