<% %>

الوسيط للبيانات المبوية:

10,20,30,50, مثلا أكتب : مع مراعاة الفصل بين البيانات بفواصل

أدخل البيانات أو انقر الزر بيانات

 عدد القيم

 

الحل:

جدول التكرار المتجمع

الفئات

التكرار الصاعد

التكرار الهابط

عدد الفئات

ترتيب الوسيط

بداية الفئة الوسيطية

تكرار الفئة الوسيطية

تكرار الفئة قبل الوسيطية

تكرار الفئة البعد وسيطية

طول الفئة الوسيطية

الوسيط

 
<% dim data() dim Mdata function NSet() dim n dim Nnum sss=document.mmm.Hex.value for i=1 to len(sss) if mid (sss,i,1)="," then n=n+1 next NSet=n end function Sub DData() sss=document.mmm.Hex.value if len(sss)=0 then msgbox "لم أجد بيانات ، أدخل بياناتك الخام أو" & chr(10)& "انقر الزر بيانات" ,,"لا توجد بيانات" end if n=NSet() redim data(cint(n)) for i=1 to len(sss) b=b+mid(sss,i,1) if mid (sss,i,1)="," then idxx=idxx+1:data(idxx)=((left(b,len(b)-1))):b="" next end sub function Mean() n=NSet DData for i=1 to n c=data(i) SumVal=SumVal+ Ccur(c) next mean= SumVal /n msgbox mean & "=" &"المتوسط الحسابي ", ,"الجواب الصحيح" document.mmm.Hexa.value=n document.mmm.datanum.value=n document.mmm.DataSum.value=SumVal document.mmm.DataMean.value=mean end function sub median() DData n=NSet for i=1 to n for j=i to n c1=data(j) c2=data(i) if Ccur(c1) < Ccur(c2) then temp=data(i) data(i)=data(j) data(j)=temp end if next next if int(n/2)=(n/2) then c1=data(n/2) c2=data(1+n/2) medianV=(Ccur(c1) + Ccur(c2))/2 else c1=data(1+int(n/2)) medianV= c1 end if msgbox medianV & "=" & "الوسيط " , , "الجواب الصحيح" document.mmm.MdOgData.value=document.mmm.Hex.value document.mmm.Mddatanum.value=n for i=1 to n document.mmm.MdDataOrder.value=document.mmm.MdDataOrder.value & data(i) & "," next if int(n/2)=n/2 then document.mmm.MdOrder.value=n/2 & "-" & 1+n/2 &"زوجي" else document.mmm.MdOrder.value=1+ n/2 & "فردي" end if document.mmm.Mdvalue.value=medianV end sub sub ComputeMod() DData n=NSet redim Mdata(n,2) for i=1 to n Mdata(i,1)=data(i) next for i=1 to n for j=1 to n if Ccur(data(i)) = Ccur(Mdata(j,1)) then Mdata(j,2)=Mdata(j,2)+1 next next max=Mdata(1,2):mmod=Mdata(1,1) for i=1 to n if Mdata(i,2)>max then max=Mdata(i,2):mmod= Mdata(i,1) next msgbox mmod & "=" & " قيمة المنوال هي " ,,"الجواب الصحيح" for i=1 to n document.mmm.ModOgData.value=document.mmm.ModOgData.value & Mdata(i,1) & "," document.mmm.ModDataFreq.value=document.mmm.ModDataFreq.value & Mdata(i,2) & "," document.mmm.Frqtable.value=document.mmm.Frqtable.value & Mdata(i,1) & " " next document.mmm.ModdataItem.value=max document.mmm.ModnumFrq.value=mmod document.mmm.ModValue.value=mmod end sub sub ComputeFrqTA() DData n=NSet Nnum1=Ccur(Mindata) Nnum2=Ccur(Maxdata) range=Nnum2-Nnum1+1 Nsets=int (range/10) 'تحديد عدد الفئات if Nsets <10*range then Nsets=Nsets+1 redim Mdata(Nsets+2,3) Mdata(0,1)="ص " :Mdata(0,2)="ك " :Mdata(0,3)=" ف" for i=0 to Nsets+1 StartSet=Nnum1 + i*10+10 Mdata(i+1,1)= "-" & StartSet next for j=1 to Nsets for i=1 to n if Ccur(data(i)) <(10*(j)+Nnum1) and Ccur(data(i)) >= (10*(j-1)+Nnum1) then Mdata(j,2)=Ccur(Mdata(j,2)) +1 else Mdata(j,2)=Ccur(Mdata(j,2)) +0 end if if Ccur(data(i)) < (10*(j)+Nnum1) then Mdata(j,3)=Ccur(Mdata(j,3)) +1 else Mdata(j,3)=Ccur(Mdata(j,3)) +0 end if next next msg=Nnum1&"=أقل قيمة" & chr(10) & Nnum2 & "أكبر قيمة=" & chr(10) & range & "=المدي" &chr(10) & Nsets & "عدد= الفئات" msgbox msg, ,"المتجمع الصاعد" document.mmm.Frqtable.value="" for i=0 to Nsets for j=1 to 3 RowData=RowData & Mdata(i,j) & " " next document.mmm.Frqtable.value=document.mmm.Frqtable.value &RowData & chr(10) RowData="" next i=2 while (Mdata(i,3) <= Ccur(Mdata(Nsets,3))/2) A= Mdata(i,1) k=Ccur(Mdata(Nsets,3))/2 k1=Mdata(i,3) k2=Mdata(i+1,3) i=i+1 wend med=abs(A) +10*(k-k1)/(2*(k2-k1)) document.mmm.MedSets1.value= Ccur(Mdata(Nsets,3))/2 document.mmm.MedSets2.value= abs(A) document.mmm.MedSetsNum.value= Nsets document.mmm.MedSets3.value= k document.mmm.MedSets4.value= k1 document.mmm.MedSets5.value= k2 document.mmm.MedSets6.value= 10 document.mmm.MedSets.value= med document.mmm.FrqA1.value="" document.mmm.FrqA2.value="" for i=1 to Nsets document.mmm.FrqA1.value=document.mmm.FrqA1.value & Mdata(i,1) &"," document.mmm.FrqA2.value=document.mmm.FrqA2.value& Mdata(i,3) &"," next end sub sub ComputeFrqTB() DData n=NSet Nnum1=Ccur(Mindata) Nnum2=Ccur(Maxdata) range=Nnum2-Nnum1+1 Nsets=int (range/10) 'تحديد عدد الفئات if Nsets <10*range then Nsets=Nsets+1 redim Mdata(Nsets+2,3) Mdata(0,1)="ن " :Mdata(0,2)="ك " :Mdata(0,3)=" ف" for i=0 to Nsets StartSet=Nnum1 + i*10 Mdata(i+1,1)= StartSet &"-" next for j=0 to Nsets for i=1 to n if Ccur(data(i)) <(10*(j+1)+Nnum1) and Ccur(data(i)) >= (10*(j)+Nnum1) then Mdata(j+1,2)=Ccur(Mdata(j+1,2)) +1 else Mdata(j+1,2)=Ccur(Mdata(j+1,2)) +0 end if if Ccur(data(i)) >=10*(j)+Nnum1 then Mdata(j+1,3)=Ccur(Mdata(j+1,3)) +1 else Mdata(j+1,3)=Ccur(Mdata(j+1,3)) +0 end if next next document.mmm.Frqtable.value="" for i=0 to Nsets for j=1 to 3 RowData=RowData & Mdata(i,j) & " " next document.mmm.Frqtable.value=document.mmm.Frqtable.value &RowData & chr(10) RowData="" next msg=Nnum1&"=أقل قيمة" & chr(10) & Nnum2 & "أكبر قيمة=" & chr(10) & range & "=المدي" &chr(10) & Nsets & "عدد= الفئات" msgbox msg,,"المتجمع الهابط" sc=0 for i=1 to Nsets if (Mdata(i,3) <= Ccur(Mdata(1,3))/2) then sc=sc+1 if sc=1 then A= Mdata(i,1) k=Ccur(Mdata(1,3))/2 k1=Mdata(i,3) k2=Mdata(i+1,3) end if end if next med=abs(A) +10*(k-k1)/(2*(k2-k1)) document.mmm.MedSets1.value= Ccur(Mdata(1,3))/2 document.mmm.MedSets2.value= abs(A) document.mmm.MedSets3.value= k document.mmm.MedSets4.value= k1 document.mmm.MedSets5.value= k2 document.mmm.MedSets6.value= 10 document.mmm.MedSets.value= med document.mmm.FrqA1.value="" document.mmm.FrqA3.value="" for i=1 to Nsets document.mmm.FrqA1.value=document.mmm.FrqA1.value & Mdata(i,1) &"," document.mmm.FrqA3.value=document.mmm.FrqA3.value& Mdata(i,3) &"," next end sub sub ComputeStD() DData n=NSet mm=mean for i=1 to n SSum=SSum+(data(i)-mm)^2 next msgbox sqr(Ccur(SSum)) & "الإنحراف المعياري " ,,"الجواب الصحيح" document.mmm.SdOgData.value=document.mmm.Hex.value document.mmm.Sddatanum.value=n document.mmm.SdMean.value=mm document.mmm.SdVariance.value=SSum document.mmm.SdValue.value=sqr(Ccur(SSum)) end sub sub GenratData() document.mmm.Hex.value="" Nnum=int(100*rnd(100)) document.mmm.HexA.value=Nnum for i=1 to Nnum Rnum=int(100*rnd(100)) document.mmm.Hex.value=document.mmm.Hex.value & Rnum &"," next end sub function Maxdata() DData n=NSet max=data(1) for i=1 to n if data(i) >max then max=data(i) next Maxdata=max end function function Mindata() DData n=NSet min=data(1) for i=1 to n if data(i)