|
===================================== 〔語彙分解〕的な部分一致の検索結果は以下の通りです。 ・ ジュール ： [じゅーる] 【名詞】 1. joule 2. (n) joule ・ ー ： [ちょうおん] (n) long vowel mark (usually only used in katakana)
w = ; math_mod = require( "Module:Math" ); wbc = require( "Module:WeatherBoxColors" ); function checkFlag( flag ) if flag == nil then return nil; elseif type( flag ) == 'boolean' then return flag; elseif type( flag ) == 'string' then flag = flag:lower(); if flag == '0' or flag == 'false' or flag == '' or flag == 'no' or flag == 'n' then return false; else return true; end else return error( 'Flag type not valid' ); end end function w.buildRow( frame ) local mode = (frame.args.mode or 'basic'):lower(); local group_name = frame.args.group_name; local first_value_string, second_value_string; local first_value_number, second_value_number, color_values; local color_scheme = frame.args.color_scheme or 't'; local scale_factor = math_mod._cleanNumber( frame.args.scale_factor) or 1; local date_mode = checkFlag( frame.args.date_mode or false ); local label = frame.args.label or ''; local annual_mode = (frame.args.annual_mode or 'avg'):lower(); local include_space = checkFlag( frame.args.include_space or true ); local second_line = checkFlag( frame.args.second_line ) or false; local prefer_cm = checkFlag( frame.args.prefer_cm ) or false; local result; local pframe = frame:getParent(); local imperial_first = checkFlag( frame.argsfirst' ); if imperial_first == nil then imperial_first = checkFlag( pframe.argsfirst' ); end local metric_first = checkFlag( frame.argsfirst' ); if metric_first == nil then metric_first = checkFlag( pframe.argsfirst' ); end local single_line = checkFlag( frame.argsline' ); if single_line == nil then single_line = checkFlag( pframe.argsline' ); end if imperial_first == nil and metric_first ~= nil then imperial_first = not metric_first; else imperial_first = true; end if mode == 'basic' then first_value_string, first_value_number = getInputs( pframe, group_name, nil, include_space ); second_value_string = nil; second_value_number = nil; elseif mode == 'temperature' then first_value_string, first_value_number = getInputs( pframe, group_name, , include_space ); second_value_string, second_value_number = getInputs( pframe, group_name, , include_space ); first_value_string, first_value_number, second_value_string, second_value_number = reconcileTemperature( first_value_string, first_value_number, second_value_string, second_value_number ) elseif mode == "precipitation" then first_value_string, first_value_number, variant = getInputs( pframe, group_name, , include_space ); second_value_string, second_value_number = getInputs( pframe, group_name, , include_space ); first_value_string, first_value_number, second_value_string, second_value_number, variant = reconcilePrecipitation( first_value_string, first_value_number, second_value_string, second_value_number, variant, prefer_cm ) else error( 'Requested mode not recognized' ); end local good = false; for i = 1,13 do if first_value_string ~= nil and first_value_string ~= '' then good = true; break; end end if not good then return ''; end if first_value_string == nil or first_value_string == '' then first_value_string, first_value_number = getAnnualValue( first_value_number, annual_mode ); end if second_value_string ~= nil then if second_value_string == nil or second_value_string == '' then second_value_string, second_value_number = getAnnualValue( second_value_number, annual_mode ); end if mode == 'precipitation' then for i = 1,12 do if variant ~= 0 then variant = variant; break; end end end end color_scheme = wbc.interpret_color_code( color_scheme ); color_values = ; month_adj = ; local adj; for i = 1,13 do if first_value_number ~= nil and first_value_number ~= -9999 then adj = scale_factor; if date_mode then adj = adj / month_adj; end if mode == "precipitation" then if variant == 1 then adj = adj * 10; end end table.insert( color_values, color_scheme( first_value_number * adj ) ); else table.insert( color_values, color_scheme( nil ) ); end end local lang = mw.getContentLanguage(); for i = 1,13 do if first_value_number ~= nil and first_value_number ~= -9999 then if math.abs(first_value_number) >= 1000 then first_value_string = lang:formatNum( math.abs(first_value_number) ); if first_value_number < 0 then first_value_string = '−' .. first_value_string; end elseif first_value_number < 0 then first_value_string = '−' .. first_value_string:sub(2); end end if second_value_number ~= nil then if second_value_number ~= nil and second_value_number ~= -9999 then if math.abs(first_value_number) >= 1000 then second_value_string = lang:formatNum( math.abs(second_value_number) ); if second_value_number < 0 then second_value_string = '−' .. second_value_string; end elseif second_value_number < 0 then second_value_string = '−' .. second_value_string:sub(2); end end end end if imperial_first and second_value_string ~= nil then local t = first_value_string; first_value_string = second_value_string; second_value_string = t; end if not single_line then if second_line and second_value_string ~= nil then first_value_string = second_value_string; end second_value_string = nil; end return makeLine( label, first_value_string, second_value_string, color_values, color_scheme ); end function makeLine( label, first_value_string, second_value_string, color_values, color_scheme ) local result, color_str, value_str; result = for i = 1,13 do color_str = color_values; if i == 13 then table.insert( result, table.concat( ) ); else table.insert( result, table.concat( ) ); end value_str = first_value_string; if value_str ~= '' and value_str ~= nil then table.insert( result, value_str ); if second_value_string ~= nil then value_str = second_value_string; if value_str ~= '' and value_str ~= nil then table.insert( result, " (" .. value_str .. ")" ); end end else table.insert( result, '—' ); end table.insert( result, "\n" ); end return table.concat( result ); end function getInputs( frame, group_name, suffix, include_space ) local month_names = ; local str, str2, val; local output_string = ; local output_value = ; local variant = ; if suffix == nil then for _, mon in ipairs( month_names ) do if include_space then str = ( frame.argsmon .. ' ' .. group_name or '' ); else str = ( frame.argsmon .. group_name or '' ); end val, str2 = math_mod._cleanNumber( str ); if val ~= nil then table.insert( output_string, str2 ); table.insert( output_value, val ); else table.insert( output_string, str ); table.insert( output_value, -9999 ); end end else local updated = false; for _, mon in ipairs( month_names ) do updated = false; for i, suf in ipairs( suffix ) do if include_space then str = frame.argsmon .. ' ' .. group_name .. ' ' .. suf ; else str = frame.argsmon .. group_name .. ' ' .. suf ; end if str ~= nil and str ~= '' then val, str2 = math_mod._cleanNumber( str ); if val ~= nil then table.insert( output_string, str2 ); table.insert( output_value, val ); else table.insert( output_string, str ); table.insert( output_value, -9999 ); end table.insert( variant, i ); updated = true; break; end end if not updated then table.insert( output_string, '' ); table.insert( output_value, -9999 ); table.insert( variant, 0 ); end end end return output_string, output_value, variant; end function getAnnualValue( values, mode ) local total = 0; local val = 0; if mode == 'avg' or mode == 'sum' then local p1, p2; p1 = 0; for i = 1, 12 do val = values; if val == -9999 then return '', -9999; end p2 = math_mod._precision( val ); if p2 > p1 then p1 = p2; end total = total + val; end if mode == 'avg' then total = math_mod._round( total / 12, p1 + 1 ); end return tostring( total ), total; elseif mode == 'min' then local min_val = nil; for i = 1, 12 do val = values; if val ~= -9999 then if min_val == nil or val < min_val then min_val = val; end end end return tostring( min_val ), min_val; elseif mode == 'max' then local max_val = nil; for i = 1, 12 do val = values; if val ~= -9999 then if max_val == nil or val > max_val then max_val = val; end end end return tostring(max_val), max_val; else error( 'Unrecognized Annual Mode' ); end end function reconcileTemperature( C_degree_strings, C_degree_values, F_degree_strings, F_degree_values ) local p; for i = 1,13 do if C_degree_strings == '' then if F_degree_values ~= -9999 then p = math.max( 0, math_mod._precision( F_degree_strings ) ); C_degree_values = math_mod._round( (F_degree_values - 32) *5/9, p ); C_degree_strings = tostring( C_degree_values ); end elseif F_degree_strings == '' then if C_degree_values ~= -9999 then p = math.max( 0, math_mod._precision( C_degree_strings ) ); F_degree_values = math_mod._round( C_degree_values *9/5 + 32, p ); F_degree_strings = tostring( F_degree_values ); end end end return C_degree_strings, C_degree_values, F_degree_strings, F_degree_values; end function reconcilePrecipitation( M_degree_strings, M_degree_values, I_degree_strings, I_degree_values, variant, prefer_cm ) local p; local v_class = 0; for i = 1,13 do if variant == 1 then v_class = 1; elseif variant == 2 then v_class = 2; end end if v_class == 0 then if prefer_cm then v_class = 1; else v_class = 2; end end for i = 1,13 do if M_degree_strings == '' then if I_degree_values ~= -9999 then if v_class == 1 then p = math.max( 0, math_mod._precision( I_degree_strings ) ); M_degree_values = math_mod._round( I_degree_values *2.54, p ); variant = v_class; else p = math.max( 0, math_mod._precision( I_degree_strings ) ) - 1; M_degree_values = math_mod._round( I_degree_values *25.4, p ); variant = v_class; end M_degree_strings = tostring( M_degree_values ); end elseif I_degree_strings == '' then if M_degree_values ~= -9999 then if variant == 1 then p = math.max( 0, math_mod._precision( M_degree_strings ) ) + 1; I_degree_values = M_degree_values/2.54; else p = math.max( 0, math_mod._precision( M_degree_strings ) ) + 2; I_degree_values = M_degree_values/25.4; end I_degree_values = math_mod._round( I_degree_values, p ); I_degree_strings = tostring( I_degree_values ); end end end return M_degree_strings, M_degree_values, I_degree_strings, I_degree_values, variant; end return w; 抄文引用元・出典: フリー百科事典『 ウィキペディア（Wikipedia）』 ■ウィキペディアで「モジュール:WeatherBox」の詳細全文を読む スポンサード リンク
|