FthmFDockDFHMWincdDCGDcCncdCCdsCCaxcrFnTbFnIOArialTxEntextKCmptextKCntTxCn}De indbyggede fordelingsfunktioner: Chi-kvadrat ((^2)) fordelingen hedder chi. Nr man skal arbejde med chi-kvadratfordelingen kan man benytte de flgende operatorer: y = chiTthed(x,df): p = chiSummeret(x,df) x = chiInv(p,df) Da DataMeter ikke er et symbolsk CAS-program, kan det ikke for alvor betale sig at undersge de symbolske forskrifter i DataMeter. Man kan dog nemt eftervise at forskriften for tthedsfunktionen er proportional med (x^df/2-1)exp(-x/2) Det er ogs nemt at afbilde tthedsfunktionen (som har maksimum i x = df -2, dvs. i dette tilflde 3):&><0><+>>><0><0><0>>>>>>><0>>>>>MfsS textKCmptextKCntTxCn7Vi ser dernst p grafen for den kumulerede fordeling: o>>>>>MfsS textKCmptextKCntTxCn Endelig kan man finde fraktilerne (den inverse kumulerede fordeling). Vi ser da at 95% af observationerne ligger under 11.0705, hvis vi har en stokastisk variabel, der er chi-kvadrat fordelt med 5 frihedsgrader. <0><0>>>MfsS grafKCmpDCmpgrafGraf 1KCntDsCn2GrCn uCmRfInSt CsInObIn@W@@|0@w@ObPnObPnInPminTMaaTMTablSTbHlTbGm4TGhtdbl runl@R@g@4TablSTbHlTbGm4TGhtdbl runl@R@g@4CDNdCDclCDFlGrafATplAxlsaxclAXISaxcdaxcl0x?@8@@8axclAXISaxcdaxcl0y???ə?annmanenannmannmanenannmannmanenannmannmanenannmplfnPtopMLPlplfn!anenanentimes[(**)power[(**)string[(**)"x"],plus[(**)over[(**)string[(**)"df"],num[2,"2"]],minus[num[1,"1"]]]],exp[id[minus[over[(**)string[(**)"x"],num[2,"2"]]]]]]Lcustomfxn"chiSquareDensity"[id[comma[(**)string[(**)"x"],string[(**)"df"]]]]FmStbsavFmPrbsblFmPrbsmdFmPrpfunFmPrtimes[(**)power[(**)string[(**)"x"],plus[(**)over[(**)string[(**)"df"],num[2,"2"]],minus[num[1,"1"]]]],exp[id[minus[over[(**)string[(**)"x"],num[2,"2"]]]]]]vlwrFmPrvuprFmPrFmStbsavFmPrbsblFmPrbsmdFmPrpfunFmPrRLcustomfxn"chiSquareDensity"[id[comma[(**)string[(**)"x"],string[(**)"df"]]]]vlwrFmPrvuprFmPrMvLn?CmRfGrLybGrafATplAxlsaxclAXISaxcdaxcl0x?@8@@8axclAXISaxcdaxcl0y???ə?annmanenannmannmanenannmannmanenannmannmanenannmplfnPtopMLPlplfn!anenanentimes[(**)power[(**)string[(**)"x"],plus[(**)over[(**)string[(**)"df"],num[2,"2"]],minus[num[1,"1"]]]],exp[id[minus[over[(**)string[(**)"x"],num[2,"2"]]]]]]Lcustomfxn"chiSquareDensity"[id[comma[(**)string[(**)"x"],string[(**)"df"]]]]FmStbsavFmPrbsblFmPrbsmdFmPrpfunFmPrtimes[(**)power[(**)string[(**)"x"],plus[(**)over[(**)string[(**)"df"],num[2,"2"]],minus[num[1,"1"]]]],exp[id[minus[over[(**)string[(**)"x"],num[2,"2"]]]]]]vlwrFmPrvuprFmPrFmStbsavFmPrbsblFmPrbsmdFmPrpfunFmPrRLcustomfxn"chiSquareDensity"[id[comma[(**)string[(**)"x"],string[(**)"df"]]]]vlwrFmPrvuprFmPrMvLn?annmanenannmannmanenannmannmanenannmannmanenannmGrSp'OperNVncpunktstrrelse@CDNdCDclCDSAslidKCmpDCmp slid Parameter 1KCntDsCnJSlCnCmRfInSt!CsInObIn@O@@u @ObPnInPminTMaaTMTabl_TbHlTbGm@TGhtdbl runl@_@N@_@4Tabl_TbHlTbGm@TGhtdbl runl@_@N@_@4SlMdOperGlVlNVncdf@df@AXISaxcdaxcl0?@(@@(?OperNVncOpdateringsfrekvensgrafKCmpDCmpgrafGraf 2KCntDsCn2GrCn 9CmRfInSt CsInObIn@]@xP@x@ObPnObPnInPminTMaaTMTablSTbHlTbGm4TGhtdbl runl@R@g@4TablSTbHlTbGm4TGhtdbl runl@R@g@4CDNdCDclCDFlGrafATplAxlsaxclAXISaxcdaxcl0x?@0@@0axclAXISaxcdaxcl0y??333333?ə?333333annmanenannmannmanenannmannmanenannmannmanenannmplfnPtopMLPlplfn!anenanenOcustomfxn"chiSquareCumulative"[id[comma[(**)string[(**)"x"],string[(**)"df"]]]] num[1,"1"]num[11.070498,"11.070498"]num[0.95,"0.95"]FmStbsavFmPrbsblFmPrbsmdFmPrpfunFmPrUOcustomfxn"chiSquareCumulative"[id[comma[(**)string[(**)"x"],string[(**)"df"]]]]vlwrFmPrvuprFmPrFmStbsavFmPrbsblFmPrbsmdFmPrpfunFmPr num[1,"1"]vlwrFmPrvuprFmPrFmSt3pvalFmPr num[11.070498,"11.070498"]FmStbsavFmPrbsblFmPrbsmdFmPrpfunFmPrnum[0.95,"0.95"]vlwrFmPrvuprFmPrMvLn?CmRfGrLyDGrafATplAxlsaxclAXISaxcdaxcl0x?@0@@0axclAXISaxcdaxcl0y??333333?ə?333333annmanenannmannmanenannmannmanenannmannmanenannmplfnPtopMLPlplfn!anenanenOcustomfxn"chiSquareCumulative"[id[comma[(**)string[(**)"x"],string[(**)"df"]]]] num[1,"1"]num[11.070498,"11.070498"]num[0.95,"0.95"]FmStbsavFmPrbsblFmPrbsmdFmPrpfunFmPrUOcustomfxn"chiSquareCumulative"[id[comma[(**)string[(**)"x"],string[(**)"df"]]]]vlwrFmPrvuprFmPrFmStbsavFmPrbsblFmPrbsmdFmPrpfunFmPr num[1,"1"]vlwrFmPrvuprFmPrFmSt3pvalFmPr num[11.070498,"11.070498"]FmStbsavFmPrbsblFmPrbsmdFmPrpfunFmPrnum[0.95,"0.95"]vlwrFmPrvuprFmPrMvLn?annmanenannmannmanenannmannmanenannmannmanenannmGrSp'OperNVncpunktstrrelse@CDNdCDclCDSAStTbKCmpDCmp ATcmStTb Beregning 1KCntDsCnATCnMTcnCmRfCDNdCDclCDFlMTmdMsAnMsALMsALDcustomfxn"chiSquareQuantile"[id[comma[num[0.95,"0.95"],num[5,"5"]]]]Pcustomfxn"chiSquareCumulative"[id[comma[num[11.070498,"11.070498"],num[5,"5"]]]]TablGTbHlTbGm(TGhtdbl runl@Q@BTablGTbHlTbGm(TGhtdbl runl@`@BTablGTbHlTbGm(TGhtdbl runl@Q@4Tabl/TbHlTbGmTGhtdbl runlTabl/TbHlTbGmTGhtdbl runlTabl/TbHlTbGmTGhtdbl runlSFmsSldFCmpFNOffFSldF@j@@Rfram@T@pCmRfEGrpFCmpFNdspFFltFGrpF@x@wfram@v@nCmRfETxtFCmpFNTxtF@@j@fram@R@4CmRfETxtFCmpFNTxtF@p@Dfram@U@@PCmRfETxtFCmpFNTxtF@o@@Yfram@U@@0CmRfEGrpFCmpFNdspFFltFGrpF@x`@ufram@v@CmRfEMeTFCmpFNdspFFltFAnTFMeTF@o@@bfram@V@CmRfE