# binf, binF: Binomialverteilung # Z\344hldichte b(n,p;k), V-Funktion F(n,p;k)binf := proc(n,p,k) return evalf( binomial(n,k)*p^k*(1-p)^(n-k) ); end proc:binF := proc(n,p,k) local i; return evalf( sum(binf(n,p,i),i=0..k) ); end proc:# hypf, hypF: Hypergeometrische Verteilung # Z\344hldichte h(N,K,n;k), V-Funktion F(N,K,n;k)hypf := proc(N,K,n,k) return evalf( binomial(K,k)*binomial(N-K,n-k)/binomial(N,n) ); end proc:hypF := proc(N,K,n,k) local i; return evalf( sum(hypf(N,K,n,i),i=0..k) ); end proc:# poif, poiF: Poisson-Verteilung # Z\344hldichte pi(lambda;k), V-Funktion F(lambda;k)poif := proc(la,k) return evalf( exp(-la)*la^k/k! ); end proc:poiF := proc(la,k) local i; return evalf( sum(poif(la,i),i=0..k) ); end proc:# norf, norF: Normalverteilung # Dichtefunktion f(a,sig;x), v-Funktion F(a,sig;x)norf := (a,sig,x) -> evalf(1/(sig*sqrt(2*Pi)))*exp((-1/2)*((x-a)/sig)^2):norF := (a,sig,x) -> evalf( int(norf(a,sig,t),t=-infinity..x)):# chif, chiF: Chi-Quadrat-Verteilung # Dichtefunktion f(z,n), v-Funktion F(z,n)chif := proc(z,n) local an; an:=(n)->1/(2^(n/2)*GAMMA(n/2)); return evalf(an(n)*z^((n-2)/2)*exp(-z/2)); end proc:chiF := proc(z,n) local an; an:=(n)->1/(2^(n/2)*GAMMA(n/2)); return evalf(an(n)*int(u^((n-2)/2)*exp(-u/2),u=0..z)); end proc:# tf, tF: t-Verteilung # Dichtefunktion f(t,n), v-Funktion F(t,n)tf := proc(t,n) local an; an:=(n)->GAMMA((n+1)/2)/(sqrt(Pi*n)*GAMMA(n/2)); return evalf(an(n)*1/(1+t^2/n)^((n+1)/2)); end proc:tF := proc(t,n) return evalf(int(tf(v,n),v=-infinity..t));end proc:mittelwert := proc(l) return sum(l[i],i=1..nops(l))/nops(l); end proc:varStich := proc(l) local m; m := mittelwert(l); return 1/nops(l)*sum((l[i]-m)^2,i=1..nops(l)); end proc:varGesamt := proc(l) local m; m := mittelwert(l); return 1/(nops(l)-1)*sum((l[i]-m)^2,i=1..nops(l)); end proc:

restart;l:=[47,53,51,51,58,46,44,49,54,58,61,44,45,49,55];

NiM+SSJsRzYiNzEiI1oiI2AiI15GKSIjZSIjWSIjVyIjXCIjYUYqIiNoRiwiI1hGLSIjYg==

sig2:=8;

NiM+SSVzaWcyRzYiIiIp

sig:=sqrt(sig2);

NiM+SSRzaWdHNiIsJCokIiIjIyIiIkYoRig=

xm:=mittelwert(l);

NiM+SSN4bUc2IiIjXg==

n:=nops(l);

NiM+SSJuRzYiIiM6

ga:=0.99;

NiM+SSNnYUc2IiQiIyoqISIj

c:=fsolve(2*norF(0,1,x)-1=ga,x);

NiM+SSJjRzYiJCIrZiRIZWQjISIq

muMin:=evalf(xm-(c*sig)/sqrt(n));

NiM+SSZtdU1pbkc2IiQiK0AhKSk9IlwhIik=

muMax:=evalf(xm+(c*sig)/sqrt(n));

NiM+SSZtdU1heEc2IiQiK3o+NilHJiEiKQ==

xm:=mittelwert(l);

NiM+SSN4bUc2IiIjXg==

n:=nops(l);

NiM+SSJuRzYiIiM6

ga:=0.99;

NiM+SSNnYUc2IiQiIyoqISIj

# Varianz der Grundgesamtheits2:=1/(n-1)*sum((l[i]-xm)^2,i=1..n);

NiM+SSNzMkc2IiMiJDAjIiIo

s:=sqrt(s2);

NiM+SSJzRzYiLCQqJCIlTjkjIiIiIiIjI0YqIiIo

c:=fsolve(2*tF(x,n-1)-1=ga,x);

NiM+SSJjRzYiJCIrY0YlbyhIISIq

muMin:=evalf(xm-((c*s)/sqrt(n)));

NiM+SSZtdU1pbkc2IiQiK0dHMCVvJSEiKQ==

muMin:=evalf(xm+((c*s)/sqrt(n)));

NiM+SSZtdU1pbkc2IiQiK3NyJWZeJiEiKQ==

sig2:=8;

NiM+SSVzaWcyRzYiIiIp

sig:=sqrt(sig2);

NiM+SSRzaWdHNiIsJCokIiIjIyIiIkYoRig=

xm:=mittelwert(l);

NiM+SSN4bUc2IiIjXg==

n:=nops(l);

NiM+SSJuRzYiIiM6

ga:=0.99;

NiM+SSNnYUc2IiQiIyoqISIj

c:=fsolve(2*norF(0,1,x)-1=ga,x);

NiM+SSJjRzYiJCIrZiRIZWQjISIq

l:=(n)->2*(c*sig)/sqrt(n);

NiM+SSJsRzYiZio2I0kibkdGJUYlNiRJKW9wZXJhdG9yR0YlSSZhcnJvd0dGJUYlLCQqKEkiY0dGJSIiIkkkc2lnR0YlRi8tSSVzcXJ0RzYkSSpwcm90ZWN0ZWRHRjRJKF9zeXNsaWJHRiU2IzkkISIiIiIjRiVGJUYl

laenge:=solve(l(x)=2,x);

NiM+SSdsYWVuZ2VHNiIkIis4diJ6SSYhIik=

xm:=mittelwert(l);

NiM+SSN4bUc2IiIjXg==

n:=nops(l);

NiM+SSJuRzYiIiM6

ga:=0.99;

NiM+SSNnYUc2IiQiIyoqISIj

s2:=1/(n-1)*sum((l[i]-xm)^2,i=1..n);

NiM+SSNzMkc2IiMiJDAjIiIo

c1:=fsolve(chiF(x,n-1)=(1-ga)/2,x);

NiM+SSNjMUc2IiQiK2NcbnVTISIq

c2:=fsolve(chiF(x,n-1)=(1+ga)/2,x);

NiM+SSNjMkc2IiQiK2lcJD44JCEiKQ==

minSig2:=((n-1)*s2)/c2;

NiM+SShtaW5TaWcyRzYiJCIrdFs0NDghIik=

maxSig2:=((n-1)*s2)/c1;

NiM+SShtYXhTaWcyRzYiJCIrSV9AMTUhIig=

minSig:=sqrt(minSig2);

NiM+SSdtaW5TaWdHNiIkIis4Ozk9TyEiKg==

maxSig:=sqrt(maxSig2);

NiM+SSdtYXhTaWdHNiIkIissRzUuNSEiKQ==

restart;maxW:=(v,m,T,k)->4*Pi*(m/(2*Pi*k*T))*v^2*exp(-((m*v^2)/(2*k*T)));

NiM+SSVtYXhXRzYiZio2JkkidkdGJUkibUdGJUkiVEdGJUkia0dGJUYlNiRJKW9wZXJhdG9yR0YlSSZhcnJvd0dGJUYlKjIiIiMiIiJJI1BpR0kqcHJvdGVjdGVkR0YzRjE5JUYxRjIhIiI5J0Y1OSZGNTkkRjAtSSRleHBHRiU2IywkKipGNEYxRjhGMEY2RjVGN0Y1I0Y1RjBGMUYlRiVGJQ==

l:=[solve(diff(maxW(v,m,T,k),v)=0,v)];

NiM+SSJsRzYiNyUiIiEqKEkibUdGJSEiIiIiIyMiIiJGKyooRilGLUkia0dGJUYtSSJUR0YlRi1GLCwkRihGKg==

res:=l[2];

NiM+SSRyZXNHNiIqKEkibUdGJSEiIiIiIyMiIiJGKSooRidGK0kia0dGJUYrSSJUR0YlRitGKg==

# kontinuierlichpm:=maxW(v,m,T,k);

NiM+SSNwbUc2IiwkKixJIm1HRiUiIiJJImtHRiUhIiJJIlRHRiVGK0kidkdGJSIiIy1JJGV4cEc2JEkqcHJvdGVjdGVkR0YySShfc3lzbGliR0YlNiMsJCoqRihGKUYtRi5GKkYrRixGKyNGK0YuRilGLg==

ex:=int(v*pm,v=0..infinity);

NiM+SSNleEc2Ii1JJmxpbWl0RzYkSSpwcm90ZWN0ZWRHRilJKF9zeXNsaWJHRiU2JCwkKiYsKCooLUkkZXhwR0YoNiMsJCoqSSJtR0YlIiIiSSJ2R0YlIiIjSSJrR0YlISIiSSJUR0YlRjojRjpGOEY2RjVGNkY3RjhGNiooRjlGNkY7RjZGMEY2RjgqJkY5RjZGO0Y2ISIjRjZGNUY6Rj8vRjdJKWluZmluaXR5R0Yp

# fuer v^2ex:=int(v^2*pm,v=0..infinity);

NiM+SSNleEc2Ii1JJmxpbWl0RzYkSSpwcm90ZWN0ZWRHRilJKF9zeXNsaWJHRiU2JCooSSJtR0YlISIiLCgqKkkidkdGJSIiJC1JJGV4cEdGKDYjLCQqKkYtIiIiRjEiIiNJImtHRiVGLkkiVEdGJUYuI0YuRjlGOEYtRjgqKEYtRjhGOkYuRjtGLiNGOEY5ISIjKixGOkY4RjtGOEYxRjhGM0Y4Rj1GPiEiJyosRjpGOEY7RjhJI1BpR0YpRj5GOUY+LUkkZXJmR0YoNiMsJCooRjlGPkY9Rj5GMUY4Rj5GOEYyRjhGPUY8L0YxSSlpbmZpbml0eUdGKQ==

# diskreted:=sum(v*pm,v=0..infinity);

NiM+SSNlZEc2Ii1JJHN1bUc2JEkqcHJvdGVjdGVkR0YpSShfc3lzbGliR0YlNiQsJCosSSJ2R0YlIiIkSSJtR0YlIiIiSSJrR0YlISIiSSJUR0YlRjMtSSRleHBHRig2IywkKipGMEYxRi4iIiNGMkYzRjRGMyNGM0Y6RjFGOi9GLjsiIiFJKWluZmluaXR5R0Yp

l:=[v1,v2,v3,v4,v5];

NiM+SSJsRzYiNydJI3YxR0YlSSN2MkdGJUkjdjNHRiVJI3Y0R0YlSSN2NUdGJQ==

n:=nops(l);

NiM+SSJuRzYiIiIm

L:=Product(maxW(l[i],m,T,k),i=1..n);

NiM+SSJMRzYiLUkoUHJvZHVjdEc2JEkqcHJvdGVjdGVkR0YpSShfc3lzbGliR0YlNiQsJCosSSJtR0YlIiIiSSJrR0YlISIiSSJUR0YlRjEmNydJI3YxR0YlSSN2MkdGJUkjdjNHRiVJI3Y0R0YlSSN2NUdGJTYjSSJpR0YlIiIjLUkkZXhwR0YoNiMsJCoqRi5GL0YzRjxGMEYxRjJGMSNGMUY8Ri9GPC9GOztGLyIiJg==

L:=simplify(L);

NiM+SSJMRzYiLCQqKkkibUdGJSIiJkkia0dGJSEiJkkiVEdGJUYrLUkoUHJvZHVjdEc2JEkqcHJvdGVjdGVkR0YwSShfc3lzbGliR0YlNiQqJiY3J0kjdjFHRiVJI3YyR0YlSSN2M0dGJUkjdjRHRiVJI3Y1R0YlNiNJImlHRiUiIiMtSSRleHBHRi82IywkKipGKCIiIkY0Rj1GKiEiIkYsRkQjRkRGPUZDL0Y8O0ZDRilGQyIjSw==

lnL:=ln(L);

NiM+SSRsbkxHNiItSSNsbkc2JEkqcHJvdGVjdGVkR0YpSShfc3lzbGliR0YlNiMsJCoqSSJtR0YlIiImSSJrR0YlISImSSJUR0YlRjEtSShQcm9kdWN0R0YoNiQqJiY3J0kjdjFHRiVJI3YyR0YlSSN2M0dGJUkjdjRHRiVJI3Y1R0YlNiNJImlHRiUiIiMtSSRleHBHRig2IywkKipGLiIiIkY3RkBGMCEiIkYyRkcjRkdGQEZGL0Y/O0ZGRi9GRiIjSw==

dLm:=diff(lnL,m)=0;

NiM+SSRkTG1HNiIvLCQqLCwmKipJIm1HRiUiIiVJImtHRiUhIiZJIlRHRiVGLi1JKFByb2R1Y3RHNiRJKnByb3RlY3RlZEdGM0koX3N5c2xpYkdGJTYkKiYmNydJI3YxR0YlSSN2MkdGJUkjdjNHRiVJI3Y0R0YlSSN2NUdGJTYjSSJpR0YlIiIjLUkkZXhwR0YyNiMsJCoqRisiIiJGN0ZARi0hIiJGL0ZHI0ZHRkBGRi9GPztGRiIiJkZGIiRnIioqRitGS0YtRi5GL0YuLUkkU3VtR0YyNiQsJCouLUYxNiQqJiZGODYjSSRpMXxpckdGJUZALUZCNiMsJCoqRitGRkZWRkBGLUZHRi9GR0ZIRkYvRlg7RkYsJkY/RkZGR0ZGRkYtRjE2JEZVL0ZYOywmRj9GRkZGRkZGS0ZGRjdGLEYtRkdGL0ZHRkFGRkZIRklGRiIjS0ZGRitGLkYtRktGL0ZLRjBGRyNGRkZfbyIiIQ==

dLT:=diff(lnL,T)=0;

NiM+SSRkTFRHNiIvLCQqLCwmKipJIm1HRiUiIiZJImtHRiUhIiZJIlRHRiUhIictSShQcm9kdWN0RzYkSSpwcm90ZWN0ZWRHRjRJKF9zeXNsaWJHRiU2JComJjcnSSN2MUdGJUkjdjJHRiVJI3YzR0YlSSN2NEdGJUkjdjVHRiU2I0kiaUdGJSIiIy1JJGV4cEdGMzYjLCQqKkYrIiIiRjhGQUYtISIiRi9GSCNGSEZBRkcvRkA7RkdGLEZHISRnIioqRitGLEYtRi5GL0YuLUkkU3VtR0YzNiQsJCowLUYyNiQqJiZGOTYjSSRpMnxpckdGJUZBLUZDNiMsJCoqRitGR0ZWRkFGLUZIRi9GSEZJRkcvRlg7RkcsJkZARkdGSEZHRkctRjI2JEZVL0ZYOywmRkBGR0ZHRkdGLEZHRjgiIiVGK0ZHRi1GSEYvISIjRkJGRyNGR0ZBRkpGRyIjS0ZHRitGLkYtRixGL0YsRjFGSCNGR0ZibyIiIQ==

simplify(dLm);

Error, (in thaw) too many levels of recursion

simplify(dLT);

Error, (in thaw) too many levels of recursion

restart;l:=[14,21,20,24,10,16,28,22,16,28];

NiM+SSJsRzYiNywiIzkiI0AiIz8iI0MiIzUiIzsiI0ciI0FGLEYt

# geometrische verteilung # beschreibt n-1 Misserfolge bis Erfolg im n-ten Versuch # mit Erfolgs'wkeit pf:=(n,p)->p*(1-p)^(n-1);

NiM+SSJmRzYiZio2JEkibkdGJUkicEdGJUYlNiRJKW9wZXJhdG9yR0YlSSZhcnJvd0dGJUYlKiY5JSIiIiksJkYvRi9GLiEiIiwmOSRGL0YyRi9GL0YlRiVGJQ==

L:=product(f(l[i],p),i=1..nops(l));

NiM+SSJMRzYiKiZJInBHRiUiIzUsJiIiIkYqRichIiIiJCo9

lnL:=unapply(ln(L),p);

NiM+SSRsbkxHNiJmKjYjSSJwR0YlRiU2JEkpb3BlcmF0b3JHRiVJJmFycm93R0YlRiUtSSNsbkc2JEkqcHJvdGVjdGVkR0YvSShfc3lzbGliR0YlNiMqJjkkIiM1LCYiIiJGNkYzISIiIiQqPUYlRiVGJQ==

plot(lnL(x),x=-100..1);

LSUlUExPVEc2Ji0lJ0NVUlZFU0c2JDddbzckJCEkKyIiIiEkIismeiU0JD0qISIoNyQkIStWKFspeigqISIpJCIrXGtAUiIqRi83JCQhKzZqSCllKkYzJCIrJXpNLTUqRi83JCQhK29iKEdQKkYzJCIrd1BZYiEqRi83JCQhK3dvLWMiKkYzJCIrPV5ONCEqRi83JCQhK0cpMy0lKilGMyQiK0goekInKilGLzckJCErcnk2UygpRjMkIisrVCJ5IiopRi83JCQhK3ZfJEhgKUYzJCIrPERmcSkpRi83JCQhK1FubT0kKUYzJCIrOnlhPykpRi83JCQhK2lgMzAiKUYzJCIrMSl5JHAoKUYvNyQkIStsMVImKXlGMyQiKzphTDooKUYvNyQkIStjTSk9cChGMyQiK01xW20nKUYvNyQkIStyLC91dUYzJCIrVjctNScpRi83JCQhKyxDSWJzRjMkIituVG1eJilGLzckJCErRyEzWC8oRjMkIitRI2ZQXClGLzckJCErVmwzYG9GMyQiK2heblIlKUYvNyQkISsjKXlZRG1GMyQiK2otUnQkKUYvNyQkISs/XWtLa0YzJCIrVHVYOiQpRi83JCQhKyI+WSQzaUYzJCIrKHp1ZUMpRi83JCQhK0FQISk0Z0YzJCIrSVc9Iz0pRi83JCQhK202KD56JkYzJCIrWXkoKTQiKUYvNyQkIStnSWElZSZGMyQiKzROXFEhKUYvNyQkISsjZjgib2BGMyQiK3FtPGh6Ri83JCQhK3lQT3BeRjMkIispXEd1KXlGLzckJCErYV8pXCZcRjMkIisjUSNwL3lGLzckJCErPGlJS1pGMyQiK1V3JVxyKEYvNyQkIStoTVlRWEYzJCIrZ3RRTHdGLzckJCErdXo1SFZGMyQiKyI0djhhKEYvNyQkIStySyNHNiVGMyQiK1RuaVR1Ri83JCQhKyUpM0IsUkYzJCIrI1JeKlF0Ri83JCQhK3FWXSdwJEYzJCIrJ3AmSE1zRi83JCQhKyJbIT5wTUYzJCIrQG9ENnJGLzckJCEzNisrK1UpUVxFJCEjOyQiMyFbOGN5JEgiUSpwISM6NyQkITM6KysrP20mby8kRml1JCIzcigpKlJiL2YtJ29GXHY3JCQhMzErKys5PENcR0ZpdSQiMy0pKUchb152NHQnRlx2NyQkITMnKSoqKioqXFUnPkxFRml1JCIzbzhpWVJlSXpsRlx2NyQkITM3KysrV1kiKkhDRml1JCIzUTNFRmwxP0RrRlx2NyQkITMwKysrNW1VPEFGaXUkIjM5OiZSM1lWLUQnRlx2NyQkITMhKioqKioqenIhbzQ/Rml1JCIzSCJSMCZHaCpHMSdGXHY3JCQhMzcrKytBKz4jeiJGaXUkIjNjTHElNDgyZSVlRlx2NyQkITMtKysrSzFzI2UiRml1JCIzV3pMXm90ajZjRlx2NyQkITMjKioqKioqcCN6XW84Rml1JCIzRUNZI0gtVihSYEZcdjckJCEzJioqKioqKjQscGc6IkZpdSQiM28lPlJPTFV2LSZGXHY3JCQhM3krKysrcmYzJyohIzwkIjMwXih5Rzk3KSpvJUZcdjckJCEzeCoqKioqKj4jeTdQKEZieSQiMzMmb2tFY1ZjQCVGXHY3JCQhM3oqKioqKip6ZXRxakZieSQiM2QwKFttbXovJ1JGXHY3JCQhMyMpKioqKioqUk4+cWBGYnkkIjM3bTpbOm9tbk9GXHY3JCQhMyIqKioqKioqPm5TLlZGYnkkIjNXYipSbi9AIipIJEZcdjckJCEzKysrKysqPm1CJEZieSQiM1xCKD5wQnFoJUdGXHY3JCQhMzwrKytbVjRFRkZieSQiMyZmbi5lXj1qZSNGXHY3JCQhMyIpKioqKipcem9iQCNGYnkkIjN0c3YqKXAqeXFHI0ZcdjckJCEzISoqKioqKj5DVl1xIkZieSQiM3oxM291PThNPkZcdjckJCEzMysrKyFwPFg+IkZieSQiM2gqSFYrKUhDLjpGXHY3JCQhM0srKyshekg/PyohIz0kIjNsM1k2KUh5WkEiRlx2NyQkITNZKioqKipcbiMpKWVrRmVcbCQiMyMqeTc+JFFuLikqKUZpdTckJCEzKSkqKioqKj5jTmRyJEZlXGwkIjM3YF0/dC1oIilcRml1NyQkITNsKioqKioqKlwlKWVzKiEjPiQhMzZMTkkpZVA8dyZGYnk3JCQiMyYqKioqKio+bWUweCJGZVxsJCEzTmd6XlhiRjlhRml1NyQkIjMiKSoqKioqXHgwUF4lRmVcbCQhM0U+QiM+RnVUQCJGXHY3JCQiM1sqKioqKipIJHpfKWVGZVxsJCEzYzw6VTwpZjh0IkZcdjckJCIzYioqKioqKiopRyZvRChGZVxsJCEzNytDaHAnUm5aI0ZcdjckJCIzOisrK3EnUkUlekZlXGwkITMlXHQhXFkpRzksJEZcdjckJCIzTCsrK1hrVUcnKUZlXGwkITNAKEhLL0R3JXBQRlx2NyQkIjNeKysrP0tAOSQqRmVcbCQhM2xJLFZ3ayg9MiZGXHY3JEkqdW5kZWZpbmVkR0kqcHJvdGVjdGVkR0ZdYGxGXGBsLSUmQ09MT1JHNiYlJFJHQkckIiM1ISIiJEYsRmRgbEZlYGwtJStBWEVTTEFCRUxTRzYkUSJ4NiJRIUZqYGwtJSVWSUVXRzYkOyQhJSs1RmRgbEZiYGw7JCExTShlPSFmKHBOJiEjOCQiMS0nRy9BJT5vJSpGZWFsLSUlRk9OVEc2JCUqSEVMVkVUSUNBR0ZjYGw=

p:=100*fsolve(diff(lnL(p),p)=0,p);

NiM+SSJwRzYiJCIrR2M3RF0hIio=

p:=100*evalf(1/mittelwert(l));

NiM+SSJwRzYiJCIrR2M3RF0hIio=

restart;muA:=700;

NiM+SSRtdUFHNiIiJCso

muB:=1070;

NiM+SSRtdUJHNiIiJXE1

sigA:=110;

NiM+SSVzaWdBRzYiIiQ1Ig==

sigB:=180;

NiM+SSVzaWdCRzYiIiQhPQ==

mu:=muA+muB;

NiM+SSNtdUc2IiIlcTw=

sig2:=sigA^2+sigB^2;

NiM+SSVzaWcyRzYiIiYrWCU=

sig:=evalf(sqrt(sig2));

NiM+SSRzaWdHNiIkIis2Ql00QCEiKA==

restart;l:=[12.3,11.0,8.9,8.6,9.4,13.2,10.8,9.9,7.4,10.2,6.3];

NiM+SSJsRzYiNy0kIiRCIiEiIiQiJDUiRikkIiMqKUYpJCIjJylGKSQiIyUqRikkIiRLIkYpJCIkMyJGKSQiIyoqRikkIiN1RikkIiQtIkYpJCIjakYp

n:=nops(l);

NiM+SSJuRzYiIiM2

mu:=mittelwert(l);

NiM+SSNtdUc2IiQiKz09PT0pKiEiKg==

sig:=varGesamt(l);

NiM+SSRzaWdHNiIkIitpamokMyUhIio=

ga:=0.9;

NiM+SSNnYUc2IiQiIiohIiI=

xm:=mittelwert(l);

NiM+SSN4bUc2IiQiKz09PT0pKiEiKg==

c:=fsolve(2*tF(x,n-1)-1=0.9,x);

NiM+SSJjRzYiJCIrQzZZNz0hIio=

muMin:=evalf(xm-((c*sig)/sqrt(n)));

NiM+SSZtdU1pbkc2IiQiK2VnYydlKCEiKg==

muMin:=evalf(xm+((c*sig)/sqrt(n)));

NiM+SSZtdU1pbkc2IiQiK2Uoelw/IiEiKQ==

c1:=fsolve(chiF(x,n-1)=(1-ga)/2,x);

NiM+SSNjMUc2IiQiK08iKkhTUiEiKg==

c2:=fsolve(chiF(x,n-1)=(1+ga)/2,x);

NiM+SSNjMkc2IiQiKzBRcUk9ISIp

minSig2:=((n-1)*sig)/c2;

NiM+SShtaW5TaWcyRzYiJCIrI1JQMUIjISIq

maxSig2:=((n-1)*sig)/c1;

NiM+SShtYXhTaWcyRzYiJCIrWHNQTzUhIik=

minSig:=sqrt(minSig2);

NiM+SSdtaW5TaWdHNiIkIitfPWAkXCIhIio=

maxSig:=sqrt(maxSig2);

NiM+SSdtYXhTaWdHNiIkIitjOEc+SyEiKg==