прямая с угловым коэффициентом Delphi

[ТипичныйСтудент]

Добрый день! Задача элементарная, но ни как не получается!
Прошу помощи!
Нужно вывести в TChart 2 прямых: одна лежит на оси ох - код работает, другая находится к ней под углом вводимым с клавиатуры.
Угловая не рисуется как надо(((((
Подскажите, что я не так делаю?

  x := -(10);
  while x <= 10  do
  begin
    k := -Tan(45);   //угловой коэффициент
    y := k*х;
    Series10.AddXY(x,y,'',clBlue);
    x :=x+1;
  end;

пробовала и тангенс и минус тангенс - результата нет

[Аватар]

y := k*X;

И все равно на экране 45 градусов не получишь - по осям разные длины шага сетки

[p51x]

Да еще и угол в радианах надо задавать...

[ТипичныйСтудент]

Всем спасибо, все работает, действительно нужно было перевести в радианы:

k := Tan(45)*ToRad;

И еще сделала в настройках TChart жесткую сетку (10:10) и квадратный размер ячеек. Всё выводит замечательно.
До этого выводил ВСЕГДА прямую по углом 45 град (при любых значениях угла), менял только значения координат по У.

[Аватар]

k := Tan(45)*ToRad;

И чего это? Нужно 45 в радианы перевести: 45/180*Pi

Оффтоп

Чего там с полом - то сделала, то менял