i
i
n
x
;
Назорат гуруҳидаги ўзлаштириш кўрсаткичлари:
17
12
1
3
2
1
i
i
n
y
.
Статистик таҳлилни ҳар икки гуруҳ бўйича ҳисоблаймиз:
%
84
3
1
n
i
i
i
x
n
X
%
67
3
1
n
j
j
j
y
n
Y
Ўзлаштиришни аниқлаш жараёнида йўл қўйилиши мумкин бўлган хатоликларни
аниқлаш мақсадида ўртача квадратик хатоликни аниқлаймиз:
38
,
0
)
X
(
3
1
2
2
n
i
i
i
tg
x
n
S
54
,
0
)
Y
(
3
1
2
2
n
i
j
j
ng
y
n
S
Энди икккита бош тўпламнинг номаълум ўрта қийматларига ўхшашлигини ҳисобга
олиб Стьюдентнинг танланмали мезонини аниқлаймиз:
292
,
0
3
2
1
6
5
4
,
n
n
n
S
n
n
n
S
Y
X
T
ng
tg
y
x
Юқорида кўрсатиб ўтилган тажриба-синов натижаларини Borland C++ дастурида
барча илмий-тадқиқотчилар учун бир-хил фойдаланиш имкониятини берувчи дастурини
ишлаб чиқамиз:
Borland C++ дастурлаш тилини ишга туширамиз ва компоненталар палитрасидан
TDBGrid, TButton, TEdit, TLabel, Tmemo, TDBChart каби компоненталарни формага
жойлаштирамиз (1-расм). Ҳар-бир жадвал учун маълумотлар базасини Microsoft
Access2003 дастурида ишлаб чиқамиз [6, 38-73 b].
23
Borland C++ дастурлаш тилида дастур кодлари қуйидагича ёзилади [3,4,5]:
//-------------------------------------------------------
#include
#include
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
//-------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//-------------------------------------------------------
__fastcall TForm1::TForm1(TComponent*
Owner)
: TForm(Owner)
{
}
//-------------------------------------------------------
void __fastcall
TForm1::YORIQNOMA1Click(TObject
*Sender)
{
Form2->Show();
Form2->frxReport1->ShowReport();
}
//-------------------------------------------------------
void __fastcall
TForm1::DASTURDANCHIQISH1Click(TOb
ject *Sender)
{
Form1->Close();
}
//-------------------------------------------------------
void __fastcall
TForm1::NazoratguruhiNG1Click(TObject
*Sender)
{
Form3->Show();
Form3->frxReport1->ShowReport();
}
//-------------------------------------------------------
-----------
void __fastcall
TForm1::TajribaguruhiTG1Click(TObject
*Sender)
{
Form4->frxReport1->Print();
}
//------------------------------------------------------
void __fastcall
TForm1::DASTURHAQIDA1Click(TObject
*Sender){
Form5->Show();
Form5->frxReport1->ShowReport();
}
//------------------------------------------------------
void __fastcall
TForm1::Button5Click(TObject *Sender)
{
Double n1,n2,n3,n4,n5,n6,x1,x2,x3;
Double NG,TG;
{
n1=StrToFloat(Edit1->Text);
n2=StrToFloat(Edit2->Text);
n3=StrToFloat(Edit3->Text);
n4=StrToFloat(Edit4->Text);
n5=StrToFloat(Edit5->Text);
n6=StrToFloat(Edit6->Text);
x1=StrToFloat(Edit7->Text);
x2=StrToFloat(Edit8->Text);
x3=StrToFloat(Edit9->Text);
NG=(x1*n1+x2*n2+x3*n3)/(n1+n2+n3)*100
/3;
TG=(x1*n4+x2*n5+x3*n6)/(n4+n5+n6)*100/
3;
Memo1->Lines-
>Add("NG="+FloatToStrF(NG,ffFixed,8,9));
Memo1->Lines-
>Add("TG="+FloatToStrF(TG,ffFixed,8,9));
}
}
//------------------------------------------------------
void __fastcall
TForm1::Button6Click(TObject *Sender)
{
Double n1,n2,n3,n4,n5,n6,x1,x2,x3;
Double NG,TG,Sng,Stg;
{
NG=StrToFloat(Edit10->Text);
TG=StrToFloat(Edit11->Text);
n1=StrToFloat(Edit1->Text);
n2=StrToFloat(Edit2->Text);
n3=StrToFloat(Edit3->Text);
n4=StrToFloat(Edit4->Text);
n5=StrToFloat(Edit5->Text);
24
Form4->Show();
Form4->frxReport1->ShowReport();
}
//-------------------------------------------------------
-----------
void __fastcall
TForm1::NazoratguruhiNG2Click(TObject
*Sender)
{
Form3->frxReport1->ShowReport();
Form3->frxReport1->Export(Form3-
>frxPDFExport1);
}
//-------------------------------------------------------
void __fastcall
TForm1::TajribaguruhiTG2Click(TObject
*Sender)
{
Form4->frxReport1->ShowReport();
Form4->frxReport1->Export(Form4-
>frxPDFExport1);
}
//-------------------------------------------------------
void __fastcall
TForm1::NazoratguruhiNG4Click(TObject
*Sender)
{
Form3->frxReport1->ShowReport();
Form3->frxReport1->Export(Form3-
>frxXLSExport1);
}
//-------------------------------------------------------
void __fastcall
TForm1::TajribaguruhiTG4Click(TObject
*Sender)
{
Form4->frxReport1->ShowReport();
Form4->frxReport1->Export(Form4-
>frxXLSExport1);
}
//-------------------------------------------------------
void __fastcall
TForm1::NazoratguruhiNG3Click(TObject
*Sender)
{
Form3->frxReport1->ShowReport();
Form3->frxReport1->Print();
}
//-------------------------------------------------------
void __fastcall
n6=StrToFloat(Edit6->Text);
x1=StrToFloat(Edit7->Text);
x2=StrToFloat(Edit8->Text);
x3=StrToFloat(Edit9->Text);
Sng=(x1*x1*n1+x2*x2*n2+x3*x3*n3)/(n1+n
2+n3)-NG*NG*9/10000;
Stg=(x1*x1*n4+x2*x2*n5+x3*x3*n6)/(n4+n
5+n6)-TG*TG*9/10000;
Memo2->Lines-
>Add("Sng="+FloatToStrF(Sng,ffFixed,8,9));
Memo2->Lines-
>Add("Stg="+FloatToStrF(Stg,ffFixed,8,9));
}
}
//------------------------------------------------------
void __fastcall
TForm1::Button7Click(TObject *Sender)
{
Double n1,n2,n3,n4,n5,n6,x1,x2,x3;
Double NG,TG,Sng,Stg,Txy;
{
n1=StrToFloat(Edit1->Text);
n2=StrToFloat(Edit2->Text);
n3=StrToFloat(Edit3->Text);
n4=StrToFloat(Edit4->Text);
n5=StrToFloat(Edit5->Text);
n6=StrToFloat(Edit6->Text);
x1=StrToFloat(Edit7->Text);
x2=StrToFloat(Edit8->Text);
x3=StrToFloat(Edit9->Text);
NG=(x1*n1+x2*n2+x3*n3)/(n1+n2+n3)*100
/3;
TG=(x1*n4+x2*n5+x3*n6)/(n4+n5+n6)*100/
3;
Sng=(x1*x1*n1+x2*x2*n2+x3*x3*n3)/(n1+n
2+n3)-NG*NG*9/10000;
Stg=(x1*x1*n4+x2*x2*n5+x3*x3*n6)/(n4+n
5+n6)-TG*TG*9/10000;
Txy=(TG-
NG)/sqrt(Stg/(n4+n5+n6)+Sng/(n1+n2+n3))*
3/100;
Memo3->Lines-
>Add("Tx,y="+FloatToStrF(Txy,ffFixed,8,9)
);
}
}
//------------------------------------------------------
void __fastcall
TForm1::KALKULYATOR1Click(TObject
*Sender)
25
Компиляция жараёни амалга оширилгач қуйидаги натижа келиб чиқади:
Do'stlaringiz bilan baham: |