**TI92P*mainL–æGQTæ6&GP&Ï—Pè8‡DLGQ–æ–æGQÈ læV%GPÀ4Rsimsamp¡¥ZG() Prgm Local sizec,size,numbc,numb,propc,prop,i,z ClrHome ClrGraph ClrIO ©Set defaults "25"sizec "500"numbc ".45"propc Dialog Request "Sample size ",sizec Request "Number samples ",numbc Request "Population prop",propc EndDlog expr(sizec)size expr(numbc)numb expr(propc)prop newList(numb)sampprop PlotsOff FnOff For i,1,numb tistat.randbin(size,prop)/sizesampprop[i] PxlText "sample number = "&string(i),68,10 EndFor ClrGraph PlotsOn 1 tistat.onevar(sampprop) ©Set up histogram round(max(0.02,1/size),4)width round(statvars\min_x,2)-2*widthxmin round(statvars\max_x,2)+2*widthxmax 2.*width*numb*tistat.normpdf(statvars\x_bar,statvars\x_bar,statvars\sx_)ymax 0ymin 10yscl NewPlot 1,4,sampprop,,,,,,width 0.1z numb*widthc ©Draw normal curve with parameters of sample distribution tistat.normpdf(x,statvars\x_bar,statvars\sx_)*cy1(x) 0.2z setGraph("Coordinates","Rect") setGraph("Axes","On") FnOn 1 DispG ©label on graph PxlText "mean = "&string(round(statvars\x_bar,3)),1,1 PxlText "Sx= "&string(round(statvars\sx_,3)),1,110 Stop EndPrgm äåÜq