Steuerdatei

%
% netz Quelldatei zur berechnung der Besetztanzeige der
% Eisenbahnelektronik.
%
% Deklarationen
%

nodes 10;

constant

%
% conversion factors:
%
  Deg = PI/180;
  Hz  = 2*PI;

  yF  = 1e-6;
  nF  = 1e-9;
  mH  = 1e-3;
  kO  = 1e3;
  MO  = 1e6;
  Offen = INF;
  Zu	= 0;

parameter

%
% f ist die aktuelle Frequenz der angelegten Spannung.
%
  f = 20000*Hz;

  Uf = 20;		% Fahrspannung
  Um = 17;		% Messwechselspannung
  uw = 0;		% Lichtspannung (0*Um -- 1*Um)

  Rm = 10*kO;		% Messwiederstand
  Ckm = 100*nF;         % Koppelkapazit"aten
  Ckw = 100*nF;

  Cm = 1*nF;		% Messkapazit"at
  Rg = 10*kO;		% Ground Wiederstand

  Lm = 10*mH;		% Motorinduktivit"at
  Rt = 200;		% Motorwiederstand
  Cl = 100*nF;		% Lampenkapazit"at
  Rl = 200;		% Lampenwiederstand

  Lk = 100*mH;		% Koppelinduktivit"at

% -----------------------------------------------------------------------------------
% Netzwerk:                          
%			Lk     /     
%     +-----O  Uf  O-1-LLL-6-+/ +-----+
%     |	                              |
%     |                 Rm   Ckm      |                   Lm    Rt
%     |	 +--O  Um  O-3-RRR-8-CCC---+  |       	     +---LLL-9-RRR---+
%     |	 |	       	           |  |       	     |		     |
%     +--+      __     	           +--2---------O )--+		     +--( O--+
%     |  |       /|    	     Ckw   |  |       	     |		     |       |
%     |  +--O  Uw  O-4-------CCC---+  C       	     +---CCC-7-RRR---+	     |
%     |       /         	      C Cm     	          Cl    Rl	     |
%     |                 	      C					     |
%     |                 	      |					     |
%     |                 	      5------>				     |
%     |         		      |     /|\				     |
%     |         		      R      |				     |
%     |         		   Rg R      Ua				     |
%     |         		      R      |				     |
%     |         		      |     \|/				     |
%     +-------------------------------0--------------------------------------+
%
% ------------------------------------------------------------------------------------

node
  3-8 = R Rm;
  8-2 = C Ckm;
  4-2 = (C Ckw) + (R 1e20);
  2-5 = C Cm;
  5-0 = R Rg;
  1-6 = L Lk;

external
  0 = 0;
  1 = "step.wf" at Uf#1000*Hz;
  3 = Um # f;
  4 = uw*Um # f;

% ------------------------------------------------------------------------------------
% Messungen
% ------------------------------------------------------------------------------------

node
  6-2 = R 1;		% Fahrspannung ein.

  2-9 = L Lm;
  2-7 = C Cl;

  9-0 = R 1e40;		% Keine Lock
  7-0 = R 1e40;

%plot [ Rm:real,
%       U5>0:real,
%       U7>0:real, 
%       U9>0:real ]
%     on "ohne_lock.plot"
%     vs Rm = 1 .. 10*MO log N 100;

with Rm=10*kO;
plot [ time:real, U5:real, U2:real, U1:real ] on "wave-ohne.plot" vs time=0 .. 2/1000 N 1024;

node
  9-0 = R Rt;           % mit Lock
  7-0 = R Rl;

%plot [ Rm:real, 
%       U5>0:real,
%       U7>0:real,
%       U9>0:real ] 
%     on "mit_lock.plot"
%     vs Rm = 1 .. 10*MO log N 100;

with Rm=10*kO;
plot [ time:real, U5:real, U2:real, U1:real ] on "wave-mit.plot" vs time=0 .. 2/1000 N 1024;
zurück