(DIS,"UP31: MATH.FUNCTION")
E44=NEG(ART(ABS(INT(SQR(ARC(TAN(ARS(1/2-1)-15)+1.5)+4)/(-7)))))
E45=((SIN(15)*SIN(15)+COS(15)*COS(15))+7)
E45=MOD(E45,3)
E46=E44+E45
l1=ZX20,I100J20r-50
E51=FEL(1,1)
E52=FEL(1,2)
E53=FEL(1,3)
l2=Z100X20,a45
c3=I100J20r-50
p4=l2,c3,s2
E61=FEP(4,1)
E62=FEP(4,2)
p5=Z100X-80
p6=Z50X20
c7=p4,p6,p5
E71=FEC(7,1)
E72=FEC(7,2)
E73=FEC(7,3)
E47=ARC(E52)+ARS(E51)-ARC(E53/10)
E48=ARC((E61-100)/50)+ARS((E62-10)/50)
E49=E46+E47+E48+E71+E72+E73
(DIS,E49)
