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