Применение метода частотных круговых диаграмм

Godograf(Tpr[k],Ko[j],Kos[i],15,(int)(xmax/2),(int)(ymax/2),k,j,i,1);

setcolor(7);

setlinestyle(1,0,1);

rectangle(Xc-18,Yc-15,Xc+18,Yc+15);

setlinestyle(0,0,1);

rectangle(10,Yc+5,250,Yc+205);

setcolor(15);

setviewport(10,(int)(ymax/2)+5,250,(int)(ymax/2)+205,1);

setfillstyle(1,0);

floodfill(5,5,7);

line(10,100,230,100);

line(125,10,125,190);

Godograf(Tpr[k],Ko[j],Kos[i],15,125,100,k,j,i,0);};

closegraph();

}

}

void Godograf(float Tpr, float Ko, float Kos, int Color,

int Xc, int Yc, int x, int y, int z, int err)

{

float P_w1=0.0, Q_w1=0.0,

P_w, Q_w,

To=0.5, Tg=0.1, P_w_min=0.0;

for(float w=0;w<=100;w=w+0.05){

if(((Kos*Ko-(To+Tpr)*w*w)*(Kos*Ko-(To+Tpr)*w*w)+

(w+Tpr*Kos*Ko*w-To*Tpr*w*w*w)*(w+Tpr*Kos*Ko*w-To*Tpr*w*w*w))!=0){

P_w = (Ko*w*Tg*(w+Tpr*Kos*Ko*w-To*Tpr*w*w*w)+

(Kos*Ko*Ko-(To+Tpr)*Ko*w*w))/

((Kos*Ko-(To+Tpr)*w*w)*(Kos*Ko-(To+Tpr)*w*w)+

(w+Tpr*Kos*Ko*w-To*Tpr*w*w*w)*(w+Tpr*Kos*Ko*w-To*Tpr*w*w*w));

Q_w = (Tg*(Kos*Ko*Ko*w-(To+Tpr)*Ko*w*w)-

Ko*(w+Tpr*Kos*Ko*Ko*w-Ko*To*Tpr*w*w*w))/

((Kos*Ko-(To+Tpr)*w*w)*(Kos*Ko-(To+Tpr)*w*w)+

(w+Tpr*Kos*Ko*w-To*Tpr*w*w*w)*(w+Tpr*Kos*Ko*w-To*Tpr*w*w*w));

if (abs(P_w)>abs(P_w1)) P_w1=P_w;

if (abs(Q_w)>abs(Q_w1)) Q_w1=Q_w;

if (P_w<P_w_min) P_w_min = P_w;

if (P_w1==0) P_w1=P_w1+0.01;

if (Q_w1==0) Q_w1=Q_w1+0.01;

};

};

float KmasX =(float)(xmax-Xc-100)/P_w1,

KmasY =(float)(ymax-Yc-100)/Q_w1;

if (KmasX<0) KmasX=-KmasX; if (KmasY<0) KmasY=-KmasY;

if (KmasX>=220) KmasX=150;

if (KmasY>=140) KmasY=100;

if (err==0) {KmasX=KmasX*4; KmasY=KmasY*4;};

w = 0;

if(((Kos*Ko-(To+Tpr)*w*w)*(Kos*Ko-(To+Tpr)*w*w)+

(w+Tpr*Kos*Ko*w-To*Tpr*w*w*w)*(w+Tpr*Kos*Ko*w-To*Tpr*w*w*w))!=0){

P_w = KmasX*(Ko*w*Tg*(w+Tpr*Kos*Ko*w-To*Tpr*w*w*w)+

(Kos*Ko*Ko-(To+Tpr)*Ko*w*w))/

((Kos*Ko-(To+Tpr)*w*w)*(Kos*Ko-(To+Tpr)*w*w)+

(w+Tpr*Kos*Ko*w-To*Tpr*w*w*w)*(w+Tpr*Kos*Ko*w-To*Tpr*w*w*w));

Q_w = KmasY*(Tg*(Kos*Ko*Ko*w-(To+Tpr)*Ko*w*w)-

Ko*(w+Tpr*Kos*Ko*Ko*w-Ko*To*Tpr*w*w*w))/

((Kos*Ko-(To+Tpr)*w*w)*(Kos*Ko-(To+Tpr)*w*w)+

(w+Tpr*Kos*Ko*w-To*Tpr*w*w*w)*(w+Tpr*Kos*Ko*w-To*Tpr*w*w*w));

moveto(Xc+P_w,Yc-Q_w); };

setcolor(Color);

setcolor(9);

line(Xc+P_w_min*KmasX,10,Xc+P_w_min*KmasX,ymax-10);

gotoxy(2,5);

printf("K2=");

printf("%f",(-1/P_w_min));

setcolor(15);

for(w=0;w<=700;w=w+0.05){

if(((Kos*Ko-(To+Tpr)*w*w)*(Kos*Ko-(To+Tpr)*w*w)+

(w+Tpr*Kos*Ko*w-To*Tpr*w*w*w)*(w+Tpr*Kos*Ko*w-To*Tpr*w*w*w))!=0){

P_w = KmasX*(Ko*w*Tg*(w+Tpr*Kos*Ko*w-To*Tpr*w*w*w)+

(Kos*Ko*Ko-(To+Tpr)*Ko*w*w))/

((Kos*Ko-(To+Tpr)*w*w)*(Kos*Ko-(To+Tpr)*w*w)+

(w+Tpr*Kos*Ko*w-To*Tpr*w*w*w)*(w+Tpr*Kos*Ko*w-To*Tpr*w*w*w));

Q_w = KmasY*(Tg*(Kos*Ko*Ko*w-(To+Tpr)*Ko*w*w)-

Ko*(w+Tpr*Kos*Ko*Ko*w-Ko*To*Tpr*w*w*w))/

((Kos*Ko-(To+Tpr)*w*w)*(Kos*Ko-(To+Tpr)*w*w)+

(w+Tpr*Kos*Ko*w-To*Tpr*w*w*w)*(w+Tpr*Kos*Ko*w-To*Tpr*w*w*w));

lineto(Xc+P_w,Yc-Q_w);

};

};

setcolor(13);

circle(Xc-KmasX,Yc,2);

circle(Xc-KmasX,Yc,1);

putpixel(Xc-KmasX,Yc,13);

outtextxy(Xc-KmasX-7,Yc-12,"-1");

setcolor(15);

if (err==1){

if (x==0) outtextxy(10,10,"Tpr = 0.01");

if (x==1) outtextxy(10,10,"Tpr = 0.09");

if (x==2) outtextxy(10,10,"Tpr = 0.2");

if (x==3) outtextxy(10,10,"Tpr = 0.5");

if (y==0) outtextxy(10,30,"Ko = 10");

if (y==1) outtextxy(10,30,"Ko = 100");

if (z==0) outtextxy(10,50,"Koc = 0.1");

if (z==1) outtextxy(10,50,"Koc = 1.0");}

else {

char ch=' ';

while(ch!=27&&ch!=13)

if (kbhit()!=0) ch=getch();};

};

void Osi(int Xc, int Yc, int kol)

{

setcolor(15);

rectangle(0,0,xmax,ymax);

line(Xc,10,Xc,ymax-10);

line(10,Yc,xmax-10,Yc);

line((int)(xmax/2)-3,15,(int)(xmax/2),10);

line((int)(xmax/2),10,(int)(xmax/2)+3,15);

line(xmax-15,(int)(ymax/2)-3,xmax-10,(int)(ymax/2));

line(xmax-15,(int)(ymax/2)+3,xmax-10,(int)(ymax/2));

settextstyle(2,0,5);

outtextxy((int)(xmax/2)+7,10,"jQ(w)");

outtextxy(xmax-35,(int)(ymax/2)+7,"P(w)");

settextstyle(2,0,4);

outtextxy((int)(xmax/2)-8,(int)(ymax/2)+1,"0");

settextstyle(0,0,0);

if (kol==5) outtextxy(5,ymax-15,"'Esc' - exit");

else outtextxy(5,ymax-15,"'Enter' - next ");

setcolor(15);

};

Приложение N 2.

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

Дополнительные материалы

Академия наук и исследования в арктике деятельность полярной комиссии в 1914-1936 гг.
В 2006 г. исполняется 70 лет с момента упразднения одной из структур Академии наук - Полярной комиссии [1], организованной в 1914 г. для координации исследований, проводившихся в Арктике силами различных ведомств. Ее создание было связано ...

Групповой полет летательных аппаратов – алгоритм обработки информации относительного движения
В настоящее время наблюдается значительное повышение интереса к беспилотным летательным аппаратам (БЛА). Это происходит на фоне успешного применения БЛА в ряде военных конфликтов: в Афганистане, Югославии, где применялись американские БЛА ...

Аппаратное обеспечение.
Структурная схема устройства показана на рис.2. Прибор выполнен на базе восьмибитового микропроцессора Z-80. Измерительная процедура всегда начинается с измерения периода. С генератора импульсов на таймер непрерывно поступают счетные импульсы. С п ...

Разделы

Электромагнитный импульс как оружие

История вопроса и современное состояние знаний в области эми.

Лабораторные стенды в учебном процессе

Обзор и сравнительный анализ существующих стендов.

Аспекты технического знания

Технический объект и предмет технических наук.

Сварка металлов плавлением

Классификация электрической дуговой сварки.

Распределение примесей в кремнии

Описание процесса зонной плавки и ее математическая модель.



Наука сегодня и вчера - www.anytechnic.ru