Контрольная работа: Сглаженная поверхность для границы трех атомов в пространстве

Zkos1=Ykos1*zc1/yc1+ZYc1;Zkos2=Ykos2*zc2/yc2+ZYc2;Zkos3=Ykos3*zc3/yc3+ZYc3;

}

void osi(void)

{

int i,s=40;

char st[14];

setcolor(15);

line(40,40,40,800);

line(40,800,1000,800);

for(i=60;i<1000;i=i+20)

{line(i,798,i,802);}

for(i=80;i<1000;i=i+40)

{ sprintf(st,"%d",s);

outtextxy(i-7,810,st);

s=s+40;}

line(1000,800,985,795);

line(1000,800,985,805);

for(i=60;i<800;i=i+20)

{line(38,i,42,i);}

line(40,40,35,55);

line(40,40,45,55);

s=40;

for(i=760;i>40;i=i-40)

{ sprintf(st,"%d",s);

outtextxy(10,i-7,st);

s=s+40;

}

outtextxy(25,790,"0");

}