Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.06.2011, 13:17   #1
Kat.
Пользователь
 
Регистрация: 29.06.2011
Сообщений: 12
По умолчанию построение графиков в Делфи

Ребят, у меня такая вот заморочка...TChart у меня в Делфи почему-то не отображается, переустанавливала его и всё равно нет... Делаю график в paintbox.
Задание такое: надо площади рассчитать фигуры, ограниченной линиями x^2+y^2<=2ax и 4x^2-3y^2=a^2, и графики эти вывести на экран..
Пользователь вводит сам значение "а"...это я сделала, а так же построила числовые оси...
Наверно, построение графика будет легче, если задать их так: (х-а)^2+y^2<=a^2 и y=sqrt( (4*x^2-f^2)/3 )...
может кто-то знает как в этом случае записать процедуру для их построения и как перенести точку (0;0) из верхнего левого угла пейнтбокса на пересечение осей 0x и 0y
Kat. вне форума Ответить с цитированием
Старый 30.06.2011, 13:21   #2
Kat.
Пользователь
 
Регистрация: 29.06.2011
Сообщений: 12
По умолчанию

в поле Эдит 2 и Эдит 3 вводятся перделы числовой оси-в Эдит слева(например -10) а в Эдит3-справа(например 10) Тракбар позволяет увеличиватьили уменьшать изображение(масштаб).
Оси задала таким образом:
Код HTML:
[PHP][CODE]begin
 x0:=Round(Paintbox1.Width/2);
y0:=Round(Paintbox1.Height/2);
h:=TrackBar1.Position;
n:=StrToInt(Edit1.Text);
  lp:=StrToInt(Edit2.Text);
pp:=StrToInt(Edit3.Text);
begin
  with Paintbox1.Canvas do
  begin
          Brush.Color:=clWhite ; FillRect(ClientRect);
        Pen.Color:=clBlack;

    MoveTo(0,y0);
      LineTo(Paintbox1.Width,y0);
      MoveTo(x0,Paintbox1.Height);
      LineTo(x0,0);

      for i:=lp to pp do
      begin
      TextOut(x0 + i*h,y0,IntToStr(i));
      TextOut(x0,y0-i*h,IntToStr(i));
      end;   [/CODE][/PHP]
Kat. вне форума Ответить с цитированием
Старый 30.06.2011, 14:48   #3
Kat.
Пользователь
 
Регистрация: 29.06.2011
Сообщений: 12
По умолчанию

Цитата:
Сообщение от Kat. Посмотреть сообщение
Наверно, построение графика будет легче, если задать их так: (х-а)^2+y^2<=a^2 и y=sqrt( (4*x^2-а^2)/3 )
описалась f на a заменила
Kat. вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
построение графиков. Си Моркковь!) Помощь студентам 2 09.06.2011 12:24
Построение графиков ac1d_buRn Помощь студентам 6 20.12.2010 05:17
Построение графиков <3myworld Microsoft Office Excel 2 18.03.2010 07:48
Построение графиков на C# TheGuardian123 Общие вопросы .NET 2 29.01.2008 14:50
построение графиков 4eCHoK PHP 1 20.09.2007 04:35