14
next
screen 2
‘***построение осей координат***
line (40, 180)-(570,180), 3
line (40, 180)-(40, 20), 3
‘***построение сетки***
for i=l80 to 20 step-16
for j=40 to 570 step 10
pset(j,i)
next j,i
for i=40 to 570 step 53
for j=180 to20 step -4
pset (i.j)
next j,i
‘***преобразование значений х и у в графические координаты***
for i=1 to m
xg = (х(i)-xmin)*530/(xmax-xmin)+40
yg = 180-(у(i)-ymin)*160/(ymax-ymin)
pset (xg,yg), 3
line((xg-3).(yg-2))-((xg+3).(yg+2)).7.b
next
4444 a$=inkey$ if a$=” ” then 4444
screen 0
n2=m
n1=m-l
98 y8=0
for l=n1 to n2
y8=y8+y(l)
next l
y9=y8/(n2-n1+1)
y91=y9
ep=0.2*y9
for l=nl to n2
if abs(y9-y(l)) >ep then 187
next l
lf n1>1 then 198
‘на построение
goto 1189
198 n1=n1-1
goto 98
187 n4=n1-1
‘наклон участок
n3=n4-1
122 n5=n3
n6=n4
99 a1=a
b1=b
gosub 1000
Ta=(y91-a)/b
Ka=(co-y91)/y91/6
pr=(co-y91)/(co*100
for l=n3 to n4