Программа к задаче 4.11.10

  • 10 PRINT «Программа к задаче 4.11.10»
  • 20 PRINT: PRINT
  • 30 PRINT «Введите число переменных»;: INPUT N: DIM X(N) 40 PRINT «Введите начальный шаг поиска»;: INPUT 50 PRINT «Введите точность результата»;: INPUT 60 PRINT «Введите начальные значения переменных:
  • 70 FOR 1=1 ТО N
  • 80 PRINT «х(«1»)=»;:INPUT X(I):NEXT I 90 FOR 1=1 TO N:B=l*E+20 100 X(I)=X(I)+H:GOSUB 200:C=B:B=F 110 IF F-C<0 THEN 100 120 NEXT I
  • 130 H=-H/5:IF ABS(H)>E/5 THEN 90 140 PRINT «Минимум функции Fmin=»;F 150 PRINT «Вектор переменных:»
  • 160 FOR 1=1 TO N
  • 170 PRINT «x(«I»)=»;X(I):NEXT I
  • 175 PRINT FI, F2j F3
  • 180 END
  • 200 REM Минимизируемая функция 210 F1=X(1)*Х(2)+1/(X(1)*X(2))-4.19 220 F2=l/(X(1)A2*X(1))+l/X(2)-1 230 F3= X(2)/X(l)+1/X(2)-1 240 F=F1A2+F2A2+F3A2 250 RETURN

Программа к задаче 4.13.1

  • 10 PRINT «Программа к задаче 4.13.1»
  • 20 PRINT: PRINT
  • 30 DIM X(20),A(20)jB(20)jF(20)
  • 40 PRINT «Введите число переменных N=»;:INPUT N 50 PRINT «Задайте погрешность вычисления Е=»;:INPUT Е 60 FOR 1=1 ТО N
  • 70 PRINT «Введите нижнюю границу А(«1»)=»;
  • 80 INPUT А(I)
  • 90 NEXT I
  • 100 FOR 1=1 ТО N
  • 110 PRINT «Введите верхнюю границу В(«1»)=»;
  • 120 INPUT B(I)
  • 130 NEXT I 135 F=0
  • 140 FOR 1=1 TO N 150 X(I)=(A(I)+B(I))/2 160 NEXT I 170 FOR 1=1 TO N
  • 175 IF 1=4 THEN X(I)=(A(I)+X(2)-.999)/2
  • 180 IF ABS (B(I)-A(D)<2*E THEN 320
  • 190 C=(A(I)+B(I)-E)/2
  • 200 D=(A(I)+B(I)+E)/2
  • 210 X(I)=C
  • 220 GOSUB 410
  • 230 K=F(I)
  • 240 X(I)=D 250 GOSUB 410 260 L=F(I)
  • 270 IF L>1 THEN 300
  • 280 A(I)=C
  • 290 GOTO 180
  • 300 B(I)=D
  • 310 GOTO 180
  • 320 X(I)=(A(I)+B(I))/2
  • 330 GOSUB 410
  • 335 IF F(I)>F THEN F=F(I)
  • 340 NEXT I
  • 350 PRINT «Fmax=»j F
  • 355 PRINT «Вектор переменных:»
  • 360 FOR 1=1 TO N
  • 380 PRINT «X(«I»)=»;X(I)
  • 390 NEXT I
  • 395 Xl=Dl*F/3.8:X2=D2*F/5.5
  • 397 T1=X1/1.5:T2=X2/.7
  • 398 PRINT 1, 2, 1, 2 400 END
  • 410 Dl=l-X(1):D2=X(1):A=.1
  • 412 Fl=(3.8/Dl)ADl*(5.5/D2)AD2
  • 414 Р2=(50*АЛ2/О1)ЛО1*(50*(1-А)Л2/О2)ЛО2
  • 416 F(I)=F1*F2
  • 420 RETURN

Оптимизация параметров простого технологического процесса уборки

  • 10 PRINT «Оптимизация параметров простого»
  • 20 PRINT «технологического процесса уборки»
  • 30 PRINT:PRINT
  • 40 DIM A(10),B(10),X(10),F(10)
  • 50 REM Убираемая площадь, га 60 FS=1000
  • 70 REM Темп наступления НБМ, га/сут 80 Р=300
  • 90 REM Интенсивность потерь урожая до и после НБМ 100 К1=.019:К2=.015

HO REM Урожайность культуры, т/га 120 11=4.5

  • 130 REM Уровень допустимых потерь урожая 140 EPS=.05
  • 150 REM Продолжительность смены, ч 160 TS=10
  • 170 REM Часовая производительность агрегата, га/ч
  • 180 WK=.83
  • 190 REM Программа
  • 200 PRINT «-»
  • 210 PRINT « Кол-во | Начало | Общее | Площадь | Потери | Уровень»
  • 220 PRINT « агрега- | работ, | время, | до НБМ, | урожая,| потерь,»
  • 230 PRINT « тов | сутки | сутки | га | т | % »
  • 240 PRINT «-»
  • 250 А1$= « ###.# | ##.# | ##.# | ####.# | ####.# | ###.# »
  • 260 FOR AL=.05 ТО .8 STEP .05 270 60SUB 320
  • 280 PRINT USING Al$;NK,TM,TU,FC,Q,EPS1;:PRINT EP1;EP2 290 NEXT AL 300 END
  • 310 REM Расчет параметров
  • 320 Al=Kl/4/EPS:A2-K2*FS/4/EPS
  • 330 A3=K2/4/EPS:C1=FS:C4=A3
  • 340 C2=ALAAL*(1-AL)A(1-AL)/A1AAL/A2A(1-AL)
  • 350 D2=l/(1-AL):D4=AL/(1-AL):L2=l+D4
  • 360 Z=C1*C2AD2*(C4/D4)AD4*L2AL2
  • 370 X1=Z/FS:TU=Z+FS/P:WS=FS/TU:NK=WS/WK/TS
  • 380 FC=D4/C4/X1:TM=FC*(P-WS)/P/WS
  • 390 Q1=U*.5*K1*X1*FCA2:Q2=U*.5*K2*X1*(FS-FC)A2
  • 400 Q=Q1+Q2:EPS1=Q*100/U/FS
  • 410 EP1=Q1/U/FC:EP2=Q2/U/(FS-FC)
  • 420 RETURN
 
Посмотреть оригинал
< Пред   СОДЕРЖАНИЕ   ОРИГИНАЛ     След >