main.m

用MATLAB实现的不合格品率P控制图的绘制

clear;clc;
screen=get(0,'ScreenSize');
W=screen(3);H=screen(4);
a=1;
hf=figure('Color',[1,1,1],'Position',[0.2*H,0.2*H,0.6*W,0.4*H],...
       'Name','不合格品率P控制图演示系统','NumberTitle','off','MenuBar','none');
%定义Plot菜单项
hplot=uimenu(hf,'Label','&绘图');
hplot1=uimenu(hplot,'Label','点击开始绘制P控制图','Call','vison');
%定义Option菜单项
hoption=uimenu(gcf,'Label','&选项');
hgon=uimenu(hoption,'Label','&网格线(开)','Call','grid on','Enable','off');
hgoff=uimenu(hoption,'Label','&网格线(关)','Call','grid off','Enable','off');
hbon=uimenu(hoption,'Label','&坐标边框(开)','separator','on','Call','box on','Enable','off');
hboff=uimenu(hoption,'Label','&坐标边框(关)','Call','box off','Enable','off');
%定义Quit菜单项
uimenu(gcf,'Label','&退出','Call','close()');
tx0=uicontrol(hf,'Style','Text','Units','normalized',...
    'Position',[0,0.75,1,0.08],'String','欢 迎 使 用 “不 合 格 品 率 P 控 制 图” 仿 真 系 统 ！',...
    'FontSize',[14],'Back',[0,0.6,1]);
tx01=uicontrol(hf,'Style','Text','Units','normalized',...
    'Position',[0,0.45,1,0.06],'String','编辑者：翁鹏峰',...
    'FontSize',[11],'Back',[1,1,1]);
tx02=uicontrol(hf,'Style','Text','Units','normalized',...
    'Position',[0.3,0.05,0.4,0.05],'String','制作于2005.11.16，All Rights Reserved',...
    'FontSize',[9],'Back',[0.8,0.8,0.8]);

st1=uicontrol(hf,'Style','Text','Units','normalized',...
    'Position',[0,0.83,1,0.1],'Horizontal','center',...
    'String','=========== 请  导  入  数  据 ===========',...
    'FontSize',[12],'Back',[1,1,1],'Visible','off');
st2=uicontrol(hf,'Style','Frame','Position',[0.02,0.25,0.95,0.59],'Back',[0.5,0.5,0.5],'Visible','off');

tx1=uicontrol(hf,'Style','Text','Units','normalized',...
    'Position',[0.04,0.68,0.25,0.1],'Horizontal','center',...
    'String','写入调查数据： ','FontSize',[10],'Back',[1,1,1],'Visible','off');
tx2=uicontrol(hf,'Style','Text','Units','normalized',...
    'Position',[0.04,0.54,0.25,0.1],'Horizontal','center',...
    'String','计算中心线CL：','FontSize',[10],'Back',[1,1,1],'Visible','off');
tx3=uicontrol(hf,'Style','Text','Units','normalized',...
    'Position',[0.04,0.40,0.25,0.1],'Horizontal','center',...
    'String','计算上控制限UCL：','FontSize',[10],'Back',[1,1,1],'Visible','off');
tx4=uicontrol(hf,'Style','Text','Units','normalized',...
    'Position',[0.04,0.26,0.25,0.1],'Horizontal','center',...
    'String','计算下控制限LCL：','FontSize',[10],'Back',[1,1,1],'Visible','off');

he1=uicontrol(hf,'Style','Push','Units','normalized',...
    'Position',[0.25,0.71,0.6,0.08],'FontSize',[10],'String','导入P控制图数据文件data.txt',...
    'Call','load -ascii data.txt;click','Back',[1,1,1],'Visible','off');
he2=uicontrol(hf,'Style','Push','Units','normalized',...
    'Position',[0.25,0.57,0.6,0.08],'FontSize',[10],'String','sum(d)/sum(n)',...
    'Call','p=sum(data(:,3))/sum(data(:,2));click','Back',[1,1,1],'Enable','off','Visible','off');
he3=uicontrol(hf,'Style','Push','Units','normalized',...
    'Position',[0.25,0.43,0.6,0.08],'FontSize',[10],'String','p+3*sqrt(p*(1-p)/n)',...
    'Call','u=p+3*sqrt(p*(1-p)/(sum(data(:,2))/length(data)));click','Back',[1,1,1],'Enable','off','Visible','off');
he4=uicontrol(hf,'Style','Push','Units','normalized',...
    'Position',[0.25,0.29,0.6,0.08],'FontSize',[10],'String','p-3*sqrt(p*(1-p)/n)',...
    'Call','l=p-3*sqrt(p*(1-p)/(sum(data(:,2))/length(data)));click','Back',[1,1,1],'Enable','off','Visible','off');
tx5=uicontrol(hf,'Style','Text','Units','normalized',...
    'Position',[0.87,0.68,0.1,0.1],'Horizontal','center',...
    'String','导入成功','FontSize',[10],'Back',[1,1,1],'Visible','off');
tx6=uicontrol(hf,'Style','Text','Units','normalized',...
    'Position',[0.87,0.54,0.1,0.1],'Horizontal','center',...
    'String','计算成功','FontSize',[10],'Back',[1,1,1],'Visible','off');
tx7=uicontrol(hf,'Style','Text','Units','normalized',...
    'Position',[0.87,0.40,0.1,0.1],'Horizontal','center',...
    'String','计算成功','FontSize',[10],'Back',[1,1,1],'Visible','off');
tx8=uicontrol(hf,'Style','Text','Units','normalized',...
    'Position',[0.87,0.26,0.1,0.1],'Horizontal','center',...
    'String','计算成功','FontSize',[10],'Back',[1,1,1],'Visible','off');

pu1=uicontrol(hf,'Style','Push','Units','normalized',...
    'Position',[0.1,0.06,0.26,0.12],'FontSize',[10],'String','打开绘图窗口','Enable','off','Call','visoff;ht;','Visible','off');
pu2=uicontrol(hf,'Style','Push','Units','normalized',...
    'Position',[0.65,0.06,0.22,0.12],'FontSize',[10],'String','退    出','Call','close(hf)','Visible','off');