как вывести на график результат?

← →
ШТОРМ (2004-05-11 04:19) [0]

Народ! Я не программер, но позарез нужно!
по выполнении этого кода он нихрена на график не выводит...
Хелп!!
procedure TForm1.Button1Click(Sender: TObject); var N0, tau0, Ea, k, vr: real; T, T0: integer; begin N0:=10e+15; tau0:=0.67; Ea:=0.5; k:=8.6*10e-5; vr:=2; T0:=400; T:=800; //tau:=tau0*exp(Ea/(k*T)); //N:=N0*exp(-(vr/tau)); //for T:=400 to 800 do while (T0+1)>T do chart1.SeriesList[0].AddXY(T,N0*exp(-vr/(tau0*(exp(Ea/(k*T)))))," ",clred); end;

← →
тихий вовочка © (2004-05-11 07:01) [1]

while (T0+1)>T ты писал? А теперь посмотри T0 = 400, T = 800
У тебя цикл ни разу не срабатывает

Если ты раскомментируешь сроку
for T:=400 to 800 do
то все у тебя получиться. И делай лучше не Chart1.SeriesList[0], а просто Series1.AddXY

chart1.SeriesList[0].AddXY(T,N0*exp(-vr/(tau0*(exp(Ea/(k*T)))))," ",clred);

как вывести на график результат? Найти похожие ветки