18 PR I NTВЫЧИСЛЕНИЕ КР ПО ЗйДйННОМУ ЗНнЧЕНИВ Р=Р(;КР>

28 ШРиТВВЕДИТЕ Р>=12 P=P!LETQ=l-p!LETT=SQR<L0b<lG!.i5);

38 LETft= <.81е328жт+.882853 >жТ+г. 515517

48 LETE=.; С. 881388*1+. 18Э269>жт+1.432788>*Т

58 LETK=T-H.- < 1+Е ): PR I ИТ! 1.4! ХР= К s GOTO 28: ЕЫП

Пример. Для =0,84134 получим

л:р=0,999 (точное значение 1), а для Р (х) = = 0,53983 получим л:р = 0,0998 (точное значение 0,1).

Через описанные выше специальные функции могут быть выражены и многие другие статистические функции для различных законов распределения вероятностей. На основе приведенных выше программ могут быть состав-ленй подпрограммы для вычисления специальных функций. Для современных ПЭВМ с большим объемом ОЗУ (32. Кбайт и выше) можно составить единую библиотеку подпро-

грамм специальных функций, что значительно расширяет функциональные возможности ПЭВМ в выполнении сложных математических и статистических расчетов. Для ПЭВМ с графическими возможностями с помощью описанных программ можно организовать вычисление координат точек, необходимых для построения графиков функций.

Следует отметить, что- приведенные выше расчеты не исчерпывают всего разнообразия вычислительных задач, связанных с вычислением специальных функций, применяемых в различных сферах науки и техники.

г л А в А 7

ПРИКЛАДНЫЕ ПРОГРАММЫ ТЕХНИЧЕСКИХ И ЭКОНОМИЧЕСКИХ РАСЧЕТОВ

5 7.1. Типовые электротехнические расчеты

Преобразование звезды, в треугольник (рис. 7.1) и наоборот выполняется по формулам

R,=R/Rb. Ri=R/R6, R3=R/R4, R=RtR5 + RbRfi+ReR4.

/?4==Л1/?2/Л, R5 = R2R3/R,

RbRsRi/R; R=Ri+Ri+R3-

Программа 7.!. „

Пример. Для Л, = 12 Ом, /?2 = 47 Ом и Лз = 82 Ом (треугольник) получим /?4 = = 4 Ом, /?5 = 27,333 Ом и Лб=6,979 Ом (звезда). Для 4=100 Ом, i?s=150 Ом и 6 - 220 Ом (звезда) получим Л = 466,667 Ом, /?2=318,182 Ом и /?з = 700 Ом (треугольник).

Расчет сопротивлений аттенюаторов (рнс. 7.2) при равных активных сопротивлениях генератора Zo=Z и нагрузки Z\=Z по заданному ослаблению А (в неперах):

Расчет ослабления А (в децибелах) Т- и П-образмьос аттенюаторов при произвольных сопротивлениях Zo генератора и Zi

Рис. 7.1. Звезда (а) и треугольник (б), составленные из резисторов

Тип аттенюатора

Программа 7.2.

Пример. Для Z = получим

:100 Ом у Л = 1 неп

нагрузки выполняется по формулам /4r=201g (((1+Л/?, ?2) BR3+AR,)/C), /4„ = 201g {({\+AR2/Zo) BZb+AZ>)/C).

где A = \+Zx,/R,, B=\+Z,/R3, C = Zo+Z,.

Тип аттенюатора

R,=Rl2 Ry=RIZ о--JL-о

Рис. 7.2. Резистивные аттенюаторы четырех типов

Программа 7.2. . .

10 PRINTРАСЧЕТ СОПРОТИВЛЕНИЙ АТТЕНйАТОРОВ

15 PRINT15.3! ПО ЗАДАННОМУ ОСЯАБПЕНИН) й

20 INPUTВВЕДИТЕ ВХОДНОЕ И ВЫХОДНОЕ СОПРОТИВЛЕНИЯ Z=Z

25 ШРиТВВЕДИТЕ ОСЛАБЛЕНИЕ В НЕПЕРАХ А=А".LETE=A,2

30 INPUTBBEAHTE ТИП ATTEHKiATOPA 1,2,3 ИЛИ 4 ?С

40 IF С=1 THEN 80

56 IF С=2 ТНЕН 90

60 IF С=3 THEN 100

70 PRINTАТТЕНЮАТОР 4 ТИПА

75 РКШТК=2жНТН<В> ОИ W=Z./HTH<B> ОМ!GOTO 20 88 PRINTАТТЕНЮАТОР 1 ТИПА

85 PRINTR=Z*!HSH<A> ОМ 2жЫ=гНТН<В) OMsGOTO 28 90 PRINTАТТЕНЮАТОР 2 ТИПА

95 PRIHTR2=Z*!HTH(B> ОМ Ы=2Н5Н(А> OMsGOTO 28

100 PRINTАТТЕНЮАТОР 3 ТИПА!LETK=EXP<A>-1

110 PRINTК=К гжк=2жк ОМ Z.K=ZK OMSGOTO 28:ENB

Программа 7.3.

10 PRINTPACHET ОСЛАБЛЕНИЯ Т- И П-ОБРАЗНЫХ ATTEHKiATOPOB

28 ШРиТЗАДАйТЕ Б ОМАХ 20,Z1 K,L

38 INPUTЗАДАЙТЕ Б ОМАХ R1,R2,R3 H,I,.J

48 LETA=1 +К/Н: LETB=1 Js LETC=K+L

50 LETF=20*LGT< C.>:< 1+АЖН/-1 >жВ+АжН>./С)

68 LETG=20*L6TCСКж< 1+Аж1УК)жВ+АжЬ>/-С)

70 PRINTОСЛАБЛЕНИЕ AT=F ДБ

80 PRINTОСЛАБЛЕНИЕ АП=ь ДБвбОТО 28:EHri

"Пример. Для Zo=2;i=50 Ом, R\ = = 75 Ом, /?2 = 38 Ом и /?з = 19 Ом получим Л,= 11,469 дб, Л„= 14,560 дб.

Расчет сопротивлений согласующего делителя (рис. 7.3) и вносимого им ослабления выполняется по формулам

j?i=ZoT,=72, J?2=Zi/Vr;l,

U,„ = 20 log bIzJz[-\-/zi-\ )

Рис. 7.,3. Согласующий резистиоЬый делитель

10 РКХНТПРЕОБРйЗОБЙНИЕ ТРЕУГОЛЬНИКА В ЗВЕЗДУ-КОД 9

20 PRIMTПРЕОБРАЗОВАНИЕ ЗВЕЗДЫ В ТРЕУГОЛЬНИК-КОД 1 .

30 INPUTBBEAHTE КОД ПРЕОБРАЗОВАНИЯ ? КЛР к=1 THEN SB

40 ШРиТВВЕДИТЕ R1,R2,R3 R1,R2/R3

50 LETR=R1+R2+R3!LETR4=R1*!R2./R

60 LETR5=R2iiiR3./RsLETR6=R3!«Rl./R

?0 PRINTR4=R4 R5=R5 R6=R6!G0T0 3S

80 ШРиТВВЕДИТЕ R4*R5,R6 R4..R5,R6

90 LETR=R4*!R5+R5!«R6+R6iiiR4

100 LETR1=RR5:LETR2=R./R6!LETR3=R/R4

lie PRINTR1=R1 R2=R2 R3=R3!60T0 ЗвгЕНП