Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Графика, звук, видео
Войти
Регистрация
Восстановить пароль
 
EdemDevil
0 / 0 / 0
Регистрация: 01.04.2018
Сообщений: 14
1

Комулл-Ром

07.06.2018, 10:05. Просмотров 64. Ответов 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
procedure TForm2.Button10Click(Sender: TObject);
  const
    seth=0.01;
  var
    P : array [0..360] of Double;
    i, j : Integer;
    p0, p1, p2, p3, a, b, c, d, t : double;
  begin
     p0:=y[0]; //крайняя левая точка
     p3:=y[1];
     for i :=2 to 360 do
       begin
         if y[i]>p3 then
           begin
             p3:=y[i]; //крайняя правая точка
             p1:=p3*(1/3); //центральная левая точка
             p2:=p3*(2/3); //центральная правая точка
           end;
       end;
       a:=1.5*(p1-p2)+0.5*(p3-p0);
       b:=-(2.5*p1+2*p2)-(0.5*p3+p0);
       c:=(p2-p0)/2;
       d:=p1;
       for i := 0 to 359 do
         begin
           t:=0;
           for j := 0 to 100 do
             begin
               t:=t+seth;
               P[j]:=((a*t+b)*t+c)*t+d;
             end;
             Form4.cht1.SeriesList[4].AddXY(i, P[i]);
         end;
  end;
Пытаюсь организовать сплайн Котмулл-Рома, выдаёт ошибку недееспособного числа с плавающей точкой на строке t:=t+seth;
Что я делаю не правильно? Потому что, однозначно, моя логика в чём-то не правильная.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.06.2018, 10:05
Ответы с готовыми решениями:

Не отображается сд ром
Вопрос вот в чём. Сд/Двд Ром не отоброжаеться в компьютере, и не...

Не видит ДВД-РОМ
все перепробовал ни в какую не могу сделать так чтобы комп видел дисковод. сам...

Не работает ДВД-ром
Здравствуйте, у меня такая проблема- во время переустановки виндовса ДВД-ром...

DVD-ром не читает болванки
помогите решить (если возможно) проблему всё читает но не болванки просто...

двд-ром выборочно не читает диски
Форумчане, помогите пожалуйста с проблеммкой... Суть её такова: двд-ром...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.06.2018, 10:05

Есть ли переходники на внутренний сд ром на юсб
заменил внутренний сд ром ноута на ссд, остался сд-ром- можно его как-то...

Не видит жесткий диск и двд-ром
есть компьютер на матери msi 760gm-p33. по началу пропал жесткий диск, ладно...

как в Вин 7 через биос зайти в ДВД ром?
Ноутбук Асер, как через биос зайти в DVD ром чтобы переустановить Винду???


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

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

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