CUR_PR1 (675655)

Файл №675655 CUR_PR1 (Вычисление площади сложной фигуры методом имитационного моделирования)CUR_PR1 (675655)2016-07-31СтудИзба
Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла

Ïðèëîæåíèå 1. Òåêñò ïðîãðàììû.

Ôàéë sq.c

/*

Ïpîãpàììà SQ îñíîâíàÿ

*/

#include

#include

#include

#include

#include

#include "matim.c"

#include "window.c"

#include "f_integr.c"

#include "draft.c"

#include "draft_f.c"

#include "draft_e.c"

int k=20,i=15,l=270,j=140;

void main(void)

{

float b0,b1,b2,b3,c0,c1,c2,c3,x1,x2,maxb,maxc,minb,minc,min,max,S;

int N;

do{

closegraph();

get_poly(&b3,&b2,&b1,&b0,&c3,&c2,&c1,&c0,&x1,&x2,&N);

f_max(b3,b2,b1,b0,x1,x2,&minb,&maxb);

f_max(c3,c2,c1,c0,x1,x2,&minc,&maxc);

max=(maxb>maxc)?maxb:maxc;

min=(minb

S=i_num(b3,b2,b1,b0,c3,c2,c1,c0,x1,x2);

init();

draft_f(b3,b2,b1,b0,c3,c2,c1,c0,x1,x2,min,max,k,i,l,j);

draft_e(b3,b2,b1,b0,c3,c2,c1,c0,x1,x2,min,max,S,k,i+180,l+100,j+160,N);

setcolor(2);

outtextxy(0,340," Press q for exit ");

} while (( getch()) != 'q');

}

Ôàéë matim.c

/* Ïîäïpîãpàììà ñîäåpæèò ïpîöåäópû ìàòåìàòè÷åñêîé îápàáîòêè ôóíêöèé*/

#include

#include

#include

#include

#include

/* Âû÷èñëåíèå ìàêñèìàëüíîãî è ìèíèìàëüíîãî

çíà÷åíèÿ ôóíêöèè íà çàäàíîì èíòåpâàëå */

void f_max(float a3,float a2,float a1,float a0,float x1,float x2,float *amin,float *amax)

{

float dx,x,Fx,Fx1,Fmax,Fmin;

dx=(x2-x1)/500;

x=x1;

Fx1=a3*x*x*x+a2*x*x+a1*x+a0;

Fmax=Fx1;

Fmin=Fx1;

do {

x=x+dx;

Fx=a3*x*x*x+a2*x*x+a1*x+a0;

if (Fx>=Fmax)

Fmax=Fx;

if (Fx<=Fmin)

Fmin=Fx;

} while ( x

*amin=Fmin;

*amax=Fmax;

}

/*Âû÷èñëåíèå êîpíåé êóáè÷íîãî ópàâíåíèÿ */

int f_root(float a0,float a1,float a2,float a3,float x1,float x2,float e,float *k1,float *k2,float *k3)

{ float ku1,ku2,ku3,x,a,b;

int c=0;

x=x1;

do

{

a=a3*pow(x,3)+a2*pow(x,2)+a1*x+a0;

x+=e;

b=a3*pow(x,3)+a2*pow(x,2)+a1*x+a0;

if (a*b<0)

{ c++;

switch(c) {

case 1: ku1=x;

break;

case 2: ku2=x;

break;

case 3: ku3=x;

break;

default: printf("\n Âíèìàíèå !!! \n Îøèáêà â matim.c (f_root).");

break;

};

}

} while (x

*k1=ku1;

*k2=ku2;

*k3=ku3;

return c;

}

float fun(float a3,float a2,float a1,float a0,float x)

{

float s;

s=a3*x*x*x+a2*x*x+a1*x+a0;

return (s);

}

Ôàéë window.c

/* Ïîäïpîãpàììû pàáîòû ñ îêíàìè*/

#include

#include

#include

#include

#include

/*ôóíêöèÿ pèñîâàíèÿ pàìêè îêíà */

void border(int sx,int sy,int ex,int ey){

int i;

for (i=sx+1;i

gotoxy(i,sy);

putch(205);

gotoxy(i,ey);

putch(205);

}

for (i=sy+1;i

gotoxy(sx,i);

putch(186);

gotoxy(ex,i);

putch(186);

}

gotoxy(sx,sy);putch(201);

gotoxy(sx,ey);putch(200);

gotoxy(ex,sy);putch(187);

gotoxy(ex,ey);putch(188);

}

void talkerror(void)

{

textcolor(15);

textbackground(4);

gotoxy(1,18);

cprintf(" ATTATETION ! DATE ERROR . Press any key to continue... ");

sound(1700); delay(100); nosound(); delay(100);

sound(1400); delay(100); nosound();

getch();

gotoxy(1,18);

textcolor(15);

textbackground(1);

clreol();

}

void get_poly(float *bo3,float *bo2,float *bo1,float *bo0,float *co3,float *co2,float *co1,float *co0,float *xo1,float *xo2,int *No)

{

float b3,b2,b1,b0,c3,c2,c1,c0,x1,x2;

int xb1=5,yb1=4,xb2=76,yb2=22,c,k=3,k1=10,k2=50,N;

char bc0[5],bc1[5],bc2[5],bc3[5],cc0[5],cc1[5],cc2[5],cc3[5],x1c[5],x2c[5],nc[5];

textbackground(11);

clrscr();

window(xb1,yb1,xb2,yb2);

textcolor(15);

textbackground(1);

clrscr();

do {

textcolor(15);

textbackground(1);

gotoxy(k1,k); puts("b3= ");

gotoxy(k1,k+1); puts("b2= ");

gotoxy(k1,k+2); puts("b1= ");

gotoxy(k1,k+3); puts("b0= ");

gotoxy(k2,k); puts("c3= ");

gotoxy(k2,k+1); puts("c2= ");

gotoxy(k2,k+2); puts("c1= ");

gotoxy(k2,k+3); puts("c0= ");

gotoxy(k1,k+6); puts("x1=");

gotoxy(k2,k+6); puts("x2=");

gotoxy(k1,k+10); puts("QUANTITY OF ADRESSES TO RNG ");

B3: gotoxy(k1,k); puts("b3= ");

gotoxy(k1+4,k); gets(bc3); sscanf(bc3,"%f",&b3);

if (fabs(b3)>100) { talkerror(); goto B3; }

B2: gotoxy(k1,k+1); puts("b2= ");

gotoxy(k1+4,k+1); gets(bc2); sscanf(bc2,"%f",&b2);

if (fabs(b2)>100) { talkerror(); goto B2; }

B1: gotoxy(k1,k+2); puts("b1= ");

gotoxy(k1+4,k+2); gets(bc1); sscanf(bc1,"%f",&b1);

if (fabs(b1)>100) { talkerror(); goto B1; }

B0: gotoxy(k1,k+3); puts("b0= ");

gotoxy(k1+4,k+3); gets(bc0); sscanf(bc0,"%f",&b0);

if (fabs(b0)>100) { talkerror(); goto B0; }

C3: gotoxy(k2,k); puts("c3= ");

gotoxy(k2+4,k); gets(cc3); sscanf(cc3,"%f",&c3);

if (fabs(c3)>100) { talkerror(); goto C3; }

C2: gotoxy(k2,k+1); puts("c2= ");

gotoxy(k2+4,k+1); gets(cc2); sscanf(cc2,"%f",&c2);

if (fabs(c2)>100) { talkerror(); goto C2; }

C1: gotoxy(k2,k+2); puts("c1= ");

gotoxy(k2+4,k+2); gets(cc1); sscanf(cc1,"%f",&c1);

if (fabs(c1)>100) { talkerror(); goto C1; }

C0: gotoxy(k2,k+3); puts("c0= ");

gotoxy(k2+4,k+3); gets(cc0); sscanf(cc0,"%f",&c0);

if (fabs(c0)>100) { talkerror(); goto C0; }

X1: gotoxy(k1,k+6); puts("x1= ");

gotoxy(k2,k+6); puts("x2= ");

gotoxy(k1+4,k+6); gets(x1c); sscanf(x1c,"%f",&x1);

if (fabs(x1)>100) { talkerror(); goto X1; }

X2: gotoxy(k2,k+6); puts("x2= ");

gotoxy(k2+4,k+6); gets(x2c); sscanf(x2c,"%f",&x2);

if (fabs(x2)>100) { talkerror(); goto X2; }

if (x1>=x2) { talkerror(); goto X1; }

V: R: gotoxy(k1,k+10); puts("QUANTITY OF ADRESSES TO RNG ");

gotoxy(k1+30,k+10); gets(nc); sscanf(nc,"%d",&N);

if (N>32000) { talkerror(); goto R; }

if (N<1) { talkerror(); goto V; }

textbackground(2);

gotoxy(1,18);

cprintf(" FOR CONFURMATION PRESS 'Y' ");

sound(700); delay(100); nosound(); delay(100);

sound(1400); delay(100); nosound(); delay(100);

sound(700); delay(150); nosound();

gotoxy(1,18);

} while (( getch()) != 'y');

cprintf(" O.K. WAIT FOR MATIMATITION ");

sound(1000); delay(200); nosound();

*bo3=b3;

*bo2=b2;

*bo1=b1;

*bo0=b0;

*co3=c3;

*co2=c2;

*co1=c1;

*co0=c0;

*xo1=x1;

*xo2=x2;

*No=N;

}

Ôàéë f_integer.c

#include

#include

#include

/* Âû÷èñëåíèå èíòåãpàëà ÷èñëåííûì ìåòîäîì */

float i_num(float a3,float a2,float a1,float a0,float b3,float b2,float b1,float b0,float x1,float x2)

{

float xt,sx=0,f1,f2,e=0.01;

xt=x1;

while (xt

{

sx=fabs(fun(a3-b3,a2-b2,a1-b1,a0-b0,xt))*e+sx;

xt=xt+e;

};

return (sx);

}

/* Ïpîöåäópà pàñ÷èòûâàþùàÿ ïëîùàäü ñëîæíîé ôèãópû

ñ ïîìîùüþ ìåòîäà èìèòàöèîííîãî ìîäåëèpîâàíèÿ. Èç-çà ÷åãî âñå íà÷èíàëîñü...*/

float i_rand(float a3,float a2,float a1,float a0,float b3,float b2,float b1,float b0,float x1,float x2,float fmin,float fmax,int n)

{

float s,sn=0,f1,f2,min,max,x,y;

int i;

time_t t;

srand((unsigned) time (&t));

//randomize();

for(i=1;i

{

x=x1+random(x2-x1)+random(100)*0.01;

y=fmin+random(fmax-fmin)+random(100)*0.01;

f1=a3*x*x*x+a2*x*x+a1*x+a0;

f2=b3*x*x*x+b2*x*x+b1*x+b0;

max=(f1>f2)?f1:f2;

min=(f1

if (y>=min) {

if (y<=max)

sn++;

//srand((unsigned) time (&t));

}

}

s=(sn*(fmax-fmin)*(x2-x1)/n);

return s;

}

Ôàéë draft.c

/*

Ïîäïpîãpàììà DRAFT âñå ñâÿçàíîå ñ ãpàôèêîé

*/

#include

#include

#include

#include

#include

extern int k,i,l,j;

/* èíèöèàëèçàöèÿ ãpàôèêè */

void init(void)

{

int driv,mode,err;

driv=DETECT;

initgraph(&driv,&mode,"");

err=graphresult();

if (err !=grOk)

{

printf("Îøèáêà ïpè èíèöèàëèçàöèè ãpàôèêè : %s",grapherrormsg(err));

exit(1);

}

setgraphmode(EGAHI);

return;

}

/*Ââîä ïàpàìåòpîâ ôóíêöèé

F(X)= A3*X^3 + A2*X^2 + A1*X + A0 */

void get_parms(float *a3,float *a2,float *a1,float *a0)

{

printf("Ââåäèòå êîýôèöèåíòû A3 A2 A1 A0 \n");

scanf("%f %f %f %f",a3,a2,a1,a0);

}

/*Îáâîäèò íåïpåpûâíûé êîíòóp */

void f_draft(float a0,float a1,float a2,float a3,float dx,float a,float b,float x1)

{

float xt,y,x;

xt=x1-dx;

y=ceil(a*(a0+a1*x1+a2*x1*x1+a3*x1*x1*x1)+b);

moveto(k,y);

for (x=k-1;x

{

y=a*(a0+a1*xt+a2*xt*xt+a3*xt*xt*xt)+b;

lineto(x,y);

xt+=dx;

delay(0);

}

}

/*Ðèñóåò îñè êîîpäèíàò */

void osi(float x1,float x2,float b)

{

float c;

setcolor(4);

setlinestyle(0,1,1);

settextstyle(2,HORIZ_DIR,4);

setfillstyle(3,13);

line(k-5,b,l+5,b);

c=k-x1*(l-k)/(x2-x1);

line(c,i-5,c,j+5); /*îñü y */

outtextxy(l+10,b-2,"x");

outtextxy(c+3,i-12,"y");

outtextxy(c-10,b-10,"0");

outtextxy(l,b-3,">");

outtextxy(c-3,i-6,"^");

}

void strout(int f,float a3,float a2,float a1,float a0,int bx,int by)

{

char s[50];

sprintf(s,"Y%d(X)=(%2.2f)*X^3+(%2.2f)*X^2+(%2.2f)*X+(%2.2f)",f,a3,a2,a1,a0);

outtextxy(bx,by,s);

}

Ôàéë draft_f.c

/*

Ïîäïpîãpàììà DRAFT âñå ñâÿçàíîå ñ ãpàôèêîé

*/

#include

#include

#include

#include

#include

extern int k,i,l,j;

/* èíèöèàëèçàöèÿ ãpàôèêè */

void init(void)

{

int driv,mode,err;

driv=DETECT;

initgraph(&driv,&mode,"");

err=graphresult();

if (err !=grOk)

{

printf("Îøèáêà ïpè èíèöèàëèçàöèè ãpàôèêè : %s",grapherrormsg(err));

exit(1);

}

setgraphmode(EGAHI);

return;

}

/*Ââîä ïàpàìåòpîâ ôóíêöèé

F(X)= A3*X^3 + A2*X^2 + A1*X + A0 */

void get_parms(float *a3,float *a2,float *a1,float *a0)

{

printf("Ââåäèòå êîýôèöèåíòû A3 A2 A1 A0 \n");

scanf("%f %f %f %f",a3,a2,a1,a0);

}

/*Îáâîäèò íåïpåpûâíûé êîíòóp */

void f_draft(float a0,float a1,float a2,float a3,float dx,float a,float b,float x1)

{

float xt,y,x;

xt=x1-dx;

y=ceil(a*(a0+a1*x1+a2*x1*x1+a3*x1*x1*x1)+b);

moveto(k,y);

for (x=k-1;x

{

y=a*(a0+a1*xt+a2*xt*xt+a3*xt*xt*xt)+b;

lineto(x,y);

xt+=dx;

delay(0);

}

}

/*Ðèñóåò îñè êîîpäèíàò */

void osi(float x1,float x2,float b)

{

float c;

setcolor(4);

setlinestyle(0,1,1);

settextstyle(2,HORIZ_DIR,4);

setfillstyle(3,13);

line(k-5,b,l+5,b);

c=k-x1*(l-k)/(x2-x1);

line(c,i-5,c,j+5); /*îñü y */

outtextxy(l+10,b-2,"x");

outtextxy(c+3,i-12,"y");

outtextxy(c-10,b-10,"0");

outtextxy(l,b-3,">");

outtextxy(c-3,i-6,"^");

}

void strout(int f,float a3,float a2,float a1,float a0,int bx,int by)

{

char s[50];

sprintf(s,"Y%d(X)=(%2.2f)*X^3+(%2.2f)*X^2+(%2.2f)*X+(%2.2f)",f,a3,a2,a1,a0);

outtextxy(bx,by,s);

}

Ôàéë draft_e.c

/*

Ïîäïpîãpàììà DRAFT_N ãpàôèê ïîãpåøíîñòè âû÷èñëåíèÿ èíòåãpàëà pàçëè÷íûìè

ìåòîäàìè

*/

#include

#include

#include

#include

#include

/*Ôóíêöèÿ pèñóåò ãpàôèê ïîëùàäè ñëîæíîé ôèãópû â çàâèñèìîñòè îò

êîëè÷åñòâà èñïûòàíèé*/

void draft_e(float b3,float b2,float b1,float b0,float c3,float c2,float c1,float c0,float x1,float x2,float min,float max,float Sn,int k,int i,int l,int j,int n)

{

float dx,x,y,Sr,a,xl,yl,Ss;

int v,nt;

char s[10];

setcolor(4);

setlinestyle(0,1,1);

settextstyle(2,HORIZ_DIR,4);

line(k-5,j,l+5,j);

line(k,i-5,k,j+5); /*îñü y */

outtextxy(l+10,j-2,"N");

outtextxy(k-8,i,"S");

outtextxy(k-10,j-10,"0");

outtextxy(l,j-3,">");

outtextxy(k-3,i-6,"^");

setbkcolor(15);

setcolor(2);

line(l+50,i+110,l+100,i+110);

outtextxy(l+103,i+107,"Sr-random");

setcolor(1);

line(l+50,i+120,l+100,i+120);

outtextxy(l+103,i+117,"Sn-numeric");

dx=n/10;

a=(i-j)/(2*Sn);

y=a*Sn+j;

line(k+5,y,l-5,y);

settextstyle(2,HORIZ_DIR,4);

setcolor(5);

sprintf(s,"S=%3.2f",Sn);

outtextxy(l+120,i-40,s);

outtextxy(l+50,i-20,"N");

outtextxy(l+120,i-20,"Sr");

outtextxy(l+220,i-20,"Sn-Sr");

xl=k;

yl=j;

for(v=1;v<11;v++){

nt=ceil(v*dx);

Sr=i_rand(b3,b2,b1,b0,c3,c2,c1,c0,x1,x2,min,max,nt);

x=k+v*(l-k)/10;

y=a*Sr+j;

setcolor(2);

line(xl,yl,x,y);

xl=x;

yl=y;

setcolor(4);

settextstyle(2,VERT_DIR,4);

sprintf(s,"%d",nt);

outtextxy(x,j+3,s);

setcolor(8);

settextstyle(2,HORIZ_DIR,4);

outtextxy(l+40,i+(v-1)*10,s);

sprintf(s,"%3.2f",Sr);

outtextxy(l+110,i+(v-1)*10,s);

Ss=100-(Sr*100/Sn);

sprintf(s,"%2.1f%",Ss);

outtextxy(l+205,i+(v-1)*10,s);

}

}

12

Характеристики

Тип файла
Документ
Размер
17,92 Kb
Тип материала
Предмет
Учебное заведение
Неизвестно

Тип файла документ

Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.

Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.

Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.

Список файлов реферата

Свежие статьи
Популярно сейчас
Как Вы думаете, сколько людей до Вас делали точно такое же задание? 99% студентов выполняют точно такие же задания, как и их предшественники год назад. Найдите нужный учебный материал на СтудИзбе!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Да! На равне с готовыми студенческими работами у нас продаются услуги. Цены на услуги видны сразу, то есть Вам нужно только указать параметры и сразу можно оплачивать.
Отзывы студентов
Ставлю 10/10
Все нравится, очень удобный сайт, помогает в учебе. Кроме этого, можно заработать самому, выставляя готовые учебные материалы на продажу здесь. Рейтинги и отзывы на преподавателей очень помогают сориентироваться в начале нового семестра. Спасибо за такую функцию. Ставлю максимальную оценку.
Лучшая платформа для успешной сдачи сессии
Познакомился со СтудИзбой благодаря своему другу, очень нравится интерфейс, количество доступных файлов, цена, в общем, все прекрасно. Даже сам продаю какие-то свои работы.
Студизба ван лав ❤
Очень офигенный сайт для студентов. Много полезных учебных материалов. Пользуюсь студизбой с октября 2021 года. Серьёзных нареканий нет. Хотелось бы, что бы ввели подписочную модель и сделали материалы дешевле 300 рублей в рамках подписки бесплатными.
Отличный сайт
Лично меня всё устраивает - и покупка, и продажа; и цены, и возможность предпросмотра куска файла, и обилие бесплатных файлов (в подборках по авторам, читай, ВУЗам и факультетам). Есть определённые баги, но всё решаемо, да и администраторы реагируют в течение суток.
Маленький отзыв о большом помощнике!
Студизба спасает в те моменты, когда сроки горят, а работ накопилось достаточно. Довольно удобный сайт с простой навигацией и огромным количеством материалов.
Студ. Изба как крупнейший сборник работ для студентов
Тут дофига бывает всего полезного. Печально, что бывают предметы по которым даже одного бесплатного решения нет, но это скорее вопрос к студентам. В остальном всё здорово.
Спасательный островок
Если уже не успеваешь разобраться или застрял на каком-то задание поможет тебе быстро и недорого решить твою проблему.
Всё и так отлично
Всё очень удобно. Особенно круто, что есть система бонусов и можно выводить остатки денег. Очень много качественных бесплатных файлов.
Отзыв о системе "Студизба"
Отличная платформа для распространения работ, востребованных студентами. Хорошо налаженная и качественная работа сайта, огромная база заданий и аудитория.
Отличный помощник
Отличный сайт с кучей полезных файлов, позволяющий найти много методичек / учебников / отзывов о вузах и преподователях.
Отлично помогает студентам в любой момент для решения трудных и незамедлительных задач
Хотелось бы больше конкретной информации о преподавателях. А так в принципе хороший сайт, всегда им пользуюсь и ни разу не было желания прекратить. Хороший сайт для помощи студентам, удобный и приятный интерфейс. Из недостатков можно выделить только отсутствия небольшого количества файлов.
Спасибо за шикарный сайт
Великолепный сайт на котором студент за не большие деньги может найти помощь с дз, проектами курсовыми, лабораторными, а также узнать отзывы на преподавателей и бесплатно скачать пособия.
Популярные преподаватели
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
7029
Авторов
на СтудИзбе
260
Средний доход
с одного платного файла
Обучение Подробнее