Исследовательская часть

fprintf(out,"Wa2 %s%5.3e ",s1,Ra2);

fscanf(in,"%lf%s",&Ka2,s1);

fprintf(out,"%s%5.3e ",s1,Ka2);

fscanf(in,"%lf%s",&ta21,s1);

fprintf(out,"%s%5.3e ",s1,ta21);

fscanf(in,"%lf%s",&ta22,s1);

fprintf(out,"%s%5.3e ",s1,ta22);

fscanf(in,"%lf%s",&ta23,s1);

fprintf(out,"%s%5.3e \n",s1,ta23);

fscanf(in,"%lf%s",&ctau,s1);

fprintf(out,"%s%5.3e ",s1,ctau);

fscanf(in,"%lf%s",&cc,s1);

fprintf(out,"%s%5.3e \n",s1,cc);

fprintf(out," \n");

if(supp==1) {fun01();fcloseall;exit(1);}(out," Wo fГц Am 20log(Am) Полн.угол real compl F\n");(out,"--------------------------------------------------------------------------------------------------------------------------\n");realw,compw;predw;

sectorpred=1;

countround=0;

sector=1;

colsect=-1;

naprav=1;

nom=wbeg;

while (nom<=wend)

{

fun0();

realw=real(c); compw=imag(c);

//определяем четверть

if (realw>0 && compw>0) sector=1;

if (realw>0 && compw<0) sector=4;

if (realw<0 && compw<0) sector=3;

if (realw<0 && compw>0) sector=2;

//определяем направление

if (nom==wbeg){ colsect=sector;sectorpred=sector;predw=c;(sector>=3) {naprav=-1;colsect=(5-sector)*(-1);}}((sectorpred==4)&&(sector==1)) naprav=1;((sectorpred==1)&&(sector==4)) naprav=-1;

//определяем накопление секторов до полного круга

if (sector>sectorpred) colsect++;

if (sector<sectorpred) colsect--;

//определяем количество кругов

if ((sectorpred==4)&&(sector==1)&&(naprav==1)&&(colsect>1))

{countround++;colsect=0;}

if ((sectorpred==1)&&(sector==4)&&(naprav==-1)&&(colsect<-1))

{countround--;colsect=0;}

predw=c;

sectorpred=sector;

pechat(" ",c,dobavka);

// fprintf(out,"--------------------------------------------------------------------------------------------------------------------------\n");

nom=nom*shag;

c=complex(0,0);

}

fprintf(out,"\n");

fcloseall;

}