File:Xbar chart for a paired xbar and s chart.svg

原始文件 (SVG文件,尺寸为630 × 629像素,文件大小:43 KB)


摘要

描述
English: Example xbar chart for a process that experienced a 1.5σ drift starting at midnight.
日期
来源 自己的作品
作者 DanielPenfield

Creation technique

  1. Simulate process observations using en:perl, output to file.
  2. Read file into R, use qcc package to render control chart.
  3. Save to PDF.
  4. Import into en:Inkscape, save to SVG.
#!/usr/bin/perl -w

use strict;
use Math::Random;

my %shiftSchedule = (
    "first" =>  { "start" =>  6.00, "end" => 14.00 },
    "second" => { "start" => 14.00, "end" => 22.00 },
    "third" =>  { "start" => 22.00, "end" =>  6.00 }
);
my $shift = "third";         # shift to monitor
my $inspectionRate = 1 / 2;  # every 1/2 hour
my $drift = 1.5;             # drift to simulate
my $m = 25;                  # samples in control chart setup
my $n = 12;                  # observations per sample
my $target = 100.0;          # quality characteristic target

my $hour;
my $i;
my $j;
my $minute;
my $observation;
my $setupM = $m;

print "timestamp sample observation phase\r\n";

for ($i = 1; $i <= $m; $i++) {
    for ($j = 0; $j < $n; $j++) {
	$observation = $target + random_normal();
	printf "     0:00 %6d     %7.3f setup\r\n", $i, $observation;
    }
}

$m = $shiftSchedule{$shift}{"end"} - $shiftSchedule{$shift}{"start"};
if ($m < 0) {
    $m += 24;
}
$m /= $inspectionRate;
for ($i = 1; $i <= $m; $i++) {
    $hour = int($i * $inspectionRate + $shiftSchedule{$shift}{"start"});
    if ($hour >= 24) {
	$hour -= 24;
    }
    $minute = ($i & 0x1) ? (60 * $inspectionRate) : 0;
    for ($j = 0; $j < $n; $j++) {
	$observation = $target + random_normal();
	if ($i >= (0.25 * $m)) {
	    if ($i < (0.75 * $m)) {
		$observation += ($drift / (0.5 * $m)) * ($i - (0.25 * $m));
	    } else {
		$observation += $drift;
	    }
	}
	printf "    %2d:%02d %6d     %7.3f monitoring\r\n", $hour, $minute, $setupM + $i, $observation;
    }
}
 
矢量图由v使用R创作.

许可协议

我,本作品著作权人,特此采用以下许可协议发表本作品:
w:zh:知识共享
署名 相同方式共享
您可以自由地:
  • 共享 – 复制、发行并传播本作品
  • 修改 – 改编作品
惟须遵守下列条件:
  • 署名 – 您必须对作品进行署名,提供授权条款的链接,并说明是否对原始内容进行了更改。您可以用任何合理的方式来署名,但不得以任何方式表明许可人认可您或您的使用。
  • 相同方式共享 – 如果您再混合、转换或者基于本作品进行创作,您必须以与原先许可协议相同或相兼容的许可协议分发您贡献的作品。
GNU head 已授权您依据自由软件基金会发行的无固定段落及封面封底文字(Invariant Sections, Front-Cover Texts, and Back-Cover Texts)的GNU自由文件许可协议1.2版或任意后续版本的条款,复制、传播和/或修改本文件。该协议的副本请见“GNU Free Documentation License”。
您可以选择您需要的许可协议。

说明

添加一行文字以描述该文件所表现的内容

此文件中描述的项目

描繪內容

文件历史

点击某个日期/时间查看对应时刻的文件。

日期/时间缩⁠略⁠图大小用户备注
当前2010年1月16日 (六) 21:542010年1月16日 (六) 21:54版本的缩略图630 × 629(43 KB)DanielPenfield{{Information |Description={{en|1=Example xbar chart for a process that experienced a 1.5σ drift starting at midnight.}} |Source={{own}} |Author=DanielPenfield |Date=2010-01-16 |Permission= |other_versions

以下页面使用本文件:

全域文件用途

以下其他wiki使用此文件:

元数据