Ж. ¡ Ам и д ов к. Ишлок, хужалик машиналарини лойихалаш

- У Д ' .
(1 5 .3 )
t=l
Функцияни 
Ь0
ва 
Ьх
га нисбатан ечамиз:
А _ W i- y 'P iW P . 
ЧоУЪ — W fjv o
О
~ ~ 2 ~ 2
/
---v, ’ 
1 — -2“2---- 7===--- » 
(15.4)
W i — (?о?1 ~ (?oTi
)2
бу ерда уф0 = | ^ 2 у , ;Фо
(x iljln ;
ва ^оказо.
Программада 
к = п — нукталар сони; 
FO, 
F
1 — функциялар 
"Ф о Ю ва ф н и н г кийматлари; 
I — циклнинг узгарувчан катта-
..ликлари|_ ВО, В 1 — ¿>0 ва 
Ьх
козффициентлар; А1 ="уф 0, А 2 = ф?,
А З = уфь А 4 = ф ^ , А 5 = фо, А 6 ==
ражи.
Белгиланган нормада уруг экиш учун новли галтакнинг 
зарур 
дай узунлиги (см) куйвдаги формуладан топилади:
L = ( 0 , ~ ^ l { P^ + b i) .
( 1 5 .5 )
^ а р кайси аппаратдан экилган 
ypyF 
миадорининг узарофарки, 
% ;
8 = 1О0[1 
- G t i(Gyn K)].
(1 5 .6 )
.30 P R I N T " Д о н сеялкасини экиш нормасига мослаш программаси" 
2 0 I N P U T " С е я л к а гилдирагини айлантириш сони nK = ", NK 
3 0 I N P U T "Уругнинг *ажмий массаси, г/см3 N, = " , NA 
4 0 IN P U T " Г а л т а к новларининг кесим юзаси, cM2fH = ", F j 
5 0 I N P U T "Э киш аппаратларининг сони 
Z =
Z  
6 0 IN P U T " Г а л т а к узунлиги неча марта узгартирилади К = " К 
7 0 D IM G ( К , Z)
8 0 F O R I = 1 Т О К
9 0 P R I N T 'Т а л т а к узунлиги, см L f T ' l = " ; : IN P U T " " 1(1)
1 0 0 F O R J = 1 Т О z
’ U
1 1 0 P R I N T "Э к и л га н уруг, г О [ " Г , " J " l
IN P U T "", 0 ( 1 , J )
-120 N E X T J , I 
V
1 3 0 F O R 1 = 1 T O К
1 4 0 S G ( I) = 0
1 5 0 F O R J = 1 T O Z
.160 S G ( l) = S G ( I ) + G (I , J )
170 N E X T J
1 8 0 M G (I) = SG(I)/(Z * N K )
1 90 P R I N T " M G = "M G (I )" r . 1(1) = " 1 ( 1 ) " C M "
. 2 0 0 G N (I) = N A * F J * 1 ( I )
2 1 0 G A (I) = M G ( I ) — GN(I)
. 2 2 0 N E X T I
2 3 0 A1 = 0 : A 2 = 0: A3 = 0; A 4 = 0; A 5 = 0: A6 = 0

---

2 4 0 F O R I = 1 T O К 
2 5 0 G O S U B 3 1 0
2 6 0 A1 = A1 + G A(I) * FO/K: A 2 = A 2 + F I * F l/ K : АЗ = A 3
+ -  
+ G A ( I ) * F 1 К
2 7 0 A4 = A 4 + F 0 * F 1 / K : A5 = A 5 + F 0 * F 0 / K : A 6 = A 6 + F 1 * F 1 / I C
2 8 0 N E X T I
2 9 0 У = A 5 % A 6 — A 4 >k A4: BO = ( A l * A 2 — АЗ * A4), У : B1 =
= ( A 5 * A 3 — А 4 * А 1 ) / У
3 0 0 G O T O 3 3 0
3 1 0 F O = 1
3 2 0 F I = 1(1): R E T U R N
3 3 0 L P R IN T " B 0 = " B 0 , "B 1 = " B 1 , "G N = " G N " r "
3 4 0 IN P U T "киритилсин D — м, Q — кг/га, M — м = " , D , Q , M
3 5 0 G X = 3 , 1 4 ^ 0 ^ Q % M / 10 'Экилиши лозим булган уруг м и к - 
дори, г
3 6 0 11 = ( G X — ВО) (N A % F J + В 1 )Т а л т а к н и н г изланаетган у з у н -
ли и, см 
3 7 0 L P R IN T "И = "П 
3 8 0 E N D