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

setlinestyle(0,0,2);

double xp,yp,pol1,pol2,mon=0;

double x1,x2,y1,y2;

int i,smen=0,nt;

int Xmen;

double stat1,stat2,stat3,stat4,pl;

double AD,CB,ADY,DISC,ABD,AC,ABX;

double at,bt,ct,Yris1,Zris1,Yris2,Zris2,gr1,gr2,Xris1,Xris2;

for(i=0;i<3;i++)

{

if (i==0)

{

if (abs(Xkos3-Xkos1)>abs(Ykos3-Ykos1))

{

if (Ykos1>Ykos3) {pol2=Ykos1;pol1=Ykos3;}

else {pol2=Ykos3;pol1=Ykos1;}

smen=1;

if (Xkos1>Xkos3) {gr1=Xkos3;gr2=Xkos1;}

else {gr1=Xkos1;gr2=Xkos3;}

}

else

{ if (Xkos1>Xkos3) {pol2=Xkos1;pol1=Xkos3;}

else {pol2=Xkos3;pol1=Xkos1;}

smen=2;

if (Ykos1>Ykos3) {gr1=Ykos3;gr2=Ykos1;}

else {gr1=Ykos1;gr2=Ykos3;}

}

stat1=(Ykos3-Ykos1)*(Zc-Zkos1)-(Yc-Ykos1)*(Zkos3-Zkos1);

stat2=(Zkos3-Zkos1)*(Xc-Xkos1)-(Xkos3-Xkos1)*(Zc-Zkos1);