Module:Infobox AFDO

Module documentation[view] [edit] [history] [purge]

This module should not be invoked directly; use its corresponding template instead: Template:Infobox AFDO.

Generates an infobox providing information about a given arithmetic frequency division of the octave.

Introspection summary for Module:Infobox AFDO
Functions provided (1) Line Function Params 6 infobox_AFDO (invokable) (frame)	Lua modules required (3) Variable Module Functions used infobox Module:Infobox build seq Module:Sequence dependency not used u Module:Utils _prime_factorization

No function descriptions were provided. The Lua code may have further information.

---

local p = {}
local u = require('Module:Utils')
local seq = require('Module:Sequence')
local infobox = require('Module:Infobox')

function p.infobox_AFDO(frame)
	local steps = frame.args['steps']
	local stepnum = tonumber(steps)
	local dualfifth = stepnum % 2 == 1
	local fifth = steps+math.ceil(steps/2)
	local special_properties = ""
	
	-- if seq.contains(seq.highly_composite, stepnum) then
	-- 	special_properties = special_properties .. "Highly composite"
	-- end
	
	local infobox_data = {}
	table.insert(infobox_data, {
		'Prime factorization',
		u._prime_factorization(stepnum)
	})
	table.insert(infobox_data, {
		'Fifth',
		fifth .. '/' .. steps .. ' (' .. math.floor(math.log(fifth/steps)/math.log(2) * 1200 * 1000)/1000 .. 'c)'
	})
    if(dualfifth) then
    	table.insert(infobox_data, {
		'Dual sharp fifth',
		fifth .. '/' .. steps .. ' (' .. math.floor(math.log(fifth/steps)/math.log(2) * 1200 * 1000)/1000 .. 'c)'
		})    
		table.insert(infobox_data, {
		'Dual flat fifth',
		(fifth-1) .. '/' .. steps .. ' (' .. math.floor(math.log((fifth-1)/steps)/math.log(2) * 1200 * 1000)/1000 .. 'c)'
		})
    end

   if(special_properties ~= "") then
   		table.insert(infobox_data, {'Special properties', special_properties})
   	end

	local result = infobox.build(
		'<-<small>&nbsp;[[' .. (steps - 1).. 'afdo]]&nbsp;</small>' .. '[[' .. steps .. 'afdo]]' .. '<small>&nbsp;[[' .. (steps + 1).. 'afdo]]&nbsp;-></small>',
		infobox_data
	) 
	
	return result
end

return p