построить графики функции...

[ildar28]

Помогите найти ошибки и построить графики...
Не правильно выводит график функции

Y(t)= ±A*exp(-p1t) ± B*exp (-p2t)

Вот исходник
proba.rar

Работа программы:
1: если D > 0, уравнение представляет собой сумму двух составляющих:

Y(t)= ±A*exp(-p1t) ± B*exp (-p2t)

не правильно работает..
(ввести: 5, 6, 1, 2)
данные ввожу как в книжке, а график получается совсем другой

График должен быть примерно таким


2: если D < 0, уравнение имеет вид:
Вот этот правильно работает. График правильный.
(ввести: 5, 2, 1, 2)

Y(t)= 2exp(-0.5 A1t)M sin(0.5 Akt+φ)

[whatever]

Во-превых кросспост: http://programmersforum.ru/showthread.php?t=194746


Во-вторых

function _sin(x: real):real;
begin
 result := sin(x);
end;

function _cos(x: real):real;
begin
 result := cos(x);
end;

function _exp(x: real):real;
begin
 result := exp(x);
end;

Какого черта ?


В-третьих:

Y(t)= ±A*exp(-p1t) ± B*exp (-p2t)

Я такой график даже вручную не построю. ± как интерпритировать то?.