Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Fakeoke
314 / 314 / 201
Регистрация: 28.07.2011
Сообщений: 1,849
1

Нарисовать точку ближайшую к X

05.03.2015, 21:44. Просмотров 334. Ответов 2
Метки нет (Все метки)

вот код
решаю нелинейное уравнение
нужно нарисовать точку пересечения графика с нулем

Series1 рисует график
Series2 должна точки ставить...
не ставит.. очевидно потому что значение получается не точно 0... как быть?
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
unit Unit31;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, TeEngine, Series, TeeProcs, Chart;
 
type
  TForm31 = class(TForm)
    Chart1: TChart;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    Button1: TButton;
    Label1: TLabel;
    Series1: TLineSeries;
    Series2: TLineSeries;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form31: TForm31;
 
implementation
 
{$R *.dfm}
const a=0; b=1; e=0.01;
 
function F(x:real):real;
 begin
  F:=x*x*x - x*x - 4*x + 1;
end;
 
 
procedure TForm31.Button1Click(Sender: TObject);
var x,h:real;
begin
Series1.Clear;
Series2.Clear;
x:=a;
h:=0.001;
while (x<=b) do
 begin
  Series1.AddXY(x,F(x));
  if F(x)=0 then  Series2.AddXY(x,F(x));
  x:=x+h;
 end;
end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.03.2015, 21:44
Ответы с готовыми решениями:

Определить ближайшую к началу координат точку плоскости из трех заданных
млин..кто может хелп ми!!! дали задачу...-определить ближайшую к началу...

Использование графики. Нарисовать точку.
Господа, только не смейтесь. Не найду как нарисовать точку. С линиями,...

Найти точку пересечения высот и точку пересечения биссектрис треугольника
Привет всем!!! Помогите срочно пожалуйста! Не знаю как решить задачу на делфи :...

Ругается на точку
На какую точку он ругается?

Заменить точку многоточием
Напечатайте заданную последовательность символов, заменяя каждую точку...

2
northener
пофигист широкого профиля
3427 / 2326 / 631
Регистрация: 15.07.2013
Сообщений: 13,779
06.03.2015, 02:33 2
Цитата Сообщение от Fakeoke Посмотреть сообщение
Series2 должна точки ставить...
не ставит.. очевидно потому что значение получается не точно 0...как быть?
Сначала построить серию1, затем пройтись по её точкам, найти пары ближайших к пересечению ноля точек (ближайшую + и ближайшую -) и с помощью линейной интерполяции вычислить точку пересечения и добавть её в серию2.
0
Puporev
Модератор
55067 / 42331 / 29233
Регистрация: 18.05.2008
Сообщений: 100,028
06.03.2015, 07:34 3
Delphi
1
if F(x)*F(x+h)<0 then  Series2.AddXY(x,F(x));
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.03.2015, 07:34

Найти точку, ближайшую к заданной
Подскажите как с мат точки зрения решить задачу, вроде в математике не совсем 0...

Выбрать самую ближайшую точку
Есть задачка, но попробую абстрагироваться от неё: есть 5 точек (x1 &gt; x2&gt;...

Найти ближайшую к началу координат точку
#include&lt;stdio.h&gt; int main(void) { char A,B; int x1,y1,x2,y2; ...


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

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

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