Entweder LUA oder ich?

Bottazzoli · Jan 23rd 2023, 6:15 pm

Hallo und Frohes Neues Jahr aus Namibia.

Ich stehe wirklich auf dem Schlauch!

Im beigefügten Script werden die Werte v.an[j].tracknum und v.an[j].priority aus der Tabelle fs_str ausgelesen und den Werten v.tracknum und v.priority Zugeordnet. (Zeile 55/56)

Danach wird alles in die Tabelle fs_wait Eingetragen (insert). (Zeile 57)

Zur Kontrolle werden diese Werte Angezeigt, und sind korrekt. (Zeile 59/60 - Grün im Bild).

Diese Werte in der Tabelle fs_wait sollten nun die Fahrstrassen schalten, je nach Fahrstrassen Nummer und Priorität.

Bei der Auswertung der Tabelle fs_wait, sind diese Werte falsch. Es ist nur der letzte Wert, aber zwei Mal vorhanden:

Tracknumber: 3 / Priority: P (Rot im Bild) ( Zeile 70)

Ich habe schon Einiges Versucht, z.B die neuen Werte in die Tabelle fs_str einzugeben und dann diesen Eintrag in die Tabelle fs_wait zu Kopieren. Immer dasselbe Resultat.

In anderen Skripten habe ich schon ohne Probleme neue Werte in eine bestehende Tabelle eingefügt.

Wie schon Gesagt: Ich stehe wirklich auf dem Schlauch!

Bitte um Hilfe, Dank im Voraus, Gruss JPB

Code

-- scan the fs_str table and insert the concerned records into the fs_wait table
for k,v in ipairs (fs_str) do
v.prio = ""
v.tracknum = 0
-- check if the signal (v.routesig) exists
if (EEPGetSignal(v.routesig) == 0) then
if set_deb then
prn_deb = prn_deb.."Debug: Module set_wait - non existing track signal: ".. v.routesig.."\n"
prn_mes()
pause = EEPPause(1)
end
end
-- check if the signal (v.blocksig) exists
if (EEPGetSignal(v.blocksig) == 0) then
if set_deb then
prn_deb = prn_deb.."Debug: Module set_wait - non existing block signal: ".. v.blocksig.."\n"
prn_mes()
pause = EEPPause(1)
end
end
-- set all track signals (v.routesig) to 1 (no train track used)
EEPSetSignal(v.routesig,1)
-- track code 0 or 1
if (v.code < 2) then
-- check if a train is waiting on the track block signal (v.blocksig)
if (EEPGetSignalTrainsCount(v.blocksig) > 0) then
v.trainname = EEPGetSignalTrainName(v.blocksig,1)
if (v.trainname == nil) or (v.trainname == "") then
if set_deb then
prn_deb = prn_deb.."Debug: Module set_wait - "..txtTrainNameEmpty..v.blocksig.." / Code: "..v.code.."\n"
prn_mes()
pause = EEPPause(1)
end
end
ok, v.routename = EEPGetTrainRoute(v.trainname)
if (ok == false) or (v.routename == nil) or (v.routename == "") then
if set_deb then
prn_deb = prn_deb.."Debug: Module set_wait - "..txtEEPGetTrainRoute.." / Code: "..v.code.."\n"
prn_mes()
pause = EEPPause(1)
end
end
-- handels track block tracks
-- handels track for unassignet trains (Alle/Any)
if (v.routename == "Any") or (v.routename == "Alle") then
if (v.an ~= nil) then
for j = 1, #v.an, 1 do
if not(v.an[j].priority == "E") and not(v.an[j].priority == "B") and not(v.an[j].prio == "L")then
v.tracknum = v.an[j].tracknum
v.priority = v.an[j].priority
table.insert(fs_wait,v)
print("------------------------")
print(k.."/"..v.tracknum.."/"..v.priority)
end
end
end
end
end
end
end
for k,v in ipairs (fs_wait) do
if set_rte then prn_rte = prn_rte..k.." / Railway: "..v.routesig.." / requested by: "..v.trainname.." / to Railway: "..v.routename.." / Tracknumber: "..v.tracknum.." / Priority: "..v.priority.."\n" end
end
end

Display More

Code

**Fried** · Jan 23rd 2023, 9:37 pm

Hallo Bottazzoli ,

auf den 1. Blick kann ich in der 1. ipairs-Schleife keinen Fehler entdecken, was aber nicht heißt, dass dort nicht doch einer ist.

In der 2. ipairs Schleife kann ich nicht erkennen, wie der Ausdruck aus fs_wait erfolgt.

Auch scheint der Ausdruck nicht an der Stelle zu erfolgen, denn im Foto sind andere Ausdrucke dazwischen.

Nutze doch mal in der 2. ipairs-Schleife direkte print-Befehle (wie in der 1.) und nicht deine eigenen Routinen.

cetz · Jan 24th 2023, 12:26 am

Zeile 57 ist das Problem.

Ich habe keine Ahnung, was in fs_str steht, sehe aber, dass es eine komplexe Datenstruktur aus verschachtelten Tabellen ist.

In Zeile 55 und 56 werden zwei Felder (mit Zeichenketten indizierte Tabelleneinträge) erstellt oder überschrieben. Dann wird in der ominösen Zeile 57 die ganze Datenstruktur v in die Tabelle fs_wait eingefügt. Im nächsten Schleifendurchlauf von j (ab Zeile 53) wird dieselbe Datenstruktur v weiter verändert. Das wirkt sich natürlich auch auf das aus, was bereits in die Tabelle fs_wait eingefügt war.

Merke: Lua übergibt nur für einfache Datentypen "by value" an aufgerufene Funktionen; komplexe Datentypen, insbesondere Tabellen, werden "by reference" übergeben.

Oder konkret: Mit v adressierst Du immer wieder denselben Speicherplatz. Und folglich kann man aus fs_wait auch nur den letzten Zustand von v auslesen.

Bottazzoli · Jan 28th 2023, 6:07 am

Hallo Fried und cetz,

vielen Dank für die Antworten.

cetz: Einige v Einträge werden in der j Schlaufe geändert aber jedes Mal in den fs_wait.insert als neuen Eintrag gespeichert. Ich habe dies auch in der vorherigen Anlage so gemacht, hat immer funktioniert.

Fried: Ja, ich habe versucht die Daten mit der print() Funktion zu Kontrollieren.

Es wird deutlich, dass die Werte im dritten Record von fs_wait beim ersten Durchlauf richtig sind. Aber beim zweiten Durchlauf (wenn der vierte Eintrag generiert wird) verändert werden???????

Die fs_str Struktur und der Code in Anhang.

Gruss JPB

Code

fs_str = {
{code = 0,routesig = 0007,blocksig = 0004,trackopt = 1},
{code = 0,routesig = 0008,blocksig = 0005,trackopt = 1},
{code = 0,routesig = 0009,blocksig = 0006,trackopt = 1},
{code = 0,routesig = 0014,blocksig = 0003,trackopt = 3,
an = {
{routename = "Gl1",tracknum = 1,priority = "E"},
{routename = "Gl2",tracknum = 2,priority = "A"},
{routename = "Gl3",tracknum = 3,priority = "P"},
},
},
{code = 0,routesig = 0017,blocksig = 0016,trackopt = 1},
{code = 0,routesig = 0018,blocksig = 0015,trackopt = 1},
{code = 0,routesig = 0022,blocksig = 0021,trackopt = 1},
{code = 0,routesig = 0025,blocksig = 0024,trackopt = 1},
{code = 2,routesig = 0031,blocksig = 0027,backsig = 0029,trackopt = 2,tminterval = 015,
an = {
{routename = "Rigibahn",tracknum = 1,priority = "E"},
{routename = "Erfurterbahn",tracknum = 2,priority = "E"},
},
},
{code = 2,routesig = 0032,blocksig = 0028,backsig = 0030,trackopt = 2,tminterval = 030,
an = {
{routename = "Rigibahn",tracknum = 1,priority = "E"},
{routename = "Erfurterbahn",tracknum = 2,priority = "E"},
},
},
{code = 2,routesig = 0042,blocksig = 0045,backsig = 0043,trackopt = 2,tminterval = 030,
an = {
{routename = "Rigibahn",tracknum = 1,priority = "E"},
{routename = "Erfurterbahn",tracknum = 2,priority = "E"},
},
},
{code = 2,routesig = 0047,blocksig = 0048,backsig = 0049,trackopt = 2,tminterval = 030,
an = {
{routename = "Rigibahn",tracknum = 1,priority = "E"},
{routename = "Erfurterbahn",tracknum = 2,priority = "E"},
},
},
{code = 3,routesig = 0036,blocksig = 0035,trackopt = 2,tminterval = 050,yardnumber = 1,yardname = "Train Yard Ost",occ = false,
an = {
{routename = "Trainyard 01",tracknum = 1,priority = "A"},
{routename = "Trainyard 02",tracknum = 2,priority = "A"},
},
},
{code = 3,routesig = 0038,blocksig = 0040,trackopt = 1,tminterval = 060,yardnumber = 2,yardname = "Train Yard West 1",occ = false},
{code = 3,routesig = 0052,blocksig = 0054,trackopt = 1,tminterval = 060,yardnumber = 3,yardname = "Train Yard West 2",occ = false},
}

Display More

Code

--***********************************************************************************************************************************************************************************
-- FUNCTION SET_WAIT
--**********************************************************************************************************************************************************************************
-- The function is loaded when the system is started by the start signal
-- All tracks are dissolved, set routesig = 1.
-- The fs_wait table is created.
-- All tracks are checked if a train is waiting.
-- If a train is waiting and the track code is 0 or 1 then the record is copied from fs_set to fs_wait.
-- If a train is waiting and the track code is 2 (reverse track) the v.nexttime and v.trainspeed is set.
-- I track code is 3 (train yard) the v.nexttime is set. The record is copied from fs_set to fs_wait.
-- The table fs_excl (exclusive) liste all exclusive tracks. Will be used in the "non of the exeptions applied" routine.
function set_wait()
-- create the table fs_wait
fs_wait = {}
local k,v,ok,i
local trainlen, raillen
prn_rte = "" -- normal railway request
prn_ret = "" -- return railway request
prn_dep = "" -- trainyard railway request
-- scan the fs_str table and insert the concerned records into the fs_wait table
for k,v in ipairs (fs_str) do
v.tracknum = 0
v.priority = "non"
-- check if the signal (v.routesig) exists
if (EEPGetSignal(v.routesig) == 0) then
if set_deb then
prn_deb = prn_deb.."Debug: Module set_wait - non existing track signal: ".. v.routesig.."\n"
prn_mes()
pause = EEPPause(1)
end
end
-- check if the signal (v.blocksig) exists
if (EEPGetSignal(v.blocksig) == 0) then
if set_deb then
prn_deb = prn_deb.."Debug: Module set_wait - non existing block signal: ".. v.blocksig.."\n"
prn_mes()
pause = EEPPause(1)
end
end
-- set all track signals (v.routesig) to 1 (no train track used)
EEPSetSignal(v.routesig,1)
-- track code 0 or 1
if (v.code < 2) then
-- check if a train is waiting on the track block signal (v.blocksig)
if (EEPGetSignalTrainsCount(v.blocksig) > 0) then
v.trainname = EEPGetSignalTrainName(v.blocksig,1)
if (v.trainname == nil) or (v.trainname == "") then
if set_deb then
prn_deb = prn_deb.."Debug: Module set_wait - "..txtTrainNameEmpty..v.blocksig.." / Code: "..v.code.."\n"
prn_mes()
pause = EEPPause(1)
end
end
ok, v.routename = EEPGetTrainRoute(v.trainname)
if (ok == false) or (v.routename == nil) or (v.routename == "") then
if set_deb then
prn_deb = prn_deb.."Debug: Module set_wait - "..txtEEPGetTrainRoute.." / Code: "..v.code.."\n"
prn_mes()
pause = EEPPause(1)
end
end
-- handels track block tracks
if (v.trackopt == 1) then
table.insert(fs_wait,v)
end
-- handels track for unassignet trains (Alle/Any)
if (v.routename == "Any") or (v.routename == "Alle") then
if (v.an ~= nil) then
for i = 1, #v.an, 1 do
if not(v.an[i].priority == "E") then
v.tracknum = v.an[i].tracknum
v.priority = v.an[i].priority
table.insert(fs_wait,v)
for j,w in ipairs (fs_wait) do
print(j.." - "..fs_wait[j].routesig.."/"..fs_wait[j].tracknum.."/"..fs_wait[j].priority)
end
print("---------------------------------------------")
end
end
end
end
end
end
end
end

Display More

cetz · Jan 28th 2023, 11:27 am

Bottazzoli wrote:

cetz: Einige v Einträge werden in der j Schlaufe geändert aber jedes Mal in den fs_wait.insert als neuen Eintrag gespeichert.

Nein, Euer Ehren.

Es wird nichts "als neuer Eintrag" gespeichert (und – so steht es zwischen den Zeilen – vor Veränderung geschützt).

Vielmehr erzeugst du nur einen neuen Eintrag, der auf immer wieder dasselbe v zeigt. Wenn Du v weiter verändert (was Du im nächsten Schleifendurchlauf tust), ändert sich damit auch die Speicherstelle, auf die der bereits "gesicherte" Eintrag in fs_wait verweist. Konnte ich mich jetzt verständlich machen? Es ist für die Fehlersuche wichtig, dass Du das verstehst.

Gruß

Christopher

Bottazzoli · Jan 29th 2023, 5:07 am

Hallo Euer Gnaden cetz,

Nein, ich verstehe es nicht. Bis heute habe ich in allen Programmiersprachen "Daten" in ein(e) Tabelle/File geschrieben und keine Indexe.

Aber es könnte ja sein das LUA das anders Händelt?

Darum habe ich in einer neuen Version die Daten für "tracknum" und "priority" ausgekoppelt von v.

Diese werden in einem Slot gespeichert und danach in fs_wait kopiert.

Das Ergebnis ist immer noch genauso falsch.

Gruss JPB

Code

-- handels track for unassignet trains (Alle/Any)
if (v.routename == "Any") or (v.routename == "Alle") then
if (v.an ~= nil) then
for i = 1, #v.an, 1 do
if not (v.an[i].priority == "E") then
ok = EEPSaveData(i, v.an[i].tracknum)
ok = EEPSaveData(i + 500, v.an[i].priority)
ind = #fs_wait + 1
fs_wait[ind] = v
ok, tracknum = EEPLoadData(i)
ok, priority = EEPLoadData(i + 500)
print(v.routesig.."/"..tracknum.."/"..priority)
fs_wait[ind].tracknum = tracknum
fs_wait[ind].priority = priority
end
end
end
end

Display More

cetz · Jan 29th 2023, 11:16 am

Also hier mal ein ganz kleines Lua-Programm, um die Logik zu erklären:

LUA Source Code

-- leere Tabelle:
a = {}
-- zwei Felder befüllen:
a.x = 1
a.y = 2
-- Ausgabe der Tabelle:
print("a.x = "..a.x..", a.y = "..a.y)
-- neue Tabelle b:
b = {}
-- b auf a setzen:
b = a -- hier wird b zu einem "zweiten Namen" für a; es wird *KEINE* Kopie erzeugt!
-- Änderung an einem Feld (dieses Feld ist b.x und zugleich a.x!):
b.x = 3
-- Ausgabe von a als Nachweis:
print("a.x = "..a.x..", a.y = "..a.y)

Display More

Wird es jetzt klar?

Gruß

Christopher

Bottazzoli · Jan 29th 2023, 6:31 pm

Hallo Christopher,

Ich glaube es Dir. Nur warum hat es, und tuet es immer noch, mit meinem alten Code funktioniert? Zeile 31, 40, 51 table. Insert(fs_xxx,v)

v.trainname, v.routename, v.nexttime und v.trainspeed wurden ebenfalls bei jedem Durchlauf verändert. Die Informationen in fs_wait waren immer korrekt.

Wo liegt der Unterschied, wie kann ich es zum Laufen bringen?

Mein Ziel ist die gesamten Informationen zum Ablauf in die einzige Tabelle fs_wait zu bringen, um eine weitere Bearbeitung beim Auslesen der Tabelle zu Vermeiden. Mit meiner großen Anlage und dem alten code kommt EEP ins Schwitzen und die Durchläufe verlängern sich.

Sommit sollten z.B. in der Tabelle fs_wait für das Signal 14 zwei Einträge für (Gleis 2 / Gleis 3) mögliche Gleise stehen. Der Zug würde das erste Freie Gleis benutzen und danach beide Einträge löschen. Das Gleis Eins darf er nicht benutzen, da reserviert für einen Zug mit dem Namen GL1 (in diesem Beispiel priority = "E").

Danke für die Mühe,

JPB

Code

function set_wait()
fs_wait = {}
fs_rtrack = {}
fs_depot = {}
fs_stp = {}
local k,v,z,r,ok
local tm = EEPTime
prn_nor = ""
prn_rev = ""
prn_dep = ""
for k,v in pairs (fs_str) do
if (EEPGetSignal(v.routesig) == 0) then
prn_deb = prn_deb.."Module set_wait Debug - Railroad: ".. v.routesig.." not exist".."\n"
prn_mes()
pause = EEPPause(1)
end
EEPSetSignal(v.routesig,1)
EEPSetSignal(v.blocksig,red)
if (EEPGetSignalTrainsCount(v.blocksig) > 0) then
if(v.code < 2) then
v.trainname = EEPGetSignalTrainName(v.blocksig,1)
ok, v.routename = EEPGetTrainRoute(v.trainname)
if (ok == false) then
prn_deb = prn_deb.." Module fs_wait - Trainroute missing / Type: "..v.code.."\n"
prn_mes()
pause = EEPPause(1)
end
v.nexttime = 0
v.trainspeed = 0
table.insert(fs_wait,v)
prn_nor = prn_nor.."Railroad: "..v.routesig.." / Requested by: "..v.trainname.." / to Railway: "..v.routename.."\n"
end
end
if (v.code == 2) then
v.trainname = EEPGetSignalTrainName(v.blocksig,1)
v.nexttime = tm + v.tminterval
v.trainspeed = 0
v.returnblock = false
table.insert(fs_rtrack,v)
if (EEPGetSignalTrainsCount(v.blocksig) > 0) then
prn_rev = prn_rev.."Reverse Track: "..v.routesig.." / requested by: "..v.trainname.."\n"
else
prn_rev = prn_rev.."Reverse Track: "..v.routesig.." / Not occupated".."\n"
end
end
if (v.code == 3) then
v.nexttime = tm + v.tminterval
v.trainspeed = 0
v.yardblock = false
table.insert(fs_depot,v)
prn_dep = prn_dep.."Train Yard: "..v.yardnumber.." / "..v.yardname.."\n"
end
end
print(prn_nor)
print(prn_rev)
print(prn_dep)
end

Display More

cetz · Jan 29th 2023, 10:36 pm

Hallo Bottazzoli ,

ich verstehe zwar nicht Deinen gesamten Code, weder den alten noch den neuen. Aber ich glaube, das muss ich auch gar nicht.

Der entscheidende Unterschied ist, dass Du in Deinem alten Code (den aus Deinem letzten Beitrag) keine verschachtelten Schleifen hast. Bei for k,v in pairs (fs_str) do bekommst Du einen Schlüssel k (den Du gar nicht verwendest) und einen Verweis v in die Tabelle fs_str. Mit v machst Du irgend etwas und fügst unter bestimmten Bedingungen dieses bearbeitete v in irgendeine Tabelle ein.

Im neueren Code (in einem Deiner früheren Beiträge) versuchst Du, das v aus der äußeren Schleife mehrfach zu verwenden, nämlich in der inneren Schleife for i = 1, #v.an, 1 do. Bei jedem Schleifendurchlauf veränderst Du v immer weiter und hängst es (ggf. mehrfach) an eine Zieltabelle an. Dabei übersiehst Du, dass v dadurch nicht "weggesichert" ist. Vielmehr ändert sich das, was Du an die Tabelle gehängt hast, im nächsten Schleifendurchlauf weiter, weil sowohl v als auch der letzte Eintrag in der Zieltabelle auf ein und dieselbe Speicherstelle zeigen. Erst im nächsten Durchlauf der äußeren Schleife zeigt v auf etwas Neues (nämlich auf den nächsten Eintrag von fs_str), und das, was Du vorher an die Zieltabelle angehängt hast, ist (einigermaßen) vor weiterer Veränderung geschützt.

Besser kann ich es jetzt nicht mehr erklären.

Gruß
Christopher

Bottazzoli · Jan 30th 2023, 9:55 am New

Hallo Christopher,

vielen Dank für die Mühe. Supper erklärt, jetzt habe auch ich verstanden, wo der Unterschied ist. Also muss ich die Werte, der unter Tabelle sichern (eventuell in Slots) und nachträglich in einer separaten routine dies in fs_wait einfügen. Ich werde es Versuchen und Dir mitteilen, wenn es funktioniert. Auf jeden Fall sehr interessant, viel Gelernt.

Ab dem Ersten Februar bin ich weg von zuhause, ich muss für za. 25 Tage mit der Anti Wilderei Truppe in den Busch. Also im Moment herscht Ruhe von meiner Seite.

Gruss, JPB

Entweder LUA oder ich?

Das aktuelle Tagesangebot vom 05.02.2023

03.02.2023 - Neuvorstellungen von IG2, KK1 und RP1 im EEP Online Shop

Das aktuelle Monatsangebot im Februar 2023

30.01.2023 - Neuvorstellungen von MS7 und SO1 im EEP Online Shop

Das aktuelle Wochenangebot vom 30.01.2023

27.01.2023 - Neuvorstellungen von JE1, JS2, NR1 und RE1 im EEP Online Shop

24.01.2023 - Neuvorstellungen von AG3, CE1 und SM2 im EEP Online Shop

Similar Threads

Wünsche für EEP18 und folgende Versionen

Texturexperimente

Weichestellhebel schalten

Fehlermeldung Lua - Rennsrecke V2_V3

FM-AB-Brückenteile ohne Mittellinien

10 ter Geburtstag !

EEP 17, Update 1

Beleuchtung für Tag und Nacht (Flugfeld)