Устройство для перемешивания медицинских препаратов с кварцевыми измерителями линейных ускорений в качестве чувствительных элементов

break;

case 16:

fprintf(out,"АФЧХ корректирующего устройства регулятора по углу центростремительного акселерометра 2 режим:\n");

break;

default: exit(1);

}

break;

case 2:

printf("\nНажмите клавишу соответствующую номеру передаточной функции: \n");

printf("\n АФЧХ замкнутой системы walfa/Malfa 1 режим: 1");

printf("\n АФЧХ замкнутой системы Mдв./Malfa 1 режим: 2");

printf("\n АФЧХ замкнутой системы для ДУС-ЧЭ Uвых1/Malfa 1 режим: 3");

printf("\n АФЧХ замкнутой системы для тангенц. акселерометра Uвыхtau/Malfa 1 режим: 4");

printf("\n АФЧХ замкнутой системы walfa/Uзад. 1 режим: 5");

printf("\n АФЧХ замкнутой системы Mдв./Uзад. 1 режим: 6");

printf("\n АФЧХ замкнутой системы для ДУС-ЧЭ Uвых1/Uзад. 1 режим: 7");

printf("\n АФЧХ замкнутой системы для тангенц. акселерометра Uвыхtau/Uзад. 1 режим: 8");

printf("\n АФЧХ замкнутой системы walfa/beta1п 1 режим: 9");

printf("\n АФЧХ замкнутой системы Mдв./beta1п 1 режим: 10");

printf("\n АФЧХ замкнутой системы для ДУС-ЧЭ Uвых1/beta1п 1 режим 11");

printf("\n АФЧХ замкнутой системы для тангенц. акселерометра Uвыхtau/beta1п 1 режим:12");

printf("\n АФЧХ замкнутой системы walfa/betatauп. 1 режим: 13");

printf("\n АФЧХ замкнутой системы Mдв./betatauп. 1 режим: 14");

printf("\n АФЧХ замкнутой системы для ДУС-ЧЭ Uвых1/betatauп. 1 режим: 15");

printf("\n АФЧХ замкнутой системы для тангенц. акселерометра Uвыхtau/betatauп. 1 режим: 16");

printf("\n АФЧХ замкнутой системы walfa/beta2п 1 режим: 17");

printf("\n АФЧХ замкнутой системы Mдв./beta2п 1 режим: 18");

printf("\n АФЧХ замкнутой системы для ДУС-ЧЭ Uвых2/beta2п 1 режим 19");

printf("\n АФЧХ замкнутой системы для тангенц. акселерометра Uвыхtau/beta2п 1 режим: 20");

printf("\n АФЧХ замкнутой системы 1 режим: 21");

printf("\n Номер клавиши ? : ");

scanf("%i",&nom_fun);

switch (nom_fun)

{

case 1:

fprintf(out,"АФЧХ замкнутой системы walfa/Malfa 1 режим:\n");

break;

case 2:

fprintf(out,"АФЧХ замкнутой системы Mдв./Malfa 1 режим:\n");

break;

case 3:

fprintf(out,"АФЧХ замкнутой системы для ДУС-ЧЭ Uвых1/Malfa 1 режим:\n");

break;

case 4:

fprintf(out,"АФЧХ замкнутой системы для тангенциального акселерометра Uвыхtau/Malfa 1 режим:\n");

break;

case 5:

fprintf(out,"АФЧХ замкнутой системы walfa/Uзад. 1 режим:\n");

break;

case 6:

fprintf(out,"АФЧХ замкнутой системы Mдв./Uзад. 1 режим:\n");

break;

case 7:

fprintf(out,"АФЧХ замкнутой системы для ДУС-ЧЭ Uвых1/Uзад. 1 режим:\n");

break;

case 8:

fprintf(out,"АФЧХ замкнутой системы для тангенциального акселерометра Uвыхtau/Uзад. 1 режим:\n");

break;

case 9:

fprintf(out,"АФЧХ замкнутой системы walfa/beta1п 1 режим:\n");

break;

case 10:

fprintf(out,"АФЧХ замкнутой системы Mдв./beta1п 1 режим:\n");

break;

case 11:

fprintf(out,"АФЧХ замкнутой системы для ДУС-ЧЭ Uвых1/beta1п 1 режим:\n");

break;

case 12:

fprintf(out,"АФЧХ замкнутой системы для тангенциального акселерометра Uвыхtau/beta1п 1 режим:\n");

break;

case 13:

fprintf(out,"АФЧХ замкнутой системы walfa/betatauп. 1 режим:\n");

break;

case 14:

fprintf(out,"АФЧХ замкнутой системы Mдв./betatauп. 1 режим:\n");

break;

case 15:

fprintf(out,"АФЧХ замкнутой системы для ДУС-ЧЭ Uвых1/betatauп. 1 режим:\n");

break;

case 16:

fprintf(out,"АФЧХ замкнутой системы для тангенциального акселерометра Uвыхtau/betatauп. 1 режим:\n");

break;

case 17:

fprintf(out,"АФЧХ замкнутой системы walfa/beta2п 1 режим:\n");

break;

case 18:

fprintf(out,"АФЧХ замкнутой системы Mдв./beta2п 1 режим:\n");

break;

case 19:

fprintf(out,"АФЧХ замкнутой системы для ДУС-ЧЭ Uвых2/beta2п 1 режим:\n");

break;

case 20:

fprintf(out,"АФЧХ замкнутой системы для тангенциального акселерометра Uвыхtau/beta2п 1 режим:\n");

break;

case 21:

fprintf(out,"АФЧХ замкнутой системы 1 режим:\n");

break;

default: exit(1);

}

break;

case 3:

printf("\nНажмите клавишу соответствующую номеру передаточной функции: \n");

printf("\n АФЧХ замкнутой системы walfa/Malfa 2 режим: 1");

printf("\n АФЧХ замкнутой системы Mдв./Malfa 2 режим: 2");

printf("\n АФЧХ замкнутой системы для центростремит. акселерометра Uвыхц/Malfa 2 режим: 3");

printf("\n АФЧХ замкнутой системы для тангенц. акселерометра Uвыхtau/Malfa 2 режим:4");

printf("\n АФЧХ замкнутой системы walfa/Uзад. 2 режим: 5");

printf("\n АФЧХ замкнутой системы Mдв./Uзад. 2 режим: 6");

printf("\n АФЧХ замкнутой системы для центростремит. акселерометра Uвыхц/Uзад. 2 режим: 7");

printf("\n АФЧХ замкнутой системы для тангенц. акселерометра Uвыхtau/Uзад. 2 режим: 8");

printf("\n АФЧХ замкнутой системы walfa/betacп 2 режим: 9");

printf("\n АФЧХ замкнутой системы Mдв./betacп 2 режим: 10");

printf("\n АФЧХ замкнутой системы для центрострем. акселерометра Uвыхц/betacп 2 режим:11");

printf("\n АФЧХ замкнутой системы для тангенц. акселерометра Uвыхtau/betacп 2 режим: 12");

printf("\n АФЧХ замкнутой системы walfa/betatauп. 2 режим: 13");

printf("\n АФЧХ замкнутой системы Mдв./betatauп. 2 режим: 14");

printf("\n АФЧХ замкнутой системы для центростремит. акселерометра Uвыхц/betatauп. 2 режим: 15");

printf("\n АФЧХ замкнутой системы для тангенц. акселерометра Uвыхtau/betatauп. 2 режим:16");

printf("\n АФЧХ замкнутой системы walfa/beta2п 2 режим: 17");

printf("\n АФЧХ замкнутой системы Mдв./beta2п 2 режим: 18");

printf("\n АФЧХ замкнутой системы для центростремит. акселерометра Uвыхц/beta2п 2 режим:19");

printf("\n АФЧХ замкнутой системы для тангенц. акселерометра Uвыхtau/beta2п 2 режим: 20");

printf("\n АФЧХ замкнутой системы 2 режим: 21");

printf("\n Номер клавиши ? : ");

scanf("%i",&nom_fun);

switch (nom_fun)

{

case 1:

fprintf(out,"АФЧХ замкнутой системы walfa/Malfa 2 режим:\n");

break;

case 2:

fprintf(out,"АФЧХ замкнутой системы Mдв./Malfa 2 режим:\n");

break;

case 3:

fprintf(out,"АФЧХ замкнутой системы для центростремительного акселерометра Uвыхц/Malfa 2 режим:\n");

break;

case 4:

fprintf(out,"АФЧХ замкнутой системы для тангенциального акселерометра Uвыхtau/Malfa 2 режим:\n");

break;

case 5:

fprintf(out,"АФЧХ замкнутой системы walfa/Uзад. 2 режим:\n");

break;

case 6:

fprintf(out,"АФЧХ замкнутой системы Mдв./Uзад. 2 режим:\n");

break;

case 7:

fprintf(out,"АФЧХ замкнутой системы для центростремительного акселерометра Uвыхц/Uзад. 2 режим:\n");

break;

case 8:

fprintf(out,"АФЧХ замкнутой системы для тангенциального акселерометра Uвыхtau/Uзад. 2 режим:\n");

break;

case 9:

fprintf(out,"АФЧХ замкнутой системы walfa/betacп 2 режим:\n");

break;

case 10:

fprintf(out,"АФЧХ замкнутой системы Mдв./betacп 2 режим:\n");

break;

case 11:

fprintf(out,"АФЧХ замкнутой системы для центростремительного акселерометра Uвыхц/betacп 2 режим:\n");

break;

case 12:

fprintf(out,"АФЧХ замкнутой системы для тангенциального акселерометра Uвыхtau/betacп 2 режим:\n");

break;

case 13:

fprintf(out,"АФЧХ замкнутой системы walfa/betatauп. 2 режим:\n");

break;

case 14:

fprintf(out,"АФЧХ замкнутой системы Mдв./betatauп. 2 режим:\n");

break;

case 15:

fprintf(out,"АФЧХ замкнутой системы для центростремительного акселерометра Uвыхц/betatauп. 2 режим:\n");

break;

case 16:

fprintf(out,"АФЧХ замкнутой системы для тангенциального акселерометра Uвыхtau/betatauп. 2 режим:\n");

break;

case 17:

fprintf(out,"АФЧХ замкнутой системы walfa/beta2п 2 режим:\n");

break;

case 18:

fprintf(out,"АФЧХ замкнутой системы Mдв./beta2п 2 режим:\n");

break;

case 19:

fprintf(out,"АФЧХ замкнутой системы для центростремительного акселерометра Uвыхц/beta2п 2 режим:\n");

break;

case 20:

fprintf(out,"АФЧХ замкнутой системы для тангенциального акселерометра Uвыхtau/beta2п 2 режим:\n");

break;

case 21:

fprintf(out,"АФЧХ замкнутой системы 2 режим:\n");

break;

default: exit(1);

}

break;

default: exit(1);

}

if(supp!=1) goto l2;

l1: printf("\n Ввести значение частоты (1/cек.) \n");

scanf("%lf",&w1);

printf("\n Вводятся амплитудные значения ?");

printf("\n 1 - шумовая составляющая, 2- погрешность угловой скорости\n");

scanf("%i",&sup1);

switch (sup1)

{ case 1: printf("\n Введите амплитудное значение шумовой составляющей (В)\n");

scanf("%lf",&uap);

fprintf(out,"Амплитудное значение шумовой составляющей Uап= %f B :\n",uap);

break;

case 2: printf("\n Введите амплитудное значение погрешности угловой скорости (град/c)(ускорения (м/с*с))\n");

scanf("%lf",&ast);

fprintf(out,"Амплитудное значение погрешности по угловой скорости (град/c)(ускорению (м/с*с)) %lf :\n",ast);

break;

default: exit(1);

}

l2: fscanf(in,"%lf%s",&H1,s1);

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

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

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

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

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

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

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

fscanf(in,"%i%s ",&n,s1);

fprintf(out,"%s%i ",s1,n);

fscanf(in,"%i%s ",&m,s1);

fprintf(out,"%s%i ",s1,m);

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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);}

fprintf(out," Wo fГц Am 20log(Am) Полн.угол real compl F\n");

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

double realw,compw;

complex 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;

if (sector>=3) {naprav=-1;colsect=(5-sector)*(-1);}}

if ((sectorpred==4)&&(sector==1)) naprav=1;

if ((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;

}

Размещено на Allbest.ru