...

def fngamm0(o)=(sin(o)-o*cos(o))/pi

10 input " 1- , ",pkdop

input " 2 - a , ",f

input " 3 - 󠠠 ",b

input " 4 - , B ",uots

input " 5 - , A/B ",sgr

input " 6 - , Ԡ ",ce

input " 7 - , Ԡ ",ck

input " 8 - ,   ",ubdop

input " 9 - , ",ikdop

input "10 - ,   ",ukdop

input "11 - , ",lb

input "12 - , ",le

20 input " ,   ",ep

if ep>ukdop/2 then goto 70

30 input " , ",ikmax

if ikmax>0.9*ikdop then goto 40

input " F betta, ",fb

input "14 - , 䠠 ",tet

tetta=tet*pi/180

print " - 1"

print " - 0"

input " ",art

if art = 0 then goto 35

33 print " ? "

input " ",ert

if ert = 1 then input pkdop

if ert = 2 then input f

if ert = 3 then input b

if ert = 4 then input uots

if ert = 5 then input sgr

if ert = 6 then input ce



if ert = 7 then input ck

if ert = 8 then input ubdop

if ert = 9 then input ikdop

if ert = 10 then input ukdop

if ert = 11 then input lb

if ert = 12 then input le

if ert = 13 then input fb

if ert = 14 then input tet

cls

35 ksy=1-ikmax/sgr/ep

uk1=ksy*ep

ik1=fnalfa1(tetta)*ikmax

ik0=fnalfa0(tetta)*ikmax

p1=ik1*uk1/2

p0=ep*ik0

pr=p0-p1

if pr>pkdop then goto 50

kpd=p1/p0

ft=fb*b

qu=ikmax/2/pi/ft/(1-cos(tetta))/1000000

uemin=uots-qu/ce*(1-cos(pi-tetta))*10^12

if uemin>abs(ubdop) then goto 60

ue0=uots-fngamm0(pi-tetta)*qu/ce*10^12

rk=uk1/ik1

kappa=1+fngamm1(tetta)*2*pi*ft*ck*rk/1000000

ibsr=2*pi*f*qu*kappa*1000000

rz=1/2/pi/fb/ce*10^6

pwsr=0.5*fngamm1(pi-tetta)/rz/ce*qu*qu/ce*10^24

rw=fngamm1(tetta)*2*pi*ft*le/kappa/1000

pw2sr=ibsr*ibsr*rw/2

pw=pwsr+pw2sr

kp=(p1+pw2sr)/pw

lw=lb+le/kappa

cw=kappa*ce/fngamm1(pi-tetta)

rpar=fngamm1(pi-tetta)*rz

print " :"

print " p, B...... ";ksy

print " p , …";uk1

print " 1- p , ";ik1

print " , ";ik0

print " , ..........";p1

print " , p , ...";p0

print " , p , .......";pr


print " ........................";kpd

print " , ..........................";qu

print " p "

print " , ................................. ";uemin

print " , ...........";ue0

print " , ........";rk

print " "

print " , ..";ibsr

print " , ..";rz

print " , , ......";pwsr

print " , .....................";rw

print " , , ............";pw2sr

print " , , ...";pw

print " ..............";kp

print " , ....................";lw

print " , .........................";cw

print " . , ...";rpar

print " - 1"

print " - 0"

input " ",arf

if arf = 0 then goto 36

print " 1- , ",pkdop

print " 2 - a , ...",f

print " 3 - ...",b

print " 4 - , B",uots

print " 5 - , A/B...",sgr

print " 6 - , ԅ",ce

print " 7 - , ԅ.",ck

print " 8 - , ….",ubdop

print " 9 - , ..",ikdop

print "10 - , …",ukdop

print "11 - , 텅",lb

print "12 - , .",le

print "13 - F betta, ..",fb

print "14 - , ..",tet

goto 33

36 print #1, " " : print #1,

print #1, " 1- , ",pkdop

print #1, " 2 - a , ",f

print #1, " 3 - ",b

print #1, " 4 - , B..",uots

print #1, " 5 - , A/B .",sgr

print #1, " 6 - , ԅ..",ce


print #1, " 7 - , ԅ...",ck

print #1, " 8 - , ..",ubdop

print #1, " 9 - , .",ikdop

print #1, "10 - , ..",ukdop

print #1, "11 - , ..",lb

print #1, "12 - , ",le

print #1, " , ...............",ep

print #1, " , ................",ikmax

print #1, "   F betta,................",fb

print #1, " , .............................",tet

print #1, " : "

print #1, "Alfa0= ";fnalfa0(tetta)

print #1, "Alfa1= ";fnalfa1(tetta)

print #1, "Gamma0= ";fngamm0(tetta)

print #1, "Gamma1= ";fngamm1(tetta)

print #1, : print #1,

print #1, " :" : print #1,

print #1, " p, B...... ";ksy

print #1, " p , ...";uk1

print #1, " 1- p , .. ";ik1

print #1, " , ...";ik0

print #1, " , .........";p1

print #1, " , p , 򅅅..";p0

print #1, " , p , ......";pr

print #1, " ..........................";kpd

print #1, " , ........................";qu

print #1, " p "

print #1, " , ................................... ";uemin

print #1, " , .........";ue0

print #1, " , ......";rk

print #1, " "

print #1, " , ..";ibsr

print #1, " , 셅..";rz

print #1, " , , ......";pwsr

print #1, " , .....................";rw

print #1, " , , ............";pw2sr

print #1, " , , ...";pw

print #1, " ..............";kp

print #1, " , ....................";lw

print #1, " , ..........................";cw

print #1, " . , ...";rpar

goto 80

40 print " "


print " ";0.8*ikdop;" A" : goto 30

50 print " "

print " "

goto 10

60 print " "

print " "

goto 10

70 print " ";ukdop/2;" B"

goto 20

80 end




: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15