Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/16: Рейтинг темы: голосов - 16, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 07.07.2012
Сообщений: 16
1

Построить график функции «Бабочка»: X=sin(At+B)cos(Ct), Y=sin(At+B)sin(Dt)

07.07.2012, 17:15. Показов 3027. Ответов 1
Метки нет (Все метки)

Написать программу построения графика функции. Вывод графика осуществлять в созданном на экране окне, в другом окне выполнить вывод уравнения функции с конкретными значениями параметров. Выполнить смену 3-х экранов с различными значениями параметров:
«Бабочка»: X=sin(At+B)cos(Ct), Y=sin(At+B)sin(Dt), A>0, B>0, C>0, D>0, 0<=t<=2π.
0
Лучшие ответы (1)
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.07.2012, 17:15
Ответы с готовыми решениями:

Для заданного числа x распечатать числовую последовательность: sin(x), sin(sin(x), sin(sin(sin(x), …
var x,z:integer; y:real; begin readln(x); y:=abs(sin(x)); while y&gt;0.01 do begin ...

Для заданных n и x посчитать выражение s=sin x+sin sin x+...+sin sin sin...sin x
Для заданных n и x посчитать выражение s=sin x+sin sin x+...+sin sin sin...sin x (n раз).

Циклом «пока» вычислить сумму ряда 1/sin 1+1/sin 1+sin 2+...+1/sin 1+...sin n
1/sin 1+1/sin 1+sin 2+...+1/sin 1+...sin n

График функции (x+sin(x))/(1+cos(x))
Здравствуйте. Помогите пожалуйста в написании программы построения графика. функция...

1
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,133
07.07.2012, 18:26 2
Лучший ответ Сообщение было отмечено fea как решение

Решение

Коэффициенты сами подбирайте, я не знаю эту кривую.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
uses graph;
procedure butterfli(x,y:integer;a,b,c,d,m:real);
var t:real;
    x1,y1:integer;
    s,s1:string;
begin
cleardevice;
setcolor(11);
setfillstyle(1,11);
bar(x-200,y-150,x+200,y+150);
setcolor(10);
setfillstyle(1,10);
bar(x-120,10,x+120,80);
t:=0;
while t<=2*pi do
 begin
  x1:=x+round(m*sin(a*t+b)*cos(c*t));
  y1:=y-round(m*sin(a*t+b)*sin(d*t));
  putpixel(x1,y1,12);
  t:=t+0.001;
 end;
setcolor(12);
outtextXY(x-80,20,'x=sin(At+B)cos(Ct)');
outtextXY(x-80,40,'y=sin(At+B)sin(Dt)');
str(a:0:1,s);
str(b:0:1,s1);
s:='A='+s+'  B='+s1;
str(c:0:1,s1);
s:=s+'  C='+s1;
str(d:0:1,s1);
s:=s+'  D='+s1;
outtextXY(x-110,60,s);
setcolor(12);
outtextXY(x-50,y+180,'Press Enter');
readln;
end;
var xc,yc:integer;
    a,b,c,d,m:real;
begin
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2+50;
m:=150;
a:=2.5;b:=1.5;
c:=2;d:=2;
butterfli(xc,yc,a,b,c,d,150);
a:=3;b:=2;
c:=1;d:=1;
butterfli(xc,yc,a,b,c,d,150);
a:=2;b:=2;
c:=1;d:=1;
butterfli(xc,yc,a,b,c,d,150);
end.
Добавлено через 10 минут
Ппосто в Гугле только другая бабочка
http://translate.google.ru/tra... scendental)

Добавлено через 58 секунд
http://translate.google.ru/tra... butterfly/
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.07.2012, 18:26

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Начертить график функции exp(x)/(sin(x)*cos(x)
Возникают проблемы с масштабными коэффициентами и ограничением графика под размеры экрана из-за...

Подсчитать функцию y=sin(sin(...sin(x)))))) для заданого х (рекурсия)
посчитать функцыю y=sin(sin(...sin(x)))))) для заданого х, в котором имя &quot;sin&quot; повторяется n раз

Построить график функции y=sin(x)
Построить график функции y=sin(x)

Построить график функции sin(10/x)
Всем привет) Помогите, пожалуйста! Нужно написать прогу, которая будет чертить данный график...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.