17
pset (xg, yg)
next
for x=x(l) to x9 step (xmax-xmin)/530
yp=y9
xg=(x-xmin)*530/(xmax-xmin)+40
yg=180-(yp-ymin)*160/(ymax-ymin)
pset (xg, yg)
next
end if
2222 as=inkeys: if as=” “then 2222
for k=1 to 35
print
next
screen 0
print ”ВВЕДИТЕ ВЫБОР ВЫВОДА ДАННЫХ:”
print ”1 - ВЫВОД НА ПЕЧАТЬ”
print ”2 - ВЫВОД НА ЭКРАН”
input k
cls
print #k,” Tm”;” Km”;” Та”=” Ка”;” %”
for l=1 to n3
if abs(y9-y(l))<ep then Km=(co-y9)/y9/6
goto 1001
km=(со-у7)/у7/6
goto 1001
next
1001 print #k, using”####,##”; x9, Km, Та, Ка, pr, y9, x7
print #k, “КОЭФФИЦИЕНТЫ В ПОРЯДКЕ СЛЕДОВАНИЯ РАВНЫ:”
print #k, using “###.##”; a, b
print #k, “АППРОКСИМАЦИЯ ВИДА у=А+Вх”
print #k,” x”;” у”;” ур”
for i=nl to n2
yp=a+b*x(i)
print #k, using “###.##”; x(i), y(i), ур
next
print #k, using “###.##”; d
print #k, using “Y=###.## X=###.##”;f1, xmax1
stop
1000 rem print “***ПОДПРОГРАММА APR***”
sx=0
sxx=0
sy=
sxy=0
for i=n5 to n6
sx=sx+x(i)
sy=sy+y(i)
sxx=sxx+x(i)
sxy=sxy+x(i)*y(i)
next
а=(sx*sxy-sy*sxx)/(sx^2-(n6-n5+1) sхх)
b=(sx*sy-(n6-n5+1)*sxy)/(sx^2-(n6-n5+1)*sxx)
return