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

outtextxy(45,695,"Xkos");outtextxy(45,735,"Ykos");outtextxy(45,775,"Zkos");

sprintf(st1,"%.1f",Xkos1);sprintf(st2,"%.1f",Xkos2);sprintf(st3,"%.1f",Xkos3);

outtextxy(81,695,st1);outtextxy(121,695,st2);outtextxy(161,695,st3);

sprintf(st1,"%.1f",Ykos1);sprintf(st2,"%.1f",Ykos2);sprintf(st3,"%.1f",Ykos3);

outtextxy(81,735,st1);outtextxy(121,735,st2);outtextxy(161,735,st3);

sprintf(st1,"%.1f",Zkos1);sprintf(st2,"%.1f",Zkos2);sprintf(st3,"%.1f",Zkos3);

outtextxy(81,775,st1);outtextxy(121,775,st2);outtextxy(161,775,st3);

setlinestyle(0,0,1);

p[4]=Zc;

int q=0,i,j,svet=4;

double h=Rc;

for(q=1;q<=4;q++)

{

i=stroim();

if (i==4)

{ setcolor(15);

if (raz!=0) setlinestyle(3,0,1);

circle(Xc+40,800-Yc,Rc);

ellipse(Xc+40,800-Yc,180,360,Rc,Rc/2);

ellipse(Xc+40,800-Yc-Rc/2,180,360,Rc-(Xc+Rc-(sqrt(Rc*Rc-(Rc/2)*(Rc/2))+Xc))-2,Rc/4);

ellipse(Xc+40,800-Yc+Rc/2,180,360,Rc-(Xc+Rc-(sqrt(Rc*Rc-(Rc/2)*(Rc/2))+Xc))-2,Rc/4);

setlinestyle(1,0,1);

ellipse(Xc+40,800-Yc,0,180,Rc,Rc/2);

ellipse(Xc+40,800-Yc-Rc/2,0,180,Rc-(Xc+Rc-(sqrt(Rc*Rc-(Rc/2)*(Rc/2))+Xc))-2,Rc/4);

ellipse(Xc+40,800-Yc+Rc/2,0,180,Rc-(Xc+Rc-(sqrt(Rc*Rc-(Rc/2)*(Rc/2))+Xc))-2,Rc/4);

if (raz==0) setlinestyle(0,0,1);

}

if (i!=4)

{