Template:Index/author

Revision as of 12:18, 6 October 2008

著者名のインデクス {{{1}}} 値（文字列） {{{2}}} ページタイトル (FL/LB/..) This page is automatically generated using Persist function (Last updated: 20081006121812).

[[Index:{{{2}}}|Back to Index]]

Author	#articles	earliest paper	latest paper	peak year	standard deviation

@@ Line 10: / Line 10: @@
 <hr>
 {| class="wikitable sortable"
-! Author || #articles || earliest<br>publication || latest<br>publication || average || standard<br>deviation
+! Author || #articles || earliest<br>paper || latest<br>paper || peak year || standard<br>deviation
 {{#repeat:TableRow6/author|6|
 {{#cdr:
@@ Line 40: / Line 40: @@
      local tmp = H[name];
      local count = 0;
-     local avg = 0;
+     local peakDist = {};
-    local stdev = 0;
      local earliest = 3000;
      local latest = 0;
@@ Line 48: / Line 47: @@
        if (latest < v) then latest = v; end
        count = count + 1;
-       avg = avg + v;
+       for i=v-2,v+2 do
+        if (peakDist[i] == nil)
+          then peakDist[i] = 3-math.abs(v-i);
+          else peakDist[i] = peakDist[i] + 3-math.abs(v-i);
+        end
+      end
      end
-     avg = avg / count;
+     local peak = 0;
-     for k,v in pairs(tmp) do
+    local peakY = 0;
-       stdev = stdev + (avg - v) * (avg - v);
+     for k,v in pairs(peakDist) do
+       if (v > peak) then peakY = v; peak = v; end
      end
-    stdev = math.sqrt(stdev);
      ret = ret .. "&&" .. name ..
 "&&" .. count .. "&&" .. earliest .. "&&" .. latest ..
-"&&" .. string.format("%.2f", avg) ..
+"&&" .. ｐeakY ..
-"&&" .. string.format("%.2f", stdev) .. "\n";
+"&&" ..  .. "\n";
    end
    print(ret);