女生組成績分別用a31,a32,...,a50表示
(a1+a2+a3+...+a30)/30=72 總分72*30=2160 標準差s1^2=100
(a31+a32+a33+...+a50)/20=78 總分78*20=1560 標準差s2^2=64
a1+a2+...+a50=3720
全班平均分x為3720/50=74.4
標準差是
s^2
=(1/n)*[(a1-x)^2+(a2-x)^2+...+(an-x)^2]
=(1/n)*[(a1^2+a2^2+...+an^2)-2(a1+a2+...+an)x+nx^2]
s1^2=(1/30)*[(a1^2+a2^2+...+a30^2)-2*2160*72+30*72^2]=100
所以a1^2+a2^2+...+a30^2=158520
同理a31^2+...+a50^2=122240
所以a1^2+...+a50^2=280760
所以就能求出
s^2=(1/50)[(a1^2+a2^2+...+a30^2+a31^2+...+a50^2)-2(a1+a2+...+a50)x+50*74.4^2]=79.84
s=8.9353
因為數太大我編了個vbs來計算,出錯不關我事,妳自己算壹次吧.
這個是我編的VBS,把他復進記事本裏,再改後綴名VBS,打開就可以看到解題過程了.
dim gr,xg,sg,mr,xm,sm,a30,a20,a50,a202,a302,a502
msgbox("某班有50名學生，分男女兩組。女生組有20人，數學平均成績為78分，標準差為8分；男生組有30人，數學平均成績為72分，標準差為10分，則全班50名同學數學成績的標準差是多少？" & vbCrlf & "解答過程如下(只列出計算結果)" & vbCrlf & "a1-a30代表男生 a31-a50代表女生")
gr=20:xg=78:sg=8
mr=30:xm=72:sm=10
a20=gr*xg
a30=mr*xm
a50=a20+a30
x=a50/50
do
msgbox("a1+a2+...+a30=" & a30 & vbCrlf & "a31+a32+...+a50=" & a20 & vbCrlf & "總平均數x=" & x & vbCrlf & "總分(a1+a2+...+a50)=" & a50)
msgbox("我們知道,標準差的公式是s^2 =(1/n)*[(a1-x)^2+(a2-x)^2+...+(an-x)^2]=(1/n)*[(a1^2+a2^2+...+an^2)-2(a1+a2+...+an)x+nx^2] " & vbCrlf & "而a1+a2+...+a50=" & a50 & vbCrlf & "總平均x=" & x & vbCrlf & "n就是50" & "就只差壹個數a1^2+a2^2+...+a50^2未求出來,現在就是求這個")
msgbox("而a1^2+a2^2+an^2=n*s^2+2(a1+a2+...+an)x-nx^2")
sss a302,30,sm,a30,xm
sss a202,20,sg,a20,xm
a502=a302+a202
msgbox("a1^2+a2^2+...+a30^2=" & a302 & vbCrlf & "a31^2+a32^2+...+a50^2=" & a202 & vbCrlf & "a1^2+a2^2+...+a50^2=" & a502)
s12 s,50,a502,a50,x
s1234=s^(1/2)
msgbox("標準差的平方s^2=" & s & vbCrlf & "標準差s=" & s1234)
vv=msgbox("完了,謝謝觀看,還想看多壹次嗎?",4)
if vv=7 then
exit do
end if
loop
function sss(a2,n,s,a,x)
a2=n*s^2+2*a*x-n*x^2
end function
function s12(s,n,a2,a,x)
s=(1/n)*(a2-2*a*x+n*x^2)
end function