Modul:Vorlage:Infobox Asteroid
aus Wikipedia, der freien Enzyklopädie
| Dieses Modul ist noch im Aufbau und noch nicht funktionsfähig. Rückfragen an mich. ÅñŧóñŜûŝî (Ð) 19:49, 20. Sep. 2020 (CEST) |
local function GetBracketData(fullname)
fullname = string.gsub(fullname,'"','');
local num = tonumber(string.sub(fullname,1,6)) or 0;
local posbrackl = string.find(fullname,'(',1,true) or false;
local posbrackr = string.find(fullname,')',1,true) or false;
if posbrackl and posbrackr then
return string.sub(fullname,posbrackl+1,posbrackr-1), true;
else
return '', false;
end
end
--Aufteilen einer einzelnen Zeile anhand eines Separators.
local function CutString(str,sp)
local tbl = {};
local text = str;
local teil;
sep = sp or "/";
if #str == 0 then
return tbl;
end
text = text ..sep
for i = 1,50 do
pos = string.find(text,sep) or 0;
teil = string.sub(text,1,pos-1);
if pos < 1 then
break;
end
table.insert (tbl,teil);
text = string.sub(text,pos+1);
end
return tbl;
end
-- Teilen einer Zeichenkette an enthaltenen Zeilenumbrüchen
local function GetLines(str)
return CutString(str,'\n')
end
-- GetDataPage liest den Quelltext einer Datenseite aus und gibt die Zeilen im Pre-Tag in einer table zurück.
function GetDataPage(namespace,title)
local Seite = mw.title.makeTitle(namespace, title);
local Content = Seite:getContent()
local Lines = {};
local von;
local bis;
-- alles außerhalb des Pre-Tags entfernen
von = string.find(Content,'<pre>',1,true) or false;
bis = string.find(Content,'</pre>',1,true) or false;
if von and bis then
Content = string.sub(Content,von,bis+5);
else
Content = nil;
return Lines, false;
end
Lines = GetLines(Content);
Content = nil;
return Lines, true;
end
function GetDataSet(Id)
local Zeilen = {};
local Fields ={};
local Set = {};
local Cells = {};
local Zahl = 0;
local SPK = 2000000 + Id;
local isOK;
Zeilen, isOk = GetDataPage('Vorlage','Infobox Asteroid/Daten')
if not isOk then
return Cells, Fields, false
end
table.remove (Zeilen , 1); -- Pre-Tag entfernen
Fields = CutString(Zeilen[1],',');
for row = 2, #Zeilen do
Set = CutString(Zeilen[row],',')
for col = 1, #Fields do
Cells[Fields[col]] = Set[col];
end
Zahl = tonumber(Cells['spkid']) or 0;
if Zahl == SPK then
Zeilen = nil;
return Cells, Fields, true;
end
end
return Cells, Fields, false;
end
local p = {}
-- Aufruf der Infobox mit eingelesenen Werten
function p.CreateTemplate(frame)
local ID = frame.args['SSD_ID'] or 0;
if ID == 0 then
return '<div class="error float-right">Es wurde keine gültige ID angegeben!</div>';
end
local Felder = {};
local Werte = {};
local isOk = false;
Werte, Felder, isOk = GetDataSet(ID);
if not isOk then
return '<div class="error float-right">Es wurde kein gültiger Datensatz gefunden!</div>';
end
local a = tonumber(Werte['a'] or '') or -1;
local e = tonumber(Werte['e'] or '') or -1;
local i = tonumber(Werte['i'] or '') or -1;
local Perihel = a * (1 - e);
local Aphel = a * (1 + e);
local TNO = ''; if a > 30 then TNO = 'ja'; end
local Smass = Werte['spec_B'] or '';
Smass=mw.ustring.gsub(Smass, '"','');
local Tholen = Werte['spec_T'] or '';
Tholen=mw.ustring.gsub(Tholen, '"','');
local Albedo = Werte['albedo'] or '';
local H = Werte['H'] or '';
local Knoten = tonumber(Werte['om'] or '') or '';
local Periwinkel = tonumber(Werte['w'] or '') or '';
local PeriJD = tonumber(Werte['tp'] or '') or '';
local Epoche = tonumber(Werte['epoch'] or '') or '';
local Durchmesser = tonumber(Werte['diameter'] or '') or 0;
local Abmessungen = Werte['extent'] or '';
Abmessungen = mw.ustring.gsub( Abmessungen, 'x',' × ');
Abmessungen = mw.ustring.gsub( Abmessungen, '"','');
local Rotation = tonumber(Werte['rot_per']) or 0;
local Tage = 0;
local Std = 0;
local Min = 0
local Sek = 0;
local RotStr='';
if Rotation > 0 then
Rotation= math.floor(Rotation * 3600 + 0.5); -- in ganze Sekunden umwandeln
Tage = math.floor(Rotation/86400);
Std = math.floor((Rotation - Tage * 86400)/3600);
Min = math.floor((Rotation - Tage * 86400 - Std * 3600) /60);
Sek = Rotation % 60;
if Tage > 0 then
RotStr = tostring(Tage) .. ' [[Tag|d]] ';
end
if Tage < 100 then
RotStr = RotStr .. tostring(Std) .. ' [[Stunde|h]] ';
end
if Tage < 10 then
RotStr = RotStr .. tostring(Min) .. ' [[Stunde|min]] ';
end
if Tage == 0 then
RotStr = RotStr .. tostring(Sek) .. ' [[Sekunde|s]]';
end
end
local Dichte = '';
local Masse = '';
local GM = tonumber(Werte['GM'] or '') or 0;
Masse = GM / 6.67430 * math.pow(10,20);
if Durchmesser > 0 and Masse > 0 then
Dichte = Masse / ( math.pow(10,12)* Durchmesser * Durchmesser * Durchmesser * 3.1415926538 /6 )
Dichte = string.format('%5.3f',Dichte);
else
Dichte = '';
end
if Masse == 0 then
Massetext = '';
else
Masse = string.format('%7.5E',Masse);
local pos = string.find(Masse,"E") or 0
if pos > 0 then
Massetext = string.sub(Masse,pos-1) .. ' · 10<sup>' .. string.sub(Masse,pos+1) .. '</sup>'
else
Massetext = '';
end
end
local Name = Werte['name'] or '';
local SysName = GetBracketData(Werte['full_name'] or '')
-- unbenannte Asteroiden bekommen den syst. Namen
if Name =='' then
Name = SysName;
SysName = ''
end
local PeriodDay = tonumber(Werte['per'] or 0)
local PeriodYear = PeriodDay / 365.25;
local years = 0;
local days = 0;
if PeriodYear >= 100 then
years = math.floor(PeriodYear + 0.5);
days = false;
elseif PeriodYear >= 1 then
years = math.floor(PeriodDay / 365.25);
days = math.floor((PeriodDay - years *365.25) + 0.5);
if days > 364 then
years = years + 1;
days = days -365;
end
else
years = false;
days =math.floor(PeriodDay + 0.5);
end
local Umlaufdauer = '';
if years then
Umlaufdauer = Umlaufdauer .. tostring(years) .. ' a '
end
if days then
Umlaufdauer = Umlaufdauer .. tostring(days) .. ' d'
end
-- Es fehlt noch die Umrechnung für Bahngeschwindigkeit
local Args = frame.args; -- Vorbelegung von Args mit den übergebenen Werten
-- einige nicht angegebene Parameter werden durch die ausgelesenen ersetzt:
if Args['Name'] == '' then Args['Name'] = Name; end
if Args['anderer_Name'] == '' then Args['anderer_Name'] = SysName; end
Args['Tholen'] = Tholen;
Args['TholenRef']=''
Args['Smass'] = Smass;
Args['SmassRef']=''
if a > 0 then
Args['Große_Halbachse'] = string.format('%9.4f',a);
else
Args['Große_Halbachse'] = '';
end
if e >= 0 then
Args['Exzentrizität'] = string.format('%6.4f',e);
else
Args['Exzentrizität'] = '';
end
if i >= 0 then
Args['Bahnneigung'] = string.format('%7.2f',i);
else
Args['Bahnneigung'] = '';
end
if a > 0 and e >= 0 then
Args['Perihel'] = string.format('%.3f',Perihel);
Args['Aphel'] = string.format('%.3f',Aphel);
else
Args['Perihel'] = '';
Args['Aphel'] = '';
end
if Knoten ~='' then
Args['Knoten'] = string.format('%7.2f',Knoten);
else
Args['Knoten'] = '';
end
if Periwinkel ~='' then
Args['Periwinkel'] = string.format('%7.2f',Periwinkel);
else
Args['Periwinkel'] = '';
end
if Epoche ~='' then
Args['Epoche'] = string.format('%10.1f',Epoche);
else
Args['Epoche'] = '';
end
if PeriJD ~='' then
Args['PeriJD'] = string.format('%10.1f',PeriJD);
else
Args['PeriJD'] = '';
end
Args['Rotationsperiode'] = Rotation;
Args['Masse'] = Massetext;
Args['Dichte'] = Dichte;
Args['Albedo'] = Albedo;
if H ~='' then
Args['Absolute_Helligkeit'] = string.format('%8.3f',H);
else
Args['Absolute_Helligkeit'] = '';
end
Args['Abmessungen'] = Abmessungen;
Args['Umlaufdauer'] = Umlaufdauer;
Args['Rotationsperiode'] = RotStr;
Args['Umlaufgeschwindigkeit'] = '';
Args['SSD_TNO'] = TNO ;
if frame.args['test'] or '' ~= '' then
local S = tostring(#Args) ..'\n';
S = S .. '\n* SSD_ID = ' ..tostring(Args['SSD_ID'] or 'nil')
S = S .. '\n* SSD_TNO = ' ..tostring(Args['SSD_TNO'] or 'nil')
S = S .. '\n* Name = ' ..tostring(Args['Name'] or 'nil')
S = S .. '\n* anderer_Name = ' ..tostring(Args['anderer_Name'] or 'nil')
S = S .. '\n* Tholen = ' ..tostring(Args['Tholen'] or 'nil')
S = S .. '\n* Smass = ' ..tostring(Args['Smass'] or 'nil')
S = S .. '\n* Große_Halbachse = ' ..tostring(Args['Große_Halbachse'] or 'nil')
S = S .. '\n* Exzentrizität = ' ..tostring(Args['Exzentrizität'] or 'nil')
S = S .. '\n* Bahnneigung = ' ..tostring(Args['Bahnneigung'] or 'nil')
S = S .. '\n* Perihel = ' ..tostring(Args['Perihel'] or 'nil')
S = S .. '\n* Aphel = ' ..tostring(Args['Aphel'] or 'nil')
S = S .. '\n* Knoten = ' ..tostring(Args['Knoten'] or 'nil')
S = S .. '\n* Periwinkel = ' ..tostring(Args['Periwinkel'] or 'nil')
S = S .. '\n* Epoche = ' ..tostring(Args['Epoche'] or 'nil')
S = S .. '\n* PeriJD = ' ..tostring(Args['PeriJD'] or 'nil')
S = S .. '\n* Rotationsperiode = ' ..tostring(Args['Rotationsperiode'] or 'nil')
S = S .. '\n* Masse = ' ..tostring(Args['Masse'] or 'nil')
S = S .. '\n* Dichte = ' ..tostring(Args['Dichte'] or 'nil')
S = S .. '\n* Albedo = ' ..tostring(Args['Albedo'] or 'nil')
S = S .. '\n* Absolute_Helligkeit = ' ..tostring(Args['Absolute_Helligkeit'] or 'nil')
S = S .. '\n* Abmessungen = ' ..tostring(Args['Abmessungen'] or 'nil')
S = S .. '\n* Umlaufdauer = ' ..tostring(Args['Umlaufdauer'] or 'nil')
S = S .. '\n* Umlaufgeschwindigkeit = ' ..tostring(Args['Umlaufgeschwindigkeit'] or 'nil')
return S;
end
local Text = frame:expandTemplate{ title = 'Vorlage:Infobox Asteroid/Extrabox', args = Args }
return Text;
end
function p.CheckData(frame)
local Seite = mw.title.makeTitle('Vorlage','Infobox Asteroid/Daten');
local Content = Seite:getContent()
local c;
local von;
local bis;
-- alles außerhalb des Pre-Tags entfernen
von,c = string.find(Content,'<pre>',1,true);
c, bis = string.find(Content,'</pre>',1,true);
Content = string.sub(Content,von,bis);
return string.sub(Content,1, frame.args[1]);
end
return p
