**TI92P*mainL YEàá&ïPô×þ¨×Lþ¨6à^'ïP YRchisim-¥ZÓ() Prgm ©Define local varibles Local a,s,sc,k,c newMat(3,3)a ©Clean up screen setGraph("Axes","Off") ClrHome ClrIO PlotsOff FnOff ©Set default value "1"sc Dialog Text "Number of Random" Request "assignments",sc EndDlog expr(sc)s newList(s)chi ClrHome ClrIO ClrGraph PxlText "assignment ",25,30 PxlText "chi square ",35,30 PxlText "p value ",45,30 ©enter main loop For k,1,s rand(11)+205a[2,2]©range is 206-216 rand(11)+170a[3,2]©range is 171-181 rand(11)+201a[2,3]©range is 202-212 rand(11)+169a[3,3]©range is 170-180 ©fill in matrix based on row and column totals a[2,2]+a[3,2]+a[2,3]+a[3,3]-726a[1,1] 435-a[2,2]-a[3,2]a[1,2] 424-a[2,3]-a[3,3]a[1,3] 590-a[2,2]-a[2,3]a[2,1] 512-a[3,2]-a[3,3]a[3,1] ©compute and store chi squared tistat.chi22way(a) statvars\chi2chi[k] ©output running account PxlText string(k),25,96 PxlText string(round(statvars\chi2,3)),35,96 PxlText string(round(statvars\pval,5)),45,96 EndFor Stop EndPrgm äåÜV-