Оптимизация площади сечения проводов по потере напряжения

  • 10 PRINT «Оптимизация площади сечения проводов»
  • 20 PRINT «по потере напряжения»
  • 30 PRINT:PRINT
  • 40 DIM A(10),B(10),X(10),F(10)
  • 45 REM Ввод данных
  • 50 PRINT «Длина участка линии, км»:INPUT LPR 52 PRINT «Напряжение, кВ»:INPUT VN 54 PRINT «Активная мощность, кВА»:INPUT Р 56 PRINT «Реактивная мощность, кВА».INPUT Q 70 PRINT «Граничные значения сечения провода, мм2»
  • 80 PRINT «нижняя»;:INPUT SN 82 PRINT «верхняя»;:INPUT SW 84 PRINT «шаг»;:INPUT DS 90 REM Магнитная проницаемость 100 MU=1

ПО REM Среднее геометр, расстояние между проводами, мм»

  • 120 DSR=2500
  • 130 REM Удельное сопротивление провода, Ом*м»
  • 140 RU=3.12Е-08
  • 280 PRINT «-»
  • 290 PRINT « F,| d, | Ro, | Хо, | Потеря |Погреш-»
  • 295 PRINT «мм2| мм |Ом/км|Ом/км|напряжения| ность »
  • 300 PRINT «I I I | В | % j »
  • 320 PRINT «-»
  • 330 Al$= «###|##.#|#.###I#.###I#####|##.#| »
  • 340 FOR S=SN TO SW STEP DS
  • 350 F=lE+20:N=1:E=.0001
  • 360 A(1)=.01:B(1)=.99:GOSUB 410
  • 370 PRINT USING Al$;S,DPR,R0,X0,Z,DV;:PRINT F
  • 380 NEXT S
  • 382 PRINT «Для продолжения - кл.1, для окончания - кл.2»
  • 384 INPUT KL:0N KL GOTO 70,390 390 END
  • 400 REM Подпрограмма минимизации
  • 410 FOR 1=1 TO N:X(I)=(A(I)+B(I))/2:NEXT I
  • 420 FOR 1=1 TO N
  • 430 IF ABS(B(I)-A(I))<2*E THEN 500 440 C=(A(I)+B(I)-E)/2:D=(A(I)+B(I)+E)/2 450 X(I)=C:GOSUB 550:K=F(I)
  • 460 X(I)=D:GOSUB 550:L=F(I)
  • 470 IF K>L THEN 490
  • 480 B(I)=D:GOTO 430
  • 490 A(I)=C:GOTO 430
  • 500 X(I)=(A(I)+B(I))/2:GOSUB 550
  • 510 IF F(I)
  • 520 NEXT I 530 RETURN
  • 540 REM Расчет параметров
  • 550 D2=X(1):Dl=l-D2:D3=D1:D4=D2:DPR=(4*S/3.14)л.5 560 S1=S/1000000!:C1=P*LPR/VN:C2=Q*LPR/VN:C3=1000*RU/S1 570 C4=.145*LOG(2*DSR/DPR)/LOG(10)+.0157*MU 585 Z=(C1/D1)AD1*(C2/D2)AD2*C3AD3*C4AD4 590 F(I)=ABS((C1*C3+C2*C4)/Z-1)
  • 600 R0=C3:X0=C4:DV=Z/VN/10 610 RETURN

Выбор электродвигателя для подъемного механизма

  • 10 PRINT «Выбор электродвигателя для подъемного»
  • 20 PRINT «механизма»
  • 30 PRINT:PRINT
  • 40 DIM A(10),B(10),X(10),F(10)
  • 50 REM Ввод данных
  • 60 REM Время работы (мин) и продолжительность включения (%) 65 REM Коэффициент ухудшения охлаждения 70 ТС=10:PW=40:ВЕТ=.5 80 TR=TC*100/PW:TP=TC-TR
  • 90 REM Отношение напряжений статора и номинального 100 REM Кратность критического момента 110 KU=.8:MUK=2.5
  • 120 REM Диапазон частоты вращения(1/мин), шаг поиска 130 NNN=900:NNW=3000:HN=(NNW-NNN)/18 140 REM КПД механической передачи 160 ЕТР=.95
  • 200 PRINT «Масса груза, kt»:INPUT M:G=9.810001 210 PRINT «Скорость груза, м/с»:INPUT V 220 PRINT «Диаметр барабана, м»:INPUT DB
  • 280 PRINT «-»
  • 290 PRINT « Kmp,| пн, | Мн, | U, |Рн, |Запас момента»
  • 300 PRINT « мм2 |1/мин| FIm |Om/km|kBt j при пуске, %»
  • 320 PRINT «-»
  • 330 Al$= «##.##|#### |####.#|###.#|##.#| ###.# »
  • 340 FOR NN=NNN TO NNW STEP HN 350 F=1E+20:N=1:E=.0001
  • 360 A(l)=.01:B(l)=.99:GOSUB 410 370 PRINT USING Al$;KMP,NN,MN,U,PN,P0G1 380 NEXT NN 390 END
  • 400 REM Подпрограмма минимизации
  • 410 FOR 1=1 TO N:X(I)=(A(I)+B(I))/2:NEXT I
  • 420 FOR 1=1 TO N
  • 430 IF ABS(B(I)-A(I))<2*E THEN 500 440 C=(A(I)+B(I)-E)/2:D=(A(I)+B(I)TE)/2 450 X(I)=C:GOSUB 550:K=F(I)
  • 460 X(I)=D:GOSUB 550:L=F(I)
  • 470 IF K>L THEN 490
  • 480 B(I)=D:GOTO 430
  • 490 A(I)=C:GOTO 430
  • 500 X(I)=(A(I)+B(I))/2:GOSUB 550
  • 510 IF F(I)
  • 520 NEXT I 530 RETURN
  • 540 REM Расчет параметров
  • 550 AL=X(1):AL1=1/AL:AL2=1-AL:AL3=1/AL2:PS=G*M*V/ETP
  • 560 PEK1=PSA2*TR/(TR+BET*TP):РЕК=РЕК1Л.5
  • 570 OMN=3.14*NN/30:U=OMN*DB/2/V:MB=M*G*DB/2
  • 580 MN=MB/U/ETP:PN=MN*OMN/1000
  • 590 A1=AL*MNAAL1:A2=AL2*OMNAAL3:NN=30*OMN/3.14
  • 595 KMP=1000*A1/MN/(A1+A2)
  • 600 F(I)=ABS((A1+A2)/PEK-1)
  • 610 MTR=PS/OMN:MKR=MUK*MN:MPUS=.87*MKR 620 POG=KUA2*MPUS-MTR-.25*MN 625 POG1=POG*100/KUA2/MPUS 630 RETURN
 
Посмотреть оригинал
< Пред   СОДЕРЖАНИЕ   ОРИГИНАЛ     След >