. . , . . .

 

-

 

 

.

. . 80-90% . ( ) (, , ), . , . - . .

. [1] .

1. . .

2. , , .

3. .

4. , .

5. .

6. , .

7. , , , .. .

, .

.

- , .. .

, . . [2] , . , , . , , .

. , , . , , . . , . , , . , , . , .

- , . : -, , , , , , , .

, , .

, .

Visual FoxPro 9.0 .

POGODA 65 .

AGRONOM .

EKOLOG .

, POGODA, AGRONOM, EKOLOG. , , , , () .

, .

(). 10 , 10. , , . .

, . , . l2 .

, = 1,35 ( ), s = 0,5( ), = 1,28 s = 0,48, -, , , - = 1,4 s = 0,63.

. :

1) - , ;

2) - , ;

3) - , .

, :

1) ;

2) 95% , 25%, 45% 25% .

, . .

:

 

Y3 = - 63,63×x1 + 123,8×x2 + 82,68×x3 + 30,66× - 14,37× +

+ 0,11×- 9,94×x1×x2 - 4,36×x1×x3 - 28,09×x2×x3 + 223,58. (1)

 

Y3 (/), x1- , , x2, x3 ( ). 22 . . , 15 . . , 26 . . , 4 1 .

.

Y . = 0,127 × x2 + 0,396× x3 0, 9 × x2 × x3 - 0, 622 (2)

Y . - , (10 ).

Delphi. Delphi Delphi [3]. :

 

 

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

 

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

const

x10=1.1; x11=2; x12=2.9; x20=1.2; x21=2; x22=2.8; x30=1 ; x31=2; x32=3 ;

var x2,x3,y1,y11,y12,y13,y14,y21,y22,y23,y24,y31,y32,y33,y34,y41,y42,y43,y44,y51,y52,y53,y54,y61, y62,y63,y64,y71,y72,y73,y74,y81,y82,y83,y84: real;

 

begin

x2:=StrToFloat(edit1.text);

x3:=StrToFloat(edit2.text) ;

y11:=170.45*x10+3.07*x2+5.9*x3-41.53*x10*x10+0.004*x2*x2-1.37*x3*x3-0.43*x10*x2-1.15*x10*x3-0.34*x2*x3-109.81;

y12:=170.45*x11+3.07*x2+5.9*x3-41.53*x11*x11+0.004*x2*x2-1.37*x3*x3-0.43*x11*x2-1.15*x11*x3-0.34*x2*x3-109.81;

y13:=170.45*x12+3.07*x2+5.9*x3-41.53*x12*x12+0.004*x2*x2-1.37*x3*x3-0.43*x12*x2-1.15*x12*x3-0.34*x2*x3-109.81;

y14:=(y11*25+y12*50+y13*25)/100;

y21:=10.43*x10+9.38*x2+0.93*x3-2.15*x10*x10-0.97*x2*x2+0.63*x3*x3-1.39*x10*x2-0.72*x10*x3-0.25*x2*x3+20.14 ;

y22:=10.43*x11+9.38*x2+0.93*x3-2.15*x11*x11-0.97*x2*x2+0.63*x3*x3-1.39*x11*x2-0.72*x11*x3-0.25*x2*x3+20.14 ;

y23:=10.43*x12+9.38*x2+0.93*x3-2.15*x12*x12-0.97*x2*x2+0.63*x3*x3-1.39*x12*x2-0.72*x12*x3-0.25*x2*x3+20.14 ;

y24:=(y21*25+y22*50+y23*25)/100;

y31:=-63.63*x20+123.8*x2+82.68*x3+30.66*x20*x20-14.37*x2*x2+0.11*x3*x3-9.94*x20*x2-4.36*x20*x3-28.09*x2*x3+223.58 ;

y32:=-63.63*x21+123.8*x2+82.68*x3+30.66*x21*x21-14.37*x2*x2+0.11*x3*x3-9.94*x21*x2-4.36*x21*x3-28.09*x2*x3+223.58 ;

y33:=-63.63*x22+123.8*x2+82.68*x3+30.66*x22*x22-14.37*x2*x2+0.11*x3*x3-9.94*x22*x2-4.36*x22*x3-28.09*x2*x3+223.58 ;

y34:=(y31*25+y32*50+y33*25)/100;

y41:=-3.34*x10+2.11*x2+5.96*x3-0.63*x10*x10+0.41*x2*x2-1.49*x3*x3+0.4*x10*x2-0.01*x10*x3-0.91*x2*x3+33.37;

y42:=-3.34*x11+2.11*x2+5.96*x3-0.63*x11*x11+0.41*x2*x2-1.49*x3*x3+0.4*x11*x2-0.01*x11*x3-0.91*x2*x3+33.37;

y43:=-3.34*x12+2.11*x2+5.96*x3-0.63*x12*x12+0.41*x2*x2-1.49*x3*x3+0.4*x12*x2-0.01*x12*x3-0.91*x2*x3+33.37;

y44:=(y41*25+y42*50+y43*25)/100;

y51:=-47.33*x20+10.57*x2+19.47*x3+10.34*x20*x20-0.7*x2*x2-5.02*x3*x3-2.17*x20*x2-2.78*x20*x3-1.85*x2*x3+82.05 ;

y52:=-47.33*x21+10.57*x2+19.47*x3+10.34*x21*x21-0.7*x2*x2-5.02*x3*x3-2.17*x21*x2-2.78*x21*x3-1.85*x2*x3+82.05 ;

y53:=-47.33*x22+10.57*x2+19.47*x3+10.34*x22*x22-0.7*x2*x2-5.02*x3*x3-2.17*x22*x2-2.78*x22*x3-1.85*x2*x3+82.05 ;

y54:=(y51*25+y52*50+y53*25)/100;

y61:=58.41*x10+1.15*x2+0.09*x3-13.74*x10*x10-0.44*x2*x2+0.37*x3*x3+0.49*x10*x2+0.37*x10*x3-0.62*x2*x3-35.72;

y62:=58.41*x11+1.15*x2+0.09*x3-13.74*x11*x11-0.44*x2*x2+0.37*x3*x3+0.49*x11*x2+0.37*x11*x3-0.62*x2*x3-35.72;

y63:=58.41*x12+1.15*x2+0.09*x3-13.74*x12*x12-0.44*x2*x2+0.37*x3*x3+0.49*x12*x2+0.37*x12*x3-0.62*x2*x3-35.72;

y64:=(y61*25+y62*50+y63*25)/100;

y71:=14.62*x10+7.25*x2+1.2*x3-5.28*x10*x10-1.13*x2*x2+0.44*x3*x3+0.73*x10*x2+0.57*x10*x3-1.5*x2*x3+23.72;

y72:=14.62*x11+7.25*x2+1.2*x3-5.28*x11*x11-1.13*x2*x2+0.44*x3*x3+0.73*x11*x2+0.57*x11*x3-1.5*x2*x3+23.72;

y73:=14.62*x12+7.25*x2+1.2*x3-5.28*x12*x12-1.13*x2*x2+0.44*x3*x3+0.73*x12*x2+0.57*x12*x3-1.5*x2*x3+23.72;

y74:=(y71*25+y72*50+y73*25)/100;

y81:=-599.3*x30+88.7*x2+49.49*x3+145.11*x30*x30-11.81*x2*x2-2.11*x3*x3+3.29*x30*x2-7.58*x30*x3-7.22*x2*x3+961.13;

y82:=-599.3*x31+88.7*x2+49.49*x3+145.11*x31*x31-11.81*x2*x2-2.11*x3*x3+3.29*x31*x2-7.58*x31*x3-7.22*x2*x3+961.13;

y83:=-599.3*x32+88.7*x2+49.49*x3+145.11*x32*x32-11.81*x2*x2-2.11*x3*x3+3.29*x32*x2-7.58*x32*x3-7.22*x2*x3+961.13;

y84:=(y81*25+y82*50+y83*25)/100;

y1:=0.127*x2+0.396*x3-0.090*x2*x3-0.622;

 

form1.memo1.text:=' -' + #13#10

+#13#10+' , '+FloatToStr(y11)

+#13#10+' '+FloatToStr(y12)

+#13#10+' '+FloatToStr(y13)

+#13#10+' '+FloatToStr(y14) + #13#10+ #13#10+

' ' + #13#10

+#13#10+' , '+FloatToStr(y21)

+#13#10+' '+FloatToStr(y22)

+#13#10+' '+FloatToStr(y23)

+#13#10+' '+FloatToStr(y24) + #13#10+ #13#10+

' ' + #13#10

+#13#10+' , '+FloatToStr(y31)

+#13#10+' '+FloatToStr(y32)

+#13#10+' '+FloatToStr(y33)

+#13#10+' '+FloatToStr(y34) + #13#10+ #13#10+

' ' + #13#10

+#13#10+' , '+FloatToStr(y41)

+#13#10+' '+FloatToStr(y42)

+#13#10+' '+FloatToStr(y43)

+#13#10+' '+FloatToStr(y44) + #13#10+ #13#10+

' ' + #13#10

+#13#10+' , '+FloatToStr(y51)

+#13#10+' '+FloatToStr(y52)

+#13#10+' '+FloatToStr(y53)

+#13#10+' '+FloatToStr(y54) + #13#10+ #13#10+

' ' + #13#10

+#13#10+' , '+FloatToStr(y61)

+#13#10+' '+FloatToStr(y62)

+#13#10+' '+FloatToStr(y63)

+#13#10+' '+FloatToStr(y64) + #13#10+ #13#10+

' ' + #13#10

+#13#10+' , '+FloatToStr(y71)

+#13#10+' '+FloatToStr(y72)

+#13#10+' '+FloatToStr(y73)

+#13#10+' '+FloatToStr(y74) + #13#10+ #13#10+

' ' + #13#10

+#13#10+' , '+FloatToStr(y81)

+#13#10+' '+FloatToStr(y82)

+#13#10+' '+FloatToStr(y83)

+#13#10+' '+FloatToStr(y84)+ #13#10+ #13#10+

' '+ FloatToStr(y1) ;

 

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

form1.memo1.text:='';

end;

 

end.

 

 

1. . , 400 /, 38 /, 37 /, 28 /, 13 /, - () 35 / , 32 /, () 517 / 0,06% (10 ). . .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 


. 1 .

 

1. . ., . ., . . .- .: , 2000, 536 .

2. .. : .- .: , 1990 - 303 .

3. . . Delphi. 2 - . . . / . . , . . . .: - , 2008. - 576 .