Gütefunktion

Hermann.Singer@FernUni-Hagen.de

Manipulate[

graphA=
Table[
sigmaxqA=sigmaA/Sqrt[nnA];
xp1A=Quantile[NormalDistribution[muA,sigmaxqA],alphaA/2];
xp2A=Quantile[NormalDistribution[muA,sigmaxqA],1-alphaA/2];

Clear[mu1A,betaA];
betaA=CDF[NormalDistribution[mu1A,sigmaxqA],xp2A]-CDF[NormalDistribution[mu1A,sigmaxqA],xp1A]; 

Plot[1-betaA//Evaluate,{mu1A,4,8},PlotRange->{0,1},GridLines->{None,{alphaA}},
         ColorFunction->(Hue[nnA/nA]&),PerformanceGoal->"Speed",DisplayFunction->Identity],

{nnA,1,nA,1}];

Show[graphA,PlotLabel->"Gütefunktion in Abhängigkeit der Stichprobengröße, n_max = "<>ToString[nA]]//Dynamic

,{{muA,6,"mu"},1,10},{{sigmaA,1.86,"sigma"},1,10},{{nA,20,"n_max"},10,100,1},
{{alphaA,.05,"alpha"},{.01,.05,.1,.5,.9,.95,.99}},ControlPlacement->Left,ContinuousAction->True]

Manipulate[

graphB=
Table[
sigmaxqB=sigmaB/Sqrt[nnB];
(*xp1=Quantile[NormalDistribution[mu,sigmaxq],alpha/2];*)
xp2B=Quantile[NormalDistribution[muB,sigmaxqB],1-alphaB];

Clear[mu1B,betaB];
betaB=CDF[NormalDistribution[mu1B,sigmaxqB],xp2B]; 

Plot[1-betaB//Evaluate,{mu1B,4,8},PlotRange->{0,1},GridLines->{None,{alphaB}},
             ColorFunction->(Hue[nnB/nB]&),PerformanceGoal->"Speed"],

{nnB,1,nB,1}];

Show[graphB,PlotLabel->"Gütefunktion in Abhängigkeit der Stichprobengröße, n_max = "<>ToString[nB]]//Dynamic

,{{muB,6,"mu"},1,10},{{sigmaB,1.86,"sigma"},1,10},{{nB,20,"n_max"},10,100,1},
{{alphaB,.05,"alpha"},{.01,.05,.1,.5,.9,.95,.99}},ControlPlacement->Left,ContinuousAction->False]