170 ттишша: гАспростганена длительность фронта "j

173 PRINT"0.). » ТИ";РР1?<Т"ПРН ВЫБРАННОМ ВАМИ

180 РР1КТ"ЗНАЧЕНИИ Т« стоимость ЛИНИИ"

185 PRINT"3ASEP)!KH УВЕЛИЧИТСЯ в "FN0((0.I»T1/X)2)" РАЗА

190 GOSUB 920

195-IF Y01 THEN lis

200 LET ТО=Хи.ЕТ N=(1.13«T/X)-1.5:PRINT:LET X=N 203 LET Z1=0:LET C=T»1Ei4/N/R: IF C<1 THEN 287

205 PRINT"PAC4£TH0E ЗНАЧЕНИЕ КОЛИЧЕСТВА ЗВЕНЬЕВ W -ГШ(Н)

206 IF N)100 THEN 227

207 IF на THEN 210

203 IF FNN(N)=FNN(INT(N+,0001)) THEN LET X=INT(N+.0001):GOTO 285 210 РКТНТОКРУГЛИТЕ ДО ДЕЛОГО";:GOSUB 900 215 IF INT(X)=X THEN 226

217 IF 72)2 THEN PRINTBll НЕПРАВИЛЬНО ПРОИЗВЕЛИ ОКРУГЛЕНИЕ":END 220 РР1МТ"ИЭГ0Т0ВИТЬ ДРОБНОЕ КОЛИЧЕСТВО ЗВЕНЬЕВ НЕВОЗМОЖНО"

225 LET Z2=72+l!G0T0 210

226 IF X<26 THEN 232

227 PRINT"M3r0T0BflEHME ТАКОЙ ЛИНИИ ЗАДЕРЖКИ НЕДЕЛГСООБРАЗНО"

228 IF Х>75 THEN PRINTHPOBEPbTE ИСХОДНЫЕ ДАННЫЕ".-ENIl

229 GOSUB 920

230 IF Y=0 THEN LET X=999:G0T0 223

232 IF X)=N THEN 250

233 IF XnNT(N) THEN 247

235 PRINT"BH УВЕЛИЧИВАЕТЕ ИСКА*Е[)ИЯ И ДЛИТЕЛЬНОСТЬ «РОНТА ЗАДЕРХАННОГО» 240 РР1НТ"ИМПУЛЬСА.-;:60ёиВ 920

245 IF Y=l THEN LET Т0=.13»T/N\66667:G0T0 285

246 GOTO 275

247 PRINTBH CXWECTBEHHO УВЕЛИЧИВАЕТЕ ИСКАНЕНИЯ,"!

248 LET Z1&Z1+1:G0T0 275 250 IF N+l)X THEN 285

255 pRINTTAKOE ОКРУГЛЕНИЕ ВЛЕЧЕТ ЗА СОБОЙ УВЕЛИЧЕНИЕ СТОИМОСТИ* 265 PRINT" B"FN0(X/INT(N+l)+.08)- РАЗА. "CGOSUB 920 270 IF Y=l THEN 285

275 PRINT"noBTOPHT£ ОКРУГЛЕНИЕ";;GOSUB 900 280 GOTO 215

285 LET N=X!LET C=T«1E6/N/R!PRINT:LET Z=0

286 IF Ol THEN 290

267 РКМТРАСЧЕТНАЯ ВЕЛИЧИНА ЕМКОСТИ СЛИШКОМ МАЛА, И"

288 РР1НТ"ИЗГ0Т0ВИТЬ ТАКУЮ ЛИНИЯ ЗАДЕРИКИ НЕВОЗМОЖНО"

289 PRINTJEND

290 PRINT"PAC4ETHAfl ВЕЛИЧИНА ЕМКОСТИ В ЗВЕНЕ ЛИНИИ ЗАДЕРЖКИ"

295 PRINT FNN(C)" П*.НАЗНАЧЬТЕ ВЕЛИЧИНУ ПРЕДЕЛЬНОГО ОТКЛОНЕНИЯ"

300 РР1НТ"ЕМК0СТИ (/.); LET Z1=0:LET Z2=0.

305 GOSUB 900

310 FOR 1=0 TO 6

315 IF D(I)=X THEN 333

320 NEXT I

322 LET Z=Z+1!IF Z<3 THEN 32S

323 РР1НТ"ИЗУЧИТЕ РЯД ПРЕДЕЛЬНЫХ ОТКЛОНЕНИЙ ЕМКОСТЕЙ по ГОСТ 2519-67

324 END

325 РР1НТ"ВВЕДЕННРГ0 ВАМИ ПРЕДЕЛЬНОГО ОТКЛОНЕНИЯ "f 330 PRINTS СТАНДАРТЕ НЕ" :PRINT"Cy»IECTByET. "JIGOTO 370

335 IF X)0.9»VO THEN 385

336 IF Х<ТО«0.4 THEN 400

340 PRINT"nPH , ВЫБРАННОМ ЗНАЧЕНИИ ПРЕДЕЛЬНОГО ОТКЛОНЕНИЯ"

345 PRINTEMKOCTH ВЫ СУЩЕСТВЕННО ОГРАНИЧИВАЕТЕ ЗНАЧЕНИЕ"

350 РР1НТ"ПРЕДЕЛЬН0Г0 ОТКЛОНЕНИЯ ИНДУКТИВНОСТИ."

355 GOSUB 920

365 IF Y=l THEN 420

370 PRINT"HA3HA4bTE ПРЕДЕЛЬНОЕ ОТКЛОНЕНИЕ ЕМКОСТИ (У)";:0ОТ0 305

385 PRINT-ВЫБРДННОЕ ВАМИ ЗНАЧЕНИЕ ПРЕДЕЛЬНОГО ОТКЛОНЕНИЯ ЕМКОСТИ"

390 PRINT-HE ОБЕСПЕЧИТ ЗАДАННОГО ПРЕДЕЛЬНОГО ОТКЛОНЕНИЯ"

395 РР1НТ"ВЫХ0ДНЫХ ПАРАМЕТРОВ ЛИНИИ."

396 LET ZI=Z1-H!G0T0 370 400 IF U0-X<10 THEN 420

Ш jf x).19»v0 then «20

403 print-требуемые выходные параметры динин ммно реализовать"

405 print-при большем значении предельного отклонения емкости"

410 print-bm назначаете слишком малые отклонения величины емкости"

412 gosub 920

415 if yol then 370

420 let co=x:let v1=2»v-x:let u1=2»w-x:let vo=00-x:let z1=0 425 let p=fnp(c>:let c1=c/10-p 430 if i<4 then 465

435 let j=int(log(c1)«3»2"i/log(10))

440 let c2=int(exp(j»LOGaO)/3/2"i)»100)/100

445 let c3=int(exp((j+l)»log(10)/3/2i)«100)/100

450 if 02=9.19 then let 02=9.2

455 if 03=9.19 then let c3=9.2

460 goto AB5

465 for j=0 to 24 step 2"(3-i) 470 if c4(j)>c1 then 480 475 next j

480 let c2=c4(j-2m3-i)):let c3=c4(j)

485 let c2=fnn(c2-)(10"p) :let c3=fnn (c3»10---p) :let 72=0

490 let c1=0:if 1-02/0)03/0-1 then let 01=1

495 рв™т"веедите значение емкости из стандартного ")

500 print-ряда";-.gosub 900

501 if xol then 504

502 ррмт"ели*айшие значения емкости ю"д11>"У. ряда -"сг-исз-п»."

503 goto 495

504 let x=fnn(x)

505 if x=c2 then 530 510 if x=c3 then 540

512 let z2=z2+l:if z2<3 then 51s

513 print-изучите ряд номиналов емкостей по гост 2519-67"

514 end

515 print"beeflehhqe вами значение не "! 520 print"coqteetctbyet ближайшему"

525 prinr"3ha4ehmi0 из "ikdx рядачсото 493

530 if с1=о then ьео

535 goto 550

540 if 01=1 then 580

550 print"ba№e округление неудачно так как при нем вносится" 555 ррмт-большая погрешность, чем при округлении в обратнуо" 560 print-сторону."

545 print-norpeuhoctb округления составляетрмк((1-с2/с)»100)"jf"

566 рр1нт"при округлении в большую ctop0hy"fnn((c3/c-l)«100)-x"

570 gosub 920

575 if yol then 495

577 let c1=1-c1

580 let g=(x/c-1)«100

582 if abs(g)<0.01 then let p=g/2:g0t0 735

583 let j=(v1+w1-abs(g>)/2:if j>VO then let j=yo

592 print-постоянная погрешность обусловленная округлением"

593 print"emkqcth> составит •"

594 print" бо времени задержки "sgn(g!«fnn(abc(g/2))"х"

595 print- для волнового сопротивления--sgn(g)kfnn(abs(g/2)>-jc

596 print:if abs(g)<vo/50 then let p=g/2:g0t0 725

697 print-для обеспечения максимального допуска на элементы"

599 frint-линии задержки при заданных предельных отклонениях"

601 print-внходных параметров перераспределите постоянную"

603 print"пoгpeшhoctь между выходными параметрами"

605 let z=0:let z1=0

615 let 2=z+l:if z(>3 then 660

617 print "погрешность выходных параметров, обусловленная разбросом* 620 print-значении l и с, в равной степени входит в погрешносить" 622 print-boлhdboгo сопротивления и времени задержки.обозначим "

625 print -ее а. тогда половина суммы постоянной потрешности, "

626 print-еудет определяться величиной, обусловленной округлением"

627 print-paciethoro значения с-и значениями предельных отклонений"

428 PRINT-L И С НА КАЖДЫЙ ПАРАМЕТР."

632 PRINT-B СЛУЧАЕ ИХ РАВЕНСТВА ПРИ ЗАДАННЫХ ДОПУСКАХ"

635 PRINT-ВЕДИЧИНД А МАКСИМАЛЬНА, И СТОИМОСТЬ ЛИНИИ ЗАДЕРЖКИ"

637 PRINT-МИНИМАЛЬНА. ИЗМЕНЕНИЕ ПОСТОЯННОЙ ПОГРЕШНОСТИ,ВНОСИМОЙ"

640 PRINT-3A СЧЕТ ОКРУГЛЕНИЯ ВЕЛИЧИНЫ ВРЕМЕНИ ЗАДЕРЛКИ НА "

643 PRINT-ВЕЛИЧИНУ Y, ВЛЕЧЕТ ЗА СОБОЙ ИЗМЕНЕНИЕ L НА ВЕЛИЧИНУ"

645 FRINT"-Y И, СЛДОВАТЕЛЬНО, ИЗМЕНЕНИЕ ПОГРЕШНОСТИ НА ВОЛНОВОЕ"

647 РР1НТ"С0ПР0ТИВЛЕНИЕ СОСТАВИТ ТАКЖЕ YX.ИСПОЛЬЗУЯ ЭТО,"

650 PRINT"BHBEPHTE ОПТИМАЛЬНОЕ ЗНАЧЕНИЕ ПОСТОЯННОЙ ПОГРЕШНОСТИ"

660 IF Z(6 THEN 670

662 PRINT-ГЛУБЖЕ ИЗУЧИТЕ ВОПРОСЫ ОПТИМИЗАДИИ ПАРАМЕТРОВ" 665 END

670 PRINT-HA СКОЛЬКО изменится время залер*ки ">

672 INPUT Р

675 IF ABS(P)(U0-ABS(G) THEN 682

677 PRINT-ТАКИМ ПЕРЕРАСПРЕДЕЛЕНИЕМ ВЫ ВНОСИТЕ СЛИШКОМ БОЛЬШУЮ" «78 РР1«Т"П0ГРЕШН0СТЬ" 680 GOTO 615

682 IF Pi!G)=0 THEN LET C2=V0:GOTO 690

685 PRINT"BH ВЗЯЛИ ВЕЛИЧИНУ ПОГРЕШНОСТИ С ОБРАТНЫМ ЗНАКОМ" 687 GOTO 615

690 LET U0=V1-ABS(P)!LET Z2=W1-ABS(p-G) 692 IF U0)Z2 THEN LET V0=Z2 695 IF V0)jy2 THEN 710

697 PRINTCMEMEHHE ВЫБРАНО НЕУДАЧНО, ТАК КАК ПРИ ЭТОМ СИЛЬНО" 699 PRINT "ПОВЫШАЮТСЯ ТРЕБОВАНИЯ К ТОЧНОСТИ ИЗГОТОВЛЕНИЯ КАТУШКИ" 708 LET V0=C2:G0T0 615 710 IP 00)0.95»J THEN 725

712 PRINT-ПРИ ТАКОМ РАСПРЕДЕЛЕНИИ ТОЧНОСТЬ ИЗГОТОВЛЕНИЯ КАТУШКИ"

715 PRINT-HE ЯВЛЯЕТСЯ МИНИМАЛЬНОЙ. СТОИМОСТЬ ТАКОЙ ЛИНИИ"

717 PRINT-B03FACTET В "FNQ((JyVO)"2+0.05)" РАЗА-

720 GOSUE 920

722 IF Y01 THEN 708

725 LET L=(T»(l+PyiO0)/N)-2yX«1000000

730 PRINT:PRINT,-ПАРАМЕТРЫ ЛИНИИ"

740 PRINT"BPEMH ЗАДЕРЖКИ",T-+--V-X МКС"

750 PRINT"BQЛHQBOE СОПРОТИВЛЕНИЕ ",R"+-"M"X ОМ"

760 PRINTflflHTEflbHOCTb ФРОНТА ЗАДЕРЖАННОГО ИМПУЛЬСА-FNN(ТО)" МКС"

765 РР1НТ"ДЛИТЕЛЬН0СТЬ ЗАДЕРЖИВАЕМОГО ИМПУЛЬСНОГО СИГНАЛА "ТГМКС"

770 PRINT-КОЛИЧЕСТВО ЗВЕНЬЕВ",N

775 РР1НТ"ВЕЛИЧИНА ЕМКОСТИ",X"+-"CO"Z ПФ"

780 PRINT-ВЕЛИЧИНА ИНДУКТИВНОСТИ",FNN(L)"МКГ"

785 PRINT"MAKCИMДЛЬHDE ПРЕДЕЛЬНОЕ ОТКЛОНЕНИЕ ИHДУKTИBHOCTИ"FNN (00)";( 790 PRINT:PRINT:pRINT

795 PRINT-ДО СВИДАНИЯ.";pRINT,-3flEKTP0HHKA - 60" 800 STOP ?00 INPUT X

905 IF Х)0 THEN RETURN

906 LET Z=Ztl:IF Z(4 THEN 909

907 PRINT "BH НЕПРАВИЛЬНО ВВОДИТЕ ЧИСЛА. ВАМ ПРИДЕТСЯ ПОВТОРИТЬ "

908 PRINT "РАСЧЕТ СНАЧАЛА":GOTO 38

909 IF Z=2 THEN PRINT "БУДЬТЕ ВНИМАТЕЛЬНЕЕ ПРИ ВВОДЕ "

910 PRINT "ПОВТОРИТЕ ВВОД"; 915 GOTO 900

920 PRINT"yCTPOHT ЛИ ЭТО ВАС"!

925 INPUT Y

926 IF Y=l THEN LET Z1=0:RETURN f27 LET Z1=Z1+1;IF Zl(4 THEN 930

,923 PRINT-УТОЧНИТЕ СНАЧАЛА СВОИ ИСХОДНЫЕ ДАННЫЕ" 929 ENIl

930 IF 21=3 THEN PRINT-ВЫ ПЫТАЕТЕСЬ УГАДАТЬ ОТВЕТ l"

931 RETURN

950 DATA 30, 20, 10, 5 , 2 , 1 ,0.5,1.0 955 DATA 1.1,1.2,1.3,1.5,1.6,1.8,2.0,2.2 960 DATA 2.4,2.7,3.0,3.3,3.6,3.9,4.3,4.7 965 DATA 5.1,5.6,6.2,6.8,7.5,8.2,9.1,10.