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

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

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

Оптика Гамильтона — Якоби
Когда в 1830 г. ирландец Уильям Роуан Гамильтон (1805—1865) начал заниматься оптикой, волновая теория света еще не была общепринятой. Пуассон был еще последователем корпускулярной теории. Био, самый консервативный из великих физиков XIX ве ...

Конструирование машин
Из истории технической эволюции мы знаем, что освоение некоторых субстанций приводило к скачкам в развитии техники, т. е. к техническим революциям. Действительно, всякий раз, когда техника овладевала веществом, энергией или информацией на ...

НЛО и формы сознания
НЛО несомненно представляют собой проблему для человечества, проблему сложную, как в плане ее познания, так и в чисто практическом плане. В обычной форме сознания (бодрствование, физическое сознание) мы осознаем мир с определенными дово ...

Разделы

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

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

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

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

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

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

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

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

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

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



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