SpcXbarRV2.0
SPC 统计过程控制
概率:一个随机事件 发生可能性的大小称为这个 概率:一个随机事件A发生可能性的大小称为这个 事件的概率。 ( ) 事件的概率。P(A) – 0≤P(A) ≤1 – P(Φ)=0, P( )=1 小概率事件原理: 小概率事件原理:小概率事件在一次试验中几乎 不可能发生,若发生即判断异常。 不可能发生,若发生即判断异常。
控制图
是对过程质量特性值进行测定、记录、评估,从而监察 过程是否处于控制状态的一种用统计方法设计的图。 中心线 上控制线 下控制线 按时间顺序抽取样本统计量数值的描点序列 µ样本中心倾向 A +3δ UCL B +2δ δ数据的分散程度 C +1δ CL 偶因与异因 C -1δ B -2δ A -3δ LCL
Cp & CpK – Cp的计算与过程输出的均值无关,它是假定过程 输出的均值与规格中心重合。 – Cp只是反映过程的潜在能力。(潜在能力指数) – CpK的引入就是考虑了均值µ的影响。 – µ≠M,CpK<Cp,CpK是反映实际过程能力的指数 – 两者是由处于统计受控状态下的过程波动的大小 和均值偏离决定的。
控制图类型
XbarR) Xb ar-S) X-Rs) R
S
控制图类型
NP) P) C U
短期过程能力指数
Cp=T/6δ=(Tu-TL)/ 6δst (无偏) 无偏) CpU=(Tu-µ)/3δ=(Tu - )/3δst , <Tu (无偏) 无偏) CpL =(µ- TL)/3δ=( -TL)/3δst , >TL (无偏) 无偏) CpK=(1-K)Cp=(1-K)* (Tu-TL)/ 6δst (有偏) 有偏) K=ε/T/2=2 ε/T (0≤K<1) ≤ ε=IM- µI δst = /d2= /c4
Xbar -R控制图培训资料
异常判定及识别
班每天收集数据后对 控制图上点线走势进 行判定,满足以下判 定检验准则之一时, 判定过程存在异常因 素,须“查出异因, 采取措施,加以消除, 纳入标准,不再出 现”。
异常判定及识别
异常判定及识别
X-R控制用图日常控制监测
步骤2:将控制上下限分为6 个等分区间,并标注刻度。 标样提供了等分格,等分刻 度与等分格对齐
步骤1:对中心线CL进行 描线,一般描绘在报表 虚线部位。
步骤3:标注上下控制 线。
X-R图由技术员确认产 品控制上下线后提交生 产线。
产线根据提供的上下线 对X-R图表格(表样详见 QR-T-034)进行控制线 描绘。如R图控制线: CL=0.6 LCL=0
Xbar-R控制用图控制线确认
3、计算 Xi (子组平均值),Ri(子组极差); 4、计算Xi (子组间平均值),Ri(子组间极 差平均); 5、确认R图控制线:
CL(中心线)=R(子组间极差) LCL(下限)=D3R UCL(上限)=D4R
Xbar-R控制用图控制线确认 6、计算X图的上下限:
UCL=1.2时表格描绘。 如左图:
X-R控制用图日常控制监测
各班长每天随机抽取N个 (一般为4或5)当天生 产产品的特性参数填入 X-R图中(包括不良品数 据),计算出平均值(X) 与极差R,根据计算结果 分别在R图与X图进行描 点。从点线走势对品质 进行分析(参考判定准 则)。
每天收集的特性数 据集
Xbar-R控制用图控制线确认
1、确认控制对象: 控制对象往往为产品的某以特性,如记录机型 的TILT感度。设备运行状态,如烙铁温度等。 2、数据的收集:
数据要求:控制对象在产品先期策划过程 PPK≥1.67以上或CPK≥1.33以上的数据(特性)
spc之xbar r chart实施细则讲义(冯胜标)
管制中限CL (規格值)
管制下限LCL (規格下限)
管制圖的功效: a. 及時掌握異常波動,克服影響因素,維持制程穩定. b. 了解制程能力.(Cpk、Ca、Cp) c. 應客戶的要求,提供給客戶作為質量控制的依據
1.4 SPC CHARTS--管制圖
直方圖
Sample樣
b>.非機遇原因(系統性,易識別,可以消除, )
如:使用了不合規格標准的原材料,設備的不正確調整,刀具的 嚴重磨損,操作者偏離操作規程等. ---其對品質變異影響程度大,生產失控,為異常原因 .
1.3 統計觀點
4>.統計數據類型:計量;計數 計量性的 例如: 長度, 溫度,重量,電流值等. 計數性的 例如: 一個人, 一張床, 一條魚等 5>.品質變異之一般統計規律:
3.常態曲線與橫座標間所構成之面積為1.
∫ -∞ f(x)d x =1 ∞
1.3 統計觀點
6>.常態分布兩個重要參數:
平均值 μ:描述品質特性值之集中位置 標準差σ : 描述品質特性值之分散程度
請看以下幾個例子:
第一組數據: 第二組數據: 第三組數據: 第四組數據: 10.10 10.10 10.20 10.05 10.20 10.25 10.25 10.25 10.30 10.40 10.30 10.45
1.4 SPC CHARTS--管制圖
管制圖種類:
b>.依用途分:
1.管制用管制圖:先有管制界限,后有數據
用於控制制程之品質,如有點子跑出界限時,立即采取如下 措施. A.追查不正常原因. B.迅速消除此原因. C.研究采取防止此項原因重復發生的措施. 2.解析用管制圖:先有數據,后才有管制界限
SPC统计过程控制课件
举例
• 原材料的微小变化 • 设备的微小震动 • 刀具的正常磨损 • 模具正常的老化 • 操作者细微的不稳定 • 夹具的正常磨损 •…
• 使用了一批不合格的原材料 • 设备的不正确调整 • 刀具的严重磨损 • 模具损坏 • 操作者做错(判定标准错) • 使用了错误的夹具 •…
一般原因与特殊原因在统计过程中的体 现
在何处使用SPC控制图
当一个防错装置不可行时 从FMEA中得出具有高危险顺序数值(RPN’s)的过程 从DOE(因素实验设计)得出的关键变量 客户要求 管理层承诺
SPC的优点和缺点
优点 ➢已证实的改善生产力的技术方法 ➢预防缺陷的有效方法 ➢防止不必要的过程调整 ➢提供诊断信息 ➢提供过程能力信息 ➢用于计数型和计量型两种数据类型 缺点 ➢必须提供充分的培训 ➢必须正确收集数据 ➢必须正确的计算和标绘所需的统计量(例如:均值,极差, 标准差)
+3
x
与平均值相距的标准差个数
正态(normal)机率测试图
利用Normal Probability Plot 我们可以测试一组数据是否为 “正态”分布 若该分布趋近于正态,则Normal Probability Plot 将会趋近于 一直线 利用Minitab 可以简单的制作出Normal Probability Plot 下面我们利用一组数据来检验一下其正态性
计量型统计过程控制
通过对本模块的学习后,学员将能够建立下列控制图: ➢单值移动极差图(I-MR) ➢均值极差图(Xbar-R) ➢均值标准差图(Xbar-S)
I-MR图
单值移动极差I-MR图,子群由单一的测量值组成 I-MR图由两个图组成,一个是I图,一个是MR图 I图为每个子群计量个体的测量值,中心线为其平均值 MR图为相邻两个数值的差的绝对值,中心线为其平均值
XBAR-R SPC教材
172 173 175 176 174 174 4
备注
176 175 174 173 170 174 6
171 173 173 174 175 173 4
175 174 175 173 172 174 3
173 172 170 171 172 172 3
169 171 173 174 175 172 6
接上页
1-1-3 子组数:子组越多,变差越有机会出现。一般为25组,首次使 子组数: 用管制图选用35 组数据,以便调整。 1-2 建立控制图及记录原始数据 (见下图) 见下图)
记录单位: 组立 X =均值X= 173 R =均值R = 4.3
烤纸“温度”X -R图 规范温度:170-175°c 滤纸材质:机油格 LCL= X +A2 R = UCL= UCL= X +A2 R = +A 175 170 UCL=D4 R = 9.09 LCL=D3R = 0
受控制的过程的极差
UCL R LCL
不受控制的过程的极差(有超过控制限的点)
UCL R LCL
3-1-2 链--- 有下列现象之表明过程已改变或出现某种趋势: 连续 7点在平均值一侧; 连续7点连续上升或下降;
a 高于平均极差的链或上升链说明存在下列情况之一或全部: a-1 输出值的分布宽度增加,原因可能是无规律的(例如:设备工
c-1 控制限或描点已计算错描错 。 c-2 过程或取样方法被分层,每个子组系统化包含了从两个或多
个具有完全不同的过程均值的过程流的测量值(如:从几组 轴中,每组抽一根来测取数据)。
c-3 数据已经过编辑(极差和均值相差太远的几个子组更改删除)。
d 如果显著少余2/3以上的描点落在离R很近之处(对于 25子组,如 果有40%的点落在控制限的1/3区域),则应对下列情况的一种或 更多进行调查: d-1 控制限或描点计算错或描错。 d-2 过程或取样方法造成连续的分组中包含了从两个或多个具有 明显不同的变化性的过程流的测量值(如:输入材料批次混 淆)。 如果存在几个过程流,应分别识别和追踪。 注:如果存在几个过程流,应分别识别和追踪。
CPK
什么是CPK?工序(过程)能力分析摘要在产品制造的过程中,工序是保证产品质量的最基本环节。
所谓工序能力是指处于稳定状态下的实际加工能力,工序能够稳定地生产出产品的能力,也就是说在操作者、机器设备、原材料、操作方法、测量方法和环境等标准条件下,工序呈稳定状态时所具有的加工精度。
工序能力分析是质量管理的一项重要的技术基础工作。
它有助于掌握各道工序的质量保证能力,为产品设计、工艺、工装设计、设备的维修、调整、更新、改造提供必要的资料和依据。
什么是CPK?CPK是Complex Process Capability index 的缩写,是现代企业用于表示制程能力的指标。
制程能力强才可能生产出质量、可靠性高的产品。
CPK的意义制程水平的量化反映;(用一个数值来表达制程的水平)制程力指数:是一种表示制程水平高低的方便方法,其实质作用是反映制程合格率的高低。
CPK等级评定及处理原则CPK计算公式Ca(Capability of Accuracy):制程准确度;CP(Capability of Precision):制程精密度;注意:计算CPK时,取样数据至少应有20组数据,方具有一定代表性。
太友科技CPK计算工具(完全免费版)CPK分析工具为太友科技为国内品质管理人员提供的一个免费CPK工具,是目前唯一一家提供免费破解版的CPK计算工具,它适合于初次接触SPC的品质管理人员,工程人员进行CPK 分析的工具;其特点为操作简单,尤其适合初学人员使用。
CPK分析工具的特点:•简单方便地进行CPK的计算;•方便的输入需要进行计算CPK的数据;•也可从其它文件中复制数据到CPK分析工具中,如从电子表格中复制数据;•分析数据文件可方便地保存,需要时可直接打开进行计算;CPK分析工具主界面:CPK分析工具操作方法:1、清空数据2、输入数据3、进入“分析选项”设置参数4、设置分析规格数据5、设置数据输入及分析区域6、设置计算CPK值的子组大小7、直方图区间分组选择项8、标准差选择方法9、计算CPK值10、文件处理功能说明CPK= Min[ (USL- Mu)/3s, (Mu - LSL)/3s] Cpk应用讲议 1. Cpk的中文定义为:制程能力指数,是某个工程或制程水准的量化反应,也是工程评估的一类指标。
Ppk、Cpk,还有Cmk三者的区别及计算
Ppk、Cpk,还有Cmk三者的区别及计算计算CPK的数据取样原则探讨计算Cpk收集数据:子组容量n:最好是在4~5,子组个数k:20~25,子组抽样间隔一般看产品的产量考虑,1hr少于10件 8hr 1组1hr10~19pics 4hr 1组1hr20~49pics 2hr 1组1hr大于50pics 1hr 1组抽样一般都是在尽量短的时间完成计算CmK 数据取样原则探讨取样条件:必须是连续加工零件组成,且为单一批量设备必须先进行预热至正常/最佳状态,预热时间视不同设备而具体规定;设备附件:设备之工装、夹具必须为正常/最佳状态(新工装、夹具需使用至寿命5-10%为正常),且在加工过程中不允许改变和损坏,否则需重新开始;生产过程:设备在生产过程内要保持其性能稳定性,(如避免受机械故障;停电;损耗;腐蚀等),否则需重新开始;操作员:只允许指定一名操作人员(为熟练者);检验员:只允许指定一名检验人员(为熟练者);量具:只允许使用一个量具(为合格者);检验过程:保持同一检验方法和检验环境条件不变(如温度、湿度、场地等);零件测量规定在具体确定位置,并保持每次测量均相同。
.在什么情况下要对机器能力进行测试?回答是,在很多情况下都要进行机器能力系数测试,但是,最重要的情况有两种:(1)在最终认可以前,证明新设备是合格的;或者(2)确定工序中新发现的造成工序异常波动的原因。
前提条件:1.在机器能力测试中使用的零件毛坯应从同一供货厂商处购买,并要求其材料相同,由同一浇铸模铸成或由同一套模具配套件制成。
2.前一道工序(前一台机床)所加工出的零件应符合设计和加工要求,其尺寸须符合公差要求。
3.对于所选取的零件数目有如下规定:连续地测量每个产品规格中的50个零件以某种特定的方式记录下来。
(如连续的序数)4.如果一台机床可以加工两种以上的零件,或者是零件编号不同的同种零件,则对其加工的每一种规格的零件都要求做机器能力的测试。
制程统计管制SPC教育训练课程(张旨光)
正確度及準 確度高精 密度低
精密度高正 確度及準 確度低
正確度準確 度精密度 都高
量測誤差
●系統誤差:保持恒定或可預知變 化的量測誤差. ●隨機誤差:以不可預知的方式變 化的量測誤差. ●粗大誤差:在相同條件下,因反 常原因或失誤造成的量測誤差.
量測誤差
影響量測準確度:儀器誤 差,阿貝誤差,COS誤差, 量測方法及量測力,環境, 安裝定位,人員誤差……
製程統計管制SPC教 育訓練課程
檢測處 張旨光
課程大綱
1.量測概念,電腦品質管制及 QC-NET介紹,基本數理統計. 2.直方圖,Xbar-R,Xbar-S 圖,Cpk,Cp及QC-NET SPC工具 介紹及應用. 3.實例應用.
量測精度
●正確度:在相同條件下,對同一工件進 行多次量測時,各測得值的分布中心或 其算術平均值與真值的符合程度. ●精密度:在相同條件下,對同一工件進 行多次量測時,各測得值之間的一致程 度. ●準確度:在相同條件下,對同一工件進 行多次量測時,各測得值與真值的一致 程度.
Cpk趨勢圖
2 2
變異數的開平方根稱之為標 準差.
群體標準差:
σ=
√ √
Σ
i=1
N
(Xi- μ)
2
N
樣本標準差:
S
=
Σ
i=1
n
(Xi- μ)
2
n-1
●常態分配:
●真實事務絕對不會具有恰 好符合常態分配. ●實驗得知量測值的隨機變 動近似常態分配. ●即使量測值的隨機變動不 趨近常態分配,其樣本平均 值亦會近似常態分配.
QC-NET品管網路系統架 構
信號轉換介面
伺服器
Network
Xbar-R控制图--正式版
Default Value存储路径E:\Sub 自动生成控制图()Application.ScreenUpdating = FASLEOn Error Resume NextDim QSH As IntegerDim JSH As IntegerDim p As IntegerDim max As VariantDim min As VariantDim maxR As VariantDim plag As StringDim fil As StringDim KZT As StringKZT = Worksheets("存储位置").Cells(3, "B").ValueLet QSH = Worksheets("控制图生成").Range("F6").ValueLet JSH = Worksheets("控制图生成").Range("G6").ValueFor p = QSH To JSHSheets("控制图").Range("B2").ClearContentsSheets("控制图").Range("E2:K2").ClearContentsSheets("控制图").Range("B47:K47").ClearContentsSheets("控制图").Range("B49:K49").ClearContentsWorksheets("控制图").ChartObjects("图表 1").Activate ActiveChart.SeriesCollection(1).Points(1).SelectWith Selection.Format.Fill.ForeColor.RGB = RGB(0, 0, 0)End WithWith Selection.Format.Line.ForeColor.RGB = RGB(0, 0, 0)End WithWorksheets("控制图").ChartObjects("图表 1").Activate ActiveChart.SeriesCollection(1).Points(2).SelectWith Selection.Format.Fill.ForeColor.RGB = RGB(0, 0, 0)End WithWith Selection.Format.Line.ForeColor.RGB = RGB(0, 0, 0)End WithWorksheets("控制图").ChartObjects("图表 1").Activate ActiveChart.SeriesCollection(1).Points(3).SelectWith Selection.Format.Fill.ForeColor.RGB = RGB(0, 0, 0)End WithWith Selection.Format.Line.ForeColor.RGB = RGB(0, 0, 0)End WithWorksheets("控制图").ChartObjects("图表 1").Activate ActiveChart.SeriesCollection(1).Points(4).SelectWith Selection.Format.Fill.ForeColor.RGB = RGB(0, 0, 0)End WithWith Selection.Format.Line.ForeColor.RGB = RGB(0, 0, 0)End WithWorksheets("控制图").ChartObjects("图表 1").Activate ActiveChart.SeriesCollection(1).Points(5).SelectWith Selection.Format.Fill.ForeColor.RGB = RGB(0, 0, 0)End WithWith Selection.Format.Line.ForeColor.RGB = RGB(0, 0, 0)End WithWorksheets("控制图").ChartObjects("图表 1").Activate ActiveChart.SeriesCollection(1).Points(6).SelectWith Selection.Format.Fill.ForeColor.RGB = RGB(0, 0, 0)End WithWith Selection.Format.Line.ForeColor.RGB = RGB(0, 0, 0)End WithWorksheets("控制图").ChartObjects("图表 1").Activate ActiveChart.SeriesCollection(1).Points(7).SelectWith Selection.Format.Fill.ForeColor.RGB = RGB(0, 0, 0)End WithWith Selection.Format.Line.ForeColor.RGB = RGB(0, 0, 0)End WithWorksheets("控制图").ChartObjects("图表 1").ActivateActiveChart.SeriesCollection(1).Points(8).SelectWith Selection.Format.Fill.ForeColor.RGB = RGB(0, 0, 0)End WithWith Selection.Format.Line.ForeColor.RGB = RGB(0, 0, 0)End WithWorksheets("控制图").ChartObjects("图表 1").ActivateActiveChart.SeriesCollection(1).Points(9).SelectWith Selection.Format.Fill.ForeColor.RGB = RGB(0, 0, 0)End WithWith Selection.Format.Line.ForeColor.RGB = RGB(0, 0, 0)End WithWorksheets("控制图").ChartObjects("图表 1").ActivateActiveChart.SeriesCollection(1).Points(10).SelectWith Selection.Format.Fill.ForeColor.RGB = RGB(0, 0, 0)End WithWith Selection.Format.Line.ForeColor.RGB = RGB(0, 0, 0)End WithDo While Worksheets("553 Cp Cpk分析").Cells(p, "E") = ""p = p + 1LoopLet fil = ThisWorkbook.Path & "\" & Worksheets("553 Cp Cpk分析").Cells(p, "E") & ".xlsx"If Len(Dir(fil)) = 0 ThenWorksheets("控制图").Range("B2").Value = Worksheets("553 Cp Cpk分析").Cells(p, "E").ValueWorksheets("控制图").Range("E2").Value = Worksheets("553 Cp Cpk分析").Cells(p, "K").ValueWorksheets("控制图").Range("F2").Value = Worksheets("553 Cp Cpk分析").Cells(p, "L").ValueWorksheets("控制图").Range("B47").Value = Worksheets("553 Cp Cpk分析").Cells(p, "AA").ValueWorksheets("控制图").Range("C47").Value = Worksheets("553 Cp Cpk分析").Cells(p, "AB").ValueWorksheets("控制图").Range("D47").Value = Worksheets("553 Cp Cpk分析").Cells(p, "AC").ValueWorksheets("控制图").Range("E47").Value = Worksheets("553 Cp Cpk分析").Cells(p, "AD").ValueWorksheets("控制图").Range("F47").Value = Worksheets("553 Cp Cpk分析").Cells(p, "AE").ValueWorksheets("控制图").Range("G47").Value = Worksheets("553 Cp Cpk分析").Cells(p, "AF").ValueWorksheets("控制图").Range("H47").Value = Worksheets("553 Cp Cpk分析").Cells(p, "AG").ValueWorksheets("控制图").Range("I47").Value = Worksheets("553 Cp Cpk分析").Cells(p, "AH").ValueWorksheets("控制图").Range("J47").Value = Worksheets("553 Cp Cpk分析").Cells(p, "AI").ValueWorksheets("控制图").Range("K47").Value = Worksheets("553 Cp Cpk分析").Cells(p, "AJ").ValueWorksheets("控制图").Range("B49").Value = Worksheets("553 Cp Cpk分析").Cells(p, "AK").ValueWorksheets("控制图").Range("C49").Value = Worksheets("553 Cp Cpk分析").Cells(p, "AL").ValueWorksheets("控制图").Range("D49").Value = Worksheets("553 Cp Cpk分析").Cells(p, "AM").ValueWorksheets("控制图").Range("E49").Value = Worksheets("553 Cp Cpk分析").Cells(p, "AN").ValueWorksheets("控制图").Range("F49").Value = Worksheets("553 Cp Cpk分析").Cells(p, "AO").ValueWorksheets("控制图").Range("G49").Value = Worksheets("553 Cp Cpk分析").Cells(p, "AP").ValueWorksheets("控制图").Range("H49").Value = Worksheets("553 Cp Cpk分析").Cells(p, "AQ").ValueWorksheets("控制图").Range("I49").Value = Worksheets("553 Cp Cpk分析").Cells(p, "AR").ValueWorksheets("控制图").Range("J49").Value = Worksheets("553 Cp Cpk分析").Cells(p, "AS").ValueWorksheets("控制图").Range("K49").Value = Worksheets("553 Cp Cpk分析").Cells(p, "AT").ValueWorksheets("控制图").Range("B45").Value = Worksheets("553 Cp Cpk分析").Cells(p, "AU").Valuemax = Worksheets("控制图").Cells(47, "B")min = Worksheets("控制图").Cells(47, "B")maxR = Worksheets("控制图").Cells(49, "B")plag = Worksheets("553 Cp Cpk分析").Cells(p, "E").ValueSheets("控制图").PageSetup.PrintArea = "$A$1:$L$50"End IfIf max < Worksheets("控制图").Cells(47, "B").Value Then max = Worksheets("控制图").Cells(47, "B").Value If max < Worksheets("控制图").Cells(47, "C").Value Then max = Worksheets("控制图").Cells(47, "C").Value If max < Worksheets("控制图").Cells(47, "D").Value Then max = Worksheets("控制图").Cells(47, "D").Value If max < Worksheets("控制图").Cells(47, "E").Value Then max = Worksheets("控制图").Cells(47, "E").Value If max < Worksheets("控制图").Cells(47, "F").Value Then max = Worksheets("控制图").Cells(47, "F").Value If max < Worksheets("控制图").Cells(47, "G").Value Then max = Worksheets("控制图").Cells(47, "G").Value If max < Worksheets("控制图").Cells(47, "H").Value Then max = Worksheets("控制图").Cells(47, "H").ValueIf max < Worksheets("控制图").Cells(47, "I").Value Then max = Worksheets("控制图").Cells(47, "I").Value If max < Worksheets("控制图").Cells(47, "J").Value Then max = Worksheets("控制图").Cells(47, "J").Value If max < Worksheets("控制图").Cells(47, "K").Value Then max = Worksheets("控制图").Cells(47, "K").Value If max > Worksheets("控制图").Cells(2, "F").Value ThenWorksheets("控制图").Cells(2, "G").Value = "NG"Worksheets("控制图").Cells(2, "G").Interior.ColorIndex = 3Worksheets("控制图").Cells(2, "H").Value = "超规格"End IfIf Worksheets("控制图").Range("B47").Value > Worksheets("控制图").Range("F2").Value ThenWorksheets("控制图").ChartObjects("图表 1").ActivateActiveChart.SeriesCollection(1).Points(1).SelectWith Selection.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)End WithWith Selection.Format.Line.ForeColor.RGB = RGB(255, 0, 0)End WithEnd IfIf Worksheets("控制图").Range("C47").Value > Worksheets("控制图").Range("F2").Value ThenWorksheets("控制图").ChartObjects("图表 1").ActivateActiveChart.SeriesCollection(1).Points(2).SelectWith Selection.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)End WithWith Selection.Format.Line.ForeColor.RGB = RGB(255, 0, 0)End WithEnd IfIf Worksheets("控制图").Range("D47").Value > Worksheets("控制图").Range("F2").Value ThenWorksheets("控制图").ChartObjects("图表 1").ActivateActiveChart.SeriesCollection(1).Points(3).SelectWith Selection.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)End WithWith Selection.Format.Line.ForeColor.RGB = RGB(255, 0, 0)End WithEnd IfIf Worksheets("控制图").Range("E47").Value > Worksheets("控制图").Range("F2").Value ThenWorksheets("控制图").ChartObjects("图表 1").ActivateActiveChart.SeriesCollection(1).Points(4).SelectWith Selection.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)End WithWith Selection.Format.Line.ForeColor.RGB = RGB(255, 0, 0)End WithEnd IfIf Worksheets("控制图").Range("F47").Value > Worksheets("控制图").Range("F2").Value ThenWorksheets("控制图").ChartObjects("图表 1").ActivateActiveChart.SeriesCollection(1).Points(5).SelectWith Selection.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)End WithWith Selection.Format.Line.ForeColor.RGB = RGB(255, 0, 0)End WithEnd IfIf Worksheets("控制图").Range("G47").Value > Worksheets("控制图").Range("F2").Value ThenWorksheets("控制图").ChartObjects("图表 1").ActivateActiveChart.SeriesCollection(1).Points(6).SelectWith Selection.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)End WithWith Selection.Format.Line.ForeColor.RGB = RGB(255, 0, 0)End WithEnd IfIf Worksheets("控制图").Range("H47").Value > Worksheets("控制图").Range("F2").Value ThenWorksheets("控制图").ChartObjects("图表 1").ActivateActiveChart.SeriesCollection(1).Points(7).SelectWith Selection.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)End WithWith Selection.Format.Line.ForeColor.RGB = RGB(255, 0, 0)End WithEnd IfIf Worksheets("控制图").Range("I47").Value > Worksheets("控制图").Range("F2").Value ThenWorksheets("控制图").ChartObjects("图表 1").ActivateActiveChart.SeriesCollection(1).Points(8).SelectWith Selection.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)End WithWith Selection.Format.Line.ForeColor.RGB = RGB(255, 0, 0)End WithEnd IfIf Worksheets("控制图").Range("J47").Value > Worksheets("控制图").Range("F2").Value ThenWorksheets("控制图").ChartObjects("图表 1").ActivateActiveChart.SeriesCollection(1).Points(9).SelectWith Selection.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)End WithWith Selection.Format.Line.ForeColor.RGB = RGB(255, 0, 0)End WithEnd IfIf Worksheets("控制图").Range("K47").Value > Worksheets("控制图").Range("F2").Value ThenWorksheets("控制图").ChartObjects("图表 1").ActivateActiveChart.SeriesCollection(1).Points(10).SelectWith Selection.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)End WithWith Selection.Format.Line.ForeColor.RGB = RGB(255, 0, 0)End WithEnd IfIf max < Worksheets("控制图").Cells(47, "C").Value Then max = Worksheets("控制图").Cells(47, "C").Value If max < Worksheets("控制图").Cells(47, "D").Value Then max = Worksheets("控制图").Cells(47, "D").Value If max < Worksheets("控制图").Cells(47, "E").Value Then max = Worksheets("控制图").Cells(47, "E").Value If max < Worksheets("控制图").Cells(47, "F").Value Then max = Worksheets("控制图").Cells(47, "F").Value If max < Worksheets("控制图").Cells(47, "G").Value Then max = Worksheets("控制图").Cells(47, "G").Value If max < Worksheets("控制图").Cells(47, "H").Value Then max = Worksheets("控制图").Cells(47, "H").Value If max < Worksheets("控制图").Cells(47, "I").Value Then max = Worksheets("控制图").Cells(47, "I").Value If max < Worksheets("控制图").Cells(47, "J").Value Then max = Worksheets("控制图").Cells(47, "J").Value If max < Worksheets("控制图").Cells(47, "K").Value Then max = Worksheets("控制图").Cells(47, "K").Value If max > Worksheets("控制图").Cells(2, "F").Value ThenWorksheets("控制图").Cells(2, "G").Value = "NG"Worksheets("控制图").Cells(2, "G").Interior.ColorIndex = 3Worksheets("控制图").Cells(2, "H").Value = "超规格"End IfIf min > Worksheets("控制图").Cells(47, "B").Value Then min = Worksheets("控制图").Cells(47, "B").Value If min > Worksheets("控制图").Cells(47, "C").Value Then min = Worksheets("控制图").Cells(47, "C").Value If min > Worksheets("控制图").Cells(47, "D").Value Then min = Worksheets("控制图").Cells(47, "D").Value If min > Worksheets("控制图").Cells(47, "E").Value Then min = Worksheets("控制图").Cells(47, "E").Value If min > Worksheets("控制图").Cells(47, "F").Value Then min = Worksheets("控制图").Cells(47, "F").Value If min > Worksheets("控制图").Cells(47, "G").Value Then min = Worksheets("控制图").Cells(47, "G").Value If min > Worksheets("控制图").Cells(47, "H").Value Then min = Worksheets("控制图").Cells(47, "H").Value If min > Worksheets("控制图").Cells(47, "I").Value Then min = Worksheets("控制图").Cells(47, "I").Value If min > Worksheets("控制图").Cells(47, "J").Value Then min = Worksheets("控制图").Cells(47, "J").Value If min > Worksheets("控制图").Cells(47, "K").Value Then min = Worksheets("控制图").Cells(47, "K").Value If min < Worksheets("控制图").Cells(2, "E").Value ThenWorksheets("控制图").Cells(2, "G").Value = "NG"Worksheets("控制图").Cells(2, "G").Interior.ColorIndex = 3Worksheets("控制图").Cells(2, "H").Value = "超规格"End IfIf maxR < Worksheets("控制图").Cells(49, "B").Value Then maxR = Worksheets("控制图").Cells(49, "B").Value If maxR < Worksheets("控制图").Cells(49, "C").Value Then maxR = Worksheets("控制图").Cells(49, "C").Value If maxR < Worksheets("控制图").Cells(49, "D").Value Then maxR = Worksheets("控制图").Cells(49, "D").Value If maxR < Worksheets("控制图").Cells(49, "E").Value Then maxR = Worksheets("控制图").Cells(49, "E").Value If maxR < Worksheets("控制图").Cells(49, "F").Value Then maxR = Worksheets("控制图").Cells(49, "F").ValueIf maxR < Worksheets("控制图").Cells(49, "G").Value Then maxR = Worksheets("控制图").Cells(49, "G").Value If maxR < Worksheets("控制图").Cells(49, "H").Value Then maxR = Worksheets("控制图").Cells(49, "H").Value If maxR < Worksheets("控制图").Cells(49, "I").Value Then maxR = Worksheets("控制图").Cells(49, "I").Value If maxR < Worksheets("控制图").Cells(49, "J").Value Then maxR = Worksheets("控制图").Cells(49, "J").Value If maxR < Worksheets("控制图").Cells(49, "K").Value Then maxR = Worksheets("控制图").Cells(49, "K").Value If maxR > Worksheets("控制图").Cells(45, "B").Value ThenWorksheets("控制图").Cells(2, "J").Value = "NG"Worksheets("控制图").Cells(2, "J").Interior.ColorIndex = 3Worksheets("控制图").Cells(2, "K").Value = "超规格"End IfIf Worksheets("控制图").Cells(47, "B").Value > Worksheets("控制图").Cells(47, "C").Value ThenIf Worksheets("控制图").Cells(47, "C").Value > Worksheets("控制图").Cells(47, "D").Value ThenIf Worksheets("控制图").Cells(47, "D").Value > Worksheets("控制图").Cells(47, "E").Value ThenIf Worksheets("控制图").Cells(47, "E").Value > Worksheets("控制图").Cells(47, "F").Value ThenWorksheets("控制图").Cells(2, "G").Value = "NG"Worksheets("控制图").Cells(2, "G").Interior.ColorIndex = 3Worksheets("控制图").Cells(2, "I").Value = "连续下降"End IfEnd IfEnd IfEnd IfIf Worksheets("控制图").Cells(47, "C").Value > Worksheets("控制图").Cells(47, "D").Value ThenIf Worksheets("控制图").Cells(47, "D").Value > Worksheets("控制图").Cells(47, "E").Value ThenIf Worksheets("控制图").Cells(47, "E").Value > Worksheets("控制图").Cells(47, "F").Value ThenIf Worksheets("控制图").Cells(47, "F").Value > Worksheets("控制图").Cells(47, "G").Value ThenWorksheets("控制图").Cells(2, "G").Value = "NG"Worksheets("控制图").Cells(2, "G").Interior.ColorIndex = 3Worksheets("控制图").Cells(2, "I").Value = "连续下降"End IfEnd IfEnd IfEnd IfIf Worksheets("控制图").Cells(47, "D").Value > Worksheets("控制图").Cells(47, "E").Value ThenIf Worksheets("控制图").Cells(47, "E").Value > Worksheets("控制图").Cells(47, "F").Value ThenIf Worksheets("控制图").Cells(47, "F").Value > Worksheets("控制图").Cells(47, "G").Value ThenIf Worksheets("控制图").Cells(47, "G").Value > Worksheets("控制图").Cells(47, "H").Value ThenWorksheets("控制图").Cells(2, "G").Value = "NG"Worksheets("控制图").Cells(2, "G").Interior.ColorIndex = 3Worksheets("控制图").Cells(2, "I").Value = "连续下降"End IfEnd IfEnd IfEnd IfIf Worksheets("控制图").Cells(47, "E").Value > Worksheets("控制图").Cells(47, "F").Value ThenIf Worksheets("控制图").Cells(47, "F").Value > Worksheets("控制图").Cells(47, "G").Value ThenIf Worksheets("控制图").Cells(47, "G").Value > Worksheets("控制图").Cells(47, "H").Value ThenIf Worksheets("控制图").Cells(47, "H").Value > Worksheets("控制图").Cells(47, "I").Value ThenWorksheets("控制图").Cells(2, "G").Value = "NG"Worksheets("控制图").Cells(2, "G").Interior.ColorIndex = 3Worksheets("控制图").Cells(2, "I").Value = "连续下降"End IfEnd IfEnd IfEnd IfIf Worksheets("控制图").Cells(47, "F").Value > Worksheets("控制图").Cells(47, "G").Value ThenIf Worksheets("控制图").Cells(47, "G").Value > Worksheets("控制图").Cells(47, "H").Value ThenIf Worksheets("控制图").Cells(47, "H").Value > Worksheets("控制图").Cells(47, "I").Value ThenIf Worksheets("控制图").Cells(47, "I").Value > Worksheets("控制图").Cells(47, "J").Value ThenWorksheets("控制图").Cells(2, "G").Value = "NG"Worksheets("控制图").Cells(2, "G").Interior.ColorIndex = 3Worksheets("控制图").Cells(2, "I").Value = "连续下降"End IfEnd IfEnd IfEnd IfIf Worksheets("控制图").Cells(47, "G").Value > Worksheets("控制图").Cells(47, "H").Value ThenIf Worksheets("控制图").Cells(47, "H").Value > Worksheets("控制图").Cells(47, "I").Value ThenIf Worksheets("控制图").Cells(47, "I").Value > Worksheets("控制图").Cells(47, "J").Value ThenIf Worksheets("控制图").Cells(47, "J").Value > Worksheets("控制图").Cells(47, "K").Value ThenWorksheets("控制图").Cells(2, "G").Value = "NG"Worksheets("控制图").Cells(2, "G").Interior.ColorIndex = 3Worksheets("控制图").Cells(2, "I").Value = "连续下降"End IfEnd IfEnd IfEnd IfIf Worksheets("控制图").Cells(47, "B").Value < Worksheets("控制图").Cells(47, "C").Value Then If Worksheets("控制图").Cells(47, "C").Value < Worksheets("控制图").Cells(47, "D").Value Then If Worksheets("控制图").Cells(47, "D").Value < Worksheets("控制图").Cells(47, "E").Value Then If Worksheets("控制图").Cells(47, "E").Value < Worksheets("控制图").Cells(47, "F").Value Then Worksheets("控制图").Cells(2, "G").Value = "NG"Worksheets("控制图").Cells(2, "G").Interior.ColorIndex = 3Worksheets("控制图").Cells(2, "I").Value = "连续上升"End IfEnd IfEnd IfEnd IfIf Worksheets("控制图").Cells(47, "C").Value < Worksheets("控制图").Cells(47, "D").Value Then If Worksheets("控制图").Cells(47, "D").Value < Worksheets("控制图").Cells(47, "E").Value Then If Worksheets("控制图").Cells(47, "E").Value < Worksheets("控制图").Cells(47, "F").Value Then If Worksheets("控制图").Cells(47, "F").Value < Worksheets("控制图").Cells(47, "G").Value Then Worksheets("控制图").Cells(2, "G").Value = "NG"Worksheets("控制图").Cells(2, "G").Interior.ColorIndex = 3Worksheets("控制图").Cells(2, "I").Value = "连续上升"End IfEnd IfEnd IfEnd IfIf Worksheets("控制图").Cells(47, "D").Value < Worksheets("控制图").Cells(47, "E").Value Then If Worksheets("控制图").Cells(47, "E").Value < Worksheets("控制图").Cells(47, "F").Value Then If Worksheets("控制图").Cells(47, "F").Value < Worksheets("控制图").Cells(47, "G").Value Then If Worksheets("控制图").Cells(47, "G").Value < Worksheets("控制图").Cells(47, "H").Value Then Worksheets("控制图").Cells(2, "G").Value = "NG"Worksheets("控制图").Cells(2, "G").Interior.ColorIndex = 3Worksheets("控制图").Cells(2, "I").Value = "连续上升"End IfEnd IfEnd IfEnd IfIf Worksheets("控制图").Cells(47, "E").Value < Worksheets("控制图").Cells(47, "F").Value Then If Worksheets("控制图").Cells(47, "F").Value < Worksheets("控制图").Cells(47, "G").Value Then If Worksheets("控制图").Cells(47, "G").Value < Worksheets("控制图").Cells(47, "H").Value Then If Worksheets("控制图").Cells(47, "H").Value < Worksheets("控制图").Cells(47, "I").Value Then Worksheets("控制图").Cells(2, "G").Value = "NG"Worksheets("控制图").Cells(2, "G").Interior.ColorIndex = 3Worksheets("控制图").Cells(2, "I").Value = "连续上升"End IfEnd IfEnd IfEnd IfIf Worksheets("控制图").Cells(47, "F").Value < Worksheets("控制图").Cells(47, "G").Value Then If Worksheets("控制图").Cells(47, "G").Value < Worksheets("控制图").Cells(47, "H").Value Then If Worksheets("控制图").Cells(47, "H").Value < Worksheets("控制图").Cells(47, "I").Value Then If Worksheets("控制图").Cells(47, "I").Value < Worksheets("控制图").Cells(47, "J").Value Then Worksheets("控制图").Cells(2, "G").Value = "NG"Worksheets("控制图").Cells(2, "G").Interior.ColorIndex = 3Worksheets("控制图").Cells(2, "I").Value = "连续上升"End IfEnd IfEnd IfEnd IfIf Worksheets("控制图").Cells(47, "G").Value < Worksheets("控制图").Cells(47, "H").Value Then If Worksheets("控制图").Cells(47, "H").Value < Worksheets("控制图").Cells(47, "I").Value Then If Worksheets("控制图").Cells(47, "I").Value < Worksheets("控制图").Cells(47, "J").Value Then If Worksheets("控制图").Cells(47, "J").Value < Worksheets("控制图").Cells(47, "K").Value Then Worksheets("控制图").Cells(2, "G").Value = "NG"Worksheets("控制图").Cells(2, "G").Interior.ColorIndex = 3Worksheets("控制图").Cells(2, "I").Value = "连续上升"End IfEnd IfEnd IfEnd IfIf Worksheets("控制图").Cells(2, "G").Value = "" ThenWorksheets("控制图").Cells(2, "G").Value = "OK"Worksheets("553 Cp Cpk分析").Cells(p, "U").Value = "OK"Worksheets("控制图").Cells(2, "G").Interior.ColorIndex = 4ElseWorksheets("553 Cp Cpk分析").Cells(p, "U").Value = "NG"End IfIf Worksheets("控制图").Cells(2, "J").Value = "" ThenWorksheets("控制图").Cells(2, "J").Value = "OK"Worksheets("553 Cp Cpk分析").Cells(p, "V").Value = "OK"Worksheets("控制图").Cells(2, "J").Interior.ColorIndex = 4ElseWorksheets("553 Cp Cpk分析").Cells(p, "V").Value = "NG"End IfSheets("控制图").SelectSheets("控制图").CopySheets("控制图").SelectSheets("控制图").Name = plagActiveWorkbook.SaveAs Filename:=KZT & plag & ".xlsx", FileFormat:= _ xlOpenXMLWorkbook, CreateBackup:=FalseActiveWorkbook.CloseNext pApplication.ScreenUpdating = TrueEnd Sub。
spc数据分析软件
Designer: Professor WenKuei Chen Designer: Professor WenKuei Chen--Statistical Process Control--Process Capability & X bar-R Chart[ Purpose ]To learn how to compute indices of process capability and use control charts.[ Operation ]Click the button, on the first row, and select the operation YOU WANT.[Procedure ]1.Click CAPABILITY button to go to the Cpk sheet.2.In Cpk sheet, you may type in your own database,or decide parameters for a process and then click buttonto simulate a set of data for a process you are interested in.3.In the Cpk and XbarR sheets, the form frames are protected,however, the area for data and formula are not protected in order toease your use and/or your practice.4.There are three kinds of specification, NTB, LTB & STB. Only after you provide appropriate limits, you may push to get Cpk for your process database, and push to align chart scale for betteer apperance.5.In Xbar-R sheet, you may push to shift charts forwad or backward.ally, you provide Xbar & Rbar as the reference to compute limits for charts. Otherwise, it will automatically use moving values to set control limits.7.Both Xbar and R charts can be browsed thru the entire subgroup horizon.8.In these sheets, you may push button to go back the called sheet.9.You might unprotect these spreadsheets without password.However, keep in mind that "Leave plots and command buttons alone!".CAPABILITY Print AboutXbar-R ChaOnly after you provide or your process etteer apperance.d or backward.pute limits for charts. control limits. ubgroup horizon.ack the called sheet. buttons alone!".54。
SPC- Xbar-R均值极差控制图(个人精编)
前言:监控用Xbar-R控制图,用在批产稳定阶段,手动把分析用Xbar-R控制图中计算得出的控制上中下限输入对应规格栏里,作为监控的标准限,每日取样(如5pcs)监控过程均值和极差变 化趋势,以及监控CPK变化趋势,当CPK<1.33,或有控制点超出上下控制限,或控制点变化趋势不符合要求,则从人机料法环测方面进行分析改进,同步取样监控,直到CPK≥1.33,及所有 控制点均在控制上下限以内且符合控制点变化趋势要求。
合 计
ΣX =ΣR =
334.04 15.11
量测数值的判定条件
> USL 蓝色
< LSL 红色
N =
15
平
均
2.1
X=
R= 0.64 9
2.50
—
x 2.30 管 2.10
预估不良率 (PPM) 27
制 1.90 图 1.70
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
抽样方法
随机
下限 LSL 1.00
31 下限LCL 1.87
0.00
审核者
李四
时间
16:01:25
日期/时 间
批号 样1 本2 测3 定4 值5
ΣX X R
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
分析改进: 符合标准要求无异常。
制程能力分析
Std.
0.21
1.50
R
1.00
SPC中座膜厚的Xbar-R控制图
0.42 0.08 1.92 0.37 0.14 1.86
8
求和
X
R=最高
176 86 197 121 182 149 115 283 216 217 182 171 237 139 158 133 276 187 151 186 300 157 234 176 175 157 122 187 79 221 9 0.34 0.18 1.82
计算控制限的日期: m
号:
样本容量/频率 零件名:SPC中座
对特殊原因采取措施的说 明
●任何超过控制限的点
均值图
230
210
190
170
150
130
110
90
70
50
30
1
2
3
4
5
67Leabharlann 89 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
极差图
300
280
260
240
220
200
180
160
140
120
100
80
60
40
1
2
3
4
5
6
7
8
9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
●连续七点全在中心线 之上或之下
●连续七点上升或下降
Xbarbar UCL LCL
423 416 526 389 668 524 438 802 493 532 547 503 781 360 416 551 723 472 510 376 733 466 634 607 503 368 422 641 369 ## 10 0.31 0.22 1.78 106 104 132 97 167 131 110 201 123 133 137 126 195 90 104 138 181 118 128 94 183 117 159 152 126 92 106 160 92 ## 124 198 115 92 177 108 163 163 155 130 239 98 166 98 105 62 166 116 64 144 172 130 142 163 102 116 95 216 133 ## 过程必须受控
spc-XbarR
选择了标志位于第一行, 软件会自动把第一行当 作标题的,不会影响计 算)
操作说明:
1, 6SQ统计--SPC--均值和极差图 2, 数据范围,选择全部的黄色区域 3,选择标志位于第一行 ( 掉第一行的标题) 4,分组方式选择: 逐列 5, 可以同时选择输出包含水平直方 格上下限,还可以计算cpk 6,可以选择特殊原因的识别规则 常 7,可以选择显示1/2sigma 8,可以选择包含有公式/输出到新的 选项只对专业版用户开放 9,确认(输出结果放在另外一个表中
Obs 2 Obs 3 Obs 4 74.002 74.019 73.992 73.992 74.001 74.011 74.024 74.021 74.005 73.996 73.993 74.015 74.007 74.015 73.989 这种左侧的非数据 73.994 73.997 73.985 区,不要选择哟 74.006 73.994 74.000 74.003 73.993 74.015 73.995 74.009 74.005 74.000 73.990 74.007 73.998 73.994 73.995 74.000 74.007 74.000 74.002 73.998 73.997 73.967 73.994 74.000 74.014 73.998 73.999 73.984 74.005 73.998 74.012 73.986 74.005 74.010 74.018 74.003 74.002 74.003 74.005 74.010 74.013 74.020 74.001 74.015 74.005 73.999 73.990 74.006 73.989 73.990 74.009 74.008 73.993 74.000 73.984 73.995 74.017 74.015 74.030 73.986 74.010 73.990 74.015 73.999 73.985 74.000 74.010 74.003 73.991 74.000 74.001 73.986 74.003 74.015 74.020 74.002 74.018 73.995 74.004 73.990 73.996 74.000 74.016 74.025 74.005 74.000 74.016 73.990 73.995 74.010 74.020 74.024 74.005 74.010 74.012 74.015 74.013 74.036 74.025 74.005 74.029 74.000
Xbar-R及P图 STOCK
过程能力
受控且有能力符合规范 (普通原因造成的变差已减少) 规范下限
规范上限
时间
范围 受控但没有能力符合规范 (普通原因造成的变差太大)
过程改进循环
1、分析过程 本过程应做什么? 会出现什么错误? 本过程正在做什么? 达到统计控制状态? 确定能力 计划 措施 实施 研究 计划 措施 2、维护过程 监控过程性能 查找变差的特殊原因并 采取措施。
接上页
5、使不必要的变差最小 确保过程按预定的方式运行 确保输入的材料符合要求 恒定的控制设定值 注:应在过程记录表上记录所有的相关事件,如:刀具更新,新的材料批 次等,有利于下一步的过程分析。
均值和极差图(X-R)
1、收集数据
以样本容量恒定的子组形式报告,子组通常包括2-5件连续的产品, 并周性期的抽取子组。 注:应制定一个收集数据的计划,将其作为收集、记录及描图的依据。 1-1 选择子组大小,频率和数据 1-1-1 子组大小:一般为5件连续的产品,仅代表单一刀具/冲头/过程 流等。(注:数据仅代表单一刀具、冲头、模具等 生产出来的零件,即一个单一的生产流。) 1-1-2 子组频率:在适当的时间内收集足够的数据,这样子组才能 反映潜在的变化,这些变化原因可能是换班/操作人 员更换/材料批次不同等原因引起。对正在生产的产 品进行监测的子组频率可以是每班2次,或一小时一 次等。
实施 研究
计划
实施
3、改进过程 改进过程从而更好地理解 普通原因变差 减少普通原因变差
措施
研究
控制图
上控制限 中心限 下控制限 1、收集 收集数据并画在图上 2、控制 根据过程数据计算实验控制限 识别变差的特殊原因并采取措施 3、分析及改进 确定普通原因变差的大小并采取减小它的措施 重复这三个阶段从而不断改进过程
SPC补充说明(PPT)
17
2
6
2
12
4
18
8
第三十四页,共四十二页。
【解】 由於每天抽樣之樣本數均相同,因此不合格率之平均 值可以利用下式計算:
=0.0648
管制界限為
UCL=0.648+
=0.1816
UCL=0.648-
=-0.052
由於LCL<0並無意義,因此我們將LCL設為0
其p管制圖如下
第三十五页,共四十二页。
第九页,共四十二页。
R管制圖發生特異值之原因
特異值(freaks):某個觀測值明顯的與其它值不同。 可能是
1.操作步驟漏失 2.測試產品 3.計算錯誤 4.設置後所生產的第一個產品等
第十页,共四十二页。
R管制圖發生週期變化之原因
週期變化(cycles): 在一個短區間,資料會以某種模式重複。 可能是 1.維修排程 2.操作員疲勞 3.輪班 4.工具磨耗等
【例】某除草機製造商以p管制圖管制除草機在發動時 是否正常。該公司每天抽取40部做試驗,第一個月之 數據如下表所示,試建立試用管制界限。
日期 不合格品數 日期 不合格品數 日期 不合格品數 日期 不合格品數
1
4
7
1
13
7
19
0
2
3
8
3
14
22013 Nhomakorabea1
9
0
15
3
21
3
4
2
10
1
16
3
22
2
5
3
11
2
1.與操作員﹑機器﹑測試儀器﹑原料有關
第十七页,共四十二页。
P管制圖發生特異值之原因