Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
DEA7H
.NET ONLY
66 / 66 / 7
Регистрация: 05.10.2011
Сообщений: 495
#1

Построение параболы по нканоническому равнению - Delphi

24.05.2012, 17:59. Просмотров 1035. Ответов 3
Метки нет (Все метки)

Здравствуйте!
Есть задача, написать программу которая будет строить параболу по каноническому уравнению:
y^2=2*p*x;
Подскажите как такое реализовать!

Заранее благодарен!

Добавлено через 1 минуту
p - расстояние от фокуса к директрисе!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.05.2012, 17:59
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Построение параболы по нканоническому равнению (Delphi):

Построение графика параболы
нужно построить график параболы y=x2; помогите нарисовать вторую часть, когда...

Построение параболы
Мне нужно за пару недель построить программу которая рисует параболы гиперболы...

Построение параболы
Здравствуйте. Необходимо построить параболу, удовлетворяющую уравнению:...

Построение параболы.
Добрый вечер. Скажи пожалуйста надо построить график функции y=x2, т.е....

построение параболы
Постройте параболу, ось которой совпадает с биссектрисой координатных...

Построение параболы
Помогите, пожалуйста разобраться. m-файл function = Parab( )...

3
Arcor
4816 / 1817 / 380
Регистрация: 20.11.2009
Сообщений: 5,792
Записей в блоге: 1
24.05.2012, 18:35 #2
таким должен быть результат? как на картинке?

Delphi
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
procedure TForm1.FormPaint(Sender: TObject);
var x0, y0: Integer;
    x, y: Real;
    p: Real;
begin
  x0 := ClientWidth div 2;
  y0 := ClientHeight  div 2;
  Canvas.MoveTo(x0, 0);
  Canvas.LineTo(x0, ClientHeight);
  Canvas.MoveTo(0, y0);
  Canvas.LineTo(ClientWidth, y0);
 
  x := 0;
  p := 30;
  while x <= 200 do
    begin
      y := Sqrt(2*p*x);
      Canvas.Pixels[x0 + Round(x), y0 - Round(y)] := clGreen;
      x := x + 0.1;
    end;
  x := 200;
  while x >= 0 do
    begin
      y := Sqrt(2*p*x);
      Canvas.Pixels[x0 + Round(x), y0 + Round(y)] := clGreen;
      x := x - 0.1;
    end;
end;
 
procedure TForm1.FormResize(Sender: TObject);
begin
  Repaint;
end;
1
Миниатюры
Построение параболы по нканоническому равнению  
DEA7H
.NET ONLY
66 / 66 / 7
Регистрация: 05.10.2011
Сообщений: 495
24.05.2012, 18:50  [ТС] #3
да! спасибо то что нужно!
0
DEA7H
.NET ONLY
66 / 66 / 7
Регистрация: 05.10.2011
Сообщений: 495
30.05.2012, 15:26  [ТС] #4
В данном случае при увеличении "P" ветки раздвигаются, а нужно наоборот, чем меньше P тем больше ветки раздвигаются! Как изменить?

Добавлено через 16 минут
Все! Спасибо! Разобрался!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.05.2012, 15:26
Привет! Вот еще темы с решениями:

Построение параболы в PictureBox с trackBar
namespace Парабола { public partial class Form1 : Form { ...

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

Построение параболы, огибающей прямые линии!
Как построить параболу в виде кривой, касательной прямой с заданными на них...

Для каждой параболы вывести уравнение, найти эктремумы; выяснить совпадают или пересекаются эти параболы
Вот само задание: http://i.imgur.com/ZOUVXmQ.jpg П.5.18.Правил Запрещено...


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

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

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