Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364150
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62792)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21320)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21697)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8694)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3463)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20645)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

Реферат: Расчет площади сложной фигуры с помощью метода имитационного моделирования

Название: Расчет площади сложной фигуры с помощью метода имитационного моделирования
Раздел: Рефераты по математике
Тип: реферат Добавлен 01:01:09 23 марта 2008 Похожие работы
Просмотров: 179 Комментариев: 3 Оценило: 0 человек Средний балл: 0 Оценка: неизвестно     Скачать

Расчет площади сложной фигуры с помощью метода имитационного моделирования

Задание: Разработать программу, позволяющую с помощью метода имитационного моделирования рассчитать площадь сложной фигуры, ограниченной сверху кривой U=Y1(x) , снизу V=Y2(x).

1. Для решения данной задачи применим следующий метод.

Ограничим заданную фигуру прямоугольником, стороны которого проходят:

через точки максимального и минимального значения функций и параллельны осям абсцисс;

через левую и правую граничные точки области определения аргумента и параллельны осям ординат.

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

2. Технические характеристики объекта исследования:

2.1. Диапазон значений параметров задачи.

Множество кривых ограничим полиномами третьего порядка, в виду того что полиномы более высокого порядка сильно увеличивают время вычисления. Причем для наглядности решения вполне достаточно порядка "3".

Коэффициенты полинома ограничим диапазоном [-100,100] .

Область определения ограничим диапазоном [-100,100].

Эти ограничения введены для более наглядного решения задачи, и изменить их не с технической точки зрения не сложно.

3. Решение задачи.

Данная задача решена в среде Turbo C. Для решения потребовалось общую задачу разбить на несколько небольших задач (процедур).

А именно отдельно( в виде процедур) были решены задачи

Файл WINDOW.C

-ввод параметров;

процедура get_poly

-сообщение об ошибке при вводе;

процедура talkerror

-рисование рамки окна;

процедура border

Файл MATIM.C

-вычисление минимального и

максимального значении функций ;

процедура f_max

-вычисление значения полинома в

заданной точке;

процедура fun

-вычисление корней кубичного

уравнения;

процедура f_root

Файл F_INTEGER.C

-вычисление интеграла численным

методом;

процедура i_num

-вычисление интеграла с помощью

имитационного моделирования;

процедура i_rand

Файл DRAFT.C

-инициализация графического режима

процедура init

-обводка непрерывного контура

процедура f_draft

- вырисовка осей координат

процедура osi

Файл DRAFT_F.C

-вырисовки графиков функций и

штриховка заданной площади

процедура draft_f

Файл DRAFT_N.C

-вырисовка графиков вычисления

площади разными методами и вывод

таблицы результатов вычисления

процедура draft_n

Схема алгоритма имеет вид:

4. Описание процедур используемый в программе.

4.1 Файл WINDOW.C.

4.1.1 Процедура ввода параметров.

void get_poly( float *b3,float *b2,float *b1,float *b0, //-коэффициенты полинома Y1

fliat *c3,float *c2,float *c1,float *c0, //-коэффициенты полинома Y2

float *x1,float *x2, // область определения [x1,x2]

int *N ) // количество обращений к генератору //случайных чисел

4.1.2 Процедура рисования рамки окна.

void border(int sx, int sy, int en, int ey) // рисует рамку с координатами левого верхнего // угла (sx,sy) и координатами правого нижнего // угла (ex,ey)

4.1.3 Процедура сообщения об ошибке при вводе.

void talkerror(void) -

Процедура подает звуковой сигнал и выводит на экран сообщение об ошибке при вводе.

4.2. Файл MATIM.C

4.2.1 Процедура вычисления максимального и минимального значений функций на заданном интервале.

void f_max(float b3,float b2,float b1,float b0, //-коэффициенты полинома Y1

fliat c3,float c2,float c1,float c0, //-коэффициенты полинома Y2

float x1,float x2, // область определения [x1,x2]

float *amin, float *amax) // минимальное и максимальное значения // функций

4.2.2 Процедура вычисления значения полинома в данной точке.

float fun(float b3,float b2,float b1,float b0, //-коэффициенты полинома

float x)

Возвращает значение полинома в точке х.

4.2.3 Процедура вычисления корней кубичного уравнения .

int f_root(float b3,float b2,float b1,float b0, //-коэффициенты полинома Y1

fliat c3,float c2,float c1,float c0, //-коэффициенты полинома Y2

float x1,float x2, // область определения [x1,x2]

float e, // точность вычисления корней

float *k1,float *k2,float *k3) // значения корней // функций

Возвращает количество действительных корней на данном интервале.

4.3. Файл F_INTEGER.C

4.3.1 Процедура вычисления площади сложной фигуры численным методом.

float f_num(float b3,float b2,float b1,float b0, //-коэфициенты полинома Y1

fliat c3,float c2,float c1,float c0, //-коэфициенты полинома Y2

float x1,float x2) // область определения [x1,x2]

Вычисляет площадь сложной фигуры.

4.3.2 Процедура вычисления площади сложной фигуры c помощью метода имитационного моделрования

float f_(float b3,float b2,float b1,float b0, //-коэфициенты полинома Y1

fliat c3,float c2,float c1,float c0, //-коэфициенты полинома Y2

float x1,float x2, // область определения [x1,x2]

float fmin,float fmax, // минимальное и максимальное значения //функций на данном интервале

int n) // количество обращений к генератору // случайный чисел

Вычисляет площадь сложной фигуры с помощью метода имитационного моделирования.

4.4 Файл DRAFT.C

4.4.1 Процедура инициализации графического режима.

void init (void)

4.4.2 Процедура обводки непрерывного контура.

void f_draft (float b0,float b1,float b2,float b3, //-коэфициенты полинома

float x1,float x2) // область определения [x1,x2]

4.4.3 Процедура вырисовки осей координат.

void osi ( float x1, float x2, // область определения функций

float b) // маштабный коэфициент расчитывается по формуле

// b= j - Fmin*(i-j) / (Fmax - Fmin)

// где i,j - задают положение графика на экране

// Fmin,Fmax - минимальное и максимальное значения //функций на данном интервале

4.5 Файл DRAFT_F.

4.5.1 Процедура вырисовки графиков функций.

void draft_f (float b3,float b2,float b1,float b0, //-коэфициенты полинома Y1

fliat c3,float c2,float c1,float c0, //-коэфициенты полинома Y2

float x1,float x2, // область определения [x1,x2]

float fmin,float fmax, // минимальное и максимальное значения //функций на данном интервале

int k, int i, int l, int j) // координаты, задающие положение //графика на экране

4.6 Файл DRAFT_N.

4.6.1 Процедура вырисовки графиков значений полщадей расчитанных числвым методом и методом имитационного моделирования в зависимости от количества обращений к генератору случайных чисел.

void draft_e (float b3,float b2,float b1,float b0, //-коэфициенты полинома Y1

fliat c3,float c2,float c1,float c0, //-коэфициенты полинома Y2

float x1,float x2, // область определения [x1,x2]

float fmin,float fmax, // минимальное и максимальное значения //функций на данном интервале

float Sn, // площадь рассчитанная числовым методом

int k, int i, int l, int j) // координаты, задающие положение //графика на экране

4.7 Файл SQ.C

Все файлы объединены в главной программе SQ.C, которая является основной и координирует работу процедур.

5 Использование программы.

Для использования данной программы необходима операционная среда MS DOS,

файл egavega.bgi, и собственно сама скомпилированная программа sq.exe.

6 Исходный текст программы дан в приложении №1.

7 Тесовый пример показан в приложении №2.

8 Список использованной литературы.

1. Язык программирования Си для персонального компьютера. С.О. Бочков, Д.М. Субботин.

2. С++ . Описание языка программирования. Бьярн Страустрап.

3. TURBO C. User's Guide. Borland International, Inc. 1988.

.4. TURBO C. Reference Guide. Borland International, Inc. 1988.

9 Заключение.

9.1 Сопоставление результатов работы с тербованием задания.

Сопоставляя результаты работы с требованием задания, можно сказать что задача решена в полной мере, за исключением, быть может общности относительно возможности расчета для многие классов функций. Но решение более общей задачи ( т.е. возможность расчета для многих классов функций ) представляется значительно более громоздким, и вообще является отдельной задачей. Поэтому автор не счел нужным разрабатывать алгоритм ввода многих функций и заострил внимание собственно на самой задаче - расчете площади сложной фигуры с помощью метода имитационного моделирования и сравнение этого метода с числовыми методами.

9.2 Рекомендации по улучшению программы.

При разработке программы автор упустил возможность работы с числовыми массивами. Поэтому, можно улучшить программу переписав ряд процедур под массивы , что сделает программу менее массивной и более наглядной. Широкое

возможности по улучшению программы в области разработки алгоритмов ввода различный классов функций.

Приложение 1. Текст программы.

Файл sq.c

/*

Пpогpамма SQ основная

*/

#include <stdio.h>

#include <graphics.h>

#include <conio.h>

#include <math.h>

#include <stdlib.h>

#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<minc)?minb:minc;

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 <stdio.h>

#include <conio.h>

#include <math.h>

#include <stdlib.h>

#include <dos.h>

/* Вычисление максимального и минимального

значения функции на заданом инте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<x2 );

*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<x2);

*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 <stdio.h>

#include <conio.h>

#include <math.h>

#include <stdlib.h>

#include <dos.h>

/*функция pисования pамки окна */

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

int i;

for (i=sx+1;i<ex;i++){ //гоpизонтальные линии

gotoxy(i,sy);

putch(205);

gotoxy(i,ey);

putch(205);

}

for (i=sy+1;i<ey;i++){ //веpтикальные линии

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 <stdio.h>

#include <math.h>

#include <time.h>

/* Вычисление интег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<x2)

{

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<n;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<f2)?f1:f2;

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 <stdio.h>

#include <graphics.h>

#include <conio.h>

#include <math.h>

#include <stdlib.h>

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<l+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 <stdio.h>

#include <graphics.h>

#include <conio.h>

#include <math.h>

#include <stdlib.h>

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<l+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 <stdio.h>

#include <graphics.h>

#include <conio.h>

#include <math.h>

#include <stdlib.h>

/*Функция 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);

}

}

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Где скачать еще рефератов? Здесь: letsdoit777.blogspot.com
Евгений06:43:54 19 марта 2016
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
16:07:47 24 ноября 2015
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
15:40:00 24 ноября 2015

Работы, похожие на Реферат: Расчет площади сложной фигуры с помощью метода имитационного моделирования

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

Да, в любом случае.
Да, но только в случае крайней необходимости.
Возможно, в зависимости от цены.
Нет, напишу его сам.
Нет, забью.



Результаты(151197)
Комментарии (1843)
Copyright © 2005-2016 BestReferat.ru bestreferat@mail.ru       реклама на сайте

Рейтинг@Mail.ru