БУДУЩЕЕ МЕДИЦИНЫ
  • Главная
  • Содержание

Разделы

  • Главная
  • Особенности современных методов лечения
  • Сосудистая хирургия на современном этапе
  • Коррекция нарушений осанки и плоскостопия
  • Реставрация зубов
  • Спектрофотометрия в фармакопейном анализе
  • Взаимодействия ядов с организмом

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

}fun7(void)

{ W11_=s*Falfa_*57.3/(1+Wrs2);_=Wrs2/(1+Wrs2);_=W11_*kc*Fbetac*Wregcst/(s*Wkc*Wst1*57.3);_=W11_*ktau*Fbetatau*Wregtaust_/(s*Wktau1*Wst1*57.3);_=W11_*Wst1;_=W21_*W12_/(W11_*Wrs2);_=W21_*W13_/W11_;_=W21_*W14_/W11_;_=W11_*m*Wregcst*(1-Fbetac*Wregcos)*4.85e-6;_=W31_*W12_/W11_;

}fun8(void)

{_=W31_*W13_/W11_;_=W31_*W14_/W11_;_=W11_*n*Wregtaust_*(1-Fbetatau*Wregtauos)*4.85e-6;_=W41_*W12_/W11_;_=W41_*W13_/W11_;_=W41_*W14_/W11_;_=W11_*H2*s*Fbeta2*Wreg2os*4.85e-6;_=W51_*W12_/W11_;_=W51_*W13_/W11_;_=W51_*W14_/W11_;

}fun01(void)

{

s=complex(0,w1);

fun1();

fun2();

fun3();

fun4();

switch (sup1)

{ case 1:

printf("\n Вести расчет для:1 - ДУС-ЧЭ,2-ДУС-ИП,3-тангенц. акселер.,4-центростр. акселером.\n");

scanf("%i",&sup2);

switch (sup2)

{

case 1:

funper=Fbeta1*Wreg1os*Kdu1*Wuos1*Wa1;

funmod=modul(funper);

bp1=2.06e5*uap/funmod;

fprintf(out,"Уровень сигнала betaп для ДУС-ЧЭ: %lf дуг. сек.\n",bp1);

funmod=modul(Fbeta1);

fprintf(out,"Модуль Fbeta1: %lf\n",funmod);

funmod=modul(Wreg1os);

fprintf(out,"Модуль Wreg1os: %lf\n",funmod);

funmod=modul(Wuos1);

fprintf(out,"Модуль Wuos1: %lf\n",funmod);

funmod=modul(Wa1);

fprintf(out,"Модуль Wa1: %lf\n",funmod);

break;

case 2:

funper=Fbeta2*Wreg2os*Kdu2*Wuos2*Wa2;

funmod=modul(funper);

bp2=2.06e5*uap/funmod;

fprintf(out,"Уровень сигнала betaп для ДУС-ИП: %lf дуг. сек.\n",bp2);

funmod=modul(Fbeta2);

fprintf(out,"Модуль Fbeta2: %lf\n",funmod);

funmod=modul(Wreg2os);

fprintf(out,"Модуль Wreg2os: %lf\n",funmod);

funmod=modul(Wuos2);

fprintf(out,"Модуль Wuos2: %lf\n",funmod);

funmod=modul(Wa2);

fprintf(out,"Модуль Wa2: %lf\n",funmod);

break;

case 3:

funper=Fbetatau*Wregtauos*Kdutau*Wuostau*Wftau*Kytau1;

funmod=modul(funper);

bptau=2.06e5*uap/funmod;

fprintf(out,"Уровень сигнала betaп для тангенциального акселерометра: %lf дуг. сек.\n",bptau);

funmod=modul(Fbetatau);

fprintf(out,"Модуль Fbetatau: %lf\n",funmod);

funmod=modul(Wregtauos);

fprintf(out,"Модуль Wregtauos: %lf\n",funmod);

funmod=modul(Wftau);

fprintf(out,"Модуль Wftau: %lf\n",funmod);

funmod=modul(Wuostau);

fprintf(out,"Модуль Wuostau: %lf\n",funmod);

break;

case 4:

funper=Fbetac*Wregcos*Kduc*Wuosc*Wfc*Kyc1;

funmod=modul(funper);

bpc=2.06e5*uap/funmod;

fprintf(out,"Уровень сигнала betaп для центростремительного акселерометра: %lf дуг. сек.\n",bpc);

funmod=modul(Fbetac);

fprintf(out,"Модуль Fbetac: %lf\n",funmod);

funmod=modul(Wregcos);

fprintf(out,"Модуль Wregcos: %lf\n",funmod);

funmod=modul(Wfc);

fprintf(out,"Модуль Wfc: %lf\n",funmod);

funmod=modul(Wuosc);

fprintf(out,"Модуль Wuosc: %lf\n",funmod);

break;

default: exit(1);

}

break;

case 2: printf("\n Вести расчет для:1 - ДУС-ЧЭ,2-ДУС-ИП,3-тангенц. акселер.,4-центростр. акселером.\n");

scanf("%i",&sup2);

switch (sup2)

{

case 1:

uap=ast*H1*Ra1*Ka1/(Kdm1*57.3);

funper=Fbeta1*Wreg1os*Kdu1*Wuos1*Wa1;

funmod=modul(funper);

bp1=2.06e5*uap/funmod;

fprintf(out,"Уровень сигнала betaп для ДУС-ЧЭ: %lf дуг. сек.\n",bp1);

funmod=modul(Fbeta1);

fprintf(out,"Модуль Fbeta1: %lf\n",funmod);

funmod=modul(Wreg1os);

fprintf(out,"Модуль Wreg1os: %lf\n",funmod);

funmod=modul(Wuos1);

fprintf(out,"Модуль Wuos1: %lf\n",funmod);

funmod=modul(Wa1);

fprintf(out,"Модуль Wa1: %lf\n",funmod);

break;

case 2:

uap=ast*H2*Ra2*Ka2/(Kdm2*57.3);

funper=Fbeta2*Wreg2os*Kdu2*Wuos2*Wa2;

funmod=modul(funper);

bp2=2.06e5*uap/funmod;

fprintf(out,"Уровень сигнала betaп для ДУС-ИП: %lf дуг. сек.\n",bp2);

funmod=modul(Fbeta2);

fprintf(out,"Модуль Fbeta2: %lf\n",funmod);

funmod=modul(Wreg2os);

fprintf(out,"Модуль Wreg2os: %lf\n",funmod);

funmod=modul(Wuos2);

fprintf(out,"Модуль Wuos2: %lf\n",funmod);

funmod=modul(Wa2);

fprintf(out,"Модуль Wa2: %lf\n",funmod);

break;

case 3:

funper=Fbetatau*Wregtauos*Kdutau*Wuostau*Wftau*Kytau1;

funmod=modul(funper);

uap=ast*mltau*Rtau2*Kytau1/(9.8*Kdmtau); //Kst

bptau=2.06e5*uap/funmod;

fprintf(out,"Уровень сигнала betaп для тангенциального акселерометра: %lf дуг. сек.\n",bptau);

Перейти на страницу: 1 2 3 4 5 6 7 8 9 10 11

Copyright © 2023 - Все права защищены - www.futuremedics.ru