Mô đun:Clade/sequential
Tài liệu mô đun | Tài liệu mô đun này hiện đang thiếu, không đầy đủ hoặc không miêu tả chính xác chức năng, cách sử dụng, các tham số của nó. Xin hãy giúp viết một tài liệu hoặc mở rộng và cải thiện tài liệu để giúp các thành viên khác biết cách sử dụng mô đun này. |
Biên tập viên sửa đổi có thể thử nghiệm trong các trang chỗ thử và trường hợp kiểm thử của mô đun này.
Các trang con của mô đun này.
local p = {}local pargs function p.main(frame) pargs = frame:getParent().args local args = {} local i=1 local contentString = "" local max = getMax() if pargs['inverse'] then contentString = p.inverseClade(frame,max,max) else contentString = p.clade(frame,1,max) end return contentString endfunction p.clade(frame,i,max) -- |1= is basal at top local args = {} args[1] = pargs [i] args['label1'] = pargs ['label'..tostring(i)] args['sublabel1'] = pargs ['sublabel'..tostring(i)] if i+1 == max then args[2] = pargs [i+1] args['label2'] = pargs ['label'..tostring(i+1)] args['sublabel2'] = pargs ['sublabel'..tostring(i+1)] else args[2] = p.clade(frame,i+1,max) -- or the result of the next pair end local template = "Clade" if pargs ['reverse'] then template = "CladeR" end return frame:expandTemplate{ title = template, args = args }endfunction p.inverseClade(frame,i,max) -- |1= innermost at bottom local args = {} args[2] = pargs [i] args['label2'] = pargs ['label'..tostring(i)] args['sublabel2'] = pargs ['sublabel'..tostring(i)] if i-1 == 1 then args[1] = pargs [i-1] args['label1'] = pargs ['label'..tostring(i-1)] args['sublabel1'] = pargs ['sublabel'..tostring(i-1)] else args[1] = p.inverseClade(frame,i-1,max) -- or the result of the next pair end local template = "Clade" if pargs ['reverse'] then template = "CladeR" end return frame:expandTemplate{ title = template , args = args }endfunction p.inverseClade2(frame,i,max) -- |1= is innermost at bottom local args = {} args[1] = pargs [i] args['label1'] = pargs ['label'..tostring(i)] if i-1 == 1 then args[2] = pargs [i-1] args['label2'] = pargs ['label'..tostring(i-1)] else args[2] = p.inverseClade(frame,i-1,max) -- or the result of the next pair end return frame:expandTemplate{ title = "Clade", args = args }endfunction getMax() local i=1 local max while i<50 do if pargs [i] then max = i i=i+1 else break end end return maxendreturn p