{VERSION 5 0 "IBM INTEL NT" "5.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 
0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 148 "#\n# Klassische Var
iablenkontrolle:\n# Quantitiatives Qualit\344tsmerkmal \n# mit Normalv
erteilung mit bekannter Varianz,\n# zweiseitige Toleranzgrenzen \n#" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 12 "#Digits:=20;" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 33 "Phi:=z->0.5+0.5*erf(z/sqrt(2.0));" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 31 "Phic:=z->0.5*erfc(z/sqrt(2.0));" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "# Zweiseitige Toleranzgrenze
n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "Tu:=200;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "To:=220;" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 12 "sigma:=0.10;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 50 "p := mu -> Phi((Tu-mu)/sigma)+Phic((To-mu)/sigma);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 78 "#plot(p(mu),mu=190..210,`p(mu)`,fon
t=[HELVETICA,12]);\nplot(p(mu),mu=190..230);" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 22 "mu_stern := (Tu+To)/2;" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 38 "# p* = min(p(mu)\np_stern:=p(mu_stern);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "p_alpha:=0.01;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "p_beta:=0.08;" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 11 "alpha:=0.9;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 10 "beta:=0.1;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
46 "mu_alpha := fsolve(p(mu)=p_alpha,mu=210..250);" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 12 "p(mu_alpha);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 44 "mu_beta := fsolve(p(mu)=p_beta,mu=210..250);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "p(mu_beta);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 104 "#\n# OC-Funktion als Funktion von \+
mu\n# Annahmebereich: mu_stern - c*sigma < X-quer < mu_stern + c*sigma
\n#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 94 "L1 := mu -> Phi(sqrt
(n)*(mu_stern-mu+c*sigma)/sigma)-Phi(sqrt(n)*(mu_stern-mu-c*sigma)/sig
ma);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "fsolve(\{L1(mu_alph
a)=alpha,L1(mu_beta)=beta\},\{c=60..120,n=7..10\},fulldigits);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "n := 8;" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 14 "unassign('c');" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 40 "c:=fsolve(L1(mu_alpha)=alpha,c=90..120);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "c_l := mu_stern-c*sigma;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "evalf(L1(mu_alpha));" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "evalf(L1(mu_beta));" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "mu_alpha;" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 8 "mu_beta;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 97 "#plot(L1(mu),mu=200..220,`L1(mu)`,font=[HELVETICA,12]
,tickmarks=[4,4]);\nplot(L1(mu),mu=200..220);" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 15 "evalf(L1(210));" }{TEXT -1 0 "" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0" 0 }{VIEWOPTS 1 1 0 1 1 
1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }