Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

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

 
ШТОРМ   (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
У тебя цикл ни разу не срабатывает


 
тихий вовочка ©   (2004-05-11 07:02) [2]

Если ты раскомментируешь сроку
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);



Страницы: 1 вся ветка

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
1-1083911261
Ш-К
2004-05-07 10:27
2004.05.23
Имитация множественного наследования


6-1081231259
Сергей Ю.
2004-04-06 10:00
2004.05.23
Сниффер


1-1084169503
booby2004
2004-05-10 10:11
2004.05.23
различные exe после компиляции одного и того же проекта


8-1078282572
ИМХО
2004-03-03 05:56
2004.05.23
Монохромность


3-1082961275
pet600
2004-04-26 10:34
2004.05.23
Oracle DB-name