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

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

07.07.2012, 17:15. Просмотров 2069. Ответов 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)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.07.2012, 17:15
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Построить график функции «Бабочка»: X=sin(At+B)cos(Ct), Y=sin(At+B)sin(Dt) (Turbo Pascal):

Для заданного числа 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...

Для заданных 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...

Циклом «пока» вычислить сумму ряда 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))
Здравствуйте. Помогите пожалуйста в написании программы построения графика. ...

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

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

1
Puporev
Модератор
54125 / 41758 / 28870
Регистрация: 18.05.2008
Сообщений: 98,280
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/translate...transcendental)

Добавлено через 58 секунд
http://translate.google.ru/translate...try/butterfly/
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.07.2012, 18:26
Привет! Вот еще темы с решениями:

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

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

Построить график функции sin (x) на промежутке [-5; 5]
1.Построить график функции sin (x) на промежутке . 2.Построить график функции...

Цикл: Вычислить y= sin x+ sin х^2 + ... + sin x ^ n
Дано натуральное число n и вещественное число х. Вычислить y= sin x+sin х в...


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

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

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