Module:Infobox AFDO: Difference between revisions

← Older edit Newer edit →

@@ Line 1: / Line 1: @@
 local p = {}
 local u = require('Module:Utils')
--- local seq = require('Module:Sequence')
 local infobox = require('Module:Infobox')
 function p.infobox_AFDO(frame)
+	-- debug mode will disable the categories
+	local debug_mode = frame.args['debug'] ~= nil
+	local categories = ''
 	local steps = frame.args['steps']
 	local stepnum = tonumber(steps)
@@ Line 11: / Line 14: @@
 	local special_properties = ""
-	-- if seq.contains(seq.highly_composite, stepnum) then
+	-- category of the main article
-	-- 	special_properties = special_properties .. "Highly composite"
+	--categories = categories .. '[[Category:' .. tuning .. '| ]]'
-	-- end
+	-- category of the equal division
+	--if rat.eq(et.equave, 2) then
+		categories = categories .. '[[Category:AFDO|' .. string.rep ('#', string.len (stepnum)) .. ']]'
+	--else
+	--	categories = categories .. '[[Category:' .. et.suffix .. '|' .. string.rep ('#', string.len (et.size)) .. ']]'
+	--end
+	-- prime test
+	local prime = ""
+	if u.is_prime(et.size) then
+		prime = " (prime)"
+		if rat.eq(et.equave, 2) then
+			categories = categories .. '[[Category:Prime AFDO|' .. string.rep ('#', string.len (et.size)) .. ']]'
+		end
+	end
 	local infobox_data = {}
 	table.insert(infobox_data, {
 		'Prime factorization',
-		u._prime_factorization(stepnum)
+		u._prime_factorization(stepnum) .. prime
 	})
 	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, {
@@ Line 42: / Line 61: @@
 		'<-<small>&nbsp;[[' .. (steps - 1).. 'afdo]]&nbsp;</small>' .. '[[' .. steps .. 'afdo]]' .. '<small>&nbsp;[[' .. (steps + 1).. 'afdo]]&nbsp;-></small>',
 		infobox_data
 	)
+	if not debug_mode then
+		result = result .. categories
+	end
 	return result
 end
 return p