16
xmaxl=(fl-a)/b
screen 2
‘***построение осей координат***
line (40, 180)-(570, 180), 3
line (40, 180)-(40 ,20), 3
‘***построение сетки***
for i=180 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 to 20 step -4
pset (i, j)
next j, i
‘***преобразование значений х и у в графические координаты***
for i=l to m
xg=(x(i)-xmin)*530/(xmax-xmin)+40
yg=l80-(y(i)-ymin)*160/(ymax-ymin)
pset(xg, yg), 3
line ((xg-3), (yg-2))-((xg+3), (yg+2)),7,b
next
‘***построение расчетных прямых***
if nl=l then
for x=xmax1 to xmax step (xmax-xmin)/530
y=f1
xg=(x-xmin)*530/(xmax-xmin)+40
yg=180-(y-ymin)*160/(ymax-ymin)
pset(xg, yg)
next
else if n3=l then
for х=x9 to xmax1 step (xmax-xmin)/530
yp=a+b*x
xg=(x-xmin)*530/(xmax-xmin) +40
yg=180-(yp-ymin)*160/ (ymax-ymin)
pset (xg, yg)
next
for x=xmaxl to xmax step (xmax-xmin)/530
y=f1
xg=(x-xmin)*530/(xmax-xmin)+40
yg=180-(y-ymin)*160/(ymax-ymin)
pset (xg, yg)
next
else
for x=x9 to xmax1 step (xmax-xmin)/530
yp=a+b*x
xg=(x-xmin)*530/(xmax-xmin)+40
yg=180-(yp-ymin)*160/(ymax-ymin)
pset (xg, yg) : next
for x=xmax1 to xmax step (xmax-xmin)/530
y=f1
xg=(x-xmin)*530/(xmax-xmin)+40
yg=l80-(y-ymin)*160/(ymax-ymin)