モジュール:Chart について

Words near each other

・メ＝ゾシ
・メ＝ゾシ県
・メ～テレ
・メ～テレNEWS
・メ～テレカフェ
・メ～テレニュース
・メ～テレワイドスーパーJチャンネル
・メ～テレ劇場
・メ～テレ日曜朝7時枠のアニメ
・メ～テレ時代劇
・モ
・モ'・ベター・ブルース
・モア
・モア (たばこ)
・モア (アルバム)
・モア (曖昧さ回避)
・モア (曲)
・モア☆ゴル
・モアイ
・モアイ (グラディウス)

Dictionary Lists

mini英和辞書

翻訳と辞書　辞書検索 [ 開発暫定版 ]

スポンサードリンク

モジュール:Chart ：ミニ英和和英辞書

モジュール:Chart[ちゃー]
=====================================
〔語彙分解〕的な部分一致の検索結果は以下の通りです。

・ジュール： [じゅーる]
　【名詞】 1. joule　2. (n) joule
・ー： [ちょうおん]
　(n) long vowel mark (usually only used in katakana)

モジュール:Chart ：ウィキペディア日本語版

モジュール:Chart[ちゃー]
--
--
keywords are used for languages: they are the names of the actual
parameters of the template

local keywords = -- here is what you want to translate
local defColors = require "Module:Plotter/DefaultColors"
local function nulOrWhitespace( s )
return not s or mw.text.trim( s ) == ''
end
local function createGroupList( tab, legends, cols )
if #legends > 1 then
table.insert( tab, mw.text.tag( 'div' ) )
local list =
local spanStyle = "padding:0 1em;background-color:%s;box-shadow:2px -1px 4px 0 silver;margin-right:1em;"
for gi = 1, #legends do
local span = mw.text.tag( 'span', , ' ' ) .. ' '.. legends
table.insert( list, mw.text.tag( 'li', , span ) )
end
table.insert( tab,
mw.text.tag( 'ul',
,
table.concat( list, '\n' )
)
)
table.insert( tab, '' )
end
end
function pieChart( frame )
local res, imslices, args = , , frame.args
local radius
local values, colors, names, legends, links = , , , ,
local delimiter = args.delimiter or ':'
local lang = mw.getContentLanguage()
function getArg( s, def, subst, with )
local result = args = tonumber( lang:parseFormattedNumber( value ) )
or error( string.format( 'Slice %d: "%s", first item("%s") could not be parsed as a number', i, value or '', sliceStr ) )
colors = not nulOrWhitespace( color ) and color or defColors
* 2
names = name or ''
links = link
end

radius = getArg( 'radius', 150 )
local slicesStr = getArg( 'slices' )
local prefix = getArg( 'unitsPrefix', '', '_', ' ' )
local suffix = getArg( 'unitsSuffix', '', '_', ' ' )
local percent = args
local sum = 0
local i, value = 0
for slice in mw.ustring.gmatch( slicesStr or '', "%b()" ) do
i = i + 1
addSlice( i, mw.ustring.match( slice, '^%(%s
*(.-)%s
*%)$' ) )
end

for k, v in pairs(args) do
local ind = mw.ustring.match( k, '^' .. keywords.slice .. '%s+(%d+)$' )
if ind then addSlice( tonumber( ind ), v ) end
end

for _, val in ipairs( values ) do sum = sum + val end
for i, value in ipairs( values ) do
local addprec = percent and string.format( ' (%0.1f%%)', value / sum
* 100 ) or ''
legends = mw.ustring.format( '%s: %s%s%s%s', names, prefix, lang:formatNum( value ), suffix, addprec )
links = mw.text.trim( links or mw.ustring.format( '%s', legends ) )
end
end
function addRes( ... )
for _, v in pairs( ) do
table.insert( res, v )
end
end
function createImageMap()
addRes( '' )
end
function drawSlice( i, q, start )
local color = colors
local angle = start
* 2
* math.pi
local sin, cos = math.abs( math.sin( angle ) ), math.abs( math.cos( angle ) )
local wsin, wcos = sin
* radius, cos
* radius
local s1, s2, w1, w2, w3, w4, width, border
local style
if q == 1 then
border = 'left'
w1, w2, w3, w4 = 0, 0, wsin, wcos
s1, s2 = 'bottom', 'left'
elseif q == 2 then
border = 'bottom'
w1, w2, w3, w4 = 0, wcos, wsin, 0
s1, s2 = 'bottom', 'right'
elseif q == 3 then
border = 'right'
w1, w2, w3, w4 = wsin, wcos, 0, 0
s1, s2 = 'top', 'right'
else
border = 'top'
w1, w2, w3, w4 = wsin, 0, 0, wcos
s1, s2 = 'top', 'left'
end
local style = string.format( 'position:absolute;%s:%spx;%s:%spx;width:%spx;height:%spx', s1, radius, s2, radius, radius, radius )
if start <= ( q - 1 )
* 0.25 then
style = string.format( '%s;border:0;background-color:%s', style, color )
else
style = string.format( '%s;border-width:%spx %spx %spx %spx;border-%s-color:%s', style, w1, w2, w3, w4, border, color )
end
addRes( mw.text.tag( 'div', , '' ) )
end
function createSlices()
function coordsOfAngle( angle )
return ( 100 + math.floor( 100
* math.cos( angle ) ) ) .. ' ' .. ( 100 - math.floor( 100
* math.sin( angle ) ) )
end
local sum, start = 0, 0
for _, value in ipairs( values ) do sum = sum + value end
for i, value in ipairs(values) do
local poly =
local startC, endC = start / sum, ( start + value ) / sum
local startQ, endQ = math.floor( startC
* 4 + 1 ), math.floor( endC
* 4 + 1 )
for q = startQ, math.min( endQ, 4 ) do drawSlice( i, q, startC ) end
for angle = startC
* 2
* math.pi, endC
* 2
* math.pi, 0.02 do
table.insert( poly, coordsOfAngle( angle ) )
end
table.insert( poly, coordsOfAngle( endC
* 2
* math.pi ) .. ' 100 100 ' .. links )
table.insert( imslices, table.concat( poly, ' ' ) )
start = start + values
end
end
analyzeParams()
if #values == 0 then error( "no slices found - can't draw pie chart" ) end
addRes( mw.text.tag( 'div', ) )
addRes( mw.text.tag( 'div', ) )
createSlices()
addRes( mw.text.tag( 'div', ) )
createImageMap()
addRes( '' ) -- close "position:relative" div that contains slices and imagemap.
addRes( '' ) -- close "position:relative" div that contains slices and imagemap.
createGroupList( res, legends, colors ) -- legends
addRes( '' ) -- close containing div
return frame:preprocess( table.concat( res, '\n' ) )
end
function barChart( frame )
local res =
local args = frame.args -- can be changed to frame:getParent().args
local values, xlegends, colors, tooltips, yscales = , , , ,, ,
local groupNames, unitsSuffix, unitsPrefix, links = , , ,
local width, height, stack, delimiter = 500, 350, false, ':'
local chartWidth, chartHeight, defcolor, scalePerGroup
local numGroups, numValues
local scaleWidth
function validate()
function asGroups( name, tab, toDuplicate, emptyOK )
if #tab == 0 and not emptyOK then
error( "must supply values for " .. keywords )
end
if #tab == 1 and toDuplicate then
for i = 2, numGroups do tab = tab end
end
if #tab > 0 and #tab ~= numGroups then
error ( keywords .. ' should contain the same number of items as the number of groups (' .. numGroups .. ')')
end
end
-- do all sorts of validation here, so we can assume all params are good from now on.
-- among other things, replace numerical values with mw.language:parseFormattedNumber() result
chartHeight = height - 80
numGroups = #values
numValues = #values
defcolor = defcolor or 'blue'
colors = colors or defcolor
scaleWidth = scalePerGroup and 80
* numGroups or 100
chartWidth = width -scaleWidth
asGroups( 'unitsPrefix', unitsPrefix, true, true )
asGroups( 'unitsSuffix', unitsSuffix, true, true )
asGroups( 'colors', colors, true, true )
asGroups( 'groupNames', groupNames, false, false )
if stack and scalePerGroup then
error( string.format( 'Illegal settings: %s and %s are incompatible.', keyword.stack, keyword.scalePerGroup ) )
end
for gi = 2, numGroups do
if #values ~= numValues then error( keywords.group .. " " .. gi .. " does not have same number of values as " .. keywords.group .. " 1" ) end
end
if #xlegends ~= numValues then error( 'Illegal number of ' .. keywords.xlegend .. '. Should be exatly ' .. numValues ) end
end
function extractParams()
function testone( keyword, key, val, tab )
i = keyword == key and 0 or key:match( keyword .. "%s+(%d+)" )
if not i then return end
i = tonumber( i ) or error("Expect numerical index for key " .. keyword .. " instead of '" .. key .. "'")
if i > 0 then tab = end
for s in mw.text.gsplit( val, '%s
*' .. delimiter .. '%s
*' ) do
table.insert( i == 0 and tab or tab, s )
end
return true
end
for k, v in pairs( args ) do
if k == keywords.width then
width = tonumber( v )
if not width or width < 200 then
error( 'Illegal width value (must be a number, and at least 200): ' .. v )
end
elseif k == keywords.height then
height = tonumber( v )
if not height or height < 200 then
error( 'Illegal height value (must be a number, and at least 200): ' .. v )
end
elseif k == keywords.stack then stack = true
elseif k == keywords.scalePerGroup then scalePerGroup = true
elseif k == keywords.defcolor then defcolor = v
else
for keyword, tab in pairs( ) do
if testone( keywords, k, v, tab )
then break
end
end
end
end
end
function roundup( x ) -- returns the next round number: eg., for 30 to 39.999 will return 40, for 3000 to 3999.99 wil return 4000. for 10 - 14.999 will return 15.
local ordermag = 10 ^ math.floor( math.log10( x ) )
local normalized = x / ordermag
local top = normalized >= 1.5 and ( math.floor( normalized + 1 ) ) or 1.5
return ordermag
* top, top, ordermag
end
function calcHeightLimits() -- if limits were passed by user, use ithem, otherwise calculate. for "stack" there's only one limet.
if stack then
local sums =
for _, group in pairs( values ) do
for i, val in ipairs( group ) do sums = ( sums or 0 ) + val end
end
local sum = math.max( unpack( sums ) )
for i = 1, #values do yscales = sum end
else
for i, group in ipairs( values ) do yscales = math.max( unpack( group ) ) end
end
for i, scale in ipairs( yscales ) do yscales = roundup( scale ) end
if not scalePerGroup then for i = 1, #values do yscales = math.max( unpack( yscales ) ) end end
end
function tooltip( gi, i, val )
if tooltips and tooltips and not nulOrWhitespace( tooltips ) then return tooltips , true end
local groupName = not nulOrWhitespace( groupNames ) and groupNames .. ': ' or ''
local prefix = unitsPrefix or unitsPrefix or ''
local suffix = unitsSuffix or unitsSuffix or ''
return mw.ustring.gsub(groupName .. prefix .. mw.getContentLanguage():formatNum( tonumber( val ) or 0 ) .. suffix, '_', ' '), false
end
function calcHeights( gi, i, val )
local barHeight = math.floor( val / yscales
* chartHeight + 0.5 ) -- add half to make it "round" insstead of "trunc"
local top, base = chartHeight - barHeight, 0
if stack then
local rawbase = 0
for j = 1, gi - 1 do rawbase = rawbase + values end -- sum the "i" value of all the groups below our group, gi.
base = math.floor( chartHeight
* rawbase / yscales ) -- normally, and especially if it's "stack", all the yscales must be equal.
end
return barHeight, top - base
end
function groupBounds( i )
local setWidth = math.floor( chartWidth / numValues )
local setOffset = ( i - 1 )
* setWidth
return setOffset, setWidth
end
function calcx( gi, i )
local setOffset, setWidth = groupBounds( i )
if stack then
local barWidth = math.min( 38, math.floor( 0.8
* setWidth ) )
return setOffset + (setWidth - barWidth) / 2, barWidth
end
setWidth = 0.85
* setWidth
local barWidth = math.floor( 0.75
* setWidth / numGroups )
local left = setOffset + math.floor( ( gi - 1 ) / numGroups
* setWidth )
return left, barWidth
end
function drawbar( gi, i, val )
local color, tooltip, custom = colors or defcolor or 'blue', tooltip( gi, i, val )
local left, barWidth = calcx( gi, i )
local barHeight, top = calcHeights( gi, i, val )
local style = string.format("position:absolute;left:%spx;top:%spx;height:%spx;min-width:%spx;max-width:%spx;background-color:%s;box-shadow:2px -1px 4px 0 silver;overflow:hidden;",
left, top, barHeight, barWidth, barWidth, color)
local link = links and links or ''
local img = not nulOrWhitespace( link ) and mw.ustring.format( '', link, custom and tooltip or '' ) or ''
table.insert( res, mw.text.tag( 'div', , img ) )
end
function drawYScale()
function drawSingle( gi, color, width, single )
local yscale = yscales
local _, top, ordermag = roundup( yscale
* 0.999 )
local numnotches = top <= 1.5 and top
* 4
or top < 4 and top
* 2
or top
local valStyleStr =
single and 'position:absolute;height=20px;text-align:right;vertical-align:middle;width:%spx;top:%spx;padding:0 2px'
or 'position:absolute;height=20px;text-align:right;vertical-align:middle;width:%spx;top:%spx;left:3px;background-color:%s;color:white;font-weight:bold;text-shadow:-1px -1px 0 #000,1px -1px 0 #000,-1px 1px 0 #000,1px 1px 0 #000;padding:0 2px'
local notchStyleStr = 'position:absolute;height=1px;min-width:5px;top:%spx;left:%spx;border:1px solid %s;'
for i = 1, numnotches do
local val = i / numnotches
* yscale
local y = chartHeight - calcHeights( gi, 1, val )
local div = mw.text.tag( 'div', , mw.getContentLanguage():formatNum( tonumber( val ) or 0 ) )
table.insert( res, div )
div = mw.text.tag( 'div', , '' )
table.insert( res, div )
end
end
if scalePerGroup then
local colWidth = 80
local colStyle = "position:absolute;height:%spx;min-width:%spx;left:%spx;border-right:1px solid %s;color:%s"
for gi = 1, numGroups do
local left = ( gi - 1 )
* colWidth
local color = colors or defcolor
table.insert( res, mw.text.tag( 'div', ) )
drawSingle( gi, color, colWidth )
table.insert( res, '' )
end
else
drawSingle( 1, 'black', scaleWidth, true )
end
end
function drawXlegends()
local setOffset, setWidth
local legendDivStyleFormat = "position:absolute;left:%spx;top:10px;min-width:%spx;max-width:%spx;text-align:center;veritical-align:top;"
local tickDivstyleFormat = "position:absolute;left:%spx;height:10px;width:1px;border-left:1px solid black;"
for i = 1, numValues do
if not nulOrWhitespace( xlegends ) then
setOffset, setWidth = groupBounds( i )
-- setWidth = 0.85
* setWidth
table.insert( res, mw.text.tag( 'div', , xlegends or '' ) )
table.insert( res, mw.text.tag( 'div', , '' ) )
end
end
end
function drawChart()
table.insert( res, mw.text.tag( 'div', ) )
table.insert( res, mw.text.tag( 'div', ) )
table.insert( res, mw.text.tag( 'div', ) )
for gi, group in pairs( values ) do
for i, val in ipairs( group ) do
drawbar( gi, i, val )
end
end
table.insert( res, '' )
table.insert( res, mw.text.tag( 'div', ) )
drawYScale()
table.insert( res, '' )
table.insert( res, mw.text.tag( 'div', ) )
drawXlegends()
table.insert( res, '' )
table.insert( res, '' )
createGroupList( res, groupNames, colors )
table.insert( res, '' )
end
extractParams()
validate()
calcHeightLimits()
drawChart()
return table.concat( res, "\n" )
end
return
--

抄文引用元・出典: フリー百科事典『ウィキペディア（Wikipedia）』
■ウィキペディアで「モジュール:Chart」の詳細全文を読む

スポンサードリンク

翻訳と辞書 : 翻訳のためのインターネットリソース