下载文档原格式
#第四章习题#4.1x<-rbinom(1000,100,0.3)hist(x z main=c("1000个参数为0.3的伯努利分布随机数”))#4.2x<-rnorm(1000,10z4) hist(x/probability=Xxlim=c(min(x)/max(x)),nclass=max(x)-min(x)+l z coh'lightblue^main^cf'lOOO 个正态分布随机数"))lines(density(x/bw=l)/col='blue,,lwd=3)#43x^samplefcfrtflOALrtflO^Jjtf 10,10)),1000,replace=T) hist(x/xlim=c(min(x)/max(x)),probability=l；n class=max(x)-min(x)+l/col=,lightblue,/ main=c("3个t分布混合样本直方图")) lines(density(x/bw=l)/col='blue,,lwd=2)#方法二k<-matrix(,3,100)k[lJ=rt(100z l)k[2j=rt(100z2) k[3j=rt(100,10) x=c(k[l,],k[2,],k[3,]) #3个t分布混合成一个样本hist(x/xlim=c(min(x)/max(x)),probability=l；n class=max(x)-min(x)+l/col=,lightblue,/ main=c("3个t分布混合样本直方图")) lines(density(x/bw=l),col=,blue,,lwd=2)#4.4install.packages(n DAAG H) library(DAAG) data(possum)par(mfrow=c(2,2))hist(possum$age,breaks=l+(0:8)*l)hist(possum$age,breaks=0+(0:9)*l)hist(possum$age,breaks=l+(0:5)*2) hist(possum$age,breaks=0+(0:5)*2) summary(possum$age) age<-possum$age[!is.na(possum$age)] summary(age)sd(age)#4.5install.packages(n DAAG H)library(DAAG)data(tinti ng)ts<-table(tinting$sex,tinting$tint) # 列联表barplot(ts) #联合柱状图windows() # 新图op<-par()layout(matrix(c(2/l z0,3)/2/2/byrow=T)/c(l/6)/c(4,l)) par(mar=c(l/l,5/l)) plot(tinting$age,tinting$it) lines(lowess(tinting$age,tinting$it)Jwd=2) #拟合线rug(side=2,jitter(tinting$age,5)) #细小刻度rug(side=l/jitter(tinting$it/5)) par(mar=c(l/2,5/l))boxplot(tinting$age,axes=F)par(mar=c(5/l,l/2))boxplot(ti ntin g$it,horizontal=Taxes=F) windows()#因子为tintcoplot(ti nting$age~tinting$it | tintin g$ti nt)windows()#因子为tint与sexcoplot(ti nting$age~tinti ng$it| tintin g$ti nt*tinti ng$sex)windows()#等高线图library(MASS)z<-kde2d(tinti ng$it,ti nt in g$csoa) contour(z/col="red,,,drawlabels=FALSE)windows() #matplot 图d<-data.frame(yl=tinting$age/y2=ti ntin g$it,y3=ti ntin g$csoa) matplot(d,type=T,mai n="matplot11) #4.6data(l nsectSprays)cs<-table(l nsectSprays$count」nsectSprays$spray) #歹ij 联表barplot(cs)windows ()mys<・c( 123,4,5,6 川nsectSprays$spray] # 分类图plot(lnsectSprays$count/col=mys,pch=mys)legend(x=40/y=26Jegend=c(,,A,I；,B,,；,C,I；,D,,；,E,,；,F,,)/col=c(l/2/3A5,6),pch=c(l/2,3A5/6)) c.s<-data.frame(A=l nsectSprays$count[l:12]，#分类归纳B=lnsectSprays$count[13:24],C=ln sectSprays$co un t[25:36],D=lnsectSprays$count[37:48],E=lnsectSprays$count[49:60],F=lnsectSprays$count[61:72])summary(c.s)#4.7options(didits=4)db<-rnorm(100/75,9)print("均值“)mean(db)print("方差”)sd(db)print(“标准差”)sqrt(sd(db))print(“极差”)max(db)-min(db)print(“四分位极值”)mad(db)printf'变异系数”)sd(db)/mean(db)in stall.packages(,,fBasics H)library(fBasics)print(“偏度”)skew ness(db)print(“峰度”)kurtosis(db)print(”五数概括“)fivenum(db)hist(db,xlim=c(mi n(db),max(db))，probability=rn class=max(db)・min(db)+l，col='lightblue：main="直方图”)lines(density(db)/col=,red,Jwd=3)windows()qqnorm(db z main=,,QQ 图”)qqline(db,col=,red,)windows()x<-sort(db)n<-length(x)y<-(l：n)/nm<-mean(db)s<-sd(db)plot(x,y,type='s',main="经验分布图")curve(p norm(x，rTbs),col—recf」wd=2,add=T)print(”茎叶图“)stem(db)windows()boxplot(db,mai n="框须图”) #4.8install.packages(n RODBC n) #从Excel 读入数据library(RODBC) z<-odbcConnectExcel(,,C:/Users/Tang/Desktop/R/第四章数据・xls") data<-sqlFetch(z/,,Sheetl H) close(z)plot(data$体重~data$身高,main=“体重对身高散点图”)windows()coplot(data$ 体重~data$ 身高 | data$ 性别)windows()coplot(data$ 体重~data$ 身高 | data$ 年龄)windows()coplot(data$ 体重~data$ 身高 | data$ 性别*data$ 年龄)。
第四章：《圆》一、知识回顾圆的周长： C=2πr或C=πd、圆的面积：S=πr²圆环面积计算方法：S=πR²-πr²或S=π（R²-r²）(R是大圆半径，r是小圆半径）二、知识要点一、圆的概念集合形式的概念： 1、圆可以看作是到定点的距离等于定长的点的集合；2、圆的外部：可以看作是到定点的距离大于定长的点的集合；3、圆的内部：可以看作是到定点的距离小于定长的点的集合轨迹形式的概念：1、圆：到定点的距离等于定长的点的轨迹就是以定点为圆心，定长为半径的圆；固定的端点O为圆心。
连接圆上任意两点的线段叫做弦，经过圆心的弦叫直径。
圆上任意两点之间的部分叫做圆弧，简称弧。
2、垂直平分线：到线段两端距离相等的点的轨迹是这条线段的垂直平分线；3、角的平分线：到角两边距离相等的点的轨迹是这个角的平分线；4、到直线的距离相等的点的轨迹是：平行于这条直线且到这条直线的距离等于定长的两条直线；5、到两条平行线距离相等的点的轨迹是：平行于这两条平行线且到两条直线距离都相等的一条直线。
二、点与圆的位置关系1、点在圆内⇒d r<⇒点C在圆内；2、点在圆上⇒d r=⇒点B在圆上；3、点在圆外⇒d r>⇒点A在圆外；三、直线与圆的位置关系1、直线与圆相离⇒d r>⇒无交点；2、直线与圆相切⇒d r=⇒有一个交点；3、直线与圆相交⇒d r<⇒有两个交点；A四、圆与圆的位置关系外离（图1）⇒无交点⇒d R r>+；外切（图2）⇒有一个交点⇒d R r=+；相交（图3）⇒有两个交点⇒R r d R r-<<+；内切（图4）⇒有一个交点⇒d R r=-；内含（图5）⇒无交点⇒d R r<-；五、垂径定理垂径定理：垂直于弦的直径平分弦且平分弦所对的弧。
推论1：（1）平分弦（不是直径）的直径垂直于弦，并且平分弦所对的两条弧；（2）弦的垂直平分线经过圆心，并且平分弦所对的两条弧；（3）平分弦所对的一条弧的直径，垂直平分弦，并且平分弦所对的另一条弧以上共4个定理，简称2推3定理：此定理中共5个结论中，只要知道其中2个即可推出其它3个结论，即：图4图5①AB 是直径 ②AB CD ⊥ ③CE DE = ④ 弧BC =弧BD ⑤ 弧AC =弧AD 中任意2个条件推出其他3个结论。
